teilumstellung txt zu mdb

ahaenggli · Dec 22, 2019 · 2e4eb09 · 2e4eb09
1 parent e9073ef
commit 2e4eb09
Show file tree

Hide file tree

Showing 11 changed files with 511 additions and 2,272 deletions.
diff --git a/Cadac.bdsproj b/Cadac.bdsproj
@@ -42,7 +42,7 @@
 			<Compiler Name="X">1</Compiler>
 			<Compiler Name="Y">1</Compiler>
 			<Compiler Name="Z">1</Compiler>
-			<Compiler Name="ShowHints">False</Compiler>
+			<Compiler Name="ShowHints">True</Compiler>
 			<Compiler Name="ShowWarnings">False</Compiler>
 			<Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
 			<Compiler Name="NamespacePrefix"></Compiler>
@@ -171,12 +171,13 @@
 			<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
 			<VersionInfoKeys Name="Comments"></VersionInfoKeys>
 		</VersionInfoKeys>  <Excluded_Packages>
-      <Excluded_Packages Name="c:\program files\borland\bds\4.0\Bin\dclib100.bpl">Borland InterBase Express Components</Excluded_Packages>
-      <Excluded_Packages Name="c:\program files\borland\bds\4.0\Bin\dclIntraweb_80_100.bpl">Intraweb 8.0 Design Package for Borland Development Studio 2006</Excluded_Packages>
-      <Excluded_Packages Name="c:\program files\borland\bds\4.0\Bin\dclIndyCore100.bpl">Indy 10 Core Design Time</Excluded_Packages>
-      <Excluded_Packages Name="c:\program files\borland\bds\4.0\Bin\dclsmp100.bpl">Borland Sample Components</Excluded_Packages>
-      <Excluded_Packages Name="c:\program files\borland\bds\4.0\Bin\dclIndyProtocols100.bpl">Indy 10 Protocols Design Time</Excluded_Packages>
-      <Excluded_Packages Name="c:\program files\borland\bds\4.0\Bin\dcltee100.bpl">TeeChart-Komponenten</Excluded_Packages>
+      <Excluded_Packages Name="c:\program files (x86)\borland\bds\4.0\Bin\dclib100.bpl">Borland InterBase Express Components</Excluded_Packages>
+      <Excluded_Packages Name="c:\program files (x86)\borland\bds\4.0\Bin\dclIntraweb_80_100.bpl">Intraweb 8.0 Design Package for Borland Development Studio 2006</Excluded_Packages>
+      <Excluded_Packages Name="c:\program files (x86)\borland\bds\4.0\Bin\dclIndyCore100.bpl">Indy 10 Core Design Time</Excluded_Packages>
+      <Excluded_Packages Name="c:\program files (x86)\borland\bds\4.0\Bin\dclsmp100.bpl">Borland Sample Components</Excluded_Packages>
+      <Excluded_Packages Name="c:\program files (x86)\borland\bds\4.0\Bin\dclIndyProtocols100.bpl">Indy 10 Protocols Design Time</Excluded_Packages>
+      <Excluded_Packages Name="c:\program files (x86)\borland\bds\4.0\Bin\dcltee100.bpl">TeeChart-Komponenten</Excluded_Packages>
     </Excluded_Packages>
   </Delphi.Personality>
+	<ModelSupport>False</ModelSupport>
 </BorlandProject>
diff --git a/Cadac.dpr b/Cadac.dpr
@@ -1,22 +1,22 @@
 program Cadac;
-
 uses
   Forms,
   unit1 in 'unit1.pas' {Form1},
-  Unit2 in 'Unit2.pas' {Form2},
   Unit3 in 'Unit3.pas' {Form3},
-  Unit4 in 'Unit4.pas' {Form4},
-  Unit6 in 'Unit6.pas' {Form6},
-  FastStrings in 'FastStrings.pas',
   Unit7 in 'Unit7.pas' {Form7},
-  Unit8 in 'Unit8.pas' {Form8},
-  Unit10 in 'Unit10.pas' {Form10},
-  Unit11 in 'Unit11.pas' {Form11},
-  Unit12 in 'Unit12.pas' {Form12},
-  Unit13 in 'Unit13.pas' {Form13};
+  FastStrings in '..\Units\FastStrings.pas',
+  Unit2 in '..\Units\Unit2.pas' {Form2},
+  Unit4 in '..\Units\Unit4.pas' {Form4},
+  Unit6 in '..\Units\Unit6.pas' {Form6},
+  Unit8 in '..\Units\Unit8.pas' {Form8},
+  Unit9 in '..\Units\Unit9.pas' {Form9},
+  Unit10 in '..\Units\Unit10.pas' {Form10},
+  Unit11 in '..\Units\Unit11.pas' {Form11},
+  Unit12 in '..\Units\Unit12.pas' {Form12},
+  Unit13 in '..\Units\Unit13.pas' {Form13};
 
 {$R *.res}
