Discussion :

[mustang-gx]

Bonjour,

Je fais afficher des images dans un dbgrid qui font 89 de long sur 57 de haut.

Pour ce qui est de la longeur,

Code :

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

1
2
 
DBGrid2.Columns[Column.ID].Width := rect.Right-rect.Left;

fait tres bien l'affaire.

Mais pour définir la hauteur, je ne trouve rien !

Ni au niveau du DBGrid, ni au niveau de Column.

Y'a quand même bien un moyen de changer la hauteur !?

[mustang-gx]

Personne ne peut m'aider ?

[Seb]

Salut,

Je ne sais pas si cela peut marcher mais tu peux essayer de voir avec :

Code :

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

TStringGrid(DBGrid2).RowHeights[1] := //La valeur que tu veux

En tout cas ça marche chez moi.

A+,

Seb.

[mustang-gx]

Bien essayé mais j'obtiens d'abord une erreur de compilation puis une erreur d'execution.

Si je remplace TSringGrid par TDBGrid, le compilateur ne va pas jusqu"au bout.

Une autre idée ?

[Seb]

Bien essayé mais j'obtiens d'abord une erreur de compilation puis une erreur d'execution.

Quel message d'erreur?
Poste voir ton code car moi je n'ai pas d'erreur.

Si je remplace TSringGrid par TDBGrid, le compilateur ne va pas jusqu"au bout.

Normal. Le fait d'écrire TStringGrid(TaDBGrid) te permet d'accéder aux propriétés des StringGrid même si tu as une DBGrid.



A+,

Seb.

[mustang-gx]

Mea Culpa, c'est moi qui ai bouletté !

J'avais un problème d'indice

Code :

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

1
2
 
  TstringGrid(DBGrid2).RowHeights[4] := 57;

au lieu de

Code :

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

1
2
 
  TstringGrid(DBGrid2).RowHeights[0] := 57;

Ceci dit, à la compilation, j'ai un avertissement :

Code :

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

1
2
 
[Avertissement] Unit3.pas(346): Transtypage non protégé de 'TDBGrid' en 'TStringGrid'

et malheureusement, je ne constate aucune différence quand à la hauteur de mes lignes.

[Seb]

Re,

Ce n'est qu'un avertissement donc pas trop grave.

Au niveau du redimensionnement, le code que je t'ai donné te permet de redimensionner la hauteur d'une ligne particulière (indice de la ligne dans le []).

Pour tout redimensionner d'uin seul coup (l'entête aussi) :

Code :

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

TStringGrid(DBGrid2).DefaultRowHeight := 55;

J'espère que ça ira (en tout cas, ça marche chez moi).

A+,

Seb.

[mustang-gx]

Je vais être vexant mais même avec

Code :

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

1
2
 
TStringGrid(DBGrid2).DefaultRowHeight := 59;

, toutes mes lignes ont encore la hauteur 'normale'.

Y aurait-il une autre propriété à modifier aussi ?

[Seb]

Rere,

Je vais être vexant mais même avec

Pas de problème... J'utilises pas les DBGrid ni les StringGrid (j'utilise la TopGrid). Donc j'ai des lacunes à ce niveau...

Essayes de fermer le DataSource de la DBGrid et de le rouvrir.
Exemple :

Code :

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

1
2
3
  DBGrid2.DataSource.DataSet.DisableControls;
  TStringGrid(DBGrid2).DefaultRowHeight := 55;
  DBGrid2.DataSource.DataSet.EnableControls;

J'espère que cela marchera mieux...

A+,

Seb.

[mustang-gx]

idem



C'est délirant quand même...

A+