mbirth/delphi-setistats
Archived
1
0
Fork 0
Code Releases 1 Activity

Use CoolTrayIcon 4.3.1. Also added screenshots.

Browse Source
This commit is contained in:
Markus Birth 2005-03-23 20:04:22 +01:00
parent b266dea53f
commit eddc10114e
5 changed files with 41 additions and 72 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
README.md Normal file
View File

@ -0,0 +1,5 @@
SETIstats
=========
Needs [CoolTrayIcon](http://subsimple.com/delphi.php) (tested with 4.3.1).

104
SETIstatsU.dfm
View File

@ -16,7 +16,6 @@ object MainForm: TMainForm
Font.Name = 'MS Sans Serif' Font.Name = 'MS Sans Serif'
Font.Style = [] Font.Style = []
OldCreateOrder = False OldCreateOrder = False
Position = poDefaultPosOnly
ShowHint = True ShowHint = True
OnClose = FormClose OnClose = FormClose
OnCreate = FormCreate OnCreate = FormCreate
@ -58,7 +57,6 @@ object MainForm: TMainForm
Height = 265 Height = 265
ActivePage = SkyMapSheet ActivePage = SkyMapSheet
HotTrack = True HotTrack = True
TabIndex = 2
TabOrder = 5 TabOrder = 5
TabPosition = tpBottom TabPosition = tpBottom
object AnalSheet: TTabSheet object AnalSheet: TTabSheet
@ -198,7 +196,6 @@ object MainForm: TMainForm
Top = 16 Top = 16
Width = 17 Width = 17
Height = 201 Height = 201
Min = 0
Max = 10000 Max = 10000
Orientation = pbVertical Orientation = pbVertical
TabOrder = 0 TabOrder = 0
@ -502,12 +499,9 @@ object MainForm: TMainForm
Height = 21 Height = 21
Associate = Refresh Associate = Refresh
ArrowKeys = False ArrowKeys = False
Min = 0
Max = 1000 Max = 1000
Position = 0
TabOrder = 1 TabOrder = 1
Thousands = False Thousands = False
Wrap = False
end end
object SETIsap: TEdit object SETIsap: TEdit
Left = 72 Left = 72
@ -1067,7 +1061,6 @@ object MainForm: TMainForm
Width = 705 Width = 705
Height = 12 Height = 12
Hint = 'prog [state.sah]' Hint = 'prog [state.sah]'
Min = 0
Max = 10000 Max = 10000
Smooth = True Smooth = True
TabOrder = 9 TabOrder = 9
@ -1092,69 +1085,6 @@ object MainForm: TMainForm
OnTimer = Timer2Timer OnTimer = Timer2Timer
Left = 32 Left = 32
end end
object TrayIcon: TTrayIcon
Active = True
ShowDesigning = False
Icon.Data = {
0000010002001010100000000000280100002600000010100000010008006805
00004E0100002800000010000000200000000100040000000000C00000000000
0000000000001000000010000000000000000000800000800000008080008000
00008000800080800000C0C0C000808080000000FF0000FF000000FFFF00FF00
0000FF00FF00FFFF0000FFFFFF00000000000000000000000A00A00A00000000
00AA0AA000000000002AAA200000000000022200000000000002020000000000
00022200000000000222222200000000222222222000000A2A2A2A2A2A00000B
BBBBBBBBBB0000000A00B00A0000000000A0B0A000000000000BBB0000000000
0000B00000000000000000000000E0030000F0070000F80F0000F0070000F80F
0000FC1F0000F80F0000F0070000E0030000C0010000C0010000C0010000F80F
0000FC1F0000FE3F0000FF7F0000280000001000000020000000010008000000
0000400100000000000000000000000000000000000000000000800080008000
000080800000008000000080800000008000C0C0C000C0DCC000F0CAA6008080
8000FF00FF00FF000000FFFF000000FF000000FFFF000000FF00FFFFFF00F0FB
FF00A4A0A00000003E0000005D0000007C0000009B000000BA000000D9000000
F0002424FF004848FF006C6CFF009090FF00B4B4FF0000143E00001E5D000028
7C0000329B00003CBA000046D9000055F000246DFF004885FF006C9DFF0090B5
FF00B4CDFF00002A3E00003F5D0000547C0000699B00007EBA000093D90000AA
F00024B6FF0048C2FF006CCEFF0090DAFF00B4E6FF00003E3E00005D5D00007C
7C00009B9B0000BABA0000D9D90000F0F00024FFFF0048FFFF006CFFFF0090FF
FF00B4FFFF00003E2A00005D3F00007C5400009B690000BA7E0000D9930000F0
AA0024FFB60048FFC2006CFFCE0090FFDA00B4FFE600003E1400005D1E00007C
2800009B320000BA3C0000D9460000F0550024FF6D0048FF85006CFF9D0090FF
B500B4FFCD00003E0000005D0000007C0000009B000000BA000000D9000000F0
000024FF240048FF48006CFF6C0090FF9000B4FFB400143E00001E5D0000287C
0000329B00003CBA000046D9000055F000006DFF240085FF48009DFF6C00B5FF
9000CDFFB4002A3E00003F5D0000547C0000699B00007EBA000093D90000AAF0
0000B6FF2400C2FF4800CEFF6C00DAFF9000E6FFB4003E3E00005D5D00007C7C
00009B9B0000BABA0000D9D90000F0F00000FFFF2400FFFF4800FFFF6C00FFFF
9000FFFFB4003E2A00005D3F00007C5400009B690000BA7E0000D9930000F0AA
0000FFB62400FFC24800FFCE6C00FFDA9000FFE6B4003E1400005D1E00007C28
00009B320000BA3C0000D9460000F0550000FF6D2400FF854800FF9D6C00FFB5
9000FFCDB4003E0000005D0000007C0000009B000000BA000000D9000000F000
0000FF242400FF484800FF6C6C00FF909000FFB4B4003E0014005D001E007C00
28009B003200BA003C00D9004600F0005500FF246D00FF488500FF6C9D00FF90
B500FFB4CD003E002A005D003F007C0054009B006900BA007E00D9009300F000
AA00FF24B600FF48C200FF6CCE00FF90DA00FFB4E6003E003E005D005D007C00
7C009B009B00BA00BA00D900D900F000F000FF24FF00FF48FF00FF6CFF00FF90
FF00FFB4FF002A003E003F005D0054007C0069009B007E00BA009300D900AA00
F000B624FF00C248FF00CE6CFF00DA90FF00E6B4FF0014003E001E005D002800
7C0032009B003C00BA004600D9005500F0006D24FF008548FF009D6CFF00B590
FF00CDB4FF0006060600121212001F1F1F002C2C2C0039393900454545005252
52005F5F5F006C6C6C007878780085858500929292009F9F9F00ABABAB00B8B8
B800C5C5C500D2D2D200DEDEDE00EBEBEB00F8F8F8000000ECECECECECECECEC
ECECECECECEC0000ECECEC90ECEC8EECEC90ECECECEC0000ECECECEC908EEC8E
90ECECECECEC0000ECECECEC8E9090908EECECECECEC0000ECECECECEC8E8E8E
ECECECECECEC0000ECECECECEC8CEC8CECECECECECEC0000ECECECECEC8C8C8C
ECECECECECEC0000ECECEC8C8F8E8E8E8F8CECECECEC0000ECEC8E908F8F8F8F
8F908EECECEC0000EC8C9092909290929092908CECEC0000EC95959595959595
95959595ECEC0000ECECEC92ECEC95ECEC92ECECECEC0000ECECECEC92EC95EC
92ECECECECEC0000ECECECECEC959595ECECECECECEC0000ECECECECECEC95EC
ECECECECECEC0000ECECECECECECECECECECECECECECE003E2E2F007E2E2F80F
E249F00749E2F80F5449FC1FE2E2F80FE2E2F007E2E2E003E2E2C001E2E2C001
E2E2C001E2E2F80F49E2FC1FE2E2FE3FE2E2FF7FE2E2}
ToolTip = 'SETI@home Statistics'
OnClick = ShowHideItemClick
PopupMenu = PopupMenu
Left = 64
end
object PopupMenu: TPopupMenu object PopupMenu: TPopupMenu
Left = 96 Left = 96
object ShowHideItem: TMenuItem object ShowHideItem: TMenuItem
@ -1170,4 +1100,38 @@ object MainForm: TMainForm
OnClick = ExitItemClick OnClick = ExitItemClick
end end
end end
object TrayIcon: TCoolTrayIcon
CycleInterval = 0
Icon.Data = {
0000010001002020040000000000E80200001600000028000000200000004000
0000010004000000000000020000000000000000000000000000000000000000
000000008000008000000080800080000000800080008080000080808000C0C0
C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000006444
4444444444444444444444444400666666666666666666666666666666007FFF
FFFFFFFFFFFFFFFFFFFFFFFFF7006FFFFFFFFFFFFFFFFFFFFFFFFFFFF7006FFF
FFFFFFFFFFFFFFFFFFFFFFFFF7006FFFFFFFFFFFFFFFFFFFFFFFFFFFF7006FFF
FFFFFFFFFFFFFFFFFFFFFFFFF7006FFFFFFFFFFFFFFFFFFFFFFFFFFFF7006FFF
FFFFFFFFFFFFFFFFFFFFFFFFF7006FFFFFFFFFFFFFFFFFFFFFFFFFFFF7006FFF
FFFFFFFFFFFFFFFFFFFFFFFFF7006FFFFFFFFFFFFFFFFFFFFFFFFFFFF7006FFF
FFFFFFFFFFFFFFFFFFFFFFFFF7006FFFFFFFFFFFFFFFFFFFFFFFFFFFF7006FFF
FFFFFFFFFFFFFFFFFFFFFFFFF8006FFFFFFFFFFFFFFFFFFFFFFFFFFFF8006FFF
FFFFFFFFFFFFFFFFFFFFFFFFF8006FFFFFFFFFFFFFFFFFFFFFFFFFFFF8006FFF
FFFFFFFFFFFFFFFFFFFFFFFFF8006FFFFFFFFFFFFFFFFFFFFFFFFFFFF8006888
8888888888888888888888888600666666666666666666666664666666006666
666666666666666666867E697600668EEEEEEEEEEEEEEEE66EE6EE6766006666
6666666666666666666666666600000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000000000FFFF
FFFFFFFFFFFF8000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000001FFFFFFFFFFFFFFFFFFFFFFFF}
IconVisible = True
IconIndex = 0
PopupMenu = PopupMenu
OnClick = ShowHideItemClick
Left = 144
Top = 65200
end
end end

4
SETIstatsU.pas
View File

@ -4,7 +4,7 @@ interface
uses uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IniFiles, ComCtrls, ExtCtrls, DateUtils, TrayIcon, Dialogs, StdCtrls, IniFiles, ComCtrls, ExtCtrls, DateUtils, CoolTrayIcon,
Menus, Math, jpeg; Menus, Math, jpeg;
type type
@ -65,7 +65,6 @@ type
Label11: TLabel; Label11: TLabel;
Label12: TLabel; Label12: TLabel;
PrefsSheet: TTabSheet; PrefsSheet: TTabSheet;
TrayIcon: TTrayIcon;
PopupMenu: TPopupMenu; PopupMenu: TPopupMenu;
ShowHideItem: TMenuItem; ShowHideItem: TMenuItem;
ExitItem: TMenuItem; ExitItem: TMenuItem;
@ -115,6 +114,7 @@ type
HistShow2: TRadioButton; HistShow2: TRadioButton;
HistShow3: TRadioButton; HistShow3: TRadioButton;
Crosses: TCheckBox; Crosses: TCheckBox;
TrayIcon: TCoolTrayIcon;
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure ShowemailClick(Sender: TObject); procedure ShowemailClick(Sender: TObject);

BIN
screenshots/SETIstats_ss1.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 26 KiB

BIN
screenshots/SETIstats_ss2.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 42 KiB