Farbe ändern per "Color Bar"

[Gast]

Hallo,
entschuldigung, dass ich euch noch einmal stören muss. Habe aber eine kleine Frage. Vorher muss ich aber sagen, dass ich wirklich nicht viel Ahnung von Delphi habe und wollte nur fragen ob mir einer von euch helfen kann. Aber bei mir reichts noch nicht wenn ihr mir einfach ein paar Zeilen schreibt.. wäre nett wenn ihr auch direkt sagt wo die dann hinmüssen.

Wir müssen eine Art Minipaint machen und ich möchte nun von dem Stift die Farbe per "Color Map" changen. Habe aber keinen Plan wie ich das mache.

Habe meine Vorstellung hier mal geaddet. Wenn man da auf eine Farbe klickt, dann soll diese im unteren Feld zu sehen sein und der Stift (paintbox1.canvas.pen.color) diese Farbe bekommen.

Wäre gut wenn man nur in diesem Feld klicken könnte und nicht wo anderes im Fenster.

VIELEN Dank schon einmal im Voraus !


Gr33tz!
Tigerhead

[fkerber]

Hi!


Verwende die Komponente ColorDialog von der Registerkarte Dialogs.
Hier ein Anwendungsbeispiel:

Delphi-Quellcode:

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

Das umbauen auf deinen Pen schaffst du bestimmt :wink:


Ciao Frederic

[Pr0g]

Wenn du nicht viel Ahnung von Delphi hast, wäre es wohl am leichtesten das Bild mit der Farbpalette in einem TImage zu laden und dann mit "Pixels[]" den Fabwert unter dem Mauszeiger zu ermitteln. Definiere dazu eine Variable namens "MouseDown" vom Typ Boolean im "private" Abschnitt. Ins "OnMouseDown" Ereignis packst du folgenden Code:

Delphi-Quellcode:

MouseDown := True;
PaintBox1.Canvas.Pen.Color := Image1.Picture.Bitmap.Canvas.Pixels[X, Y];

in das "OnMouseUp" Ereignis folgenden Code:

Delphi-Quellcode:

MouseDown := False

und in das "OnMouseMove" Ereignis folgenden:

Delphi-Quellcode:

if MouseDown then
  PaintBox1.Canvas.Pen.Color := Image1.Picture.Bitmap.Canvas.Pixels[X, Y];

Nun kannst du die Maus drücken und die gewünschte Farbe durch Ziehen auswählen.

MfG Pr0g

[Gast]

Von fkerber die Variante habe ich gerade schon probiert, finde nur doof, dass es ein Dialof ist ..

[fkerber]

Hi!

Naja, aber das ist in vielen Programmen Standard. Ähnlich wie ein OpenDialog zum Öffnen von Dateien.


Ciao Frederic

[Gast]

Okay trotzdem Vielen Dank :)

[Muetze1]

Moin!

Ich könnte sonst in dem Zusammenhang mal auf ein Projekt von mir verweisen: TColorSelector / TValueSelector

MfG
Muetze1