Ich schreibe ein Programm, mit dem man die
RGB Farben mixen kann. Das soll wie folgt sein:
man hat 3 TrackBars mit denen man die Farbe einstellt, ein Shape in dem die Farbe angezeigt werden soll und ein Textfeld in dem der Hexadezimalcode für die Farbe steht. So weit so gut.
Delphi-Quellcode:
var
Form1: TForm1;
r1, g1, b1: Integer;
r2, g2, b2, hex: string;
implementation
{$R *.dfm}
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
r1 := TrackBar1.Position;
r2 := IntToHex(r1, 2);
hex := r2 + g2 + b2;
Shape1.Brush.Color := StringToColor(hex);
end;
Das funktioniert soweit, bis man in den 10er bereich des hexacodes kommt. Also 0A ... Dann meckert er: 0A ist kein gültiger Integerwert. Dabei speichere ich den Hexacode doch in einem String. Kann mir das mal wer erklärn?