Do It Yourself Pak/Do_ItPak1.iso/aftd/_SETUP.1/FamTree.exe/0/RCDATA/TCOATOFARMSFORM/TCOATOFARMSFORM.txt

Text File | 1999-07-07 | 26KB | 601 lines

object CoatOfArmsForm: TCoatOfArmsForm
  Left = 382
  Top = 213
  BorderStyle = bsDialog
  Caption = 'Coat Of Arms Editor'
  ClientHeight = 453
  ClientWidth = 632
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = True
  Position = poScreenCenter
  ShowHint = True
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnKeyUp = FormKeyUp
  PixelsPerInch = 96
  TextHeight = 13
  object ColorGrid: TColorGrid
    Left = 8
    Top = 381
    Width = 368
    Height = 32
    Ctl3D = True
    GridOrdering = go16x1
    BackgroundEnabled = False
    ParentCtl3D = False
    TabOrder = 1
    OnClick = ColorGridClick
  end
  object BClose: TBitBtn
    Left = 293
    Top = 420
    Width = 88
    Height = 27
    TabOrder = 15
    Kind = bkClose
  end
  object TabSet: TTabSet
    Left = 384
    Top = 392
    Width = 241
    Height = 21
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Tabs.Strings = (
      'Banners'
      'Crosses'
      'Crowns'
      'Helmets'
      'Other')
    TabIndex = 0
    OnChange = TabSetChange
  end
  object Panel: TPanel
    Left = 8
    Top = 8
    Width = 283
    Height = 368
    BevelOuter = bvNone
    BorderStyle = bsSingle
    Color = clWhite
    TabOrder = 0
    object ZCanvas: TZoomableCanvas
      Left = 0
      Top = 0
      Width = 279
      Height = 364
      Align = alClient
      DrawBackground = False
      ZoomFactor = 100
      OnDragDrop = ZCanvasDragDrop
      OnDragOver = ZCanvasDragOver
      OnMouseDown = ZCanvasMouseDown
      OnMouseMove = ZCanvasMouseMove
      OnMouseUp = ZCanvasMouseUp
      OnPaint = ZCanvasPaint
    end
  end
  object Notebook: TNotebook
    Left = 384
    Top = 8
    Width = 241
    Height = 386
    TabOrder = 12
    object TPage
      Left = 0
      Top = 0
      Caption = 'Banners'
      object BannersList: TListBox
        Left = 0
        Top = 0
        Width = 241
        Height = 386
        Align = alClient
        ItemHeight = 55
        Style = lbOwnerDrawFixed
        TabOrder = 0
        OnDrawItem = ListDrawItem
        OnEndDrag = EndDrag
        OnMouseDown = ListMouseDown
        OnMouseMove = ListMouseMove
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Crosses'
      object CrossesList: TListBox
        Left = 0
        Top = 0
        Width = 241
        Height = 386
        Align = alClient
        ItemHeight = 55
        Style = lbOwnerDrawFixed
        TabOrder = 0
        OnDrawItem = ListDrawItem
        OnEndDrag = EndDrag
        OnMouseDown = ListMouseDown
        OnMouseMove = ListMouseMove
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Crowns'
      object CrownsList: TListBox
        Left = 0
        Top = 0
        Width = 241
        Height = 386
        Align = alClient
        ItemHeight = 55
        Style = lbOwnerDrawFixed
        TabOrder = 0
        OnDrawItem = ListDrawItem
        OnEndDrag = EndDrag
        OnMouseDown = ListMouseDown
        OnMouseMove = ListMouseMove
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Helmets'
      object HelmetsList: TListBox
        Left = 0
        Top = 0
        Width = 241
        Height = 386
        Align = alClient
        ItemHeight = 55
        Style = lbOwnerDrawFixed
        TabOrder = 0
        OnDrawItem = ListDrawItem
        OnEndDrag = EndDrag
        OnMouseDown = ListMouseDown
        OnMouseMove = ListMouseMove
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Other'
      object OtherList: TListBox
        Left = 0
        Top = 0
        Width = 241
        Height = 386
        Align = alClient
        ItemHeight = 55
        Style = lbOwnerDrawFixed
        TabOrder = 0
        OnDrawItem = ListDrawItem
        OnEndDrag = EndDrag
        OnMouseDown = ListMouseDown
        OnMouseMove = ListMouseMove
      end
    end
  end
  object BSave: TBitBtn
    Left = 293
    Top = 272
    Width = 88
    Height = 27
    Caption = '&Save'
    TabOrder = 9
    OnClick = BSaveClick
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      0400000000000001000000000000000000001000000010000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333330070
      7700333333337777777733333333008088003333333377F73377333333330088
      88003333333377FFFF7733333333000000003FFFFFFF77777777000000000000
      000077777777777777770FFFFFFF0FFFFFF07F3333337F3333370FFFFFFF0FFF
      FFF07F3FF3FF7FFFFFF70F00F0080CCC9CC07F773773777777770FFFFFFFF039
      99337F3FFFF3F7F777F30F0000F0F09999937F7777373777777F0FFFFFFFF999
      99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
      99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
      93337FFFF7737777733300000033333333337777773333333333}
    NumGlyphs = 2
  end
  object BShield: TBitBtn
    Left = 293
    Top = 197
    Width = 88
    Height = 27
    Caption = 'Shiel&d...'
    TabOrder = 7
    OnClick = BShieldClick
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      0400000000008000000000000000000000001000000010000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000033
      3333333330EEEE03333333330EEEEEE033333330EEEEEE990333330EEEEEE999
      903330EEEEEE99999E030EEEEEE99999EEE00EEEEE99999EEEE00EEEE99999EE
      EEE00EEE99999EEEEEE00EE99999EEEEEEE00E99999EEEEEEEE0099999EEEEEE
      EEE009999EEEEEEEEEE00999EEEEEEEEEEE00000000000000000}
  end
  object BPrint: TBitBtn
    Left = 293
    Top = 348
    Width = 88
    Height = 27
    Caption = '&Print'
    TabOrder = 11
    OnClick = BPrintClick
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      0400000000000001000000000000000000001000000010000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
      00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
      8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
      8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
      8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
      03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
      03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
      33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
      33333337FFFF7733333333300000033333333337777773333333}
    NumGlyphs = 2
  end
  object BCopy: TBitBtn
    Left = 121
    Top = 420
    Width = 131
    Height = 27
    Caption = 'Cop&y to Clipboard'
    TabOrder = 13
    OnClick = BCopyClick
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      0400000000000001000000000000000000001000000010000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333330B7FFF
      FFB0333333777F3333773333330B7FFFFFB0333333777F3333773333330B7FFF
      FFB0333333777F3333773333330B7FFFFFB03FFFFF777FFFFF77000000000077
      007077777777777777770FFFFFFFF00077B07F33333337FFFF770FFFFFFFF000
      7BB07F3FF3FFF77FF7770F00F000F00090077F77377737777F770FFFFFFFF039
      99337F3FFFF3F7F777FF0F0000F0F09999937F7777373777777F0FFFFFFFF999
      99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
      99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
      93337FFFF7737777733300000033333333337777773333333333}
    NumGlyphs = 2
  end
  object BFlip: TBitBtn
    Left = 293
    Top = 84
    Width = 88
    Height = 27
    Caption = '&Flip'
    TabOrder = 4
    OnClick = BFlipClick
    Glyph.Data = {
      36060000424D3606000000000