Delphi-PRAXiS - Delphi Bild und Comboboxen

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)

- - Delphi Bild und Comboboxen (https://www.delphipraxis.net/194327-bild-und-comboboxen.html)

Bild und Comboboxen

Hey zusammen,

ich hab folgenden Fall.
Ich habe mit Kästchen. Darauf sind Comboboxen, diese Comboboxen sollen immer in den Kästchen bleiben. Das Bild wird über ein TImage eingebettet. Wenn nun aber das Bild Scaliert wird, via Panel über AlClient und dann mit einem Splitter bewegt , verschieben sich ebenfalls die Comboboxen. aber diese Scalieren ja nicht wie die Kästchen. Hat jemand ein Beispiel wie man das machen könnte? hab schon bisschen mit Anchors gespielt etc.
Hat jemand sowas schonmal gemacht ?

AW: Bild und Comboboxen

closed

hatte falsch gerundet
Lösung :

Delphi-Quellcode:

			procedure Panel1CanResize(Sender: TObject; var NewWidth, NewHeight: Integer; var Resize: Boolean);

begin

  ComboBox3.left   := round(ComboBox3.left * (NewWidth / TPanel(Sender).Width));

end