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

64 bits fixes

Browse Source 
git-svn-id: trunk@8932 -
This commit is contained in:
vincents 2006-03-13 07:49:59 +00:00
parent a2d20ac958
commit 5c372c949e
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
examples/listboxtest.pp
View File

@ -113,12 +113,12 @@ var
Index: integer; Index: integer;
begin begin
Index := ListBox.ItemIndex; Index := ListBox.ItemIndex;
if Index = -1 if Index = -1 then
then ListBox.Items.Add('Button 1 clicked') ListBox.Items.Add('Button 1 clicked')
else ListBox.Items.Insert(Index, else
'Button 1 clicked at '+IntToStr(Index)); ListBox.Items.Insert(Index, 'Button 1 clicked at '+IntToStr(Index));
for Index := 0 to ListBox.Items.Count - 1 for Index := 0 to ListBox.Items.Count - 1 do
do ListBox.Items.Objects[Index] := TObject(Index); ListBox.Items.Objects[Index] := TObject(PtrInt(Index));
end; end;
procedure TListBoxTestForm.Button2Click(Sender: TObject); procedure TListBoxTestForm.Button2Click(Sender: TObject);
@ -137,9 +137,9 @@ end;
procedure TListBoxTestForm.Button4Click(Sender: TObject); procedure TListBoxTestForm.Button4Click(Sender: TObject);
var var
X: integer; X: PtrInt;
begin begin
X := integer(ListBox.Items.Objects[ListBox.ItemIndex]); X := PtrInt(ListBox.Items.Objects[ListBox.ItemIndex]);
writeln('TListBoxTestForm.Button4Click ',X); writeln('TListBoxTestForm.Button4Click ',X);
end; end;