Discussion :

[LandGreen]

Bonjour à vous !

Je reviens vers vous concernant l'ajustement des composants en fonction de n'importe quelle taille d'écran.
Actuellement, j'ai réussi à le faire en suivant vos instructions sur d'anciens forums.
Cependant, le problème que je rencontre est lié à la taille des colonnes qui doivent être ajustées en fonction de la taille du DBGrid, dont les ancres sont définies avec Anchors en akTop, akLeft, akRight et akBottom cochés.

PS : j'utilise Delphi 7
voir la pièce jointe

salutations

[ShaiLeTroll]

Tu dois le faire manuellement

Par exemple pour le Zoom Windows, on peut appliquer ceci

Code :

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

1
2
3
4
5
6
7
8
//------------------------------------------------------------------------------
procedure TStringGridSLTAssistant.ZoomColumnWidth(AZoomPourcent: Integer);
var
  I: Integer;
begin
  for I := 0 to StringGrid.ColCount - 1 do
    StringGrid.ColWidths[I] := Round(StringGrid.ColWidths[I] * AZoomPourcent / 100);
end;

Si je le retrouve, j'ai la version TDBGrid
EDIT :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
//------------------------------------------------------------------------------
procedure TDBGridSLTAssistant.ZoomColumnTitleWidth(AZoomPourcent: Integer);
const
  AUTOSIZE_WIDTH = 64;
var
  I: Integer;
begin
  for I := 0 to DBGrid.Columns.Count - 1 do
    with DBGrid.Columns[I] do
      if Width <> AUTOSIZE_WIDTH then
        Width := Round(Width * AZoomPourcent / 100);
end;

On pourrait considérer un cas généraliste où toutes les colonnes sont agrandies selon un ratio "New Width / Old Width" par exemple
Sinon, tu peux lors du OnResize considérer certaines colonnes comme plus importante et uniquement agrandir celle-ci

Il n'y a pas d'équivalent à TListColumn.AutoSize / Width -1 de la TListView dans la TDBGrid

[LandGreen]

On pourrait considérer un cas généraliste où toutes les colonnes sont agrandies selon un ratio "New Width / Old Width" par exemple
Sinon, tu peux lors du OnResize considérer certaines colonnes comme plus importante et uniquement agrandir celle-ci

Il n'y a pas d'équivalent à TListColumn.AutoSize / Width -1 de la TListView dans la TDBGrid[/QUOTE]


Je vous remercie pour vos réponses intéressantes et votre soutien habituel.
Cependant, je suis encore confus quant à l'endroit où je dois placer le code, car le TDbGrid ne semble pas avoir l'événement mentionné dans vos conseils.
Pourriez-vous m'éclairer à ce sujet, s'il vous plaît ?

[SergioMaster]

AMHA, dans le onresize de la forme.

PS. pas besoin de re-citer les réponses entières

[LandGreen]

AMHA, dans le onresize de la forme.

j'utilise Delphi7 comme mentionné (il n y pas d'évenement OnResize)

[ShaiLeTroll]

Oui mais tu peux mettre dans DBGrid dans un TPanel en Align alClient, je pense que le TPanel à un event OnResize.
Et lors du Resize du Panel, tu sais que la DBGrid va suivre pour son redimensionnent, donc tu en profites pour faire l'ajustement des colonnes qui ont vocation de s'agrandir comme le Nom et Description du produit

Et au pire la TForm doit avoir un OnResize

Gère au maximum des Align et Anchors, tout le reste suivra, ta fenêtre montrée en Design Time semblent étrangement conçu avec des contrôles qui se superposent.