[Delphi]Farben

[changlee]

achso, ja, das panel soll offenbar gar nicht die gemischte Farbe bekommen.

Delphi-Quellcode:

procedure TForm1.SBlauChange(Sender: TObject);
begin
  Blau:=SBlau.Position;
  ZBlau.Caption:=IntToStr(Blau);
  FBlau.Color := RGB(0, 0, ScrollbarBlau.Position);
  Farbe := RGB(ScrollbarRot.position, ScrollbarGruen.Position, ScrollbarBlau.Position); 
end;

[netmario]

Habs jetzt, weiß jetzt wies geht, vielen Dank für eure Hilfe.

[DeddyH]

Delphi-Quellcode:

procedure TForm1.SRotChange(Sender: TObject);
begin
  rot:=SRot.Position;
  Zrot.Caption:=IntToStr(rot);
  FRot.Color:=RGB(rot,0,0);
  FarbenPanel.Color := RGB(Rot, Gruen, Blau);
end;

procedure TForm1.SGruenChange(Sender: TObject);
begin
  Gruen:=SGruen.Position;
  ZGruen.Caption:=IntToStr(Gruen);
  FGruen.Color:=RGB(0,Gruen,0);
  FarbenPanel.Color := RGB(Rot, Gruen, Blau);
end;

procedure TForm1.SBlauChange(Sender: TObject);
begin
  Blau:=SBlau.Position;
  ZBlau.Caption:=IntToStr(Blau);
  FBlau.Color:=RGB(0,0,Blau);
  FarbenPanel.Color := RGB(Rot, Gruen, Blau);
end;

[netmario]

Hab noch ne kleine Frage, wie kann ich jetzt diese zusammengemischte Farbe im Hexadezimalsystem ausgeben lassen?

[DeddyH]

Mit IntToHex und GetRValue/GetGValue/GetBValue.

[netmario]

Bin mal wieder zu blöd das zu machen, könnt ihr mir bitte helfen?

[DeddyH]

RGB() mischt Dir aus den 3 Grundfarben einen Farbton. GetXValue (X für R, G, oder B) holt daraus dann wieder den entsprechenden Farbanteil. Das ist ein Byte, das Du mit IntToHex in einen String umwandeln kannst. Nun fügst Du die Teilstrings mit + wieder zusammen und fertig. Wo hängt es denn?

[netmario]

Wie muss ich das genau machen?
GetRValue:=r;
Label1.Caption:=IntToHex(r);
Das Wollte nicht gehen. Hatte erst eine Schuldoppelstunde Delphi, bitte um Verzeihung.

[DeddyH]

Delphi-Quellcode:

DeinString := IntToHex(GetRValue(Farbe),2) + IntToHex(GetGValue(Farbe),2) + IntToHex(GetBValue(Farbe),2);

Ungetestet.

[edit] Ich hatte die Digits vergessen. [/edit]

[netmario]

Delphi-Quellcode:

procedure TForm1.SRotChange(Sender: TObject);
begin
  rot:=SRot.Position;
  Zrot.Caption:=IntToStr(Rot);
  FRot.Color:=rot;
  FRot.Color:=RGB(rot,0,0);
  FarbenPanel.Color := RGB(Rot, Gruen, Blau);
  Label1.Caption:= IntToHex(GetRValue(Farbenpanel)) + IntToHex(GetGValue(Farbenpanel)) + IntToHex(GetBValue(Farbenpanel));
end;

Da kommt [Error] Unit1.pas(49): Incompatible types: 'Cardinal' and 'TPanel'