Discussion :

[XeGregory]

Bonjour à tous,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[XeGregory]

Bonjour à tous,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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).

[XeGregory]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[XeGregory]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 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).

[Andnotor]

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

[XeGregory]

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

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Tu peux ensuite simplifier cela par un class helper :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Left := PPI(10);

A noter que ScaleValue est apparu en D11.2.