Changeset 67 for trunk/Forms/UFormInput.pas

Timestamp:

Jan 17, 2015, 4:08:03 PM (10 years ago)

Author:

chronos

Message:

• Renamed: MainForm class to FormMain.
• Moved: CurrentTarget moved from FormMain to Core class.

File:

• trunk/Forms/UFormInput.pas (modified) (1 diff)

trunk/Forms/UFormInput.pas

@@ -31 +31 @@
 
 uses
-  UFormMain, UTargetInterpretter;
+  UCore, UTargetInterpretter;
 
 procedure TFormInput.MemoInputKeyPress(Sender: TObject; var Key: char);
 begin
-  if MainForm.CurrentTarget is TTargetInterpretter then
-  with TTargetInterpretter(MainForm.CurrentTarget) do
+  if Core.CurrentTarget is TTargetInterpretter then
+  with TTargetInterpretter(Core.CurrentTarget) do
     Input := Input + Key;
 end;