PC World 1999 March/PCWorld_1999-03_cd.bin/Software/zkuste/Char/ecm.exe/0/RCDATA/TMAINFORM/TMAINFORM.txt

Text File | 1998-12-20 | 9KB | 449 lines

object MainForm: TMainForm
  Left = 205
  Top = 81
  ActiveControl = sgMap
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'ExtendedCharacterMap'
  ClientHeight = 431
  ClientWidth = 477
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -10
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  KeyPreview = True
  Menu = mmnMain
  Position = poScreenCenter
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 11
    Top = 10
    Width = 24
    Height = 13
    Alignment = taRightJustify
    Caption = '&Font:'
    FocusControl = cbFonts
    Transparent = True
  end
  object Label2: TLabel
    Left = 360
    Top = 56
    Width = 67
    Height = 13
    Caption = 'Big Character:'
    FocusControl = pnlBigChar
    Transparent = True
  end
  object Label3: TLabel
    Left = 11
    Top = 34
    Width = 92
    Height = 13
    Alignment = taRightJustify
    Caption = '&Characters to copy:'
    FocusControl = eChar
    Transparent = True
  end
  object Label4: TLabel
    Left = 11
    Top = 56
    Width = 73
    Height = 13
    Caption = 'Character &Map:'
    FocusControl = sgMap
    Transparent = True
  end
  object Bevel1: TBevel
    Left = 0
    Top = 0
    Width = 477
    Height = 3
    Align = alTop
  end
  object lblBigCharSize: TLabel
    Left = 383
    Top = 222
    Width = 3
    Height = 13
    Transparent = True
  end
  object Label5: TLabel
    Left = 358
    Top = 222
    Width = 23
    Height = 13
    Caption = 'Size:'
    Transparent = True
  end
  object lblCharMapSize: TLabel
    Left = 95
    Top = 374
    Width = 3
    Height = 13
    Transparent = True
  end
  object Label7: TLabel
    Left = 70
    Top = 374
    Width = 23
    Height = 13
    Caption = 'Size:'
    Transparent = True
  end
  object Bevel2: TBevel
    Left = 358
    Top = 240
    Width = 108
    Height = 3
    Shape = bsTopLine
  end
  object Label6: TLabel
    Left = 360
    Top = 354
    Width = 20
    Height = 13
    Caption = 'Dec'
    Transparent = True
  end
  object Label8: TLabel
    Left = 360
    Top = 368
    Width = 19
    Height = 13
    Caption = 'Hex'
    Transparent = True
  end
  object Label9: TLabel
    Left = 360
    Top = 382
    Width = 17
    Height = 13
    Caption = 'Oct'
    Transparent = True
  end
  object Label10: TLabel
    Left = 360
    Top = 396
    Width = 15
    Height = 13
    Caption = 'Bin'
    Transparent = True
  end
  object lblDec: TLabel
    Left = 392
    Top = 354
    Width = 3
    Height = 13
    PopupMenu = ppmBase
    Transparent = True
    OnMouseDown = lblDecMouseDown
  end
  object lblHex: TLabel
    Left = 392
    Top = 368
    Width = 3
    Height = 13
    PopupMenu = ppmBase
    Transparent = True
    OnMouseDown = lblHexMouseDown
  end
  object lblOct: TLabel
    Left = 392
    Top = 382
    Width = 3
    Height = 13
    PopupMenu = ppmBase
    Transparent = True
    OnMouseDown = lblOctMouseDown
  end
  object lblBin: TLabel
    Left = 392
    Top = 396
    Width = 3
    Height = 13
    PopupMenu = ppmBase
    Transparent = True
    OnMouseDown = lblBinMouseDown
  end
  object Bevel3: TBevel
    Left = 358
    Top = 347
    Width = 108
    Height = 3
    Shape = bsTopLine
  end
  object sgMap: TStringGrid
    Left = 11
    Top = 73
    Width = 339
    Height = 297
    Hint = 'Character Map'
    ColCount = 16
    DefaultColWidth = 20
    DefaultRowHeight = 20
    DragCursor = crDefault
    FixedCols = 0
    RowCount = 14
    FixedRows = 0
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goDrawFocusSelected]
    ParentFont = False
    ParentShowHint = False
    PopupMenu = ppmMain
    ShowHint = True
    TabOrder = 4
    OnDblClick = sgMapDblClick
    OnKeyDown = sgMapKeyDown
    OnMouseDown = sgMapMouseDown
    OnSelectCell = sgMapSelectCell
  end
  object pnlBigChar: TPanel
    Left = 358
    Top = 73
    Width = 108
    Height = 129
    Hint = 'Big Character Display'
    BevelOuter = bvNone
    BorderStyle = bsSingle
    Color = clWhite
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    PopupMenu = ppmMain
    ShowHint = True
    TabOrder = 6
    OnMouseDown = pnlBigCharMouseDown
  end
  object sbMain: TStatusBar
    Left = 0
    Top = 411
    Width = 477
    Height = 20
    Panels = <
      item
        Text = 'Author: Sony Arianto Kurniawan'
        Width = 300
      end
      item
        Text = 'Keystroke ='
        Width = 125
      end>
    SimplePanel = False
    SizeGrip = False
  end
  object eChar: TEdit
    Left = 110
    Top = 31
    Width = 98
    Height = 21
    TabOrder = 1
    OnChange = eCharChange
  end
  object btnCopy: TButton
    Left = 214
    Top = 31
    Width = 60
    Height = 21
    Hint = 'Copy Character(s)'
    Caption = 'C&opy'
    Enabled = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 2
    OnClick = btnCopyClick
  end
  object cbFonts: TRzFontComboBox
    Left = 43
    Top = 7
    Width = 295
    Height = 22
    Hint = 'Font List'
    About = aiRaizeComponents
    FontName = 'Abadi MT Condensed Light'
    FontSize = 10
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
    OnChange = cbFontsChange
  end
  object sbBigChar: TScrollBar
    Left = 358
    Top = 206
    Width = 108
    Height = 12
    Hint = 'Font Size'
    Min = 1
    ParentShowHint = False
    Position = 50
    ShowHint = True
    TabOrder = 7
    OnChange = sbBigCharChange
  end
  object btnSelect: TButton
    Left = 278
    Top = 31
    Width = 60
    Height = 21
    Hint = 'Select Highlighted Character'
    Caption = '&Select'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 3
    OnClick = btnSelectClick
  end
  object sbMap: TScrollBar
    Left = 11
    Top = 376
    Width = 54
    Height = 10
    Hint = 'Character Map Size'
    Max = 15
    Min = 10
    ParentShowHint = False
    Position = 10
    ShowHint = True
    TabOrder = 5
    OnChange = sbMapChange
  end
  object eSample: TEdit
    Left = 120
    Top = 374
    Width = 230
    Height = 21
    Hint = 'Sample text using selected font'
    Ctl3D = True
    ParentCtl3D = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 13
  end
  object cbxBold: TCheckBox
    Left = 360
    Top = 248
    Width = 97
    Height = 17
    Caption = '&Bold'
    TabOrder = 8
    OnClick = cbxBoldClick
  end
  object cbxItalic: TCheckBox
    Left = 360
    Top = 264
    Width = 97
    Height = 17
    Caption = 'It&alic'
    TabOrder = 9
    OnClick = cbxItalicClick
  end
  object cbxUnderline: TCheckBox
    Left = 360
    Top = 280
    Width = 97
    Height = 17
    Caption = '&Underline'
    TabOrder = 10
    OnClick = cbxUnderlineClick
  end
  object cbxStrikeOut: TCheckBox
    Left = 360
    Top = 296
    Width = 97
    Height = 17
    Caption = 'S&trikeOut'
    TabOrder = 11
    OnClick = cbxStrikeOutClick
  end
  object cbcColor: TRzColorComboBox
    Left = 360
    Top = 320
    Width = 105
    Height = 22
    About = aiRaizeComponents
    TabOrder = 12
    OnChange = cbcColorChange
  end
  object ppmMain: TPopupMenu
    AutoPopup = False
    Left = 368
    Top = 80
    object Copythischaracter1: TMenuItem
      Caption = 'Copy this character'
      OnClick = Copythischaracter1Click
    end
    object Selectthischaracter1: TMenuItem
      Caption = 'Select this character'
      OnClick = Selectthischaracter1Click
    end
  end
  object mmnMain: TMainMenu
    Left = 400
    Top = 80
    object File1: TMenuItem
      Caption = '&Program'
      object Exit1: TMenuItem
        Caption = 'E&xit'
        OnClick = Exit1Click
      end
    end
    object Help1: TMenuItem
      Caption = '&Help'
      object Content1: TMenuItem
        Caption = '&Content'
        OnClick = Content1Click
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object ContactAuthor1: TMenuItem
        Caption = 'C&ontact Author'
        OnClick = ContactAuthor1Click
      end
      object AriTechDevelopmentIndonesiaWeb1: TMenuItem
        Caption = 'AriTech &Development Indonesia Web'
        OnClick = AriTechDevelopmentIndonesiaWeb1Click
      end
      object ExtendedCharacterMapWeb1: TMenuItem
        Caption = '&ExtendedCharacterMap Web'
        OnClick = ExtendedCharacterMapWeb1Click
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object About1: TMenuItem
        Caption = '&About'
        OnClick = About1Click
      end
    end
  end
  object bcMain: TATBaseConverter
    Author = 'Sony Arianto K of AriTech Development [July,1998]'
    Decimal = 0
    Octal = '0'
    Hexa = '0'
    Binary = '0'
    Left = 368
    Top = 115
  end
  object ppmBase: TPopupMenu
    Left = 400
    Top = 115
    object mnCopy: TMenuItem
      Caption = 'Copy'
      OnClick = mnCopyClick
    end
  end
end