Discussion :

[Mihalis]

bonjour, je sais que ce sujet a déjà été évoqué a maintes reprises mais je n'arrive pas à faire ce que je veux , je développe sous bds2006, j'ai developpé en 1024 (je sais c'est pas le top mais je ne le savais pas encore)lorsque j'augmente ma résolution les composants tels que les dbgrid et panels restent figés à la taille du développement
j'avais pris le code d'anapurna

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
34
procedure RealignForm(F: TScrollingWinControl);
var
  M, D : Integer;
  i, j : Integer;
begin
  M := Screen.Width; // multiplicateur = définition actuelle de l'écran
  D := 800;              // diviseu  r       = définition de l'écran à la conception
  F.ScaleBy(M, D);
  for i:=0 to Pred(F.ComponentCount) do 
  begin
     if (F.Components[i] is TStringGrid) then 
     begin
	with (F.Components[i] as TStringGrid) do 
        begin
	   for j:=0 to ColCount-1 do  
             ColWidths[j] := MulDiv(ColWidths[j] , M, D);
	   for j:=0 to RowCount-1 do  
              RowHeights[j]:= MulDiv(RowHeights[j], M, D);
	end;
     end 
     else
    if (F.Components[i] is TDbGrid) then	
    begin
       with (F.Components[i] as TDbGrid) do
         for j:=0 to Columns.Count-1 do 
         begin
	    Columns.Items[j].Width := MulDiv(Columns.Items[j].Width, M, D);
            Columns.Items[j].Title.Font := Columns.Items[j].Font;
	 end;
     end;
     ...
  end;
  F.Realign;
end;

mais ca n'a lair de marcher uniquement lorsque je diminue la résolution
en fait j'ai un truc un peu bizarre
lorsque je tourne en 1400 les éléments sont agrandis avec ce code;j'ai mis tous les anchors a true.
si vous avez une idée elle est la bienvenue merci d'avance

[edam]

voir bien le code:

D := 800; // diviseu r = définition de l'écran à la conception

en plus voir ici

[Mihalis]

oui j'avais modifié ca dans mon code pcc j'avais modifié la résolution chez moi donc j'avais bien mis 1024 au lieu de 800
pour l'autre sujet du forum je l'avais vu aussi mais j'avais toujours le même problème avec les anchors et les scaled ...
je sais pas si c'est différent pcq c'est bds2006 mais scaledby je n'ai pas ni alignement(enfin si mais juste pour le centrer ou mettre dessus dessous)

[edam]

oui c'est vraie, mais fairme ton appli quand tu change la résulution et réouvre là, si tout est ok, alors là tu comprend que tu doit rechangé ce diviseur à la nouvelle résolution, pas le fixé au conception

[Fabrice ROUXEL 1]

Bonjour Mihalis

Regardes dans l'aide Delphi la procedure de TCustomForm

Code :

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

ChangeScale(M, D: Integer)

-> Edam
1 faute par ligne ok mais une faute par mot, prends un dictionnaire ou un traducteur arabe-francais.

[edam]

-> Edam
1 faute par ligne ok mais une faute par mot, prends un dictionnaire ou un traducteur arabe-francais.

, j'était sûr que tu vas le dire
pedro, c'est lui qui me cherche là

[Fabrice ROUXEL 1]

Mihalis, une autre approche est de mettre

Code :

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

scaled := false;

pour éviter la déformation dûe au changement de PPI.


@+

[Mihalis]

Code :

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

1
2
3
4
5
6
 
var m,d:integer;
begin
M := Screen.Width; // multiplicateur = définition actuelle de l'écran
D := 1024;//définition de la résolution à la conception
changescale(m,d);

ca marche nickel j'ai mis le code ici au cas ou qq'un en ait besoin
peut etre a mettre dans la faq ?