BitMap immer schwarz [gelöst]

[AlterMann]

Hallo

Ich versuche gerade eine Druckvorschau in mein Programm einzubauen.

Dazu schreibe ich die Druckdaten in den Canvas einer TBitMap und kopiere diesen zuerst in ein Timage und anschließend in den Canvas von Printer.

Funktioniert grundsätzlich, aber bis auf die Stellen wo ich Objekte mit hellem Hintergrund hinkopiere ist sowohl die Ausgabe am Bildschirm (Image) als auch am Drucker schwarz.

Egal was ich vorher auf der Bitmap versucht habe wie zB:

Code: Alles auswählen

 
    VSBitMap := Graphics.TBitMap.Create;
    VSBitMap.Canvas.Brush.Color:=clWhite;
    VSBitMap.Canvas.FloodFill(1,1,clWhite,fsBorder);
 

oder auch:

Code: Alles auswählen

 
    VSBitMap := Graphics.TBitMap.Create;
    VSBitMap.Canvas.Brush.Color:=clWhite;
     VSBitMap.Canvas.FillRect(0,0,VSBitMap.Canvas.Width-1,VSBitMap.Canvas.Height-1);}
 

... alles schwarz.

Welche Kleinigkeit übersehe ich diesmal?
Danke im Voraus
Christian

[theo]

Ein Bitmap hat erstmal noch keine Dimension.

Code: Alles auswählen

    VSBitMap := Graphics.TBitMap.Create;
    VSBitMap.SetSize(100,100);
    VSBitMap.Canvas.Brush.Color:=clWhite;
    VSBitMap.Canvas.FillRect(0,0,VSBitMap.Width,VSBitMap.Height);    

[AlterMann]

Ein Bitmap hat erstmal noch keine Dimension.

Hallo Theo

Jetzt hab ich mich schon gefreut, denn ich dachte Du hättest es sofort gefunden.
Aber leider funktioniert das trotzdem nicht.

(In der Routine "vorbereiten" wird xmax, und ymax auf Printer.Canvas.Width und ...Height gesetzt)

Code: Alles auswählen

 
    VSBitMap := Graphics.TBitMap.Create;
    Printer.BeginDoc;
    vorbereiten;
    VSBitMap.SetSize(xmax,ymax);
    VSBitMap.Canvas.Brush.Color:=clWhite;
    VSBitMap.Canvas.FillRect(0,0,VSBitMap.Canvas.Width-1,VSBitMap.Canvas.Height-1);
 

[theo]

Drei Zeilen posten und "den Rest habe ich sonstwo" bringt nix.
So kann man dir nicht helfen.
Mach ein minimales Beispielprojekt welches den Fehler zeigt und reproduzieren lässt.

[AlterMann]

Drei Zeilen posten und "den Rest habe ich sonstwo" bringt nix.

Da hast Du wohl recht.
Ich hoffe ich kann hier das ganze Projekt hochladen.

Ist bei mir unter WinXP 32bit und Win7 64bit reproduzierbar.

Danke fürs anschauen ...

[Michl]

Funktioniert bei mir, wenn ich statt Bitmap.Canvas.Width einfach Bitmap.Width (so wie von theo geschrieben) nehme:

Code: Alles auswählen

//  VSBitMap.Canvas.FillRect(0,0,VSBitMap.Canvas.Width-1,VSBitMap.Canvas.Height-1);
  VSBitMap.Canvas.FillRect(0, 0, VSBitMap.Width, VSBitMap.Height);   

[Scotty]

Probier mal

Code: Alles auswählen

VSBitMap.Canvas.Brush.Style:=bsSolid;

[AlterMann]

Funktioniert bei mir, wenn ich statt Bitmap.Canvas.Width einfach Bitmap.Width (so wie von theo geschrieben) nehme:

Danke ihr beiden.
Das war's!

Ich hab das Weglassen von "Canvas" in Theos Posting übersehen.

@Scotty.

bsSolid hatte ich zuvor schon versucht, hatte allerdings keine Änderung gebracht.

Vielen Dank
Problem gelöst!