Skip to content

Commit 27503c0

Browse files
committed
Removing TCustomControlAction wraper wrongly placed on StdCtrls wrappers unit
1 parent 0b20fbf commit 27503c0

File tree

1 file changed

+1
-31
lines changed

1 file changed

+1
-31
lines changed

Source/fmx/WrapFmxStdCtrls.pas

+1-31
Original file line numberDiff line numberDiff line change
@@ -5,7 +5,7 @@
55
interface
66

77
uses
8-
Classes, SysUtils, FMX.StdCtrls, FMX.Controls,
8+
Classes, SysUtils, FMX.StdCtrls,
99
PythonEngine, WrapDelphi, WrapDelphiClasses, WrapFmxControls, WrapFmxActnList;
1010

1111
type
@@ -329,17 +329,6 @@ TPyDelphiPathLabel = class(TPyDelphiStyledControl)
329329
property DelphiObject: TPathLabel read GetDelphiObject write SetDelphiObject;
330330
end;
331331

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-
343332
implementation
344333

345334
{ Register the wrappers, the globals and the constants }
@@ -399,7 +388,6 @@ procedure TStdCtrlsRegistration.RegisterWrappers(
399388
APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiExpander);
400389
APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiImageControl);
401390
APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiPathLabel);
402-
APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiCustomControlAction);
403391
end;
404392

405393
{ TPyDelphiPresentedTextControl }
@@ -948,24 +936,6 @@ procedure TPyDelphiPathLabel.SetDelphiObject(const Value: TPathLabel);
948936
inherited DelphiObject := Value;
949937
end;
950938

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-
969939
initialization
970940
RegisteredUnits.Add(TStdCtrlsRegistration.Create);
971941

0 commit comments

Comments
 (0)