diff options
author | Erich Eckner <git@eckner.net> | 2022-06-26 21:58:57 +0200 |
---|---|---|
committer | Erich Eckner <git@eckner.net> | 2022-06-26 22:25:31 +0200 |
commit | c58cd390dac8bfa93ca6966885ea19a45569a781 (patch) | |
tree | 3d8fbbb7850b490c21cb5b52a0b3500da533b519 /unit1.pas | |
parent | 7b9b1e734dec573f565c65881b4f9b0d0d6797e1 (diff) | |
download | FH-Wetter-c58cd390dac8bfa93ca6966885ea19a45569a781.tar.xz |
some statistics commands
Diffstat (limited to 'unit1.pas')
-rw-r--r-- | unit1.pas | 6 |
1 files changed, 6 insertions, 0 deletions
@@ -23,6 +23,7 @@ type procedure FormDestroy(Sender: TObject); procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure FormShow(Sender: TObject); + procedure Image1DblClick(Sender: TObject); procedure TrayIcon1Click(Sender: TObject); procedure TrayIcon1DblClick(Sender: TObject); procedure TrayIcon1MouseDown(Sender: TObject; Button: TMouseButton; @@ -207,6 +208,11 @@ begin form1.left:=screen.monitors[0].left+screen.monitors[0].width -form1.width; end; +procedure TForm1.Image1DblClick(Sender: TObject); +begin + writeln(wetter.statistics); +end; + procedure TForm1.TrayIcon1Click(Sender: TObject); begin form1.visible:=not form1.visible; |