Discussion :

[Papy214]

Bonjour à tou(te)s

Petit problème que beaucoup ont surement eu et ont sans doute déjà réglé mais là je cherche un peu la meilleure solution.

Soit une application VCL en Delphi 10.3 qui retient sa position sur l'écran à la fermeture et qui se repositionne aux même coordonnées quand on la relance !

Problème : Le matin, l'utilisateur travaille sur 2 écrans et positionne l'application sur le second écran à droite.
L'après-midi, il n'a plus que son portable et relance l'application. Là, l'application se positionne aux coordonnées en dehors de l'écran visible.
Il faudrait que je détecte si 2 écrans sont actifs et dans le cas contraire, repositionner l'application au milieu de l'écran principal.

Je sais qu'il y a de nombreux éléments disponibles dans l'objet Screen mais je ne vois pas trop comment les utiliser au mieux.

Est-ce qu'il suffit d'utiliser Screen.MonitorCount pour avoir le nombre de moniteurs "allumés" ??
Quelque chose comme :

Code :

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

1
2
3
4
5
6
 
        if Screen.MonitorCount = 1 then
        begin
          if LeftPosition > Screen.Width then
            LeftPosition := (Screen.WorkAreaWidth - Form.Width) div 2;
        end;

???

[acaumes]

Bonjour,

J'avais fait ça (en lazarus en fait mais cela doit pouvoir s'appliquer à DELPHI).

Le test se fait lors de l'activation de l'application car sur un portable tu peux débrancher l'UC et te retrouver en réunion et il faut également que l'appli se positionne comme il faut.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure TSqliteV.AppActivation(Sender : TObject);
Var MaxSize : Integer;
    nI      : integer;
begin
    // tester les positions et les écrans
    MaxSize := 0;
    for nI :=0 to Pred(Screen.MonitorCount) do
        MaxSize := MaxSize + Screen.Monitors[nI].Width;
    if Left > MaxSize then
    Begin
        top := 0;
        Left := 0;
    end;
 
end;

Cordialement

[Papy214]

Merci, ça me confirme que le MonitorCount indique bien le nombre de moniteur "actifs".
Je vais donc régler le problème de cette façon.

Bonne journée,

[Andnotor]

Ce serait mieux de se baser sur la surface du bureau par Screen.DesktopRect. Ne pas oublier que les coordonnées peuvent être négatives suivant la position des écrans secondaires par rapport au principal.

Et pour la détection "à chaud" des modifications d'affichage : WM_DISPLAYCHANGE (aussi pour la rotation des tablettes).

[Papy214]

Ce serait mieux de se baser sur la surface du bureau par Screen.DesktopRect. Ne pas oublier que les coordonnées peuvent être négatives suivant la position des écrans secondaires par rapport au principal.

Et pour la détection "à chaud" des modifications d'affichage : WM_DISPLAYCHANGE (aussi pour la rotation des tablettes).

à l'origine je faisais :

Code :

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

1
2
3
4
 
        LeftPosition := Reg.ReadInteger('Left');
        if LeftPosition > Screen.DesktopWidth then
          LeftPosition := (Screen.DesktopWidth - TForm(Form).Width) div 2;

Mais un client s'est plaint que l'application disparait quand même.
Comme je n'ai pas de solution facile pour tester ça au bureau , je cherche un peu à l'aveuglette :-(

[ShaiLeTroll]

As-tu géré MonitorCount pour que ton utilisateur puisse avoir une configuration si il travaille en Portable ou Portable + Ecran ?

Code :

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

1
2
3
4
if MonitorCount = 1 then
  LeftPosition := Reg.ReadInteger('Left')
else
  LeftPosition := Reg.ReadInteger(Format('Monitor[%d]_Left', [MonitorCount]))

Idem pour le WriteInteger, tu as bien deux niveaux de configuration

Code :

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

1
2
3
4
if MonitorCount = 1 then
  Reg.WriteInteger('Left', LeftPosition )
else
  Reg.WriteInteger(Format('Monitor[%d]_Left', [MonitorCount]), LeftPosition )

Pense aussi lorsque les écrans sont inversés, tu peux avoir un utilisateur avec un écran sur sa droite + centre, un autre utilisateur avec un écran sur sa gauche + centre
Sous Windows, tu indiques l'écran principal, tu dois déja savoir quel est l'écran principal et te méfier comme le mentionne AndNotOr dans quel sens sont exprimés les dimensions.

La mémoire de positions d'un programme a toujours été source d'emmerde de maintenance, je ne le faisais que si l'utilisateur le réclamait.

[Andnotor]

Mais un client s'est plaint que l'application disparait quand même.

Comme je l'ai dit, si l'écran secondaire est à gauche du principal, son left est négatif. Pour deux écran disons de 1024, les X iront de -1024 à +1024. Tu ne peux donc tout simplement pas te baser sur la largeur de 2048.

Même chose en hauteur si les écrans sont superposés.

Code :

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

1
2
3
4
uses Math;
 
Left := EnsureRange(LeftPosition, Screen.DesktopLeft, Screen.DesktopRect.Right -Width);
Top  := EnsureRange(TopPosition, Screen.DesktopTop, Screen.DesktopRect.Bottom -Height);

[Papy214]

As-tu géré MonitorCount pour que ton utilisateur puisse avoir une configuration si il travaille en Portable ou Portable + Ecran ?


Pense aussi lorsque les écrans sont inversés, tu peux avoir un utilisateur avec un écran sur sa droite + centre, un autre utilisateur avec un écran sur sa gauche + centre
Sous Windows, tu indiques l'écran principal, tu dois déja savoir quel est l'écran principal et te méfier comme le mentionne AndNotOr dans quel sens sont exprimés les dimensions.

La mémoire de positions d'un programme a toujours été source d'emmerde de maintenance, je ne le faisais que si l'utilisateur le réclamait.

J'avoue que je n'avais pas pensé à gérer plusieurs config.
Merci pour l'idée

[Papy214]

Comme je l'ai dit, si l'écran secondaire est à gauche du principal, son left est négatif. Pour deux écran disons de 1024, les X iront de -1024 à +1024. Tu ne peux donc tout simplement pas te baser sur la largeur de 2048.

Même chose en hauteur si les écrans sont superposés.
[/CODE]

Merci , là aussi, l'idée des 2 écrans superposés ne me serait pas venu à l'idée