Hallo,
ich muss ein Programm ähnlich wie Paint programmieren.
Jetzt habe ich schon hinbekommen, dass ich zeichnen kann und will nun,dass man die Farbe des Stiftes ändern kann indem man sie über den Color Dialog auswählt.
Ich habe auch schon eine ColorGrid aber will nun indem ich auf einen Button klicke , der "mischen" heist, die Farbe über den Dialog auswählen.
(Und mit dem Colordialog kann man die Farben ja auch mischen)

Ich habe folgendes getan:

markieren

Delphi-Quellcode:

//MISCHEN (geht noch nicht ganz)
procedure TForm1.Button1Click(Sender: TObject);
   begin
    ColorDialog1.Execute;
   end;

-Ruft den Colordialog auf.

markieren

Delphi-Quellcode:

procedure TForm1.ColorDialog1Close(Sender: TObject);
   begin
   Canvas.Pen.Color := ColorDialog1.Color;
   end;

-Die Farbe wird dem Stift(Pen) zugewiesen.

Und jetzt mein Problem:
Der Dialog wird aufgerufen..soweit richtig denke ich.
Die Farbe kann ich auch bestimmen.
Wenn ich auf 'OK' klicke und versuche zu zeichnen, dann ist die Farbe weiterhin schwarz..da kann ich den Dialog auch noch oft genug aufrufen und auf 'OK' klicken aber es bleibt schwarz.


Und achso..ich zeichne über eine Paintbox.

Ich hoffe ihr könnt mir weiterhelfen. Danke schonmal^^


PS:
Die Suchfunktion habe ich schon durchforstet..habe auch so ein ähnliches Problem gefunden jedoch habe ich dies so übernommen und es klappt trotzdem nichts.(http://www.delphipraxis.net/149109-c...-zuweisen.html)

Versuch es einmal mit

markieren

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if ColorDialog1.Execute then
    PaintBox1.Canvas.Pen.Color := ColorDialog1.Color;
end;

. . . wenn ich's noch richtig erinnere, ist zum
Zeitpunkt des Ereignisses "OnClose" Color wieder
"default" - also schwarz, weshalb das Ereignis
OnClose (auch bei anderen Dialogen) nicht zum Abfragen
von Eigenschaften zu benutzen ist.
Falls ich falsch liege, möge mich jemand berichtigen.