Forum: Algorithmen, Datenstrukturen und Klassendesign
by Alter Mann,
24. Jun 2015
Hallo,
Ja das sieht komisch aus, aber dankR := Control.ClientRect;
werden genau(nur) R.Right und R.Bottom gesetzt.
Nur R.Top und R.Left muss man sich 'umständlich' via R.TopLeft := Self.ScreenToClient(Control.ClientToScreen(Point(0, 0))); holen.
Auf Height und Width bin ich in diesem Zusammenhang gar nicht gekommen.
Ich habe aber das ursprüngliche Problem anders gelöst und eine Anleihe...
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Alter Mann,
23. Jun 2015
Danke
@stahli
Ja, so in der Art.
In der 2. Grafik kannst du Links ein Panel sehen, auf demr weitere Controls abgelegt sind.
In der 'unsortierten' Liste sieht man die TRect-Werte dazu,
procedure TForm1.ListControlData;
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Alter Mann,
23. Jun 2015
Moin, Moin,
da habe ich etwas unklar ausgedrückt:oops:
Sortiert soll in der Reihenfolge der Rectangles von oben nach unten, d.h. :
TopLeft BottomRight
0, 0 185, 83
0, 83 185, 3
0, 86 185, 105
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Alter Mann,
22. Jun 2015
Hallo,
ich habe ein kleines Compare-Problem.
Ich fülle ein TList via ControllCount und möchte diese
in Abhängigkeit der hinterlegten Rect-Strukturen sortieren.
var
CL : TList;
...
CL := TList.Create;