paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-10 02:28:04 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Remove redundant code in TCheckListBox. Issue #27385, patch from Vojtech Cihak.

Browse Source 
git-svn-id: trunk@47577 -
This commit is contained in:
juha 2015-02-01 09:04:04 +00:00
parent 63e79c85cd
commit d78c839b57
1 changed files with 0 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/checklst.pas
View File

@ -37,7 +37,6 @@ type
FOnClickCheck : TNotifyEvent;
FOnItemClick: TCheckListClicked;
function GetChecked(const AIndex: Integer): Boolean;
function GetCount: integer;
function GetHeader(AIndex: Integer): Boolean;
function GetItemEnabled(AIndex: Integer): Boolean;
function GetState(AIndex: Integer): TCheckBoxState;
@ -75,7 +74,6 @@ type
property Header[AIndex: Integer]: Boolean read GetHeader write SetHeader;
property ItemEnabled[AIndex: Integer]: Boolean read GetItemEnabled write SetItemEnabled;
property State[AIndex: Integer]: TCheckBoxState read GetState write SetState;
property Count: integer read GetCount;
property OnClickCheck: TNotifyEvent read FOnClickCheck write FOnClickCheck;
property OnItemClick: TCheckListClicked read FOnItemClick write FOnItemClick;
end;
@ -266,11 +264,6 @@ begin
Result := 0;
end;
function TCustomCheckListBox.GetCount: integer;
begin
Result := Items.Count;
end;
function TCustomCheckListBox.GetItemEnabled(AIndex: Integer): Boolean;
begin
CheckIndex(AIndex);