Hallo leibe Gemeinde.
Ich male im Moment mit Fingerfarben (MoveTo, LineTo) auf einigen Bitmaps rum. Habe auch schon TImage ausprobiert, da sitzt ja auch eine Bitmap hinter.
Mein Problem ist, dass ich die Zeichenfarbe zwar ändern kann, dies keinerlei Auswirkungen hat... Habe ich beim Brush vielleicht noch etwas zu beachten?
Hier mal der Code:
Delphi-Quellcode:
fBitmap:=TBitmap.Create;
fBitmap.Monochrome:=false;
fBitmap.Height:=480;
fBitmap.Width:=640;
fBitmap.Canvas.Brush.Color:=clRed;
//Debugger zeigt: Wert von Color ist jetzt 255 (--> 00,00,FF), passt
fBitmap.Canvas.MoveTo(0,0);
fBitmap.Canvas.LineTo(639,479);
fBitmap.Canvas.Brush.Color:=clWhite;
//Debugger zeigt: Wert von Color ist jetzt 16777215 (--> FF,FF,FF), passt
fBitmap.Canvas.MoveTo(0,0);
fBitmap.Canvas.LineTo(639,479);
fBitmap.SaveToFile('C:/test.bmp');
//test.bmp zeigt eine schwarze Diagonale auf weißem Grund
Image.Picture.Bitmap:=Bitmap;
//Anzeige auf der Form wie test.bmp
Ich vermute, dass es nur eine Kleinigkeit ist. Übrigens benutze ich Turbo Delphi.
Vielen Dank schonmal bis hier hin fürs Lesen. Ein passender Vorschlag wäre toll
