From 533d506fe97a826484e1f0ac62d52694f0c67d25 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Mon, 21 Dec 2020 23:33:33 +0000
Subject: [PATCH] ExCtrl: Use InitializeWnd instead of CreateHandle

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7941 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/exctrls/source/excombo.pas | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

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