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

64 bit fixes

Browse Source 
git-svn-id: trunk@7704 -
This commit is contained in:
vincents 2005-09-14 21:32:07 +00:00
parent 86419b045d
commit 848e445e9b
4 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ideintf/newfield.pas
View File

@ -1,3 +1,4 @@
{ $Id$ }
{ Copyright (C) 2005 Alexandru Alexandrov
Date: 11.06.2005
@ -222,7 +223,7 @@ begin
try
case RadioGroup1.ItemIndex of
0: begin //Create calc field
fldType := TFieldType(SelectType.Items.Objects[SelectType.ItemIndex]);
fldType := TFieldType(PtrUInt(SelectType.Items.Objects[SelectType.ItemIndex]));
NewField := CreateField(fldType, CheckName(EditName.Text));
NewField.Calculated := True;
NewField.FieldKind := fkCalculated;
@ -304,7 +305,7 @@ end ;
procedure TNewFieldFrm.SetButtons;
begin
if SelectType.ItemIndex >= 0 then
case TFieldType(SelectType.Items.Objects[SelectType.ItemIndex]) of
case TFieldType(PtrUInt( SelectType.Items.Objects[SelectType.ItemIndex])) of
ftString: EditSize.Enabled := True;
else EditSize.Enabled := False;
end
@ -346,7 +347,7 @@ begin
SelectType.Clear;
SelectType.Sorted := False;
for i := Low(Fieldtypenames) to High(Fieldtypenames) do begin
SelectType.Items.AddObject(Fieldtypenames[i], Tobject(i));
SelectType.Items.AddObject(Fieldtypenames[i], Tobject(PtrUInt(i)));
end;
SelectType.Sorted := True;
end;

1
lcl/include/control.inc
View File

@ -1,4 +1,5 @@
{%MainUnit ../controls.pp}
{ $Id$ }
{******************************************************************************
TControl

1
lcl/include/custommemo.inc
View File

@ -1,4 +1,5 @@
{%MainUnit ../stdctrls.pp}
{ $Id$ }
{******************************************************************************
TCustomMemo

1
lcl/include/wincontrol.inc
View File

@ -1,4 +1,5 @@
{%MainUnit ../controls.pp}
{ $Id$ }
{******************************************************************************
TWinControl