Ich wollte mal ein bißchen mich mit
GDI+ vertraut machen, weil ich unter anderem gerne Farbverläufe etc. einfach erzeugen wollte. Anscheinend hab ich da Denkfehler, denn er kompiliert den Code zwar, aber er zeichnet garnichts
.
Was mach ich falsch? Bin für jeden Tip dankbar
...
Delphi-Quellcode:
procedure TForm1.FormPaint(Sender: TObject);
var
LGB: TGPLinearGradientBrush;
LGBRect: TGPRect;
LGBCanvas: TGPGraphics;
P: TGPPen;
begin
LGBRect.X := 0;
LGBRect.Y := 0;
LGBRect.Width := 100;
LGBRect.Height := 100;
P := TGPPen.Create(clBlack);
LGB := TGPLinearGradientBrush.Create(LGBRect, clWhite, clBlack, LinearGradientModeForwardDiagonal );
LGBCanvas := TGPGraphics.Create(Canvas.Handle);
LGBCanvas.DrawRectangle(&P, LGBRect);
LGBCanvas.FillRectangle(&LGB, LGBREct);
FreeAndNil(LGBCanvas);
FreeAndNil(LGB);
FreeAndNil(P);
end;