From a8a43f41c2a12ff4bb13a33b730edacd59fd21d5 Mon Sep 17 00:00:00 2001
From: graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>
Date: Wed, 25 Jul 2007 14:00:35 +0000
Subject: * Implemented and added a new unit that will handle command line
 parameters. * Implemented and added a new CheckBox widget. (needs testing
 under Windows). * Made some timer changes for Windows (needs testing). *
 Moved the global variable for the MainForm into the TfpgApplication class. I
 can almost remove the gui_form requirement from GFX.

---
 examples/gui/timertest/timertest.lpi | 8 +++-----
 examples/gui/timertest/timertest.lpr | 9 +++++++++
 2 files changed, 12 insertions(+), 5 deletions(-)

(limited to 'examples/gui/timertest')

diff --git a/examples/gui/timertest/timertest.lpi b/examples/gui/timertest/timertest.lpi
index a3a2caea..32287328 100644
--- a/examples/gui/timertest/timertest.lpi
+++ b/examples/gui/timertest/timertest.lpi
@@ -1,7 +1,7 @@
 <?xml version="1.0"?>
 <CONFIG>
   <ProjectOptions>
-    <PathDelim Value="\"/>
+    <PathDelim Value="/"/>
     <Version Value="5"/>
     <General>
       <Flags>
@@ -9,7 +9,7 @@
       </Flags>
       <SessionStorage Value="InProjectDir"/>
       <MainUnit Value="0"/>
-      <IconPath Value=".\"/>
+      <IconPath Value="./"/>
       <TargetFileExt Value=""/>
     </General>
     <VersionInfo>
@@ -17,14 +17,13 @@
     </VersionInfo>
     <PublishOptions>
       <Version Value="2"/>
-      <DestinationDirectory Value="$(TestDir)\publishedproject\"/>
       <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
       <ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
     </PublishOptions>
     <RunParams>
       <local>
         <FormatVersion Value="1"/>
-        <LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
+        <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
       </local>
     </RunParams>
     <RequiredPackages Count="1">
@@ -43,7 +42,6 @@
   </ProjectOptions>
   <CompilerOptions>
     <Version Value="5"/>
-    <PathDelim Value="\"/>
     <CodeGeneration>
       <Generate Value="Faster"/>
     </CodeGeneration>
diff --git a/examples/gui/timertest/timertest.lpr b/examples/gui/timertest/timertest.lpr
index 7c4209df..dab53ad2 100644
--- a/examples/gui/timertest/timertest.lpr
+++ b/examples/gui/timertest/timertest.lpr
@@ -28,6 +28,7 @@ type
     procedure   btnStopStartClick(Sender: TObject);
   public
     constructor Create(AOwner: TComponent); override;
+    destructor  Destroy; override;
   end;
 
 
@@ -107,6 +108,14 @@ begin
   timer3.Enabled  := True;
 end;
 
+destructor TMainForm.Destroy;
+begin
+  timer3.Free;
+  timer2.Free;
+  timer1.Free;
+  inherited Destroy;
+end;
+
 
 procedure MainProc;
 var
-- 
cgit v1.2.3-70-g09d2