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:
Delphi-Quellcode:
//MISCHEN (geht noch nicht ganz)
procedure TForm1.Button1Click(Sender: TObject);
begin
ColorDialog1.Execute;
end;
-Ruft den Colordialog auf.
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)