paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 13:39:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: cleanup TCustomListBox.Create

Browse Source 
git-svn-id: trunk@36768 -
This commit is contained in:
blikblum 2012-04-14 11:12:05 +00:00
parent 2f56ecf4aa
commit 6f02c6c229
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/include/customlistbox.inc
View File

@ -527,7 +527,6 @@ end;
constructor TCustomListBox.Create(TheOwner: TComponent);
begin
inherited Create(TheOwner);
LockSelectionChange;
fCompStyle := csListBox;
BorderStyle:= bsSingle;
FItems := TExtendedStringList.Create(GetCachedDataSize);
@ -535,14 +534,13 @@ begin
FClickOnSelChange:= True;
FItemIndex:=-1;
FExtendedSelect := true;
FScrollWidth := 0;
//FScrollWidth := 0;
FCanvas := TControlCanvas.Create;
TControlCanvas(FCanvas).Control := Self;
ParentColor := false;
TabStop := true;
with GetControlClassDefaultSize do
SetInitialBounds(0, 0, CX, CY);
UnlockSelectionChange;
end;
{------------------------------------------------------------------------------