PC World 2003 February/PCWorld_2003-02_cd.bin/Software/Topware/devpascal/devpas.exe/0/RCDATA/TRESCODEEDITFORM/TRESCODEEDITFORM.txt

Text File | 2002-07-15 | 9.0 KB | 317 lines

object ResCodeEditForm: TResCodeEditForm
  Left = 329
  Top = 89
  BorderIcons = [biSystemMenu, biHelp]
  BorderStyle = bsDialog
  Caption = 'Edit resource (ResType)'
  ClientHeight = 388
  ClientWidth = 494
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = True
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 120
  TextHeight = 16
  object GroupBox1: TGroupBox
    Left = 10
    Top = 10
    Width = 356
    Height = 198
    Caption = 'Required options:'
    TabOrder = 0
    object Label1: TLabel
      Left = 10
      Top = 79
      Width = 261
      Height = 16
      Caption = '&File name (only DOS 8.3 filenames allowed):'
      FocusControl = FileName
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clMaroon
      Font.Height = -15
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 10
      Top = 138
      Width = 78
      Height = 16
      Caption = 'Resource &ID:'
      FocusControl = ResID
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clMaroon
      Font.Height = -15
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label5: TLabel
      Left = 10
      Top = 20
      Width = 326
      Height = 50
      AutoSize = False
      Caption =
        'Note: the filename must be a full path if the file is not in the' +
        ' current working directory. The path can either be a quoted or n' +
        'on-quoted string.'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -15
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      WordWrap = True
    end
    object FileName: TEdit
      Left = 10
      Top = 98
      Width = 336
      Height = 24
      TabOrder = 0
      OnChange = FileNameChange
      object SpeedButton1: TSpeedButton
        Left = 306
        Top = -1
        Width = 25
        Height = 22
        Glyph.Data = {
          92010000424D920100000000000042000000280000000E0000000C0000000100
          1000030000005001000000000000000000000000000000000000007C0000E003
          00001F0000001F7C00000000000000000000000000000000000000001F7C1F7C
          1F7C1F7C00000000EF3DEF3DEF3DEF3DEF3DEF3DEF3DEF3D00001F7C1F7C1F7C
          0000FF7F0000EF3DEF3DEF3DEF3DEF3DEF3DEF3DEF3D00001F7C1F7C0000FF7F
          FF7F0000EF3DEF3DEF3DEF3DEF3DEF3DEF3DEF3D00001F7C0000FF7FFF7FFF7F
          0000000000000000000000000000000000001F7C0000FF7FFF7FFF7FFF7FFF7F
          FF7FFF7FFF7F00001F7C1F7C1F7C1F7C0000FF7FFF7FFF7F0000000000000000
          000000001F7C1F7C1F7C1F7C1F7C0000000000001F7C1F7C1F7C1F7C1F7C1F7C
          1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C000000000000
          1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C000000001F7C1F7C
          1F7C1F7C1F7C1F7C1F7C00001F7C1F7C1F7C00001F7C00001F7C1F7C1F7C1F7C
          1F7C1F7C1F7C1F7C0000000000001F7C1F7C1F7C1F7C}
        OnClick = SpeedButton1Click
      end
    end
    object ResID: TEdit
      Left = 10
      Top = 158
      Width = 336
      Height = 24
      TabOrder = 1
      Text = 'MyResource1'
    end
  end
  object Panel1: TPanel
    Left = 10
    Top = 236
    Width = 198
    Height = 139
    BevelInner = bvRaised
    BevelOuter = bvLowered
    Enabled = False
    TabOrder = 2
    object Label3: TLabel
      Left = 10
      Top = 20
      Width = 74
      Height = 16
      Caption = '&Load option:'
      FocusControl = LoadOption
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clMaroon
      Font.Height = -15
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel
      Left = 10
      Top = 79
      Width = 92
      Height = 16
      Caption = '&Memory option:'
      FocusControl = MemOption
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clMaroon
      Font.Height = -15
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object LoadOption: TComboBox
      Left = 10
      Top = 39
      Width = 178
      Height = 24
      Style = csDropDownList
      ItemHeight = 16
      TabOrder = 0
      Items.Strings = (
        '( Not defined )'
        'Load immediately'
        'Load on call')
    end
    object MemOption: TComboBox
      Left = 10
      Top = 98
      Width = 178
      Height = 24
      Style = csDropDownList
      ItemHeight = 16
      TabOrder = 1
      Items.Strings = (
        '( Not defined )'
        'Moveable'
        'Discardable')
    end
  end
  object CheckBox1: TCheckBox
    Left = 20
    Top = 226
    Width = 158
    Height = 21
    Caption = 'Enable optional options:'
    TabOrder = 1
    OnClick = CheckBox1Click
  end
  object BitBtn1: TBitBtn
    Left = 384
    Top = 10
    Width = 100
    Height = 40
    Caption = 'OK'
    ModalResult = 1
    TabOrder = 3
    OnClick = BitBtn1Click
    Glyph.Data = {
      DE010000424DDE01000000000000760000002800000024000000120000000100
      0400000000006801000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333333333333333330000333333333333333333333333F33333333333
      00003333344333333333333333388F3333333333000033334224333333333333
      338338F3333333330000333422224333333333333833338F3333333300003342
      222224333333333383333338F3333333000034222A22224333333338F338F333
      8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
      33333338F83338F338F33333000033A33333A222433333338333338F338F3333
      0000333333333A222433333333333338F338F33300003333333333A222433333
      333333338F338F33000033333333333A222433333333333338F338F300003333
      33333333A222433333333333338F338F00003333333333333A22433333333333
      3338F38F000033333333333333A223333333333333338F830000333333333333
      333A333333333333333338330000333333333333333333333333333333333333
      0000}
    NumGlyphs = 2
  end
  object BitBtn2: TBitBtn
    Left = 384
    Top = 59
    Width = 100
    Height = 41
    Cancel = True
    Caption = 'Cancel'
    ModalResult = 3
    TabOrder = 4
    Glyph.Data = {
      DE010000424DDE01000000000000760000002800000024000000120000000100
      0400000000006801000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      333333333333333333333333000033338833333333333333333F333333333333
      0000333911833333983333333388F333333F3333000033391118333911833333
      38F38F333F88F33300003339111183911118333338F338F3F8338F3300003333
      911118111118333338F3338F833338F3000033333911111111833333338F3338
      3333F8330000333333911111183333333338F333333F83330000333333311111
      8333333333338F3333383333000033333339111183333333333338F333833333
      00003333339111118333333333333833338F3333000033333911181118333333
      33338333338F333300003333911183911183333333383338F338F33300003333
      9118333911183333338F33838F338F33000033333913333391113333338FF833
      38F338F300003333333333333919333333388333338FFF830000333333333333
      3333333333333333333888330000333333333333333333333333333333333333
      0000}
    NumGlyphs = 2
  end
  object GroupBox2: TGroupBox
    Left = 217
    Top = 226
    Width = 267
    Height = 149
    Caption = 'Preview (not actual size):'
    TabOrder = 5
    object Label6: TLabel
      Left = 2
      Top = 18
      Width = 10
      Height = 120
      Align = alLeft
      AutoSize = False
    end
    object Label7: TLabel
      Left = 255
      Top = 18
      Width = 10
      Height = 120
      Align = alRight
      AutoSize = False
    end
    object Label8: TLabel
      Left = 2
      Top = 138
      Width = 263
      Height = 9
      Align = alBottom
      AutoSize = False
    end
    object Image: TImage
      Left = 12
      Top = 18
      Width = 243
      Height = 120
      Align = alClient
      Stretch = True
    end
  end
  object OpenDialog: TOpenDialog
    Filter =
      'True-Type Font Resources (*.ttf)|*.ttf|Bitmap-Font Resources (*.' +
      'fnt)|*.fnt|All files (*.*)|*.*'
    Options = [ofEnableSizing]
    Left = 344
    Top = 88
  end
  object OpenPictureDialog1: TOpenPictureDialog
    Filter = 'Bitmaps (*.bmp)|*.bmp|Icons (*.ico)|*.ico'
    Options = [ofEnableSizing]
    Left = 312
    Top = 120
  end
  object MarsCaption1: TMarsCaption
    ActiveBeginColor = clBlack
    ActiveEndColor = clBlue
    ActiveFontColor = clWhite
    InactiveBeginColor = clGray
    InactiveEndColor = clSilver
    InactiveFontColor = clSilver
    ApplicationNameFont.Charset = DEFAULT_CHARSET
    ApplicationNameFont.Color = clWindowText
    ApplicationNameFont.Height = -11
    ApplicationNameFont.Name = 'MS Sans Serif'
    ApplicationNameFont.Style = [fsBold]
    CaptionFont.Charset = DEFAULT_CHARSET
    CaptionFont.Color = clWindowText
    CaptionFont.Height = -11
    CaptionFont.Name = 'MS Sans Serif'
    CaptionFont.Style = []
    NumColors = 64
    AutoSize = False
    Left = 344
    Top = 120
  end
end