Changeset 38 for trunk/Forms/UFormInput.pas

Timestamp:

Feb 19, 2012, 10:29:55 AM (12 years ago)

Author:

chronos

Message:

• Modified: Used manual docked forms for better code separation.
• Modified: Used tabbed layout with PageControl and TabSheets for better usability.

File:

• trunk/Forms/UFormInput.pas (modified) (3 diffs)

trunk/Forms/UFormInput.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs;
+  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
 
 type
-  TForm2 = class(TForm)
+
+  { TFormInput }
+
+  TFormInput = class(TForm)
+    Label1: TLabel;
+    MemoInput: TMemo;
+    procedure MemoInputKeyPress(Sender: TObject; var Key: char);
   private
     { private declarations }
@@ -17 +23 @@
 
 var
-  Form2: TForm2;
+  FormInput: TFormInput;
+
 
 implementation
@@ -23 +30 @@
 {$R *.lfm}
 
+uses
+  UFormMain, UTargetInterpretter;
+
+procedure TFormInput.MemoInputKeyPress(Sender: TObject; var Key: char);
+begin
+  if MainForm.CurrentTarget is TTargetInterpretter then
+  with TTargetInterpretter(MainForm.CurrentTarget) do
+    Input := Input + Key;
+end;
+
+
 end.