Comment avoir des form adaptées à n'importe quelle résolution d'écran ?

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 ?

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:

---

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

alors je dis : OK

mais :

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

salut

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

@+ Phil

De ton code ressort une erreur du compilateur :

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

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

remplace

Code:

---

function RescaleForm(F: TScrollingWinControl)

---

par

Code:

---

procedure RescaleForm(F: TScrollingWinControl);

---

Je me mélange les crayons :

Je mets la procédure "procedure RescaleForm(F: TScrollingWinControl);" dans la procédure FormCreate ?

Actuellement mon code est présenté de cette façon :

Citation:

---

procedure RescaleForm(F: TScrollingWinControl);

var
M, D : Integer;
begin
M := Screen.Width; // multiplicateur = définition actuelle de l'écran
D := 1280; // diviseur = définition de l'écran à la conception
F.ScaleBy(M, D);
F.Realign;
end;
End.

---

Et j'ai testé : ça ne marche pas :?

Salut Socooooooool,

Dans ton FormCreate tu dois mettre

Code:

---

RescaleForm(Form1);

---

Avec Form1 le nom de la fiche que tu veux redimensionner...

A plus,

Christopher

j'ouvre un nouveau projet, je met la fiche principale en 800x600, je place un TButton dans deux coins opposés, puis dans le OnCreate, je copie ceci :

Code:

---

1 2 3 4 5 6 7 8

procedure TForm1.FormCreate(Sender: TObject); var M, D : Integer; begin ShowWindow(Handle, SW_MAXIMIZE); // maximise ma fenêtre // appel de la procedure de Anapurna RescaleForm(Form1); end;

---

et ca fonctionne correctement (mais je déborde sur la barre des tâche, il faut régler un peu..), ma fenêtre occupe bien toute la place disponible sur mon ecran

tu appelles la procédure ou la fonction alors finalement ??

Et comment tu l'appelles ??

Et puis rappelons que mon cas c'est le sens inverse : adapter une fenêtre développée en 1280 à une fenetre 800. Et je veux que ça s'adapte selon n'importe quelle résolution d'écran puisque l'application va être déployée sur des postes clients qui ont chacun leur propre résolution déterminée par l'utilisateur.

salut

la fonction s'appelle dans le formcreate
scaleby et une fonction predefini il marche dans les deux sens
soit pour augmenter soit pour diminuer

@+ Phil

Salut :)

il y a la solution de Denokan qui comporte certains avantages, l'étirement proportionnel. (j'ai pas testé mais je suppose que c'est ca Denokan ?)

Mais il y a aussi, la solution de concevoir sa fenetre dans un résolution standard minimum (800x600 ou 1024x768) par exemple.
Ensuite, il faut choisir les composants étirables, et les définir avec des ancres, et jouer avec les panels. (les mémos par exemple).
En général, tous les composants d'une fenetres n'ont pas besoins d'être étirés de la même manière).
Cette méthode est pratique et rapide, mais effectivement par rapport à la méthode de Denokan, les étirements ne sont jamais proportionnels (comme java), sauf à le faire manuellement.

Par exemple, 2 TEdit sur la même ligne: si c'est la solution de Denokan, il pourront s'étirer proportionnelement. Sur l'autre solution, un seul suivra l'agrandissement.

Par contre, je trouve que l'on maitrise mieux (par les ancres), l'emplacement/diemnsion des composants, alors qu'avec les redimensionnement parallèles, ca peut vite donner un résultat pas très joyeux.

c'est juste un choix a faire, mais je voulais juste signaler qu'il y avait aussi cette solution, et il n'y a donc aucun code a faire dans ce cas, juste des défintion dans l'IDE.

bon courage !

j'ai bien compris le principe mais je ne vois toujours pas comment introduire une fonction dans une procédure ... ?????

mon écran :

http://img85.imageshack.us/img85/8861/erreursa5.jpg

Citation:

---

Envoyé par TicTacToe

il y a la solution de Denokan ...

---

c'est anapurna qui a donné la solution:hola: , moi juste donné un exemple

ah ? :D

autant pour moi,

Désolé Anapurna :)

EDIT:
oulala, je viens de voir la capture de Socooool.

1. Il faut définir une fonction d'anapurna qq part (ou procedure)
2. appeler cette fonction (ou procedure) depuis le formshow. (ou formcreate).

Citation:

---

1. Il faut définir une fonction d'anapurna qq part (ou procedure)
2. appeler cette fonction (ou procedure) depuis le formshow. (ou formcreate).

---

1. définir quelque part : Ou et comment ?

2. Appeler la fonction ? euh ... comment ?

J'ai jamais utilisé de fonctions de ma vie ... ça se rapproche des class ??

Socoooool

Je pense que tu devrais commencer par potasser les bases de Delphi, avant de t'interesser au type de problème que tu as soumis :)

Qu'est-ce qu'une procedure ?
Qu'est-ce qu'une fonction ? -> c'est une procédure qui renvoit un résultat
Qu'est-ce qu'une méthode ? -> c'est une procédure OU fonction définie dans une classe (ta forme de type TForm est une classe).

@ TicTacToe : il y a de ça 3 ans j'ai eu mon bts info ... seulement j'ai vraiment oublié la plupart des méthodes de codage. Je réapprends petit à petit.

je ne demande pas la réponse ... mais juste un lien qui puisse m'éclairer.
Pour trouver ou déclarer une fonction, comment la déclarer et enfin comment l'appeler dans une procédure

j'ai tappé "appeler une fonction delphi " sur google ... rien de transcendantal

voila un cours d'un auteur que j'apprécie http://www.marcocantu.com/EPascal/French/
de plus tu trouveras de nombreux autres tuto sur developpez.com, section cours

Ca fait presque 2 semaines que je demeure bloqué sur ce problème qui à l'air selon vous plutôt simple.

J'ai lu les tutos concernant la déclaration et l'appel de fonction mais je ne suis toujours pas parvenu à mes fins. Je suis démoraliser de buter à la fin et sur quelque chose d'aussi simple apparemment ...

Pour résumer :

Je ne vois toujours pas comment déclarer la procédure : je l'ai fait de cette façon : dans l'implémentation :

Citation:

---

// Définition de la procédure pour adapter la fenêtre à l'écran
procedure RescaleForm(F: TScrollingWinControl);
var
M, D : Integer;
begin
M := Screen.Width; // multiplicateur = définition actuelle de l'écran
D := 1280; // diviseur = définition de l'écran à la conception
F.ScaleBy(M, D);
F.Realign;
end;

---

puis je l'appelle de cette façon dans le FormActivate et non pas dans le FormCreate :

Citation:

---

procedure TForm3.FormActivate(Sender: TObject);

var
M, D : Integer;
begin
ShowWindow(Handle, SW_MAXIMIZE); // maximise ma fenêtre
RescaleForm(Form3);
end;

---

Bien évidemment ça ne marche pas ...