TCustomControl-Maße abhängig von Left

[sintronic86]

Hallo Community, schon wieder muss ich eine Frage stellen.

Leider ist mein Titel nicht sehr aussagekräftig, aber ich wusste auch nicht, wie ich das in einen kurzen Satz hätte bringen können.

Es geht um Folgendes:
Ich habe ein TPanel("Panel_Anzeige"), auf diesem werden viele TCustomControls(im Folgenden nur "CC" genannt) gelegt, die alle nebeneinander angeordnet sind (ohne Align).
Wenn ich nun eines dieser CCs mittels Maus bewege, dann bewegen sich auch die anderen CCs mit. So weit, so gut.
Nun möchte ich eigentlich gerne, das die CCs, je nachdem, wie weit sie vom Rand des Panels_Anzeige weg sind, größer bzw. kleiner werden.


Hat einer von euch etwas derartiges schon versucht oder gar erfolgreich absolviert?????

[stahli]

Ich denke mal, das wirst Du genauer beschreiben müssen...

Hilft das vielleicht schon etwas?
CC[I].Width := 100 + Round(CC[I].Left * 1.25);

[sintronic86]

Wow! Super schnelle Antwort.


Ich poste mal mein Projekt. Dort ist denke ich zu sehen, was ich meine.
Es klappt ja schon in etwa. Aber es sieht noch echt "peep" aus....

[stahli]

Ich habe leider keinen FB installiert.
Kannst Du mal 2-3 Screenshots (oder ein ganz kurzes Screen-Video) hochladen - das reicht ja vielleicht auch schon zum Verständnis...

[sintronic86]

Habe ein kleines Video gemacht. Ich hoffe man sieht, was ich meine!

[stahli]

Ist eigentlich ganz lustig.
Optimierungsmöglichkeiten fallen mir auf die Schnelle nicht so ein.
FMX hat ja eine ähnliche Komponente. Ich weiß aber nicht, wie die das im Detail macht.
An was mich das auch ein wenig erinnert, ist die Toolbar hier oben rechts in der DP.

Aber konkrete Vorschläge habe ich leider nicht...