object fmain: Tfmain Left = 368 Top = 106 ActiveControl = RxDBLookupCombo1 BorderIcons = [biSystemMenu, biMinimize] BorderStyle = bsSingle Caption = 'Kubik SMS DreamCom 1.21b' ClientHeight = 194 ClientWidth = 459 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False OnClose = FormClose OnCreate = FormCreate OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object StatusBar1: TStatusBar Left = 0 Top = 175 Width = 459 Height = 19 Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Panels = < item Width = 250 end item Width = 70 end item Width = 70 end item Width = 70 end> SimplePanel = False SizeGrip = False UseSystemFont = False end object ToolBar2: TToolBar Left = 0 Top = 0 Width = 459 Height = 33 ButtonHeight = 23 ButtonWidth = 25 Caption = 'ToolBar2' EdgeBorders = [ebTop, ebBottom] ParentShowHint = False ShowHint = True TabOrder = 1 Wrapable = False object SpeedButton1: TSpeedButton Left = 0 Top = 2 Width = 23 Height = 23 Hint = 'Nastaven�' Flat = True Glyph.Data = { 7E010000424D7E01000000000000760000002800000016000000160000000100 0400000000000801000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333003333333333333333333333003333333333333333333333003333 33333333333333333300333333333333818333333300333333333333118F8333 3300333333333338113F83333300333333333331183F83333300333333333381 133F83333300333333333311833F83333300333333333811333F833333003333 8083311833224233330033387F0381133332433333003330F7081183330A4033 3300333800000133330A40333300333338000888330A40333300333333800080 330A40333300333333380003330A403333003333333333333330033333003333 3333333333333333330033333333333333333333330033333333333333333333 3300} OnClick = SpeedButton1Click end object SpeedButton2: TSpeedButton Left = 23 Top = 2 Width = 23 Height = 23 Hint = 'Adres��' Flat = True Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 0400000000000001000000000000000000001000000010000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555 55555555FFFFFFFF5555555000000005555555577777777FF555550999999900 55555575555555775F55509999999901055557F55555557F75F5001111111101 105577FFFFFFFF7FF75F00000000000011057777777777775F755070FFFFFF0F 01105777F555557F75F75500FFFFFF0FF0105577F555FF7F57575550FF700008 8F0055575FF7777555775555000888888F005555777FFFFFFF77555550000000 0F055555577777777F7F555550FFFFFF0F05555557F5FFF57F7F555550F000FF 0005555557F777557775555550FFFFFF0555555557F555FF7F55555550FF7000 05555555575FF777755555555500055555555555557775555555} NumGlyphs = 2 OnClick = SpeedButton2Click end object SpeedButton5: TSpeedButton Left = 46 Top = 2 Width = 23 Height = 23 Hint = 'Oper�to�i' Flat = True Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 040000000000800000000000000000000000100000001000000088595B00C2AF C50092808E00808CAC0066698100C76D6A00FBFDFC00C09DB100CF8689009BB5 DD00B0C8EF00ECCECC00E0999600B5727F008B676D0090A0C300666666666666 66666666600E000D666666620000005056666620000E505555666600000E2555 555664000003395C5556600E2EEFF9F7D555640E200F999585556000E0E3F9AC BC556000442F99A66C556000043F9AA668166D00443F991A779666000433FC91 A99666600422F7919966666600EF999F9666666666E0F7666666} OnClick = SpeedButton5Click end object SpeedButton3: TSpeedButton Left = 69 Top = 2 Width = 23 Height = 23 Hint = 'Fronta' Flat = True Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 0400000000000001000000000000000000001000000010000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000 0000377777777777777703030303030303037F7F7F7F7F7F7F7F000000000000 00007777777777777777933393303933337073F37F37F73F3377393393303393 379037FF7F37F37FF777379793303379793037777337F3777737339933303339 93303377F3F7F3F77F3733993930393993303377F737F7377FF7399993303399 999037777337F377777793993330333393307377FF37F3337FF7333993303333 993033377F37F33377F7333993303333993033377337F3337737333333303333 33303FFFFFF7FFFFFFF700000000000000007777777777777777030303030303 03037F7F7F7F7F7F7F7F00000000000000007777777777777777} NumGlyphs = 2 OnClick = SpeedButton3Click end object SpeedButton4: TSpeedButton Left = 92 Top = 2 Width = 23 Height = 23 Hint = 'Historie' Flat = True Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 0400000000000001000000000000000000001000000010000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555000000 000055555F77777777775555000FFFFFFFF0555F777F5FFFF55755000F0F0000 FFF05F777F7F77775557000F0F0FFFFFFFF0777F7F7F5FFFFFF70F0F0F0F0000 00F07F7F7F7F777777570F0F0F0FFFFFFFF07F7F7F7F5FFFFFF70F0F0F0F0000 00F07F7F7F7F777777570F0F0F0FFFFFFFF07F7F7F7F5FFF55570F0F0F0F000F FFF07F7F7F7F77755FF70F0F0F0FFFFF00007F7F7F7F5FF577770F0F0F0F00FF 0F057F7F7F7F77557F750F0F0F0FFFFF00557F7F7F7FFFFF77550F0F0F000000 05557F7F7F77777775550F0F0000000555557F7F7777777555550F0000000555 55557F7777777555555500000005555555557777777555555555} NumGlyphs = 2 OnClick = SpeedButton4Click end object ToolButton8: TToolButton Left = 115 Top = 2 Width = 8 Caption = 'ToolButton3' ImageIndex = 2 Style = tbsSeparator end object SpeedButton6: TSpeedButton Left = 123 Top = 2 Width = 23 Height = 23 Hint = 'About' Flat = True Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 0400000000000001000000000000000000001000000010000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333FFFFF3333333333F797F3333333333F737373FF333333BFB999BFB 33333337737773773F3333BFBF797FBFB33333733337333373F33BFBFBFBFBFB FB3337F33333F33337F33FBFBFB9BFBFBF3337333337F333373FFBFBFBF97BFB FBF37F333337FF33337FBFBFBFB99FBFBFB37F3333377FF3337FFBFBFBFB99FB FBF37F33333377FF337FBFBF77BF799FBFB37F333FF3377F337FFBFB99FB799B FBF373F377F3377F33733FBF997F799FBF3337F377FFF77337F33BFBF99999FB FB33373F37777733373333BFBF999FBFB3333373FF77733F7333333BFBFBFBFB 3333333773FFFF77333333333FBFBF3333333333377777333333} NumGlyphs = 2 OnClick = SpeedButton6Click end object SpeedButton7: TSpeedButton Left = 146 Top = 2 Width = 23 Height = 23 Hint = 'Po�li upozorn�n� o doru�en� (jen Paegas)' AllowAllUp = True GroupIndex = 2 Down = True Flat = True Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 0400000000000001000000000000000000001000000010000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000 0000377777777777777707FFFFFFFFFFFF70773FF33333333F770F77FFFFFFFF 77F07F773FFFFFFF77F70FFF7700000000007F337777777777770FFFFF0FFFFF FFF07F333F7F3FFFF3370FFF700F0000FFF07F3F777F777733370F707F0FFFFF FFF07F77337F3FFFFFF7007EEE0F000000F077FFFF7F777777370777770FFFFF FFF07777777F3FFFFFF7307EEE0F000000F03773FF7F7777773733707F0FFFFF FFF03337737F3FFF33373333700F000FFFF03333377F77733FF73333330FFFFF 00003333337F3FF377773333330F00FF0F033333337F77337F733333330FFFFF 00333333337FFFFF773333333300000003333333337777777333} NumGlyphs = 2 end object ToolButton1: TToolButton Left = 169 Top = 2 Width = 8 Caption = 'ToolButton1' ImageIndex = 3 Style = tbsSeparator end object SpeedButton34: TSpeedButton Left = 177 Top = 2 Width = 25 Height = 23 Hint = 'Exit' Flat = True Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 0400000000000001000000000000000000001000000010000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000 03333377777777777F333301BBBBBBBB033333773F3333337F3333011BBBBBBB 0333337F73F333337F33330111BBBBBB0333337F373F33337F333301110BBBBB 0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB 0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB 0333337F337F33337F333301110BBBBB0333337F337FF3337F33330111B0BBBB 0333337F337733337F333301110BBBBB0333337F337F33337F333301110BBBBB 0333337F3F7F33337F333301E10BBBBB0333337F7F7F33337F333301EE0BBBBB 0333337F777FFFFF7F3333000000000003333377777777777333} NumGlyphs = 2 OnClick = SpeedButton34Click end end object Button1: TButton Left = 132 Top = 40 Width = 53 Height = 21 Action = Action1 ParentShowHint = False ShowHint = True TabOrder = 2 end object Button2: TButton Left = 248 Top = 40 Width = 49 Height = 21 Hint = 'P�idat do fronty, jsem offline' Caption = 'Offline' ParentShowHint = False ShowHint = True TabOrder = 3 OnClick = Button2Click end object Panel1: TPanel Left = 0 Top = 69 Width = 459 Height = 106 Align = alBottom Caption = 'Panel1' TabOrder = 4 object Gauge1: TGauge Left = 437 Top = 1 Width = 21 Height = 104 Align = alRight BackColor = clPurple Color = clBtnFace ForeColor = clLime Kind = gkVerticalBar ParentColor = False Progress = 0 ShowText = False end object Memo1: TDBMemo Left = 1 Top = 1 Width = 436 Height = 104 Align = alClient DataField = 'Zprava' DataSource = DSHistorie TabOrder = 0 OnChange = Memo1Change end end object RxDBLookupCombo1: TRxDBLookupCombo Left = 4 Top = 40 Width = 121 Height = 21 DropDownCount = 8 DataField = 'Jmeno' DataSource = DSHistorie LookupField = 'Jmeno' LookupDisplay = 'Jmeno' LookupSource = DSAdresar TabOrder = 5 OnChange = RxDBLookupCombo1Change OnKeyPress = RxDBLookupCombo1KeyPress end object ProgressBar1: TProgressBar Left = 308 Top = 46 Width = 126 Height = 9 Anchors = [akLeft, akTop, akRight] Min = 0 Max = 100 TabOrder = 6 end object Button3: TButton Left = 192 Top = 40 Width = 49 Height = 21 Hint = 'Odeslat v ur�it� �as' Caption = 'Pozd�ji' ParentShowHint = False ShowHint = True TabOrder = 7 OnClick = Button3Click end object Operatori: TMiniTable ReadOnly = False About = 'V4.0' Left = 296 Top = 4 end object Adresar: TMiniTable ReadOnly = False About = 'V4.0' Left = 372 Top = 4 object AdresarJmeno: TStringField DisplayWidth = 30 FieldName = 'Jmeno' Required = True Size = 150 end object AdresarOperator: TStringField DisplayWidth = 20 FieldName = 'Operator' LookupDataSet = Operatori LookupKeyFields = 'Nazev' LookupResultField = 'Nazev' KeyFields = 'Operator' Required = True Size = 50 end object Adresarcislo: TStringField DisplayWidth = 18 FieldName = 'cislo' Size = 50 end object AdresarPredcisli: TStringField FieldKind = fkLookup FieldName = 'Predcisli' LookupDataSet = Operatori LookupKeyFields = 'Nazev' LookupResultField = 'Predcisli' KeyFields = 'Operator' Lookup = True end object AdresarZacisli: TStringField FieldKind = fkLookup FieldName = 'Zacisli' LookupDataSet = Operatori LookupKeyFields = 'Nazev' LookupResultField = 'Zacisli' KeyFields = 'Operator' Lookup = True end object AdresarDelka: TIntegerField FieldKind = fkLookup FieldName = 'Delka' LookupDataSet = Operatori LookupKeyFields = 'Nazev' LookupResultField = 'Delka' KeyFields = 'Operator' Lookup = True end end object NMSMTP1: TNMSMTP Port = 25 ReportLevel = 0 OnDisconnect = NMSMTP1Disconnect OnConnect = NMSMTP1Connect OnInvalidHost = NMSMTP1InvalidHost OnConnectionFailed = NMSMTP1ConnectionFailed OnPacketSent = NMSMTP1PacketSent OnConnectionRequired = NMSMTP1ConnectionRequired EncodeType = uuMime ClearParams = False SubType = mtPlain OnRecipientNotFound = NMSMTP1RecipientNotFound OnSendStart = NMSMTP1SendStart OnSuccess = NMSMTP1Success OnFailure = NMSMTP1Failure Left = 232 end object DSAdresar: TDataSource DataSet = Adresar Left = 344 Top = 4 end object DSOperatori: TDataSource DataSet = Operatori Left = 268 Top = 4 end object Fronta: TMiniTable ReadOnly = False About = 'V4.0' Left = 432 Top = 4 object FrontaJmeno: TStringField FieldName = 'Jmeno' Required = True Size = 150 end object FrontaZprava: TMemoField FieldName = 'Zprava' BlobType = ftMemo end object FrontaNapsano: TDateTimeField FieldName = 'Napsano' end object FrontaPoslat: TDateTimeField DefaultExpression = '1.1.2000' FieldName = 'Poslat' end end object DSfronta: TDataSource DataSet = Fronta Left = 404 Top = 4 end object Historie: TMiniTable ReadOnly = False About = 'V4.0' Left = 496 Top = 4 object HistorieJmeno: TStringField FieldName = 'Jmeno' Size = 150 end object HistorieZprava: TMemoField FieldName = 'Zprava' BlobType = ftMemo end object HistorieNapsano: TDateTimeField FieldName = 'Napsano' end object HistoriePoslat: TDateTimeField FieldName = 'Poslat' end end object DSHistorie: TDataSource DataSet = Historie Left = 468 Top = 4 end object FormStorage1: TFormStorage IniFileName = 'DreamCom' Options = [fpPosition] StoredProps.Strings = ( 'SpeedButton7.Down') StoredValues = <> Left = 200 Top = 2 end object Timer1: TTimer OnTimer = Timer1Timer Left = 424 Top = 40 end object TrayIcon1: TCoolTrayIcon IconList = fSetup.ImageList1 CycleInterval = 0 Hint = 'SMS DreamCom' ShowHint = True Icon.Data = {} IconVisible = False IconIndex = 0 PopupMenu = PopupMenu1 Left = 392 Top = 40 end object PopupMenu1: TPopupMenu Left = 340 Top = 36 object ShowWindow1: TMenuItem Caption = '&Zobraz okno' Default = True OnClick = ShowWindow1Click end object HideWindow1: TMenuItem Caption = '&Skryj okno' OnClick = HideWindow1Click end object N1: TMenuItem Caption = '-' end object Exit1: TMenuItem Caption = '&Konec' OnClick = Exit1Click end end object ActionList1: TActionList Left = 300 Top = 36 object Action1: TAction Caption = 'Hned' ShortCut = 16467 OnExecute = Button1Click end end end