Paintbox sichtbar machen

[blink182]

mhm die abfrage kannst du ja auch in dem button machen, wie du willst

Delphi-Quellcode:

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

hab noch eben was anderes probiert (wenn du jetzt das 4*4 ColorGrid hast und du dann unten rechts hinclickst kannst du noch ne ander Farbe wählen, wie du willst)

Delphi-Quellcode:

procedure TForm1.ColorGrid1Click(Sender: TObject);
begin
if ColorGrid1.Selection=15 then
begin
if ColorDialog1.execute then
paintbox1.canvas.brush.color:=ColorDialog1.Color
else
paintbox1.canvas.brush.color:=clwhite;
end
else
paintbox1.canvas.brush.color:=ColorGrid1.ForeGroundColor;
// entweder du machst es noch mit einem Extra Button siehe unten oder du fügst hier die ZEile ein
// paintbox1.Canvas.FillRect(Rect(0,0,paintbox1.width,paintbox1.height));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
paintbox1.Canvas.FillRect(Rect(0,0,paintbox1.width,paintbox1.height));
end;

Gn8 blink182