Changeset 6 for trunk/Forms/UOperationProgress.pas

Timestamp:

Feb 4, 2011, 9:45:01 AM (13 years ago)

Author:

chronos

Message:

• Modified: Source selection separated to single form.
• Added: Starting compiler and IDE with updated paths in configuration files.

File:

• trunk/Forms/UOperationProgress.pas (modified) (2 diffs)

trunk/Forms/UOperationProgress.pas

@@ -20 +20 @@
     Timer1: TTimer;
     procedure ButtonAbortClick(Sender: TObject);
+    procedure ButtonCloseClick(Sender: TObject);
+    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormShow(Sender: TObject);
     procedure Timer1Timer(Sender: TObject);
@@ -44 +46 @@
   if Assigned(Process) then
     Process.Terminate(0);
+end;
+
+procedure TOperationProgressForm.ButtonCloseClick(Sender: TObject);
+begin
+
+end;
+
+procedure TOperationProgressForm.FormClose(Sender: TObject;
+  var CloseAction: TCloseAction);
+begin
+  Memo1.Clear;
 end;