Discussion :

[bernayer]

Bonjour à tous,
J'ai programmé une comptabilité il y a quelques années. Aujourd'hui, avec Delphi 7, j'ai dû adapter certaines fonctions et je l'ai recompilé.
Le problème est que l'affichage de la fenêtre n'est plus égale sur un autre computer, même avec la définition d'écran égale (1024x768).
Demande: qu'est-ce qui a changé?
Il y a-t-il un nouveau paramètre à configurer?
Merci pour votre aide.

[shell13010]

J'ai pas tres bien compris se que tu voulais mais je peux te proposer de le mettre en plein ecran

Code :

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

1
2
3
4
procedure TForm1.FormCreate(Sender: TObject);
begin
WindowState:=wsMaximized;// sera en plein ecran sinon par default c'est wsNormal
end;

donc sur nimporte quel pc il sera en plein ecran avec aucun souci

A+

[10_GOTO_10]

Si on définit la taille de la fenêtre, la taille de la zone client est dépendante du thème XP ou des paramètres d'affichage (épaisseur de la bordure, police d'affichage, ...). Le mieux est de définir plutôt ClientWidth et ClientHeight. La fenêtre sera dimensionnée pour que ces paramètres soient Ok.

[Just-Soft]

Salut;

Bonjour à tous,
J'ai programmé une comptabilité il y a quelques années. Aujourd'hui, avec Delphi 7, j'ai dû adapter certaines fonctions et je l'ai recompilé.
Le problème est que l'affichage de la fenêtre n'est plus égale sur un autre computer, même avec la définition d'écran égale (1024x768).
Demande: qu'est-ce qui a changé?
Il y a-t-il un nouveau paramètre à configurer?
Merci pour votre aide.

sinon si tu la compile avec l'ancienne version de Delphi qui ta servi de développement tu n'as pas de problème d'affichage ?

[khaled-benloucif]

Bonjour, tu peux mettre ceci dans l'évènement OnCreate:

Code :

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

1
2
3
4
5
6
 
Top:= 0;
Left:= 0;
Width:= Screen.WorkAreaWidth;
Height:= Screen.WorkAreaHeight;
Position:= poDesktopDesigned;

de cette façon la fenêtre prendra les dimensions de l'écran automatiquement

[shell13010]

salut,

utilise

Code :

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

1
2
3
4
procedure TForm4.FormCreate(Sender: TObject);
begin
   Position:= poDesktopCenter;
end;

ceci fera toujours centrer ton programme au milieu de l'écran....

[bernayer]

Bonjour à tous. Je remercie ceux qui m'ont répondu.
Dans ma première requête je n'ai pas donné assez de détails. Excusez-moi.
Dans mon code j'ai dans FormShow:

Code :

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

1
2
3
4
  Menu1.Top := 0; Menu1.Left := 0;
  Menu1.ClientHeight := 123; Menu1.ClientWidth := 268;
  ...
  Calcul.Show;

Calcul est une calculette qui est positionnée en bas à droite de l'écran.
C'est pourquoi je tiens à garder la première fenêtre d'accueil en haut à gauche.
Reste que chez moi l'affichage est bon et sur un autre ordinateur il y a chevauchement des champs.
Merci d'essayer encore à résoudre le problème.
PS.- Je trouve joli votre façon d'afficher une partie de code dans vos message,
mais comment fait-on?

[Droïde Système7]

Bonjour,

PS.- Je trouve joli votre façon d'afficher une partie de code dans vos message,
mais comment fait-on?

Balise # en haut à droite...

@+

[khaled-benloucif]

salut,
ta question reste encore ambigüe! qu'est ce qu'il chevoche au juste? la calculette et la fenêtre principale? si c'est le cas, exige une résolution minimale pour ton application, par exemple 1024x768

[Andnotor]

Cela peut être dû aux réglages du moniteur.
Dans les paramètres avancés de l'affichage, contrôle que la taille soit à 96 ppp (défaut). Si différent, le rendu sera altéré.

[Just-Soft]

Salut;

S'il faut passer d'une résolution à une autre tu as besoin d'utiliser des panels (ou autres conteneurs) où seront déposée tes composants et jouer avec la propriété Anchors à cet effet voilà ce que dit l'aide Delphi 7:

Utilisez la propriété Anchors pour garantir qu'un contrôle maintient sa position actuelle par rapport àun bord de son parent,même si le parent est redimensionné.Lorsque son parent est redimensionné,le contrôle conserve sa position par rapport aux bords auxquels il est ancré.

Si un contrôle est ancré sur des bords opposés de son parent,le contrôle s'ajuste quand son parent est redimensionné.Par exemple,si la propriété Anchors d'un contrôle est initialisée à[akLeft,akRight],le contrôle se redimensionne quand la largeur de son parent change.

Anchors se redimensionne uniquement lorsque le parent est redimensionné.Ainsi,par exemple,si un contrôlé est ancré sur les côtés opposés d'une fiche à la conception et que le fiche est créée dans une taille maximale,le contrôle n'est pas étiré car la fiche n'est pas redimensionné après la création du contrôle.

Remarque*: Si un contrôle doit conserver le contact avec trois bords de son parent (en longeant un côté du parent et en étirant la longueur de ce côté),utilisez plutôt la propriété Align. A l'inverse d'Anchors, Align permet aux contrôles de s'adapter aux modifications de taille d'autres contrôles enfants (de même parent) alignés ainsi qu'aux modifications de la taille de leur parent.

conseil : travailler toujours avec une résolution faible exemple 800 x 600 ainsi si on passe à une résolution plus forte et que nos composants sont bien alignés et ancrés y'aura pas de chevauchement.

Bonne chance.

[Charly910]

Bonjour Just-Soft,

ayant un problème quand l'utilisateur passe en Grande police (les panels, buttons et autres composants sont redimensionnés et déplacés de façon bizare ) j'ai vu ta réponse

Le fait d'ancrer les composants ne résoud rien (c'est ce que je fais) - AndNotOr a raison : c'est le fait de passer dans les paramètres avancés de l'affichage,a une taille différente de 96 ppp qui met le bazar.

Je n'ai pas trouvé de solution pour le moment

Cordialement

Charly.

[GoustiFruit]

Voir fonction ScaleBy et propriété Scaled.
http://www.gerixsoft.com/blog/delphi/large-fonts

[Charly910]

Merci Goustifruit

je teste cela de suite

A+

Charly

[Charly910]

ça marche !!

Merci

il faut maintenant que je prévoie un peu plus de place dans chaque control pour les libellés s'ils sont en grande police.

@+

Charly

[Droïde Système7]

il faut maintenant que je prévoie un peu plus de place dans chaque control pour les libellés s'ils sont en grande police.

Pour ce souci précis, tu peux utiliser une fonction qui calcule la longueur du libellé, ensuite la longueur du contrôle s'adapte automatiquement.

@+