Discussion :

[socooooool]

Bonjour,

Mon application est terminée et prête à être déployée. Seulement après tests, la résolution de mes Forms reste toujours la même quelque soit la résolution de l'écran de l'utilisateur.

Ainsi sur mon PC les Forms sont sympas et prennent la place qu'il faut sur l'écran, alors que sur d'autres PC d'utilisateurs en 800*600, il faut se servir des ascenseurs à volonté si l'on veut pouvoir voir la Form entière.

Une solution pour éviter ce soucis ?

[anapurna]

salut,

rien de plus facile
dans le formcreate tu redefinie la taille de tes fenetre
imaginon que tu est developpez en 800 par 600

il te suffit de realigne ta forme comme ceci

Code :

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

1
2
3
4
5
6
7
8
9
function RescaleForm(F: TScrollingWinControl)
var
  M, D : Integer;
begin
   M := Screen.Width; // multiplicateur = définition actuelle de l'écran
   D := 800;   // diviseur       = définition de l'écran à la conception
   F.ScaleBy(M, D);
   F.Realign;
end;

@+ Phil

PS: corrige le ij ne sert a rien ici

[socooooool]

alors je dis : OK

mais :

à quoi servent les variables i et j dans l'histoire ??

[anapurna]

salut

dans ton cas a rien
j'avait oublier de les enlever

@+ Phil

[socooooool]

De ton code ressort une erreur du compilateur :

Sur la ligne : "function RescaleForm(F: TScrollingWinControl);"

>> La fonction nécessite un type de résultat ...

[denokan]

remplace

Code :

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

function RescaleForm(F: TScrollingWinControl)

par

Code :

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

procedure RescaleForm(F: TScrollingWinControl);