Hallo,
ich will einfach ein Rechteck auf meiner Form zeichnen aber irgendwie klappt das nicht folgenden Code hab ich geschrieben:
Code:
procedure TMainForm.FormCreate(Sender: TObject);
var
pic : TBitmap;
begin
pic := TBitmap.Create;
pic.Height := 100;
pic.Width := 100;
pic.Canvas.Brush.Color := clRed;
pic.Canvas.FillRect(Rect(0, 0, pic.Width, pic.Height));
MainForm.Canvas.Draw(0, (MainForm.Width div 2) - (MainForm.Height div 2), pic);
end
Ich bin leider noch ziemlich unerfahren mit Delphi, hoffe Ihr könnt mir weiterhelfen!
Danke in voraus!
mfg hannibal