Discussion :

[Dikimb]

Bonjour à tous,
j'ai developpé une application avec delphi 7 et sql serveur 2000 comme sgbd.
Mon problème est que les fiches de mon application ne s'affiche pas de la mm maniere ou encore pas completement selon la taille des ecrans.

Ya-t-il un moyen de gerer l'affichage d'un fiche par ses propriétés.

Merci de m'aider

[cincap]

Bonjour à toutes et à tous,

@ Dikimb, voici une procédure à tester :

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
16
17
18
 
procedure ScaleForm
    (F: TForm; ScreenWidth, ScreenHeight: LongInt) ;
begin
   F.Scaled := True;
   F.AutoScroll := False;
   F.Position := poScreenCenter;
  // F.Font.Name := 'Arial'; 
   if (Screen.Width <> ScreenWidth) then begin
     F.Height :=
         LongInt(F.Height) * LongInt(Screen.Height)
         div ScreenHeight;
     F.Width :=
         LongInt(F.Width) * LongInt(Screen.Width)
         div ScreenWidth;
     F.ScaleBy(Screen.Width,ScreenWidth) ;
   end;
end;

Sinon, dernièrement j'ai eu un problème d'affichage sur un écran plus large que haut et une de mes fiches présentait un aspect idiot.

J'ai donc mis la propriété "Scaled" de cette fiche à false.

@+,

Cincap

[ShaiLeTroll]

Juste une remarque, mieux vaut utiliser les Screen.WorkArea* que Heigth\Width, cela gère ainsi la Barre des Taches

les applications que je maintiens sont historiquement développés en 800x600 et pour les utilisateurs ayant des résolutions plus grande (ce n'est pas si courant en réalité, c'est 1024 ou 1280 au plus), cela fait un ZOOM de 125 ou 150%

Code :

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

ScaleBy(125, 100);

Et c'est une propriété dans le Fichier Ini qui détermine le ZOOM choisi par l'utilsateur au lieu du imposer une déformation non désirée ...

[cincap]

Bonjour à toutes et à tous,

@ ShaiLeTroll, bien vu, je prend toujours note de tes conseils.

Sur l'écran ou j'avais essayé une application, le rapport de la hauteur et largeur de cet écran n'était pas proportionnelle par rapport aux autres écrans que je connaissais.

Donc pour cette fiche, j'ai joué sur la propriété "Scaled" et le résultat était correct.

@+,

Cincap

[Dikimb]

Merci bcp,

j'ai utilisé le code que vous m'avez fourni et surtout, j'ai choisi de passer à la bonne résolution quand je developpe.

Merci encore

[LandGreen]

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
16
17
18
 
procedure ScaleForm
    (F: TForm; ScreenWidth, ScreenHeight: LongInt) ;
begin
   F.Scaled := True;
   F.AutoScroll := False;
   F.Position := poScreenCenter;
  // F.Font.Name := 'Arial'; 
   if (Screen.Width <> ScreenWidth) then begin
     F.Height :=
         LongInt(F.Height) * LongInt(Screen.Height)
         div ScreenHeight;
     F.Width :=
         LongInt(F.Width) * LongInt(Screen.Width)
         div ScreenWidth;
     F.ScaleBy(Screen.Width,ScreenWidth) ;
   end;
end;

à quelle niveau la procédure doit etre placée ? pour chaque form ?