GDI+: Probleme mit einfachem Zeichnen

**daschaos**

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

...

zusammenfalten · markieren

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;

GDI+: Probleme mit einfachem Zeichnen

GDI+: Probleme mit einfachem Zeichnen

Forumregeln