TForm CanResize DPI

Bonjour à tous,

Comment géré le redimensionnement d’un TForm en prenant en charge le DPI ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

{ Form CanResize } procedure TFrom.FormCanResize(Sender: TObject; var NewWidth, NewHeight: Integer; var Resize: Boolean); const AWidth = 900; AHeight = 550; begin if NewWidth < AWidth then NewWidth := AWidth;   if NewHeight < AHeight then NewHeight := AHeight; end;

---

Mon Form par défaut : Height = 550, Width = 900

A l’ouverture avec le DPI : Height = 774, Width = 1339

Merci

Citation:

---

Envoyé par XeGregory

Bonjour à tous,

Comment géré le redimensionnement d’un TForm en prenant en charge le DPI ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

{ Form CanResize } procedure TFrom.FormCanResize(Sender: TObject; var NewWidth, NewHeight: Integer; var Resize: Boolean); const AWidth = 900; AHeight = 550; begin if NewWidth < AWidth then NewWidth := AWidth;   if NewHeight < AHeight then NewHeight := AHeight; end;

---

Mon Form par défaut : Height = 550, Width = 900

A l’ouverture avec le DPI : Height = 774, Width = 1339

Merci

---

Ou sinon il faut que je passe les constantes en Variable Private (AWidth, AHeight).
Je récupère les nouvelle dimensions du Form visa la procédure FormCreate. (Form.Width := AWidth, Form.Height := AHeight). :koi:

J'ai aussi le même problème avec le TPanel visa le TSplitter sur le redimensionnement Min du Tpanel.

Code:

---

1 2	Panel.Constraints.MinWidth := 250; Splitter.MinSize := Panel.Constraints.MinWidth;

---

Citation:

---

Envoyé par XeGregory

J'ai aussi le même problème avec le TPanel visa le TSplitter sur le redimensionnement Min du Tpanel.

Code:

---

1 2	Panel.Constraints.MinWidth := 250; Splitter.MinSize := Panel.Constraints.MinWidth;

---

---

Code:

---

1 2 3 4 5 6 7

if Screen.PixelsPerInch > USER_DEFAULT_SCREEN_DPI then // 96 DPI Panel.Constraints.MinWidth := 250 + Screen.PixelsPerInch; else Panel.Constraints.MinWidth := 250;   Splitter.MinSize := Panel.Constraints.MinWidth;

---

Cela peut être une solution :koi: avec une différence taille

Screen.PixelsPerInch : 144
Mon Panel par défaut : Width = 250
A l’ouverture avec le DPI : Width = 375

Screen.PixelsPerInch + PixelsPerInch = Width 394 cela me fait une différence de 19 px (A l’ouverture avec le DPI - Screen.PixelsPerInch + PixelsPerInch).

Tu peux poser dix fois la question, la réponse sera invariablement la même...

Citation:

---

Envoyé par Andnotor

Tu peux poser dix fois la question, la réponse sera invariablement la même...

---

:D la Solution été la !
https://www.developpez.net/forums/d2...ifeste-semble/

Citation:

---

Envoyé par Andnotor

C'est à toi de prendre en compte la résolution lors de dessins personnalisés, toutes les quotes doivent être MulDiv.

Code:

---

1 2	Left := 10; // Faux Left := MulDiv(10, CurrentPPI, USER_DEFAULT_SCREEN_DPI); // Juste

---

Tu peux ensuite simplifier cela par un class helper :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

type TControlHelper = class Helper for TControl public function PPI(aValue :integer) :integer; end;   implementation   { TControlHelper }   function TControlHelper.PPI(aValue: integer): integer; begin Result := MulDiv(aValue, CurrentPPI, USER_DEFAULT_SCREEN_DPI); end;

---

que tu invoquera ainsi :

Code:

---

Left := PPI(10);

---

A noter que ScaleValue est apparu en D11.2.

---