Verwendung des Microsoft GDI+ Teil 1
Die ersten Striche
Das Zeichenbrett
Die Klasse TGPGraphics ist unser zentrales Zeichenbrett, welches wir benötigen, um überhaupt etwas auf unserem Bildschirm zu sehen. Im folgenden Beispiel zeichnen wir eine schräge Line über eine TPaintBox :
uses … GDIPOBJ, GDIPAPI;
...
procedure TForm1.PaintBox1Paint(Sender: TObject);
var
graphics: TGPGraphics;
pen: TGPPen;
begin
//Zeichenbrett erstellen
graphics := TGPGraphics.Create(PaintBox1.Canvas.Handle);
//Zeichenstift erstellen
pen := TGPPen.Create(MakeColor(255,0,0,0));
try
//Line quer über die PaintBox zeichnen
graphics.DrawLine(pen,0,0,PaintBox1.Width,PaintBox1.Height);
finally
//Zeichenbrett freigeben
graphics.Free;
//Zeichenstift freigeben
pen.Free;
end;
end;
Gleich beim Erstellen unseres Zeichenbrettes (TGPGraphics) wird das Handle der Canvas angegeben, worauf GDI+ zeichnen soll. Beim Erstellen unseres Zeichenstiftes (TGPPen) kann gleich die gewünschte Farbe angegeben werden. Das GDI+ verwendet ARGB Farbwerte: Alpha, Rot, Grün, Blau. Der Alpha-Wert einer Farbe gibt die Transparenz an. Somit ergeben sich viele neue Möglichkeiten, welche später noch erläutert werden. Die Routine MakeColor wandelt die Werte A,R,G,B oder nur R,G,B in eine TGPColor (=ARGB) um.