Changeset 152 for trunk/Forms/FormInput.pas
- Timestamp:
- Jun 6, 2024, 9:10:15 PM (4 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Forms/FormInput.pas
r149 r152 23 23 24 24 uses 25 Core, TargetInterpret ter;25 Core, TargetInterpreter; 26 26 27 27 procedure TFormInput.MemoInputKeyPress(Sender: TObject; var Key: char); 28 28 begin 29 if Core.Core.CurrentTarget is TTargetInterpret ter then30 with TTargetInterpret ter(Core.Core.CurrentTarget) do29 if Core.Core.CurrentTarget is TTargetInterpreter then 30 with TTargetInterpreter(Core.Core.CurrentTarget) do 31 31 Input := Input + Key; 32 32 end;
Note:
See TracChangeset
for help on using the changeset viewer.