Changeset 4 for trunk

Timestamp:

Nov 27, 2008, 12:18:32 PM (15 years ago)

Author:

george

Message:

• Upraveno: Verze 1.3.

Location:

trunk

Files:

• DiallingService.dpr (added)
• KonfiguratorZdechovNET.dpr (modified) (2 diffs)
• ServiceControl (added)
• ServiceControl/ServiceControl.dpr (added)
• ServiceControl/UMainForm.dfm (added)
• ServiceControl/UMainForm.pas (added)
• ServiceControl/UServiceControl.pas (added)
• ServiceControl/svccont.pas (added)
• UAboutWindow.pas (modified) (1 diff)
• UDialingLog.dfm (modified) (1 diff)
• UDialingLog.pas (modified) (3 diffs)
• UDialingService.dfm (added)
• UDialingService.pas (added)
• UDiallingService.dfm (added)
• UDiallingService.pas (added)
• UMainForm.dfm (added)
• UMainForm.pas (added)
• UNetworkTest.pas (modified) (1 diff)
• svccont (added)
• svccont/UServiceControl.pas (added)
• svccont/svccont.dpr (added)

trunk/KonfiguratorZdechovNET.dpr

@@ -3 +3 @@
 uses
   Forms,
-  MainWindow in 'MainWindow.pas' {MainForm},
+  UMainForm in 'UMainForm.pas' {MainForm},
   DosCommand in 'DosCommand.pas',
   UNetworkTest in 'UNetworkTest.pas' {NetworkTest},
@@ -11 +11 @@
   UMapFile in 'UMapFile.pas',
   UDialingLog in 'UDialingLog.pas' {DialingLog},
-  UTextFileStream in 'UTextFileStream.pas';
+  UTextFileStream in 'UTextFileStream.pas',
+  UServiceControl in 'ServiceControl\UServiceControl.pas';
 
 {$R *.res}

trunk/UAboutWindow.pas

@@ -26 +26 @@
 implementation
 
-uses MainWindow;
+uses UMainForm;
 
 {$R *.dfm}

trunk/UDialingLog.dfm

@@ -12 +12 @@
   Font.Style = []
   OldCreateOrder = False
+  OnShow = FormShow
   DesignSize = (
     402

trunk/UDialingLog.pas

@@ -10 +10 @@
   TDialingLog = class(TForm)
     Memo1: TMemo;
+    procedure FormShow(Sender: TObject);
   private
     { Private declarations }
@@ -15 +16 @@
     { Public declarations }
   end;
+
 
 var
@@ -23 +25 @@
 {$R *.dfm}
 
+uses
+  UTextFileStream, UMainForm;
+
+procedure TDialingLog.FormShow(Sender: TObject);
+var
+  TextFile: TTextFileStream;
+begin
+  try
+    TextFile := TTextFileStream.Create(MainForm.LogFileName, fmOpenRead);
+
+  finally
+    TextFile.Free;
+  end;
+
+end;
+
 end.

trunk/UNetworkTest.pas

@@ -59 +59 @@
 implementation
 
-uses MainWindow, Math;
+uses  Math, UMainForm;
 
 {$R *.dfm}