1. unit Unit3;
  3. interface
  5. uses
  6. Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  7. System.Classes, Vcl.Graphics,
  8. Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
  10. type
  11. TForm3 = class(TForm)
  12. ComboBox1: TComboBox;
  13. private
  14. { Private declarations }
  15. public
  16. { Public declarations }
  17. end;
  19. var
  20. Form3: TForm3;
  22. implementation
  24. uses
  25. Vcl.Themes,
  26. Vcl.Styles;
  29. {$R *.dfm}
  30. type
  31. TComboBoxStyleHookFix = class(TComboBoxStyleHook)
  32. protected
  33. procedure DrawItem(Canvas: TCanvas; Index: Integer; const R: TRect;
  34. Selected: Boolean); override;
  35. end;
  38. procedure TComboBoxStyleHookFix.DrawItem(Canvas: TCanvas; Index: Integer;
  39. const R: TRect; Selected: Boolean);
  40. var
  41. DIS: TDrawItemStruct;
  42. Text: string;
  43. begin
  44. begin
  45. FillChar(DIS, SizeOf(DIS), 0);
  46. DIS.CtlType := ODT_COMBOBOX;
  47. DIS.CtlID := GetDlgCtrlID(Handle);
  48. DIS.itemAction := ODA_DRAWENTIRE;
  49. DIS.hDC := Canvas.Handle;
  50. DIS.hwndItem := Handle;
  51. DIS.rcItem := R;
  52. Text := TComboBox(Control).Items[Index];
  53. DIS.rcItem.Left := DIS.rcItem.Left +
  54. (DIS.rcItem.Width - Canvas.TextWidth(Text) - 5);
  55. DIS.itemID := Index;
  56. DIS.itemData := SendMessage(ListHandle, LB_GETITEMDATA, 0, 0);
  57. if Selected then
  58. DIS.itemState := DIS.itemState { or ODS_FOCUS } or ODS_SELECTED;
  59. SendMessage(Handle, WM_DRAWITEM, Handle, LPARAM(@DIS));
  60. end;
  61. end;
  63. initialization
  64. TStyleManager.Engine.RegisterStyleHook(TComboBox, TComboBoxStyleHookFix);
  66. end.