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

gtk2: cleanup

Browse Source 
git-svn-id: trunk@24690 -
This commit is contained in:
paul 2010-04-18 08:40:27 +00:00
parent 24d98ffbae
commit e6edf895f4
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/interfaces/gtk2/gtk2listviewtreemodel.pas
View File

@ -293,7 +293,6 @@ begin
Result := False;
if ListView = nil then
Exit;
WriteLn(PtrUInt(Iter^.user_data));
Inc(PtrUInt(Iter^.user_data));
Result := PtrUint(Iter^.user_data) < ListView.items.Count;
end;
@ -321,7 +320,7 @@ begin
Result := False;
if (ListView = nil) or (parent <> nil) then
Exit;
if (Iter = nil) and (n < ListView.Items.Count) then
if (Iter <> nil) and (n < ListView.Items.Count) then
begin
PtrUint(Iter^.user_data) := n;
Result := True;