Skip to content

Commit 18f2771

Browse files
committed
Adding TFloatColumn wrapper
1 parent f092620 commit 18f2771

File tree

1 file changed

+28
-0
lines changed

1 file changed

+28
-0
lines changed

Source/fmx/WrapFmxGrids.pas

Lines changed: 28 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -126,6 +126,16 @@ TPyDelphiCurrencyColumn = class(TPyDelphiCustomNumberColumn)
126126
property DelphiObject: TCurrencyColumn read GetDelphiObject write SetDelphiObject;
127127
end;
128128

129+
TPyDelphiFloatColumn = class(TPyDelphiCustomNumberColumn)
130+
private
131+
function GetDelphiObject: TFloatColumn;
132+
procedure SetDelphiObject(const Value: TFloatColumn);
133+
public
134+
class function DelphiObjectClass : TClass; override;
135+
// Properties
136+
property DelphiObject: TFloatColumn read GetDelphiObject write SetDelphiObject;
137+
end;
138+
129139
implementation
130140

131141
uses
@@ -168,6 +178,7 @@ procedure TGridsRegistration.RegisterWrappers(
168178
APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiImageColumn);
169179
APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiCustomNumberColumn);
170180
APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiCurrencyColumn);
181+
APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiFloatColumn);
171182
end;
172183

173184
{ TPyDelphiColumn }
@@ -376,6 +387,23 @@ procedure TPyDelphiCurrencyColumn.SetDelphiObject(const Value: TCurrencyColumn);
376387
inherited DelphiObject := Value;
377388
end;
378389

390+
{ TPyDelphiFloatColumn }
391+
392+
class function TPyDelphiFloatColumn.DelphiObjectClass: TClass;
393+
begin
394+
Result := TFloatColumn;
395+
end;
396+
397+
function TPyDelphiFloatColumn.GetDelphiObject: TFloatColumn;
398+
begin
399+
Result := TFloatColumn(inherited DelphiObject);
400+
end;
401+
402+
procedure TPyDelphiFloatColumn.SetDelphiObject(const Value: TFloatColumn);
403+
begin
404+
inherited DelphiObject := Value;
405+
end;
406+
379407
initialization
380408
RegisteredUnits.Add(TGridsRegistration.Create);
381409

0 commit comments

Comments
 (0)