Übersetzung Class MagneticWindow

[xaromz]

Hallo,

Zitat von EWeiss:

Problem mit Property

Vorsicht! Hier

Delphi-Quellcode:

procedure TMagnetic.SetSnapWidth(NewSnapWidth: Integer);
begin
  SnapWidth := NewSnapWidth;
end;

hast Du eine Rekursion gebaut. Die Zuweisung ruft ja wieder SetSnapWidth auf!

Delphi-Quellcode:

                        Case True of
                          Abs(rcTmp.x1 - x1) < SnapWidth:
                           rcWnd.x1 := x1;
                          Abs(rcTmp.x1 - x2) < SnapWidth:
                           rcWnd.x1 := x2;
                        End;

Das Problem ist, dass die Werte, die bei case als Möglichkeiten angegeben werden, Konstanten sein müssen.
Du musst das also umformulieren:

Delphi-Quellcode:

case Abs(rcTmp.x1 - x1) < SnapWidth of
  True:
    rcWnd.x1 := x1;
  False:
    rcWnd.x1 := x2;
end;

Gruß
xaromz