Farbe An Dialog übergeben

F34r0fTh3D4rk · Verfasst: Di 03.01.06 15:04

So und meine 3. Frage für heute, vielleicht hat ja jemand diese Komponente, sie stammt aus der Komponenten Sammlung JVCL, ich möchte diesem ColorDialog eine StartFarbe übergeben, nur ist die Color Eigenschaft ReadOnly, und ich hab bisher keine Andere Eigenschaft gefunden der ich eine Farbe zuweisen kann, vielleicht weiß jemand eine Lösung oder eine bessere Komponente. Sie sollte schon die Features HLS HSV RGB haben und das ganze eben grafisch hochwertig, wie der color auswahl dialog von photoshop.

bei torry ist nur eine auf französisch, und die sieht auch noch schlimm aus, lesen kann das eh keiner

Martin1966 · Beiträge: 1068 Win 2000, Win XP Delphi 7, Delphi 2005

Es existiert doch eine Demo-Anwendung, oder?

Dort ist das hier zufinden:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TMainForm.JvFullColorLabelDblClick(Sender: TObject);
begin
  with TJvFullColorLabel(Sender) do
  begin
    JvFullColorDialog.FullColor := LabelColor;
    JvFullColorDialog.Tag := Integer(Sender);
    if JvFullColorDialog.Execute then
    begin
      LabelColor := JvFullColorDialog.FullColor;
      UpdateCaption(TJvFullColorLabel(Sender));
    end;
  end;
end;