Skip to content

Including the TKeyevent event handler - Fixes Embarcadero/DelphiFMX4Python#25 #29

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 2 commits into from
Jun 2, 2022
Merged

Including the TKeyevent event handler - Fixes Embarcadero/DelphiFMX4Python#25 #29

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
c53bbb8
The WrapFmxControls unit was not included in the FMX wrappers
lmbelo Jun 2, 2022
5dcc559
Introducing the TKeyEvent event handler
lmbelo Jun 2, 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
1 change: 1 addition & 0 deletions Source/fmx/WrapDelphiFmx.pas
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -12,6 +12,7 @@ implementation
{$ENDIF MSWINDOWS}
WrapDelphiDataBind,
WrapFmxTypes,
WrapFmxControls,
WrapFmxStdCtrls,
WrapFmxEdit,
WrapFmxListBox,
Expand Down
82 changes: 82 additions & 0 deletions Source/fmx/WrapFmxControls.pas
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -16,6 +16,17 @@ interface
SetBounds and Repaint
Exposes properties Parent and Visible
}

{ TKeyEvent wrapper }
TKeyEventHandler = class(TEventHandler)
protected
procedure DoEvent(Sender: TObject; var Key: Word; var KeyChar: WideChar; Shift: TShiftState);
public
constructor Create(APyDelphiWrapper: TPyDelphiWrapper; AComponent: TObject;
APropertyInfo: PPropInfo; ACallable: PPyObject); override;
class function GetTypeInfo: PTypeInfo; override;
end;

TPyDelphiControl = class (TPyDelphiFmxObject)
private
function GetDelphiObject: TControl;
Expand Down Expand Up @@ -179,6 +190,8 @@ procedure TControlsRegistration.RegisterWrappers(
APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiStyleBook);
APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiPopup);
APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiCustomControlAction);

APyDelphiWrapper.EventHandlers.RegisterHandler(TKeyEventHandler);
end;

{ TPyDelphiControl }
Expand Down Expand Up @@ -769,6 +782,75 @@ procedure TPyDelphiCustomControlAction.SetDelphiObject(
inherited DelphiObject := Value;
end;

{ TKeyEventHandler }

constructor TKeyEventHandler.Create(APyDelphiWrapper: TPyDelphiWrapper;
AComponent: TObject; APropertyInfo: PPropInfo; ACallable: PPyObject);
var
LMethod : TMethod;
begin
inherited;
LMethod.Code := @TKeyEventHandler.DoEvent;
LMethod.Data := Self;
SetMethodProp(AComponent, APropertyInfo, LMethod);
end;

class function TKeyEventHandler.GetTypeInfo: PTypeInfo;
begin
Result := System.TypeInfo(TKeyEvent);
end;

procedure TKeyEventHandler.DoEvent(Sender: TObject; var Key: Word;
var KeyChar: WideChar; Shift: TShiftState);
var
LPyObject: PPyObject;
LPyTuple: PPyObject;
LPyResult: PPyObject;
LPyKey: PPyObject;
LVarKeyParam: TPyDelphiVarParameter;
LPyKeyChar: PPyObject;
LVarKeyCharParam: TPyDelphiVarParameter;
LKeyCharStr: string;
begin
Assert(Assigned(PyDelphiWrapper));
if Assigned(Callable) and PythonOK then
with GetPythonEngine do begin
LPyObject := PyDelphiWrapper.Wrap(Sender);
//var parameters
LPyKey := CreateVarParam(PyDelphiWrapper, Key);
LVarKeyParam := PythonToDelphi(LPyKey) as TPyDelphiVarParameter;
LPyKeyChar := CreateVarParam(PyDelphiWrapper, KeyChar);
LVarKeyCharParam := PythonToDelphi(LPyKeyChar) as TPyDelphiVarParameter;

LPyTuple := PyTuple_New(4);
GetPythonEngine.PyTuple_SetItem(LPyTuple, 0, LPyObject);
GetPythonEngine.PyTuple_SetItem(LPyTuple, 1, LPyKey);
GetPythonEngine.PyTuple_SetItem(LPyTuple, 2, LPyKeyChar);
GetPythonEngine.PyTuple_SetItem(LPyTuple, 3, ShiftToPython(Shift));
try
LPyResult := PyObject_CallObject(Callable, LPyTuple);
if Assigned(LPyResult) then
begin
Py_DECREF(LPyResult);
if PyLong_Check(LVarKeyParam.Value) then
Key := PyLong_AsLong(LVarKeyParam.Value);

if (LVarKeyCharParam.Value = Py_None) then
KeyChar := #0
else if PyUnicode_Check(LVarKeyCharParam.Value) then
begin
LKeyCharStr := PyUnicodeAsString(LVarKeyCharParam.Value);
if Length(LKeyCharStr) > 0 then
KeyChar := LKeyCharStr[1];
end;
end;
finally
Py_DECREF(LPyTuple);
end;
CheckError();
end;
end;

initialization
RegisteredUnits.Add(TControlsRegistration.Create);

Expand Down