Sujet Précédent Sujet Suivant

AJOUTER UNE BARRE DE DÉFILEMENT (SCROLLBAR DOWN)

cs_Delphiprog Messages postés 4297 Date d'inscription samedi 19 janvier 2002 Statut Membre Dernière intervention 9 janvier 2013 - 5 juil. 2003 à 23:30
f0xi Messages postés 4205 Date d'inscription samedi 16 octobre 2004 Statut Modérateur Dernière intervention 12 mars 2022 - 16 oct. 2004 à 10:08
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/12643-ajouter-une-barre-de-defilement-scrollbar-down
f0xi Messages postés 4205 Date d'inscription samedi 16 octobre 2004 Statut Modérateur Dernière intervention 12 mars 2022 35
16 oct. 2004 à 10:08
on peut placer le code directement dans l'evenement OnDrawItem pour aller plus vite :

interface

var
HScrollWidth : integer;

implementation

procedure ListBoxDrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
begin
with listbox1 do begin
if Canvas.Textwidth(Items[index]) > HScrollWidth then
HScroolWidth := canvas.Textwidth(Items[index]);
Perform(LB_SETHORIZONTALEXTENT, HScrollWidth+8, 0);
end;
end;
cs_Delphiprog Messages postés 4297 Date d'inscription samedi 19 janvier 2002 Statut Membre Dernière intervention 9 janvier 2013 32
5 juil. 2003 à 23:30
Il fallait y penser !
Bravo.

Discussions similaires

scrollbars et scrollbar
l0r3nz1 -
l0r3nz1 -

5 réponses
Défilement automatique d'une page
cs_scls19fr -
DevDeb -

19 réponses
Barre de recherche web
martial30061999 -
HitTshite19 -

1 réponse
Afficher une barre de progression pendant le traitement d'une macro excel
cs_gwenadu -
PROGRAMMIX -

1 réponse
recherche dans base mysql
karlito911 -
kohntark -

119 réponses
Rejoignez-nous