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

nil check

Browse Source 
git-svn-id: trunk@4889 -
This commit is contained in:
micha 2003-12-15 22:04:05 +00:00
parent 901930547e
commit db29443b99
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lcl/interfaces/win32/win32listsl.inc
View File

@ -277,8 +277,14 @@ End;
{ TWin32CheckListBoxStrings } { TWin32CheckListBoxStrings }
function TWin32CheckListBoxStrings.GetChecked(const Index: Integer): Boolean; function TWin32CheckListBoxStrings.GetChecked(const Index: Integer): Boolean;
var
Data: PWin32CheckListBoxItemRecord;
begin begin
Result:= GetItemRecord(Index, false)^.Checked; Data := GetItemRecord(Index, false);
if Data <> nil then
Result := Data^.Checked
else
Result := false;
end; end;
procedure TWin32CheckListBoxStrings.SetChecked(const Index: Integer; procedure TWin32CheckListBoxStrings.SetChecked(const Index: Integer;
@ -521,6 +527,9 @@ End;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.24 2003/12/15 22:04:05 micha
nil check
Revision 1.23 2003/12/15 21:57:16 micha Revision 1.23 2003/12/15 21:57:16 micha
checklistbox, implement object+checked; from vincent checklistbox, implement object+checked; from vincent