Subversion Repositories delphiutils

Rev

Rev 75 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 75 Rev 76
Line 43... Line 43...
43 
    ToolButton9: TToolButton;
 43 
    ToolButton9: TToolButton;
44 
    ToolButton8: TToolButton;
 44 
    ToolButton8: TToolButton;
45 
    ToolButton10: TToolButton;
 45 
    ToolButton10: TToolButton;
46 
    ToolButton11: TToolButton;
 46 
    ToolButton11: TToolButton;
47 
    ImageList1: TImageList;
 47 
    ImageList1: TImageList;
- 
 
 48 
    Einstellungen1: TMenuItem;
- 
 
 49 
    NureineUhrgleichzeitig1: TMenuItem;
- 
 
 50 
    AlleUhrenstoppen1: TMenuItem;
- 
 
 51 
    N2: TMenuItem;
48 
    procedure FileNew1Execute(Sender: TObject);
 52 
    procedure FileNew1Execute(Sender: TObject);
49 
    procedure FileOpen1Execute(Sender: TObject);
 53 
    procedure FileOpen1Execute(Sender: TObject);
50 
    procedure HelpAbout1Execute(Sender: TObject);
 54 
    procedure HelpAbout1Execute(Sender: TObject);
51 
    procedure FileExit1Execute(Sender: TObject);
 55 
    procedure FileExit1Execute(Sender: TObject);
52 
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
 56 
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
- 
 
 57 
    procedure NureineUhrgleichzeitig1Click(Sender: TObject);
- 
 
 58 
    procedure FormShow(Sender: TObject);
- 
 
 59 
    procedure AlleUhrenstoppen1Click(Sender: TObject);
53 
  private
 60 
  private
54 
    { Private-Deklarationen }
 - 
 
55 
    procedure CreateMDIChild(const Name: string);
 61 
    procedure CreateMDIChild(const Name: string);
56 
  public
 62 
  public
57 
    { Public-Deklarationen }
 63 
    procedure StopAllTimers;
58 
  end;
 64 
  end;
59 
 
 65 
 
60 
var
 66 
var
61 
  MainForm: TMainForm;
 67 
  MainForm: TMainForm;
62 
 
 68 
 
63 
implementation
 69 
implementation
64 
 
 70 
 
65 
{$R *.dfm}
 71 
{$R *.dfm}
66 
 
 72 
 
67 
uses CHILDWIN, about;
 73 
uses CHILDWIN, about, IniFiles;
68 
 
 74 
 
69 
var
 75 
var
70 
  StopUhrCount: integer = 1;
 76 
  StopUhrCount: integer = 1;
71 
 
 77 
 
- 
 
 78 
procedure TMainForm.AlleUhrenstoppen1Click(Sender: TObject);
- 
 
 79 
begin
- 
 
 80 
  StopAllTimers;
- 
 
 81 
end;
- 
 
 82 
 
72 
procedure TMainForm.CreateMDIChild(const Name: string);
 83 
procedure TMainForm.CreateMDIChild(const Name: string);
73 
var
 84 
var
74 
  Child: TMDIChild;
 85 
  Child: TMDIChild;
75 
begin
 86 
begin
76 
  Child := TMDIChild.Create(Application);
 87 
  Child := TMDIChild.Create(Application);
Line 94... Line 105...
94 
begin
 105 
begin
95 
  // Brauchen wir nicht, da die einzelnen MDI-Fenster ja schon meckern
 106 
  // Brauchen wir nicht, da die einzelnen MDI-Fenster ja schon meckern
96 
  //CanClose := MessageDlg('Programm wirklich beenden?', mtConfirmation, mbYesNoCancel, 0) = mrYes;
 107 
  //CanClose := MessageDlg('Programm wirklich beenden?', mtConfirmation, mbYesNoCancel, 0) = mrYes;
97 
end;
 108 
end;
98 
 
 109 
 
- 
 
 110 
procedure TMainForm.FormShow(Sender: TObject);
- 
 
 111 
var
- 
 
 112 
  x: TMemIniFile;
- 
 
 113 
begin
- 
 
 114 
  x := TMemIniFile.Create('Settings.ini');
- 
 
 115 
  try
- 
 
 116 
    NureineUhrgleichzeitig1.Checked := x.ReadBool('Settings', 'SingleClockMode', false);
- 
 
 117 
  finally
- 
 
 118 
    FreeAndNil(x);
- 
 
 119 
  end;
- 
 
 120 
end;
- 
 
 121 
 
99 
procedure TMainForm.HelpAbout1Execute(Sender: TObject);
 122 
procedure TMainForm.HelpAbout1Execute(Sender: TObject);
100 
begin
 123 
begin
101 
  AboutBox.ShowModal;
 124 
  AboutBox.ShowModal;
102 
end;
 125 
end;
103 
 
 126 
 
- 
 
 127 
procedure TMainForm.NureineUhrgleichzeitig1Click(Sender: TObject);
- 
 
 128 
var
- 
 
 129 
  x: TMemIniFile;
- 
 
 130 
begin
- 
 
 131 
  x := TMemIniFile.Create('Settings.ini');
- 
 
 132 
  try
- 
 
 133 
    x.WriteBool('Settings', 'SingleClockMode', NureineUhrgleichzeitig1.Checked);
- 
 
 134 
    x.UpdateFile;
- 
 
 135 
  finally
- 
 
 136 
    FreeAndNil(x);
- 
 
 137 
  end;
- 
 
 138 
end;
- 
 
 139 
 
- 
 
 140 
procedure TMainForm.StopAllTimers;
- 
 
 141 
var
- 
 
 142 
  i: integer;
- 
 
 143 
begin
- 
 
 144 
  for i := 0 to MDIChildCount - 1 do
- 
 
 145 
  begin
- 
 
 146 
    TMdiChild(MDIChildren[i]).StopTimer;
- 
 
 147 
  end;
- 
 
 148 
end;
- 
 
 149 
 
104 
procedure TMainForm.FileExit1Execute(Sender: TObject);
 150 
procedure TMainForm.FileExit1Execute(Sender: TObject);
105 
begin
 151 
begin
106 
  Close;
 152 
  Close;
107 
end;
 153 
end;
108 
 
 154