diff --git a/components/exctrls/source/excombo.pas b/components/exctrls/source/excombo.pas index a3c1db6f7..2d39d8283 100644 --- a/components/exctrls/source/excombo.pas +++ b/components/exctrls/source/excombo.pas @@ -60,6 +60,7 @@ type const AXProportion, AYProportion: Double); override; class function GetControlClassDefaultSize: TSize; override; procedure GetItems; override; + procedure InitializeWnd; override; procedure DrawItem(Index: Integer; ARect: TRect; State: TOwnerDrawState); override; procedure FontChanged(Sender: TObject); override; procedure SetItems(const Value: TStrings); override; @@ -319,7 +320,7 @@ end; procedure TColumnComboBoxEx.GetItems; begin inherited GetItems; - SetOffsets; +// SetOffsets; end; function TColumnComboBoxEx.GetTextSize(const aText: String): TSize; @@ -345,6 +346,12 @@ begin end; end; +procedure TColumnComboBoxEx.InitializeWnd; +begin + inherited; + SetOffsets; +end; + procedure TColumnComboBoxEx.SetColSeparatorColor(AValue: TColor); begin if FColSeparatorColor <> AValue then