-
+{$R res.res}
 begin
   Application.Initialize;
   Application.CreateForm(TForm3, Form3);

diff --git a/Cadac.obj b/Cadac.obj
diff --git a/Unit3.dfm b/Unit3.dfm
@@ -3,9 +3,13 @@ object Form3: TForm3
   Top = 0
   BorderIcons = [biSystemMenu, biMinimize]
   Caption = 'Cadac'
-  ClientHeight = 297
+  ClientHeight = 296
   ClientWidth = 434
   Color = clBtnFace
+  Constraints.MaxHeight = 334
+  Constraints.MaxWidth = 450
+  Constraints.MinHeight = 334
+  Constraints.MinWidth = 450
   Font.Charset = DEFAULT_CHARSET
   Font.Color = clWindowText
   Font.Height = -11
@@ -25,10 +29,10 @@ object Form3: TForm3
     Visible = False
   end
   object Image1: TImage
-    Left = -7
+    Left = 0
     Top = 0
-    Width = 440
-    Height = 313
+    Width = 450
+    Height = 400
     Enabled = False
     Picture.Data = {
       0A544A504547496D616765F10B0100FFD8FFE000104A46494600010101006000
@@ -2186,9 +2190,9 @@ object Form3: TForm3
   end
   object Timer3: TTimer
     Enabled = False
-    Interval = 500
+    Interval = 1500
     OnTimer = Timer3Timer
-    Left = 120
-    Top = 232
+    Left = 248
+    Top = 256
   end
 end
diff --git a/Unit3.pas b/Unit3.pas
@@ -33,7 +33,7 @@   TForm3 = class(TForm)
 implementation
 
 uses Unit1, Unit2, Unit4, FastStrings, Unit10, Unit11, Unit6, Unit7, Unit8,
-  Unit12, Unit13;
+  Unit12, Unit13, Unit9;
 
 {$R *.dfm}
 function xMessageDlg(const Msg: string; DlgType : TMsgDlgType; Buttons : TMsgDlgButtons; Captions: array of string) : Integer;
@@ -186,18 +186,10 @@ procedure TForm3.FormCreate(Sender: TObject);
   Drive: Char;
   Flag: Integer;
   erg : integer;
-   ini:TiniFile;
-    dat:string;
-    exepath:String;
-    Snap: THandle;
-    ProcessE: TProcessEntry32;
-    modh: THandle;
-    ModuleE: TModuleEntry32;
 begin
-Constraints.MaxHeight:=Constraints.MinHeight;
-Constraints.MaxWidth:=Constraints.MinWidth;
+
 muri:=False;
- { label1.Caption:=datetimetostr(Date+incsecond(Time,-10));
+  label1.Caption:=datetimetostr(Date+incsecond(Time,2));
 
   Timer1.Enabled:=True;
   exit;
@@ -206,15 +198,15 @@ procedure TForm3.FormCreate(Sender: TObject);
   {Meldung eines kritischen Systemfehlers vehindern}
   ErrorMode := SetErrorMode(SEM_FailCriticalErrors);
   try
-
-  IF fileexists('GemeindeMuri.lic') then begin
+IF fileexists('GemeindeMuri.lic') then begin
   muri:=True;
   label1.Caption:=datetimetostr(Date+incsecond(Time,-10));
   Timer1.Enabled:=True;
   exit;
-  end;
+end;
+ muri:=false;
 
- label1.Caption:=datetimetostr(Date+incsecond(Time,2));
+ label1.Caption:=datetimetostr(Date+incsecond(Time,3));
    flag:=0;
 
    while(flag = 0) do begin
@@ -223,9 +215,8 @@ procedure TForm3.FormCreate(Sender: TObject);
          begin
               if((ParamStr(0) = GetSpecialFolder(Handle, 38)+'\Cadac\Cadac_cd.exe'))
               then begin
-                    Application.Title:='Cadac';
                     Timer1.Enabled:=True;
-                    label1.Caption:=datetimetostr(Date+incsecond(Time,2));
+                    label1.Caption:=datetimetostr(Date+incsecond(Time,3));
                     exit;
                     end;
 
@@ -235,7 +226,7 @@ procedure TForm3.FormCreate(Sender: TObject);
                 then begin
                     flag:=1;
                     Timer1.Enabled:=True;
-                    label1.Caption:=datetimetostr(Date+incsecond(Time,2));
+                    label1.Caption:=datetimetostr(Date+incsecond(Time,3));
                     exit;
                 end else begin
                       Timer1.Enabled:=false;
@@ -272,14 +263,14 @@ procedure TForm3.FormCreate(Sender: TObject);
 procedure TForm3.Timer1Timer(Sender: TObject);
 var
   stopTime: TDateTime;
-  ini:TIniFile;
 begin
  stopTime := strtodatetime(label1.caption);
 
  if Now >= stopTime then begin   {
  Timer1.Enabled:=false;
  Form1.Top:=Form3.Top;
  Form1.Left:=Form3.Left;}
+
  Timer1.Enabled:=False;
 
 
@@ -290,19 +281,17 @@ procedure TForm3.Timer1Timer(Sender: TObject);
   Application.CreateForm(TForm7, Form7);
   Application.CreateForm(TForm8, Form8);
   Application.CreateForm(TForm10, Form10);
- Application.CreateForm(TForm11, Form11);
+  Application.CreateForm(TForm11, Form11);
   Application.CreateForm(TForm12, Form12);
   Application.CreateForm(TForm13, Form13);
-
+  Application.CreateForm(TForm9, Form9);
 
  Form1.Show;
- Form3.Hide;
+ Form3.Hide;  
  end;
 
 end;
 
-
-
 procedure TForm3.Timer3Timer(Sender: TObject);
 begin
 Application.Terminate;

diff --git a/Unit7.dfm b/Unit7.dfm
@@ -3,70 +3,70 @@ object Form7: TForm7
   Top = 0
   BorderIcons = [biSystemMenu, biMinimize]
   Caption = 'Cadac Update'
-  ClientHeight = 319
-  ClientWidth = 568
+  ClientHeight = 244
+  ClientWidth = 434
   Color = clBtnFace
-  Constraints.MaxHeight = 479
-  Constraints.MaxWidth = 769
-  Constraints.MinHeight = 364
-  Constraints.MinWidth = 586
+  Constraints.MaxHeight = 282
+  Constraints.MaxWidth = 450
+  Constraints.MinHeight = 280
+  Constraints.MinWidth = 450
   Font.Charset = DEFAULT_CHARSET
   Font.Color = clWindowText
-  Font.Height = -14
+  Font.Height = -11
   Font.Name = 'Tahoma'
   Font.Style = []
   OldCreateOrder = False
   OnClose = FormClose
   OnCreate = FormCreate
   OnShow = FormShow
-  PixelsPerInch = 120
-  TextHeight = 17
+  PixelsPerInch = 96
+  TextHeight = 13
   object Image1: TImage
-    Left = -30
-    Top = -31
-    Width = 659
-    Height = 387
+    Left = -23
+    Top = -24
+    Width = 504
+    Height = 296
     Center = True
     Enabled = False
     Stretch = True
   end
   object Label1: TLabel
-    Left = 73
-    Top = 187
-    Width = 4
-    Height = 18
+    Left = 56
+    Top = 143
+    Width = 3
+    Height = 13
     Font.Charset = DEFAULT_CHARSET
     Font.Color = clWindowText
-    Font.Height = -15
+    Font.Height = -11
     Font.Name = 'Tahoma'
     Font.Style = [fsBold]
     ParentFont = False
   end
   object Memo1: TMemo
-    Left = 73
-    Top = 31
-    Width = 389
-    Height = 148
+    Left = 56
+    Top = 24
+    Width = 297
+    Height = 113
     Lines.Strings = (
       'Memo1')
     ReadOnly = True
     TabOrder = 0
     WordWrap = False
   end
   object Button1: TButton
-    Left = 322
-    Top = 230
-    Width = 140
-    Height = 33
+    Left = 246
+    Top = 176
+    Width = 107
+    Height = 25
     Caption = 'Update Runterladen'
     TabOrder = 1
     OnClick = Button1Click
   end
   object Gauge1: TProgressBar
-    Left = 73
-    Top = 241
-    Width = 196
-    Height = 22
+    Left = 56
+    Top = 184
+    Width = 150
+    Height = 17
     TabOrder = 2
   end
 end