also ich sag mal so:
wenn der Code in Delphi-Tags stünde und/oder ordentlich formatiert wäre, wäre er einfacher zu lesen
das ganze sieht dann so aus.
Delphi-Quellcode:
if y - radius < Leinwand.ClipRect.Top then
begin
y := Leinwand.ClipRect.Top + radius;
dy := -dy;
end;
if y + radius >= Leinwand.ClipRect.Bottom then
begin
y := Leinwand.ClipRect.Bottom - 1 - radius;
dy := -dy;
end;
if x - radius < Leinwand.ClipRect.Left then
begin
x := Leinwand.ClipRect.left + radius;
dx := -dx;
end;
if x + radius >= Leinwand.ClipRect.Right then
begin
x := Leinwand.ClipRect.right - radius;
dx := -dx;
end;
Des Weiteren lässt sich nur sagen:
radius, dx: Integer; Auf jeden Fall ne Zahl im pos. und neg. Bereich
Leinwand: TCanvas; bin mir aber nicht ganz sicher
Für weitere Aussagen ist der Code-Schnipsel zu klein
rollstuhlfahrer