.: Dezimalfarbwerte :.

[Jelly]

Ich muss jetzt mal ein bischen zitieren:

Zitat von Chrissi91:

Der Code ist von dem angegebenen Link. Aber ich habe es mit meinem Computerlehrer umgeschrieben, um es ein wenig verständlicher für mich zu machen.

OK, dann zeig mir jetzt mal eine Zeile Code, die bei folgend beiden Quellcodes anders ist. (ausser vom Namen der Prozedur), und was bitte soll dann verständlicher geworden sein

Und wenn DU dann schreibst, dass Du Dein sinnvollstes Programm vorstellst, hab ich damit echt ein Problem, denn:

• Es ist in keinster Weise von Dir, ist einfach nur kopiert ohne Quellenangabe.
• Für mich persönlich ist die Definition von sinnvoll etwas erweiterbar

Hier nochmal zum Vergleich die beiden Quellcodes:

Zitat von Delphi Library Topic 21528:

Delphi-Quellcode:

procedure DrawGradientH(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;

Zitat von chrissi91:

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;