Changeset 38 for trunk/Forms/UFormOutput.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/UFormOutput.pas (modified) (2 diffs)

trunk/Forms/UFormOutput.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs;
+  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
 
 type
-  TForm1 = class(TForm)
+
+  { TFormOutput }
+
+  TFormOutput = class(TForm)
+    Label2: TLabel;
+    MemoOutput: TMemo;
   private
     { private declarations }
   public
-    { public declarations }
+    procedure Reload;
   end;
 
 var
-  Form1: TForm1;
+  FormOutput: TFormOutput;
 
 implementation
@@ -23 +28 @@
 {$R *.lfm}
 
+uses
+  UFormMain, UTargetInterpretter;
+
+{ TFormOutput }
+
+procedure TFormOutput.Reload;
+begin
+  if MainForm.CurrentTarget is TTargetInterpretter then
+  with TTargetInterpretter(MainForm.CurrentTarget) do
+    MemoOutput.Lines.Text := Output;
+end;
+
 end.