Hallo Leute =)
Erstmal danke für die aktive Beantwortung meiner Fragen... Hab jetzt endgültig GR32 Komponente in mein Programm eingebaut und werde aus diesem Grund auch nicht auf PaintBox oder andere Komponente umsteigen. Jetzt zeichne ich direckt aufs Bitmap von Image32 bzw. einem Layer.. Und da kommt gleich das nächste Problem.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
with Img do
begin
Layers.Clear;
Scale := 1;
Bitmap.SetSize(150, 150);
Bitmap.Clear(clGreen32);
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var BL: TBitmapLayer;
begin
BL := TBitmapLayer(Img.Layers.Add(TBitmapLayer));
with BL.Bitmap do
begin
bl.Bitmap.SetSize(150,150);
bl.Bitmap.DrawMode := dmBlend;
PenColor:= clRed32;
MoveTo(3,3);
LineToS(150,150);
Bl.Scaled:= true;
end;
end;
Wie ihr sehen könnt, erstellt die erste Prozedur ein Bitmap auf der Komponente.
Die zweite Prozedur ist dafür zuständig, dass ein Layer erstellt und gezeichnet wird.
Eigentlich ist die Größe des Image32.Bitmaps und des Layers gleich, trotzdem wird das Bitmap vom Layer kleiner gezeichnet, und zwar so:
http://inflicted.de/tmp/delphi.gif
obwohl die Linie bis ganz unten rechts gehen sollte...
Was mache ich falsch?