paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-20 04:59:45 +01:00
Code Issues Packages Projects Releases Wiki Activity

lcl: clean up

Browse Source 
git-svn-id: trunk@56574 -
This commit is contained in:
mattias 2017-12-01 16:33:14 +00:00
parent 340e7886e9
commit 15f8cbed6c
1 changed files with 0 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/include/comboex.inc
View File

@ -703,15 +703,9 @@ begin
end;
procedure TCustomCheckCombo.InitializeWnd;
var
i: Integer;
begin
InitItemStates;
for i:=0 to Items.Count-1 do
debugln(['TCustomCheckCombo.InitializeWnd START ',i,' ',dbgsname(Items.Objects[i])]);
inherited InitializeWnd;
for i:=0 to Items.Count-1 do
debugln(['TCustomCheckCombo.InitializeWnd END ',i,' ',dbgsname(Items.Objects[i])]);
CheckItemStates;
FRightToLeft:=IsRightToLeft;
end;