PC World 2001 September/PCWorld_2001-09_cd.bin/Software/Vyzkuste/flashmsg/FlashMsg.exe/0/RCDATA/TWIN/TWIN.txt

Text File | 2000-11-18 | 20KB | 634 lines

object Win: TWin
  Left = 629
  Top = 277
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'PanuWorld FLASHMSG'
  ClientHeight = 377
  ClientWidth = 481
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  Position = poDefaultPosOnly
  ShowHint = True
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Image2: TImage
    Left = 0
    Top = 0
    Width = 481
    Height = 377
    Picture.Data = {<image000.bmp>}
    Stretch = True
  end
  object Image1: TImage
    Left = 0
    Top = 48
    Width = 80
    Height = 303
    AutoSize = True
    Picture.Data = {<image001.bmp>}
  end
  object Label9: TLabel
    Left = 16
    Top = 8
    Width = 49
    Height = 13
    Caption = 'COM &Port:'
    FocusControl = ComPort
    Transparent = True
  end
  object Label8: TLabel
    Left = 175
    Top = 8
    Width = 211
    Height = 42
    Caption = 'FLASHMSG'
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -37
    Font.Name = 'Times New Roman'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object PageControl: TPageControl
    Left = 88
    Top = 56
    Width = 385
    Height = 289
    ActivePage = TabSheet1
    MultiLine = True
    TabOrder = 1
    object TabSheet1: TTabSheet
      Hint =
        'Type your message and use Blink format button to'#10'mark the blinki' +
        'ng part(s). To write standard class 0 and'#10'normal messages do not' +
        ' use Blink format at all.'
      Caption = '(Blinking) Messages'
      object Label3: TLabel
        Left = 16
        Top = 8
        Width = 119
        Height = 13
        Caption = '&Type your message here:'
        WordWrap = True
      end
      object Label4: TLabel
        Left = 256
        Top = 8
        Width = 71
        Height = 17
        Caption = 'Characters left:'
      end
      object Count: TLabel
        Left = 336
        Top = 8
        Width = 25
        Height = 13
        Alignment = taRightJustify
        Caption = '160'
      end
      object Label6: TLabel
        Left = 16
        Top = 168
        Width = 345
        Height = 73
        AutoSize = False
        Caption =
          'The receiving phone for blinking messages must be a Nokia with t' +
          'he "blink" bug. However, the message may behave incorrectly - wo' +
          'rds may be repeated or wrong parts blink. Messages without blink' +
          'ing can be used with phone of any brand. The text in hidden mess' +
          'ages is invisible if the phone is a Nokia with the "hide" bug.'
        WordWrap = True
      end
      object BlinkFont: TSpeedButton
        Left = 168
        Top = 8
        Width = 73
        Height = 25
        Hint =
          'Click here to toggle the blinking of the selected'#10'text. (Blinkin' +
          'g is shown in red on the PC.)'
        AllowAllUp = True
        GroupIndex = 1
        Caption = 'Blink'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsUnderline]
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          04000000000080000000C40E0000C40E00000000000000000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
          8888888888808888888888088880888808888880888888808888888880000088
          8888888888088808888888888808880888888888880888088888880088000088
          0088888888088808888888888808880888888888880888088888888880000088
          8888888088888880888888088880888808888888888088888888}
        ParentFont = False
        Spacing = -1
        OnClick = BlinkFontClick
      end
      object Class: TRadioGroup
        Left = 256
        Top = 32
        Width = 105
        Height = 89
        Hint =
          'Select the way the message is shown to the recipient:'#10'Class 0 me' +
          'ssages are shown directly on the display.'#10'Normal messages are st' +
          'ored in the inbox.'#10'The text in hidden messages is visible only o' +
          'n some phones.'
        Caption = '&Message Type'
        ItemIndex = 0
        Items.Strings = (
          'Class 0'
          'Normal'
          'Hidden')
        TabOrder = 1
        OnClick = ClassClick
      end
      object Message: TRichEdit
        Left = 16
        Top = 40
        Width = 225
        Height = 121
        HideSelection = False
        MaxLength = 320
        TabOrder = 0
        OnChange = MessageChange
        OnSelectionChange = MessageSelectionChange
      end
      object SaveBlink: TBitBtn
        Left = 256
        Top = 128
        Width = 105
        Height = 33
        Caption = '&Send/Save...'
        Default = True
        Enabled = False
        TabOrder = 2
        OnClick = SaveBlinkClick
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          04000000000080000000C40E0000C40E00000000000000000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888884666
          6888888888880406788888888088040678888888800804067888880000F00406
          7888880FFFFF00006888880FFFFFF0006888880FFFFF00006888880000F02777
          0888888880082873088888888088003008888888888846668888888888880667
          8888888888887678788888888888888808888888888888880888}
      end
    end
    object TabSheet3: TTabSheet
      Hint = 'Select the function(s) you'#10'want to include in your message.'
      Caption = 'Indicator Control'
      ParentShowHint = False
      ShowHint = True
      object Label1: TLabel
        Left = 16
        Top = 8
        Width = 254
        Height = 13
        Caption = 'Select the behaviour of the indicator control message:'
      end
      object Label5: TLabel
        Left = 16
        Top = 168
        Width = 345
        Height = 65
        AutoSize = False
        Caption =
          'The receiving phone must implement GSM Phase 2+ for proper opera' +
          'tion. Some new phones does not forward these messages correctly.' +
          ' In such case, send the message directly from the PC. The indica' +
          'tors can be removed from the phone only with another message.'
        WordWrap = True
      end
      object GroupBox1: TGroupBox
        Left = 16
        Top = 32
        Width = 105
        Height = 89
        Caption = '&Voice Mail'
        TabOrder = 0
        object Image5: TImage
          Left = 24
          Top = 56
          Width = 57
          Height = 25
          Picture.Data = {<image002.bmp>}
          Stretch = True
        end
        object VoiceOn: TCheckBox
          Left = 8
          Top = 16
          Width = 41
          Height = 17
          Caption = 'On'
          TabOrder = 0
          OnClick = VoiceOnClick
        end
        object VoiceOff: TCheckBox
          Left = 8
          Top = 40
          Width = 41
          Height = 17
          Caption = 'Off'
          TabOrder = 1
          OnClick = VoiceOffClick
        end
      end
      object GroupBox2: TGroupBox
        Left = 136
        Top = 32
        Width = 105
        Height = 89
        Caption = 'FA&X Message'
        TabOrder = 1
        object Image4: TImage
          Left = 24
          Top = 56
          Width = 57
          Height = 25
          Picture.Data = {<image003.bmp>}
          Stretch = True
        end
        object FaxOn: TCheckBox
          Left = 8
          Top = 16
          Width = 41
          Height = 17
          Caption = 'On'
          TabOrder = 0
          OnClick = FaxOnClick
        end
        object FaxOff: TCheckBox
          Left = 8
          Top = 40
          Width = 41
          Height = 17
          Caption = 'Off'
          TabOrder = 1
          OnClick = FaxOffClick
        end
      end
      object GroupBox3: TGroupBox
        Left = 256
        Top = 32
        Width = 105
        Height = 89
        Caption = '&Email Message'
        TabOrder = 2
        object Image3: TImage
          Left = 24
          Top = 56
          Width = 57
          Height = 25
          Picture.Data = {<image004.bmp>}
          Stretch = True
        end
        object EmailOn: TCheckBox
          Left = 8
          Top = 16
          Width = 41
          Height = 17
          Caption = 'On'
          TabOrder = 0
          OnClick = EmailOnClick
        end
        object EmailOff: TCheckBox
          Left = 8
          Top = 40
          Width = 41
          Height = 17
          Caption = 'Off'
          TabOrder = 1
          OnClick = EmailOffClick
        end
      end
      object Forward: TCheckBox
        Left = 24
        Top = 136
        Width = 193
        Height = 17
        Hint =
          'Normal indicator control message will delete itself after changi' +
          'ng'#10'the indicators. - Select this box to make the message to save' +
          ' itself'#10'in the inbox of the receiver so it could forwarded again' +
          '.'
        Caption = '&Allow recipient to forward message'
        TabOrder = 3
      end
      object SaveInd: TBitBtn
        Left = 256
        Top = 128
        Width = 105
        Height = 33
        Caption = '&Send/Save...'
        Default = True
        Enabled = False
        TabOrder = 4
        OnClick = SaveIndClick
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          04000000000080000000C40E0000C40E00000000000000000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888884666
          6888888888880406788888888088040678888888800804067888880000F00406
          7888880FFFFF00006888880FFFFFF0006888880FFFFF00006888880000F02777
          0888888880082873088888888088003008888888888846668888888888880667
          8888888888887678788888888888888808888888888888880888}
      end
    end
    object TabSheet4: TTabSheet
      Hint =
        'Click the button to save a void message'#10'in your phone or to send' +
        ' it directly.'
      Caption = 'Void Messages'
      object Label11: TLabel
        Left = 16
        Top = 8
        Width = 241
        Height = 49
        AutoSize = False
        Caption =
          'A void message causes the receiving phone to signal the message ' +
          'tone/vibration without any message actually received in the phon' +
          'e.'
        WordWrap = True
      end
      object Label13: TLabel
        Left = 16
        Top = 168
        Width = 345
        Height = 52
        Caption =
          'Void messages work on some receiving phones. In addition to this' +
          ', some new phones does not forward void messages correctly. In s' +
          'uch case, send the message directly from the PC.'
        WordWrap = True
      end
      object BitBtn1: TBitBtn
        Left = 256
        Top = 128
        Width = 105
        Height = 33
        Caption = '&Send/Save...'
        Default = True
        TabOrder = 0
        OnClick = SaveVoidClick
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          04000000000080000000C40E0000C40E00000000000000000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888884666
          6888888888880406788888888088040678888888800804067888880000F00406
          7888880FFFFF00006888880FFFFFF0006888880FFFFF00006888880000F02777
          0888888880082873088888888088003008888888888846668888888888880667
          8888888888887678788888888888888808888888888888880888}
      end
    end
    object TabSheet2: TTabSheet
      Hint =
        'Click the button to save a class 0'#10'message template in your phon' +
        'e.'
      Caption = 'Class 0 Templates'
      object Label2: TLabel
        Left = 16
        Top = 8
        Width = 241
        Height = 41
        AutoSize = False
        Caption =
          'A class 0 template allows you to write class 0 messages with a p' +
          'hone that does not normally support writing or editing those.'
        WordWrap = True
      end
      object Label10: TLabel
        Left = 16
        Top = 56
        Width = 241
        Height = 105
        AutoSize = False
        Caption =
          'To use the template in your phone:'#10'1. Set the message format to ' +
          'Email.'#10'2. Open the template (blank message) in the outbox and se' +
          'lect Forward. You must not be given possibility to edit the mess' +
          'age.'#10'3. Type your message to the Email address prompt (max. 50 c' +
          'haracters).'#10'4. Then continue as usual.'
        WordWrap = True
      end
      object Label7: TLabel
        Left = 16
        Top = 168
        Width = 342
        Height = 52
        Caption =
          'This trick of writing and sending class 0 messages with the phon' +
          'e works only with some phones and on some GSM networks. If the p' +
          'hone shows the '#39'Edit'#39' option for the template, it will not work ' +
          'when sent with that phone. The network may cut the message short' +
          'er than 50 characters.'
        WordWrap = True
      end
      object SaveTemp: TBitBtn
        Left = 256
        Top = 128
        Width = 105
        Height = 33
        Caption = '&Save to Phone'
        Default = True
        TabOrder = 0
        OnClick = SaveTempClick
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          04000000000080000000C40E0000C40E00000000000000000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888884666
          6888888888880406788888888088040678888888800804067888880000F00406
          7888880FFFFF00006888880FFFFFF0006888880FFFFF00006888880000F02777
          0888888880082873088888888088003008888888888846668888888888880667
          8888888888887678788888888888888808888888888888880888}
      end
    end
    object TabSheet5: TTabSheet
      Hint =
        'Type a name and a number for a new phonebook entry.'#10'Use the Blin' +
        'k format button to mark the blinking part(s) of the name.'
      Caption = 'Blinking Phonebook'
      object BlinkEntry: TSpeedButton
        Left = 168
        Top = 8
        Width = 73
        Height = 25
        Hint =
          'Click here to toggle the blinking of the selected'#10'text. (Blinkin' +
          'g is shown in red on the PC.)'
        AllowAllUp = True
        GroupIndex = 2
        Caption = 'Blink'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsUnderline]
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          04000000000080000000C40E0000C40E00000000000000000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
          8888888888808888888888088880888808888880888888808888888880000088
          8888888888088808888888888808880888888888880888088888880088000088
          0088888888088808888888888808880888888888880888088888888880000088
          8888888088888880888888088880888808888888888088888888}
        ParentFont = False
        Spacing = -1
        OnClick = BlinkEntryClick
      end
      object Label12: TLabel
        Left = 16
        Top = 8
        Width = 127
        Height = 13
        Caption = 'Create new &entry for name:'
        FocusControl = EntryName
        WordWrap = True
      end
      object Label14: TLabel
        Left = 256
        Top = 8
        Width = 72
        Height = 13
        Caption = 'Phone &number:'
        FocusControl = EntryNo
      end
      object Label15: TLabel
        Left = 16
        Top = 168
        Width = 345
        Height = 73
        AutoSize = False
        Caption =
          'Entries will be saved in the phone (ME) memory. The phone for bl' +
          'inking phonebook entries must be a Nokia with the "blink" featur' +
          'e. Phonebook entries without blinking can be saved into phone of' +
          ' any brand. '
        WordWrap = True
      end
      object SaveEntry: TBitBtn
        Left = 256
        Top = 128
        Width = 105
        Height = 33
        Caption = '&Save to Phone'
        Default = True
        Enabled = False
        TabOrder = 2
        OnClick = SaveEntryClick
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          04000000000080000000C40E0000C40E00000000000000000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888884666
          6888888888880406788888888088040678888888800804067888880000F00406
          7888880FFFFF00006888880FFFFFF0006888880FFFFF00006888880000F02777
          0888888880082873088888888088003008888888888846668888888888880667
          8888888888887678788888888888888808888888888888880888}
      end
      object EntryName: TRichEdit
        Left = 16
        Top = 40
        Width = 225
        Height = 21
        HideSelection = False
        MaxLength = 32
        TabOrder = 0
        WantReturns = False
        WordWrap = False
        OnSelectionChange = EntryNameSelectionChange
      end
      object EntryNo: TEdit
        Left = 256
        Top = 40
        Width = 105
        Height = 21
        TabOrder = 1
        OnChange = EntryNoChange
      end
    end
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 358
    Width = 481
    Height = 19
    Panels = <>
    SimplePanel = True
    SizeGrip = False
  end
  object ComPort: TComboBox
    Left = 8
    Top = 24
    Width = 65
    Height = 21
    Hint =
      'The COM port of the phone'#13'-OR- if you are using an IR module, th' +
      'e virtual COM port of the IR driver'#13'-OR- if you are using a phon' +
      'e requiring Nokia Data Suite,'#13'the the virtual COM port of the ND' +
      'S.'
    Style = csDropDownList
    DropDownCount = 9
    ItemHeight = 13
    Items.Strings = (
      'COM 1'
      'COM 2'
      'COM 3'
      'COM 4'
      'COM 5'
      'COM 6'
      'COM 7'
      'COM 8'
      'COM 9')
    TabOrder = 0
  end
  object MainMenu1: TMainMenu
    Left = 32
    Top = 320
    object File1: TMenuItem
      Caption = '&File'
      ShortCut = 0
      object Exit1: TMenuItem
        Caption = 'E&xit'
        Hint = 'Closes PanuWorld FLASHMSG.'
        ShortCut = 32883
        OnClick = Exit1Click
      end
    end
    object Help1: TMenuItem
      Caption = '&Help'
      ShortCut = 0
      object AboutFlashMsg1: TMenuItem
        Caption = '&About FLASHMSG...'
        Hint = 'Shows About PanuWorld FLASHMSG dialog.'
        ShortCut = 112
        OnClick = AboutFlashMsg1Click
      end
      object Debug1: TMenuItem
        Caption = 'Debug'
        ShortCut = 24699
        Visible = False
        OnClick = Debug1Click
      end
    end
  end
end