Réglage de la liste déroulante de la largeur de la zone de liste déroulante

La fonction suivante permet de réinitialiser la largeur de la zone de liste déroulante dans une zone de liste déroulante.
Elle prend 2 paramètres (option 1).
zone de liste déroulante est le TComboBox whos déroulant largeur est d'être changé.
Largeur est un paramètre facultatif spécifiant la largeur de la liste déroulante. Si
la largeur est inférieure à la largeur de la zone de liste déroulante puis ce paramètre sera ignoré et la largeur peut être réglée à la chaîne la plus longue dans la zone de liste déroulante.
procédure SetComboDropDownWidth(zone de liste déroulante: TComboBox Largeur: Entier = -1)
var
& nbsp & nbsp j', TextLen: Longint
& nbsp & nbsp lf: LOGFONT
& nbsp & nbsp f: HFONT
begin
& nbsp & nbsp si Largeur < ComboBox.Largeur puis commencer
& ! & ! & ! & nbsp FillChar(lf,SizeOf(lf),0)
& ! & ! & ! & nbsp StrPCopy(lf.lfFaceName, zone de liste déroulante.La police.Nom)
& ! & ! & ! & nbsp lf.lfHeight := zone de liste déroulante.La police.Hauteur
& ! & ! & ! & nbsp lf.lfWeight := FW_NORMAL
& ! & ! & ! & nbsp si fsBold dans la zone de liste déroulante.La police.Style puis
& ! & ! & ! & ! & ! & nbsp lf.lfWeight := lf.lfWeight ou FW_BOLD
& ! & ! & ! & nbsp f := CreateFontIndirect(lf)
& ! & ! & ! & nbsp si (f <> 0) then
& ! & ! & ! & nbsp commencer
& ! & ! & ! & ! & ! & nbsp essayer
& ! & ! & ! & ! & ! & ! & ! & nbsp zone de liste déroulante.Toile.Poignée := GetDC(Zone De Liste Déroulante.La poignée)
& ! & ! & ! & ! & ! & ! & ! & nbsp SelectObject(zone de liste déroulante.Toile.Poignée,f)
& ! & ! & ! & ! & ! & ! & ! & nbsp essayer
& ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp for I := 0 dans la zone de liste déroulante.Éléments.Comptez -1 do begin
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp TextLen := zone de liste déroulante.Toile.TextWidth(Zone De Liste Déroulante.Les éléments[I])
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp si TextLen > Largeur
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp Largeur := TextLen
& ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp fin
& ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp (* Standard ComboBox dessin est Rect.Gauche 2,
& ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp ajout de l'espacement supplémentaire des décalages de cette *)
& ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp Inc(Largeur, GetSystemMetrics(SM_CYVTHUMB)
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp GetSystemMetrics(SM_CXVSCROLL))
& ! & ! & ! & ! & ! & ! & ! & nbsp enfin
& ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp ReleaseDC(zone de liste déroulante.La Poignée, La Zone De Liste Déroulante.Toile.La poignée)
& ! & ! & ! & ! & ! & ! & ! & nbsp fin
& ! & ! & ! & ! & ! & nbsp enfin
& ! & ! & ! & ! & ! & ! & ! & nbsp DeleteObject(f)
& ! & ! & ! & ! & ! & nbsp fin
& ! & ! & ! & nbsp fin
& nbsp & nbsp fin
& nbsp & nbsp SendMessage(zone de liste déroulante.Poignée, CB_SETDROPPEDWIDTH, Largeur, 0)
fin
salutations
Si Carter
Orcka Développement