Forum: Multimedia
Delphi
by blink182,
17. Mär 2009
mhm die abfrage kannst du ja auch in dem button machen, wie du willst ;)
if ColorDialog1.execute then
paintbox1.canvas.brush.color:=ColorDialog1.Color
else
paintbox1.canvas.brush.color:=clwhite;
paintbox1.Canvas.FillRect(Rect(0,0,paintbox1.width,paintbox1.height));
wobei colorgrid die auswahl derfarben sehr gering ist ;) bei 16/255^3 Farben :D
Forum: Multimedia
Delphi
by blink182,
17. Mär 2009
im OnChange Ereignis von dem ColorGrid kannst du dann
paintbox1.canvas.brush.color:=ColorGrid1.BackgroundColor;
und zum malen vllt
paintbox1.canvas.pen.color:=ColorGrid1.ForegroundColor;
aber wie du möchtest ;)
Forum: Multimedia
Delphi
by blink182,
16. Mär 2009
mhm der Code färbt doch deine Paintbox weiß, ich weiß jetzt nicht wo dein Problem ist, dann mach dir einen Button und schreib den Code im OnClick-Ereignis darein
Forum: Multimedia
Delphi
by blink182,
16. Mär 2009
weiß jetzt nicht ganz was du willst, wie man das OnFormCreate-Ereignis erstellt oder was? Doppelklick auf die Form
Forum: Multimedia
Delphi
by blink182,
16. Mär 2009
procedure TForm1.Btn_ClearallClick(Sender: TObject);
begin
// hier kannst du es einfügen
end;
// bzw hier solltest du es einfügen :
procedure TForm1.FormCreate(Sender: TObject);
begin
Forum: Multimedia
Delphi
by blink182,
16. Mär 2009
je nach dem wenn du die Komponente zur Laufzeit erstellst, nach der Erstellung sonst nach dem Form-Create und beim "löschen" bzw "neu erstellen"
Forum: Multimedia
Delphi
by blink182,
16. Mär 2009
paintbox1.canvas.brush.color:=clwhite;
paintbox1.Canvas.FillRect(Rect(0,0,paintbox1.width,paintbox1.height)); ?