procedure TForm1.FontComboboxDrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); begin With FontCombobox.Canvas do begin // Couleur de fond if (odSelected in State) then Brush.Color := clHighlight else Brush.Color := FontCombobox.Color; Pen.Color := Brush.Color; // Fond Rectangle(Rect.Left,Rect.Top,Rect.Right,Rect.Bottom); // Affectation de la police Font.Name := FontCombobox.Items[Index]; Font.Size := 10; // Affichage du nom TextOut(Rect.Left+2,Rect.top,FontCombobox.Items[Index]); end; end;