paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-11 02:48:31 +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;
begin
Index := ListBox.ItemIndex;
if Index = -1
then ListBox.Items.Add('Button 1 clicked')
else ListBox.Items.Insert(Index,
'Button 1 clicked at '+IntToStr(Index));
for Index := 0 to ListBox.Items.Count - 1
do ListBox.Items.Objects[Index] := TObject(Index);
if Index = -1 then
ListBox.Items.Add('Button 1 clicked')
else
ListBox.Items.Insert(Index, 'Button 1 clicked at '+IntToStr(Index));
for Index := 0 to ListBox.Items.Count - 1 do
ListBox.Items.Objects[Index] := TObject(PtrInt(Index));
end;
procedure TListBoxTestForm.Button2Click(Sender: TObject);
@ -137,9 +137,9 @@ end;
procedure TListBoxTestForm.Button4Click(Sender: TObject);
var
X: integer;
X: PtrInt;
begin
X := integer(ListBox.Items.Objects[ListBox.ItemIndex]);
X := PtrInt(ListBox.Items.Objects[ListBox.ItemIndex]);
writeln('TListBoxTestForm.Button4Click ',X);
end;