@@ -126,6 +126,16 @@ TPyDelphiCurrencyColumn = class(TPyDelphiCustomNumberColumn)
126
126
property DelphiObject: TCurrencyColumn read GetDelphiObject write SetDelphiObject;
127
127
end ;
128
128
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
+
129
139
implementation
130
140
131
141
uses
@@ -168,6 +178,7 @@ procedure TGridsRegistration.RegisterWrappers(
168
178
APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiImageColumn);
169
179
APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiCustomNumberColumn);
170
180
APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiCurrencyColumn);
181
+ APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiFloatColumn);
171
182
end ;
172
183
173
184
{ TPyDelphiColumn }
@@ -376,6 +387,23 @@ procedure TPyDelphiCurrencyColumn.SetDelphiObject(const Value: TCurrencyColumn);
376
387
inherited DelphiObject := Value ;
377
388
end ;
378
389
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
+
379
407
initialization
380
408
RegisteredUnits.Add(TGridsRegistration.Create);
381
409
0 commit comments