paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 21:31:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: remove TCustomListBox.Loaded. ItemIndex is initialized in InitializeWnd

Browse Source 
git-svn-id: trunk@36756 -
This commit is contained in:
blikblum 2012-04-13 20:31:58 +00:00
parent d54734d4eb
commit 03e0cafaf9
2 changed files with 0 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lcl/include/customlistbox.inc
View File

@ -61,17 +61,6 @@ begin
end; end;
end; end;
procedure TCustomListBox.Loaded;
begin
inherited Loaded;
if HandleAllocated then
begin
LockSelectionChange;
SendItemIndex;
UnlockSelectionChange;
end;
end;
procedure TCustomListBox.CreateParams(var Params: TCreateParams); procedure TCustomListBox.CreateParams(var Params: TCreateParams);
const const
MultiSelectStyle: array[Boolean] of DWord = (LBS_MULTIPLESEL, LBS_EXTENDEDSEL); MultiSelectStyle: array[Boolean] of DWord = (LBS_MULTIPLESEL, LBS_EXTENDEDSEL);

1
lcl/stdctrls.pp
View File

@ -522,7 +522,6 @@ type
procedure AssignCacheToItemData(const AIndex: Integer; const AData: Pointer); virtual; // called to restore the itemdata after a handle is created procedure AssignCacheToItemData(const AIndex: Integer; const AData: Pointer); virtual; // called to restore the itemdata after a handle is created
procedure BeginAutoDrag; override; procedure BeginAutoDrag; override;
function CalculateStandardItemHeight: Integer; function CalculateStandardItemHeight: Integer;
procedure Loaded; override;
procedure CreateParams(var Params: TCreateParams); override; procedure CreateParams(var Params: TCreateParams); override;
procedure InitializeWnd; override; procedure InitializeWnd; override;
procedure FinalizeWnd; override; procedure FinalizeWnd; override;