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;