Delphi Farbmixer - Delphi-PRAXiS

Thema durchsuchen

Ansicht

Themen-Optionen

Farbmixer

Ein Thema von Lee500 · begonnen am 18. Sep 2006 · letzter Beitrag vom 18. Sep 2006

Vorheriger Beitrag

Nächster Beitrag

KrasserChecker

Registriert seit: 21. Jul 2004
120 Beiträge

Re: Farbmixer

18. Sep 2006, 17:22

Wahrscheinlich erkennt Delphi den Hexwert nicht als Hexwert. Setz' doch einfach mal das Zeichen "$" vor den String. So werden Hexwerte in Delphi nämlich eigentlich angegeben.

markieren

Delphi-Quellcode:

			procedure TForm1.TrackBar1Change(Sender: TObject);

begin

  r1 := TrackBar1.Position;

  r2 := IntToHex(r1, 2);

  hex := '$' + b2 + g2 + r2;

  Shape1.Brush.Color := StringToColor(hex);

end;

Ach ja: Farben werden in Delphi übrigens "rückwärts" definiert. Also nicht RRGGBB, sondern BBGGRR