.: Dezimalfarbwerte :.

[Chrissi91]

.: Dezimalfarbwerte :.

Hallo,

ich freue mich, euch mein kleinstes und sinnvollstes Projekt Dezimalfarbwerte vorstellen zu können. Man kann damit einen Farbverlauf erzeugen, dessen 2 Hauptfarben man vorher wählen kann. Diese werden in Dezimalzahlenumgewandelt werden und müssen nur noch hier eingetragen werden:

Delphi-Quellcode:

procedure Hintergrund(Canvas: TCanvas; Color1, Color2: TColor; Rect: TRect);
var
 X, R, G, B: Integer;
begin
 for X := Rect.Top to Rect.Bottom do
  begin
   R:=Round(GetRValue(Color1)+((GetRValue(Color2)-GetRValue(Color1))*X/(Rect.Bottom-Rect.Top)));
   G:=Round(GetGValue(Color1)+((GetGValue(Color2)-GetGValue(Color1))*X/(Rect.Bottom-Rect.Top)));
   B:=Round(GetBValue(Color1)+((GetBValue(Color2)-GetBValue(Color1))*X/(Rect.Bottom-Rect.Top)));
   Canvas.Pen.Color:=RGB(R,G,B);
   Canvas.Pen.Width:=1;
   Canvas.Pen.Style:=psInsideFrame;
   Canvas.MoveTo(Rect.Left,X);
   Canvas.LineTo(Rect.Right,X);
  end;
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
 Hintergrund(Canvas,Farbwert1,Farbwert2,Rect(0,0,width,height));
end;