Discussion :

[XeGregory]

Bonjour,

Je voudrais redimensionner la taille de ma fiche en fonction de la taille du composant TStringGrid.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
{ Liste des caractères spéciaux }
  TabStrSpl: array [1 .. 158] of String = ('«', '«', '»', '‹', '›', '“', '”',
    '„', '‘', '‘', '’', '‚', '…', '!', '¡', '?', '¿', '(', ')', '[', ']', '{',
    '}', '¨', '´', '`', '^', 'ˆ', '~', '˜', '¸', '#', '*', ',', '.', ':', ';',
    '·', '•', '¯', '‾', '_', '|', '¦', '†', '‡', '§', '¶', '©', '®', '™', '&',
    '@', '/', '\', '◊', '♠', '♣', '♥', '♦', '←', '↑', '→', '↓', '↔', '¤', '€',
    '$', '¢', '£', '¥', 'ƒ', '°', 'µ', '<', '>', '≤', '≥', '=', '≈', '≠', '≡',
    '±', '−', '+', '×', '÷', '⁄', '%', '‰', '¼', '½', '¾', '¹', '²', '³', 'º',
    'ª', 'ƒ', '′', '″', '∂', '∏', '∑', '√', '∞', '¬', '∩', '∫', 'α', 'Α', 'β',
    'Β', 'γ', 'Γ', 'δ', 'Δ', 'ε', 'Ε', 'ζ', 'Ζ', 'η', 'Η', 'θ', 'Θ', 'ι', 'Ι',
    'κ', 'Κ', 'λ', 'Λ', 'μ', 'Μ', 'ν', 'Ν', 'ξ', 'Ξ', 'ο', 'Ο', 'π', 'Π', 'ρ',
    'Ρ', 'σ', 'ς', 'Σ', 'τ', 'Τ', 'υ', 'Υ', 'φ', 'Φ', 'χ', 'Χ', 'ψ', 'Ψ',
    'ω', 'Ω');

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
{ GetCharTab }
procedure TForm1.GetCharTab;
var
  xLn, xCol, I: Integer;
begin
  I := 1;
 
  with StringGrid do
  begin
    for xLn := 0 to RowCount - 1 do
      for xCol := 0 to ColCount - 1 do
      begin
        if I <= High(TabStrSpl) then
          Cells[xCol, xLn] := TabStrSpl[I];
 
        Inc(I);
      end;
  end;
end;

Je multiplie le nombre de cellule par la taille de la cellule (20) par défaut + le nombre de ligne entre les cellules (Nombre de cellule) .

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
procedure TForm1.FormCreate(Sender: TObject);
const
  DefaultSizeCell = 20;
begin
  with StringGrid do
  begin
    ColCount := 16;
    RowCount := 10;
   // MulDiv DefaultSizeCell = 30
    DefaultRowHeight := MulDiv(DefaultSizeCell, CurrentPPI,
      USER_DEFAULT_SCREEN_DPI);
 
    DefaultColWidth := MulDiv(DefaultSizeCell, CurrentPPI,
      USER_DEFAULT_SCREEN_DPI);
 
    Form1.Height := (DefaultRowHeight * RowCount) + DefaultRowHeight +
      GetSystemMetrics(SM_CYCAPTION);
 
    Form1.Width := (DefaultColWidth * ColCount) + DefaultColWidth;
 
    GetCharTab;
  end;
end;

Quelque chose m'échappe ! sûrement des pixels , je n'arrive pas à redimensionner a la perfection ma fiche.

Si vous avez une petite idée.

Merci pour vos réponses.

[ShaiLeTroll]

ClientWidth et ClientHeigth ?

Et peut-être ajouté un pixel pour la ligne non dessiné entre les cellules ?

[XeGregory]

Effectivement ClientWidth & ClientHeight serait beaucoup plus adapté pour redimensionné mon form.

Je sais pas pourquoi je suis resté bloqué sur form width & height.

Merci.

https://delphi.developpez.com/faq/?p...h-ClientHeight

Width définit la largeur absolue, entière de l'application dont les bordures.
Height, la hauteur absolue de l'application dont les bordures, le TMainMenu, et la barre de titre (boutons Fermer l'application, Réduire...)

ClientWidth et ClientHeight sont la largeur / la hauteur intérieure de la fenêtre sans bordures ou menu. C'est la surface dans laquelle vous pouvez placer vos contrôles.

[XeGregory]

Je pense que le problème est résolu

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
procedure TForm1.FormCreate(Sender: TObject);
var
  SizeLineH, SizeLineW, GridLine: Integer;
begin
  with StringGrid do
  begin
    GridLineWidth := 1;
    ColCount := 16;
    RowCount := 10;
 
    GridLine := MulDiv(GridLineWidth, CurrentPPI, USER_DEFAULT_SCREEN_DPI);
 
    SizeLineH := MulDiv(RowCount + GridLine +1, CurrentPPI, USER_DEFAULT_SCREEN_DPI);
    SizeLineW := MulDiv(ColCount + GridLine +2, CurrentPPI, USER_DEFAULT_SCREEN_DPI);
 
    DefaultRowHeight := MulDiv(20, CurrentPPI, USER_DEFAULT_SCREEN_DPI);
    DefaultColWidth := MulDiv(20, CurrentPPI, USER_DEFAULT_SCREEN_DPI);
 
    Form1.ClientHeight := (DefaultRowHeight * RowCount) + SizeLineH;
    Form1.ClientWidth := (DefaultColWidth * ColCount) + SizeLineW;
 
    DefaultColAlignment := taCenter;
    GetCharTab;
  end;
end;