lazarus-ccr/components/onguard/examples/codegen/codegenu.lfm

object CodeGenFrm: TCodeGenFrm
  ActiveControl = GenerateBtn
  Caption = 'Example Code Generator'
  ClientHeight = 85
  ClientWidth = 273
  Font.Color = clText
  Font.Height = 11
  Font.Name = 'MS Sans Serif'
  Font.Pitch = fpVariable
  PixelsPerInch = 96
  Position = poScreenCenter
  ShowHint = True
  TextHeight = 18
  HorzScrollBar.Page = 272
  HorzScrollBar.Range = 267
  VertScrollBar.Page = 84
  VertScrollBar.Range = 76
  Left = 315
  Height = 85
  Top = 230
  Width = 273
  object CopySb: TSpeedButton
    Color = clBtnFace
    Glyph.Data = {
      42010000424D4201000000000000760000002800000011000000110000000100
      040000000000CC00000000000000000000000000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
      8888800000008888888888888888800000008888888444444444800000008888
      8884FFFFFFF48000000088888884F00000F48000000080000004FFFFFFF48000
      000080FFFFF4F00000F48000000080F00004FFFFFFF48000000080FFFFF4F00F
      44448000000080F00004FFFF4F488000000080FFFFF4FFFF44888000000080F0
      0F04444448888000000080FFFF0F088888888000000080FFFF00888888888000
      0000800000088888888880000000888888888888888880000000888888888888
      888880000000
    }
    NumGlyphs = 0
    OnClick = CopySbClick
    Left = 244
    Height = 22
    Hint = 'Copy code to clipboard'
    Top = 21
    Width = 23
  end
  object Label2: TLabel
    Caption = 'Code'
    Color = clNone
    FocusControl = CodeEd
    ParentColor = False
    Left = 8
    Height = 14
    Top = 3
    Width = 26
  end
  object GenerateBtn: TButton
    BorderSpacing.InnerBorder = 4
    Caption = 'Generate Code'
    OnClick = GenerateBtnClick
    TabOrder = 0
    Left = 8
    Height = 25
    Hint = 'Display code generation dialog'
    Top = 51
    Width = 105
  end
  object CodeEd: TEdit
    ReadOnly = True
    TabOrder = 1
    Left = 8
    Height = 24
    Top = 19
    Width = 233
  end
  object CloseBtn: TBitBtn
    Kind = bkClose
    NumGlyphs = 0
    TabOrder = 2
    Left = 192
    Height = 25
    Top = 51
    Width = 75
  end
  object OgMakeCodes1: TOgMakeCodes
    KeyFileName = 'ONGUARD.INI'
    ShowHints = True
    left = 56
    top = 152
  end
end