Discussion :

[ovni76]

Bonjour,
Suite à un problème d'écran en panne, j'ai été obligé d'utiliser un écran de taille plus petite, ce qui fait que pour les applications déjà compilées mes fiches sont difficilement exploitables. Sous Delphi 4 j'avais trouvé une fonction qui permettait cette modification au démarrage de l'appli, je viens de l'essayer mais elle ne fonctionne pas.
Alors si l'un d'entre vous connaît une solution je le remercie d'avance.

[Gouyon]

La meilleure solution serait de reprendre le projet et de le compiler avec la bonne taille de Form.
Plus généralement pour tout ce qui est problèmes de ce type je procède de la façon suivante:

1. Je définit pour une résolution mimimun la position et la taille de mes éléments sur ma Form
2. Dans la méthode OnResize je définit pour chaque élément de ma fiche son comportement suite à un changement de taille de la Form
   
   • Quelle dimension de l'élément est étendue
   • Le changement de la position
   • Etc Etc

C'est un gros travail mais le résultat est payant au bout du compte

[Invité]

Bonjour,

Si j'ai bien compris, il faudrait raboter certaines fiches. Vous parlez probablement en exécution (et pas dans l'IDE). Je procède autrement que Rémi. Donc je vous signale cette autre possibilité.

Si c'est en exécution que le problème se pose, cela dépend de la "taille" de départ (WindowsState) de la Form.

• Si c'est plein écran (wsMaximized) :
  
  • si vous avez utilisé les Anchors... il n'y a rien à corriger. Peut-être faut-il ajouter une fonction de redimensionnement de colonnes pour les Grids...
  • sinon... utilisez les Anchors.
• Si ce n'est pas plein écran (wsNormal),... et si le positionnement de la fenêtre est compatible (poScreenCenter, ou alignée en haut à gauche) :
  
  • Au démarrage du logiciel vous enregistrez la taille de l'écran et dans chaque fenêtre qui pose un problème, vous définissez un ratio dans le OnCreate de la Form... ou vous la déclarez plein écran. Là encore, si vous avez utilisé les Anchors, tout est fait ou presque...
  • sinon même conseil que pour le cas précédent.

Je fais un peu de pub pour les Ancres à la Lazarus. Je ne me souviens plus si un tel outil existait dans mon vieux Delphi 7. En tous cas, je suis sûr de ne pas l'avoir utilisé à cette époque puisque j'avais des routines qui calculaient les replacements en cas de modifications de taille de la Form. Je trouve l'approche de Lazarus très bien pensée et vraiment fonctionnelle.

Cordialement. Gilles

[Archimède]

tu peux toujours t'inspirer d'une méthode comme celle-ci :

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
 private
    { private declarations }
    l,h:integer;
  public
    { public declarations }
  end; 
 
var
  Form1: TForm1; 
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  width:=screen.width div 2;
  height:=screen.height div 2;
  Panel1.Align:=alleft;
  Panel2.align:=alclient;
end;
 
procedure TForm1.FormResize(Sender: TObject);
begin
  l:=form1.clientwidth;
  h:=form1.clientheight;
  panel1.width:=l div 2;
end;
 
end.

@+

[ovni76]

Merci à tous,
Je précise que je travaille avec des bases de données sous sqlite, les différentes fiches sont en mode plein écran( wsMaximized), je n'ai jamais utilisé les Anchors donc a essayer, je précise encore que sur mes fiches il y a un panel plaqué en haut avec alTop pour le titre suivi d'un autre panel dans la même situation contenant les différents boutons d'actions comme : regarder selon un champ, modifier un enregistrement, retour à la fiche principale etc et dans le reste de la fiche ou d'autres panel contenant des informations particulières concernant des données ou des dbgrids :
Pour les Grids ils ne semblent pas poser de problèmes avec un écran de définition plus petite que celui du développement car ils ont leurs ascenseurs, c'est surtout le panel des boutons qui étant coupé sur sa partie droite cache certaines actions possibles.
Merci pour les actions de recherche que vous m'avez communiqué.