diff --git a/README.md b/README.md new file mode 100644 index 0000000..98f996f --- /dev/null +++ b/README.md @@ -0,0 +1,5 @@ +SETIstats +========= + +Needs [CoolTrayIcon](http://subsimple.com/delphi.php) (tested with 4.3.1). + diff --git a/SETIstatsU.dfm b/SETIstatsU.dfm index 7149566..53e45b2 100644 --- a/SETIstatsU.dfm +++ b/SETIstatsU.dfm @@ -16,7 +16,6 @@ object MainForm: TMainForm Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False - Position = poDefaultPosOnly ShowHint = True OnClose = FormClose OnCreate = FormCreate @@ -58,7 +57,6 @@ object MainForm: TMainForm Height = 265 ActivePage = SkyMapSheet HotTrack = True - TabIndex = 2 TabOrder = 5 TabPosition = tpBottom object AnalSheet: TTabSheet @@ -198,7 +196,6 @@ object MainForm: TMainForm Top = 16 Width = 17 Height = 201 - Min = 0 Max = 10000 Orientation = pbVertical TabOrder = 0 @@ -502,12 +499,9 @@ object MainForm: TMainForm Height = 21 Associate = Refresh ArrowKeys = False - Min = 0 Max = 1000 - Position = 0 TabOrder = 1 Thousands = False - Wrap = False end object SETIsap: TEdit Left = 72 @@ -1067,7 +1061,6 @@ object MainForm: TMainForm Width = 705 Height = 12 Hint = 'prog [state.sah]' - Min = 0 Max = 10000 Smooth = True TabOrder = 9 @@ -1092,69 +1085,6 @@ object MainForm: TMainForm OnTimer = Timer2Timer Left = 32 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 Left = 96 object ShowHideItem: TMenuItem @@ -1170,4 +1100,38 @@ object MainForm: TMainForm OnClick = ExitItemClick 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 diff --git a/SETIstatsU.pas b/SETIstatsU.pas index 09b053d..69d78de 100644 --- a/SETIstatsU.pas +++ b/SETIstatsU.pas @@ -4,7 +4,7 @@ interface uses 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; type @@ -65,7 +65,6 @@ type Label11: TLabel; Label12: TLabel; PrefsSheet: TTabSheet; - TrayIcon: TTrayIcon; PopupMenu: TPopupMenu; ShowHideItem: TMenuItem; ExitItem: TMenuItem; @@ -115,6 +114,7 @@ type HistShow2: TRadioButton; HistShow3: TRadioButton; Crosses: TCheckBox; + TrayIcon: TCoolTrayIcon; procedure FormCreate(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure ShowemailClick(Sender: TObject); diff --git a/screenshots/SETIstats_ss1.png b/screenshots/SETIstats_ss1.png new file mode 100644 index 0000000..6b769f1 Binary files /dev/null and b/screenshots/SETIstats_ss1.png differ diff --git a/screenshots/SETIstats_ss2.png b/screenshots/SETIstats_ss2.png new file mode 100644 index 0000000..4de77c5 Binary files /dev/null and b/screenshots/SETIstats_ss2.png differ