pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

ExCtrl: Use InitializeWnd instead of CreateHandle

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7941 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2020-12-21 23:33:33 +00:00
parent 577782d54e
commit 533d506fe9
1 changed files with 8 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
components/exctrls/source/excombo.pas
View File

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