object Form1: TForm1 Left = 128 Top = 104 BorderIcons = [biSystemMenu, biMinimize] AutoScroll = False Caption = 'ComLog' ClientHeight = 422 ClientWidth = 588 Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Icon.Data = {} PopupMenu = PopupMenu1 Position = poScreenCenter OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object GroupBox1: TGroupBox Left = 13 Top = 8 Width = 417 Height = 409 Caption = 'ComTimer log' TabOrder = 0 object ListBox1: TListBox Left = 16 Top = 38 Width = 385 Height = 349 ItemHeight = 13 MultiSelect = True TabOrder = 0 TabWidth = 13 end object HeaderControl1: THeaderControl Left = 17 Top = 21 Width = 384 Height = 17 Align = alNone Enabled = False Sections = < item AllowClick = False Text = 'Date' Width = 96 end item AllowClick = False Text = 'Started at' Width = 95 end item AllowClick = False Text = 'Total time' Width = 97 end item Text = 'Charge' Width = 96 end> end end object BitBtn1: TBitBtn Left = 461 Top = 384 Width = 100 Height = 25 Caption = '&Close' ModalResult = 1 TabOrder = 1 OnClick = BitBtn1Click Glyph.Data = { F6010000424DF601000000000000760000002800000030000000100000000100 0400000000008001000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFF00FFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000000990000000000000000000 00000000000000000000FFFF08099990FFFFFFF09999990FFFFFFFFF09999990 FFFFFFFF08099990FFFFFFF09999990FFFFFFFFF09999990FFFFFFFF08099990 FFFFFFF09999990FFFFFFFFF09999990FFFFFFFF08099990FFFFFFF09999990F FFFFFFFF09999990FFFFFFFF0809B990FFFFFFF09999990FFFFFFFFF09999990 FFFFFFFF08099990FFFFFFF0B999990FFFFFFFFF0B999990FFFFFFFF08099990 FFFFFFF09999990FFFFFFFFF09999990FFFFFFFF08099990FFFFFFF09999990F FFFFFFFF09999990FFFFFFFF08099990FFFFFFF09999990FFFFFFFFF09999990 FFFFFFFF08880090FFFFFFF09999990FFFFFFFFF09999990FFFFFFFF00000000 FFFFFFF00000000FFFFFFFFF00000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF} NumGlyphs = 3 end object BitBtn2: TBitBtn Left = 461 Top = 344 Width = 100 Height = 25 Caption = 'Delete' TabOrder = 2 OnClick = BitBtn2Click Glyph.Data = { B6010000424DB601000000000000760000002800000019000000140000000100 0400000000004001000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF FFFFFFFFFFFFF0000000FFFFFFFFFFFFFFFFFFFFFFFFF0000000FFFFFFFFFF5F F8FFFFFFFFFFF0000000FFFFFFFFF555888FFFFFFFFFF0000000FFFFFFFF5555 5888FFFFFFFFF0000000FFFFFF55555555888FFFFFFFF0000000FFFFF5555555 555888FFFFFFF0000000FFFF555555555555888FFFFFF0000000FFF555555555 55555888FFFFF0000000FFFF55555555555333888FFFF0000000FFFFF5555555 5533333888FFF0000000FFFFFF55555553333333888FF0000000FFFFFFF55555 333333333888F0000000FFFFFFFF555333333333338880000000FFFFFFFFF533 33333333333880000000FFFFFFFFFF3333333333333380000000FFFFFFFFFFF3 33333333333330000000FFFFFFFFFFFF33333333333330000000FFFFFFFFFFFF F3333333333330000000FFFFFFFFFFFFFF333333333330000000} end object BitBtn3: TBitBtn Left = 461 Top = 304 Width = 100 Height = 25 TabOrder = 3 OnClick = BitBtn3Click Kind = bkHelp end object GroupBox2: TGroupBox Left = 445 Top = 8 Width = 129 Height = 73 Caption = 'Total time' TabOrder = 4 object Label1: TLabel Left = 32 Top = 30 Width = 32 Height = 13 Caption = 'Label1' end end object GroupBox3: TGroupBox Left = 445 Top = 88 Width = 129 Height = 73 Caption = 'Total cost' TabOrder = 5 object Label2: TLabel Left = 32 Top = 30 Width = 32 Height = 13 Caption = 'Label2' end end object BitBtn4: TBitBtn Left = 461 Top = 264 Width = 100 Height = 25 Caption = 'About' TabOrder = 6 OnClick = BitBtn4Click Glyph.Data = { 5A010000424D5A01000000000000760000002800000018000000130000000100 040000000000E400000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFCCCC CCCCCFFFFFFFFFFFFFCCCCBBBBBCCCCFFFFFFFFFFCCCCCBBBBBCCCCCFFFFFFFF FCCCCCBBBBBCCCCCFFFFFFFFCCCCCCBBBBBCCCCCCFFFFFFFCCCCCCBBBBBCCCCC CFFFFFFCCCCCCCBBBBBCCCCCCCFFFFFCCCCCCCBBBBBCCCCCCCFFFFFCCCCCCCBB BBBCCCCCCCFFFFFCCCCCCCBBBBBCCCCCCCFFFFFCCCCCCCBBBBBCCCCCCCFFFFFC CCCCCCCCCCCCCCCCCCFFFFFFCCCCCCCCCCCCCCCCCFFFFFFFCCCCCCBBBBBCCCCC CFFFFFFFFCCCCCBBBBBCCCCCFFFFFFFFFCCCCCBBBBBCCCCCFFFFFFFFFFCCCCBB BBBCCCCFFFFFFFFFFFFFCCCCCCCCCFFFFFFFFFFFFFFFFFCCCCCFFFFFFFFF} end object BitBtn5: TBitBtn Left = 461 Top = 224 Width = 100 Height = 25 Caption = 'Settings' TabOrder = 7 OnClick = BitBtn5Click Glyph.Data = { 5A010000424D5A01000000000000760000002800000018000000130000000100 040000000000E400000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FF3FFFFFFFFFFFFFFFFFFFFFFAA33FFFFFFFF33333FFFFFFAAAAA3FFFFFFFAAA A3FFFFFAAAAAAA33FFFFFAAAA3FFFFAAAAAAAAAA33333AAAA3FFFFAAAA33AAAA AAAAAAAAA3FFFFAAA3333AAAAAAAAAAAA3FFFFAAAA33AAAAAAAAAAAAA3FFFF3A AAAAAAAAAAAAAAAAA3FFFFF3AAAAAAAFFFFFFFFFFFFFFFFF33AAAAFFFFFFFFFF FFFFFFFFFA3AAFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF} end object Memo1: TMemo Left = 445 Top = 192 Width = 33 Height = 25 TabOrder = 8 Visible = False end object GroupBox4: TGroupBox Left = 445 Top = 168 Width = 129 Height = 49 Caption = 'Entries' TabOrder = 9 object Label3: TLabel Left = 32 Top = 20 Width = 3 Height = 13 end end object PopupMenu1: TPopupMenu Left = 437 Top = 224 object kopiera1: TMenuItem Caption = 'Copy all lines' ShortCut = 0 OnClick = kopiera1Click end object Kopiera2: TMenuItem Caption = 'Copy selected items' ShortCut = 16429 OnClick = Kopiera2Click end object N1: TMenuItem Caption = '-' ShortCut = 0 end object Calculate1: TMenuItem Caption = 'Calculate' ShortCut = 0 OnClick = Calculate1Click end object Adjustmonitoring1: TMenuItem Caption = 'Adjust monitoring' ShortCut = 0 OnClick = Adjustmonitoring1Click end object N2: TMenuItem Caption = '-' ShortCut = 0 end object InitAcc1: TMenuItem Caption = 'Initialize user accounts' ShortCut = 0 OnClick = InitAcc1Click end end end