Hauteur d'une Item dans une ListBox
divadav
Messages postés
94
Date d'inscription
lundi 13 janvier 2003
Statut
Membre
Dernière intervention
22 janvier 2009
-
30 mai 2005 à 09:19
cs_grandvizir Messages postés 1106 Date d'inscription samedi 8 novembre 2003 Statut Membre Dernière intervention 3 septembre 2006 - 4 juin 2005 à 16:41
cs_grandvizir Messages postés 1106 Date d'inscription samedi 8 novembre 2003 Statut Membre Dernière intervention 3 septembre 2006 - 4 juin 2005 à 16:41
4 réponses
moldov
Messages postés
165
Date d'inscription
mercredi 8 octobre 2003
Statut
Membre
Dernière intervention
10 novembre 2008
30 mai 2005 à 10:08
30 mai 2005 à 10:08
Salut,
Pour modifier la hauteur des Items tu modifie l'integer de la propriété ItemHeigh
Mais pour pouvoir modifier cette propriété il faut mettre la prorpiété style a lbOwnerDrawFixed
Ex :
ListBox1.Style := lbOwnerDrawFixed;
ListBox1.ItemHeigh := 30;
Voila
Bonne Prog
Pour modifier la hauteur des Items tu modifie l'integer de la propriété ItemHeigh
Mais pour pouvoir modifier cette propriété il faut mettre la prorpiété style a lbOwnerDrawFixed
Ex :
ListBox1.Style := lbOwnerDrawFixed;
ListBox1.ItemHeigh := 30;
Voila
Bonne Prog
divadav
Messages postés
94
Date d'inscription
lundi 13 janvier 2003
Statut
Membre
Dernière intervention
22 janvier 2009
2
30 mai 2005 à 10:43
30 mai 2005 à 10:43
Je ne peux pas me contenter de cela : mes images n'ont pas toutes la même taille...
Le style de ma ListBox est à lbOwnerDrawVariable, et pour modifier la hauteur de mon item je ne peux donc plus utiliser ItemHeight...
Je suis obligé de passer par l'évenement onMeasureItem et de renseigner le paramètre Height ce l'événement :
procedure TForm1.ListBox1MeasureItem(Control: TWinControl; Index: Integer;
var Height: Integer);
begin
Height := TailleImgEnCours;
end;
Keep Cool & Be Wild
Divad
Le style de ma ListBox est à lbOwnerDrawVariable, et pour modifier la hauteur de mon item je ne peux donc plus utiliser ItemHeight...
Je suis obligé de passer par l'évenement onMeasureItem et de renseigner le paramètre Height ce l'événement :
procedure TForm1.ListBox1MeasureItem(Control: TWinControl; Index: Integer;
var Height: Integer);
begin
Height := TailleImgEnCours;
end;
Keep Cool & Be Wild
Divad
divadav
Messages postés
94
Date d'inscription
lundi 13 janvier 2003
Statut
Membre
Dernière intervention
22 janvier 2009
2
31 mai 2005 à 16:58
31 mai 2005 à 16:58
Personne pour m'aider ??
Ou alors un composant qui me permette d'arriver à cet affichage "miniature" ??
Keep Cool & Be Wild
Divad
Ou alors un composant qui me permette d'arriver à cet affichage "miniature" ??
Keep Cool & Be Wild
Divad
cs_grandvizir
Messages postés
1106
Date d'inscription
samedi 8 novembre 2003
Statut
Membre
Dernière intervention
3 septembre 2006
22
4 juin 2005 à 16:41
4 juin 2005 à 16:41
TCanvas.CopyMode:=...
TCanvas.CopyRect(Rect1,Canvas,Rect2);
TCanvas.Rect(XYZ);
OnDrawItem(..
const LB_GetItemHeight
const LB_SetItemHeightRésultat :SendMessage(ListBox.Handle, LB_*, Hauteur, 0);
Validez les réponses si ok...
ViewVite : HTML
TCanvas.CopyRect(Rect1,Canvas,Rect2);
TCanvas.Rect(XYZ);
OnDrawItem(..
const LB_GetItemHeight
const LB_SetItemHeightRésultat :SendMessage(ListBox.Handle, LB_*, Hauteur, 0);
Validez les réponses si ok...
ViewVite : HTML
