paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 04:39:24 +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 { Copyright (C) 2005 Alexandru Alexandrov
Date: 11.06.2005 Date: 11.06.2005
@ -222,7 +223,7 @@ begin
try try
case RadioGroup1.ItemIndex of case RadioGroup1.ItemIndex of
0: begin //Create calc field 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 := CreateField(fldType, CheckName(EditName.Text));
NewField.Calculated := True; NewField.Calculated := True;
NewField.FieldKind := fkCalculated; NewField.FieldKind := fkCalculated;
@ -304,7 +305,7 @@ end ;
procedure TNewFieldFrm.SetButtons; procedure TNewFieldFrm.SetButtons;
begin begin
if SelectType.ItemIndex >= 0 then 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; ftString: EditSize.Enabled := True;
else EditSize.Enabled := False; else EditSize.Enabled := False;
end end
@ -346,7 +347,7 @@ begin
SelectType.Clear; SelectType.Clear;
SelectType.Sorted := False; SelectType.Sorted := False;
for i := Low(Fieldtypenames) to High(Fieldtypenames) do begin 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; end;
SelectType.Sorted := True; SelectType.Sorted := True;
end; end;

1
lcl/include/control.inc
View File

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

1
lcl/include/custommemo.inc
View File

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

1
lcl/include/wincontrol.inc
View File

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