Skip to content

Including the Media Player wrappers for both VCL and FMX #26

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
merged 11 commits into from
Mar 26, 2022
Merged

Including the Media Player wrappers for both VCL and FMX #26

Changes from 1 commit
Commits
Show all changes
11 commits
Select commit Hold shift + click to select a range
49a5383
Including the TCustomControlAction wrapper
lmbelo Mar 26, 2022
86ad9e9
Including Media Player wrappers
lmbelo Mar 26, 2022
0f0b52c
Including the TCustomControlAction wrapper
lmbelo Mar 26, 2022
2d75537
Including the TCustomViewAction wrapper
lmbelo Mar 26, 2022
fe930fb
Including the new WrapFmxStdActns unit to the FMX wrappers
lmbelo Mar 26, 2022
40b6b9e
Including the StcActns unit types wrappers
lmbelo Mar 26, 2022
89be80d
Including the new WrapFmxStdActns unit to the FMX project
lmbelo Mar 26, 2022
a06e816
Removing enum variables
lmbelo Mar 26, 2022
06ca1c0
Changing registration class name according to the standard nomenclature
lmbelo Mar 26, 2022
0b20fbf
Including VCL media wrappers
lmbelo Mar 26, 2022
27503c0
Removing TCustomControlAction wraper wrongly placed on StdCtrls wrapp…
lmbelo Mar 26, 2022
File filter

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
Prev Previous commit
Next Next commit
Changing registration class name according to the standard nomenclature
  • Loading branch information
@lmbelo
lmbelo committed Mar 26, 2022
commit 06ca1c073952bbc5fc721e75b03918ecbfa62662
12 changes: 7 additions & 5 deletions Source/fmx/WrapFmxStdActns.pas
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -165,7 +165,7 @@ TPyDelphiValueRangeAction = class(TPyDelphiCustomValueRangeAction)
implementation

type
TFMXStdActns = class(TRegisteredUnit)
TStdActnsRegistration = class(TRegisteredUnit)
public
function Name: string; override;
procedure RegisterWrappers(APyDelphiWrapper: TPyDelphiWrapper); override;
Expand All @@ -174,17 +174,17 @@ TFMXStdActns = class(TRegisteredUnit)

{ TFMXStdActns }

function TFMXStdActns.Name: string;
function TStdActnsRegistration.Name: string;
begin
Result := 'StdActns';
end;

procedure TFMXStdActns.DefineVars(APyDelphiWrapper: TPyDelphiWrapper);
procedure TStdActnsRegistration.DefineVars(APyDelphiWrapper: TPyDelphiWrapper);
begin
inherited;
end;

procedure TFMXStdActns.RegisterWrappers(APyDelphiWrapper: TPyDelphiWrapper);
procedure TStdActnsRegistration.RegisterWrappers(APyDelphiWrapper: TPyDelphiWrapper);
begin
inherited;
APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiHintAction);
Expand All @@ -201,7 +201,6 @@ procedure TFMXStdActns.RegisterWrappers(APyDelphiWrapper: TPyDelphiWrapper);
APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiValueRange);
APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiCustomValueRangeAction);
APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiValueRangeAction);

end;

{ TPyDelphiHintAction }
Expand Down Expand Up @@ -449,4 +448,7 @@ procedure TPyDelphiValueRangeAction.SetDelphiObject(
inherited DelphiObject := Value;
end;

initialization
RegisteredUnits.Add(TStdActnsRegistration.Create);

end.