Chip 2000 October/Chip_2000-10_cd1.bin/sharewar/Slunec/app/01/DreamCom.exe/0/RCDATA/TFMAIN/TFMAIN.txt

Text File | 2000-05-25 | 17KB | 549 lines

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 = {<image000.ico>}
    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