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:
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