diff options
author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-07-25 14:00:35 +0000 |
---|---|---|
committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-07-25 14:00:35 +0000 |
commit | a8a43f41c2a12ff4bb13a33b730edacd59fd21d5 (patch) | |
tree | 854997db2b923a055db0368347ea88fe883b1f39 /examples/gui/timertest/timertest.lpr | |
parent | fca7347de9404de1f2940d58dae9bdda6ed52caf (diff) | |
download | fpGUI-a8a43f41c2a12ff4bb13a33b730edacd59fd21d5.tar.xz |
* 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.
Diffstat (limited to 'examples/gui/timertest/timertest.lpr')
-rw-r--r-- | examples/gui/timertest/timertest.lpr | 9 |
1 files changed, 9 insertions, 0 deletions
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 |