paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 09:59:23 +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;
procedure TCustomListBox.Loaded;
begin
inherited Loaded;
if HandleAllocated then
begin
LockSelectionChange;
SendItemIndex;
UnlockSelectionChange;
end;
end;
procedure TCustomListBox.CreateParams(var Params: TCreateParams);
const
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 BeginAutoDrag; override;
function CalculateStandardItemHeight: Integer;
procedure Loaded; override;
procedure CreateParams(var Params: TCreateParams); override;
procedure InitializeWnd; override;
procedure FinalizeWnd; override;