|
5 | 5 | interface
|
6 | 6 |
|
7 | 7 | uses
|
8 |
| - Classes, SysUtils, FMX.StdCtrls, FMX.Controls, |
| 8 | + Classes, SysUtils, FMX.StdCtrls, |
9 | 9 | PythonEngine, WrapDelphi, WrapDelphiClasses, WrapFmxControls, WrapFmxActnList;
|
10 | 10 |
|
11 | 11 | type
|
@@ -329,17 +329,6 @@ TPyDelphiPathLabel = class(TPyDelphiStyledControl)
|
329 | 329 | property DelphiObject: TPathLabel read GetDelphiObject write SetDelphiObject;
|
330 | 330 | end;
|
331 | 331 |
|
332 |
| - TPyDelphiCustomControlAction = class(TPyDelphiCustomAction) |
333 |
| - private |
334 |
| - function GetDelphiObject: TCustomControlAction; |
335 |
| - procedure SetDelphiObject(const Value: TCustomControlAction); |
336 |
| - public |
337 |
| - class function DelphiObjectClass: TClass; override; |
338 |
| - public |
339 |
| - property DelphiObject: TCustomControlAction read GetDelphiObject |
340 |
| - write SetDelphiObject; |
341 |
| - end; |
342 |
| - |
343 | 332 | implementation
|
344 | 333 |
|
345 | 334 | { Register the wrappers, the globals and the constants }
|
@@ -399,7 +388,6 @@ procedure TStdCtrlsRegistration.RegisterWrappers(
|
399 | 388 | APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiExpander);
|
400 | 389 | APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiImageControl);
|
401 | 390 | APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiPathLabel);
|
402 |
| - APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiCustomControlAction); |
403 | 391 | end;
|
404 | 392 |
|
405 | 393 | { TPyDelphiPresentedTextControl }
|
@@ -948,24 +936,6 @@ procedure TPyDelphiPathLabel.SetDelphiObject(const Value: TPathLabel);
|
948 | 936 | inherited DelphiObject := Value;
|
949 | 937 | end;
|
950 | 938 |
|
951 |
| -{ TPyDelphiCustomControlAction } |
952 |
| - |
953 |
| -class function TPyDelphiCustomControlAction.DelphiObjectClass: TClass; |
954 |
| -begin |
955 |
| - Result := TCustomControlAction; |
956 |
| -end; |
957 |
| - |
958 |
| -function TPyDelphiCustomControlAction.GetDelphiObject: TCustomControlAction; |
959 |
| -begin |
960 |
| - Result := TCustomControlAction(inherited DelphiObject); |
961 |
| -end; |
962 |
| - |
963 |
| -procedure TPyDelphiCustomControlAction.SetDelphiObject( |
964 |
| - const Value: TCustomControlAction); |
965 |
| -begin |
966 |
| - inherited DelphiObject := Value; |
967 |
| -end; |
968 |
| - |
969 | 939 | initialization
|
970 | 940 | RegisteredUnits.Add(TStdCtrlsRegistration.Create);
|
971 | 941 |
|
|
0 commit comments