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

LCL: Change param names in TCustomCheckListBox.CheckAll to avoid confusion with property name.

Browse Source 
git-svn-id: trunk@31976 -
This commit is contained in:
juha 2011-08-13 12:56:58 +00:00
parent 67081e51b3
commit 810c1a3653
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/checklst.pas
View File

@ -70,7 +70,7 @@ type
constructor Create(AOwner: TComponent); override;
procedure MeasureItem(Index: Integer; var TheHeight: Integer); override;
procedure Toggle(AIndex: Integer);
procedure CheckAll(AState: TCheckBoxState; AllowGrayed: Boolean = True; AllowDisabled: Boolean = True);
procedure CheckAll(AState: TCheckBoxState; aAllowGrayed: Boolean = True; aAllowDisabled: Boolean = True);
property AllowGrayed: Boolean read FAllowGrayed write FAllowGrayed default False;
property Checked[AIndex: Integer]: Boolean read GetChecked write SetChecked;
@ -216,12 +216,12 @@ begin
end;
procedure TCustomCheckListBox.CheckAll(AState: TCheckBoxState;
AllowGrayed: Boolean; AllowDisabled: Boolean);
aAllowGrayed: Boolean; aAllowDisabled: Boolean);
var
i: Integer;
begin
for i := 0 to Items.Count - 1 do begin
if (AllowGrayed or (State[i] <> cbGrayed)) and (AllowDisabled or ItemEnabled[i]) then
if (aAllowGrayed or (State[i] <> cbGrayed)) and (aAllowDisabled or ItemEnabled[i]) then
State[i] := AState;
end;
end;