d_lmddesigner0.dfm

delphi 运行期间窗体设计

object Form1: TForm1
  Left = 10
  Top = 113
  BorderStyle = bsSingle
  Caption = 'TLMDDesigner demo'
  ClientHeight = 478
  ClientWidth = 521
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label3: TLabel
    Left = 16
    Top = 354
    Width = 151
    Height = 13
    Caption = 'Events trace (only some events)'
  end
  object Button1: TButton
    Left = 8
    Top = 8
    Width = 129
    Height = 25
    Caption = 'Activate designer'
    TabOrder = 0
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 144
    Top = 8
    Width = 129
    Height = 25
    Caption = 'Deactivate designer'
    TabOrder = 1
    OnClick = Button2Click
  end
  object Memo1: TMemo
    Left = 16
    Top = 397
    Width = 489
    Height = 68
    ScrollBars = ssBoth
    TabOrder = 2
  end
  object CheckBox8: TCheckBox
    Left = 32
    Top = 376
    Width = 129
    Height = 17
    Caption = 'Trace mouse events'
    TabOrder = 3
  end
  object CheckBox9: TCheckBox
    Left = 176
    Top = 376
    Width = 145
    Height = 17
    Caption = 'Trace keyboard events'
    TabOrder = 4
  end
  object Button5: TButton
    Left = 424
    Top = 368
    Width = 75
    Height = 25
    Caption = 'Clear'
    TabOrder = 5
    OnClick = Button5Click
  end
  object CheckBox10: TCheckBox
    Left = 280
    Top = 16
    Width = 225
    Height = 17
    Caption = 'Recreate components'
    TabOrder = 6
  end
  object PageControl1: TPageControl
    Left = 8
    Top = 40
    Width = 497
    Height = 305
    ActivePage = TabSheet1
    TabOrder = 7
    object TabSheet1: TTabSheet
      Caption = 'Main'
      object Label4: TLabel
        Left = 6
        Top = 180
        Width = 475
        Height = 85
        AutoSize = False
        Caption = 
          'This project demonstrates use of TLMDDesigner. Activate designer' +
          ' and use it like the Delphi form designer. You can insert, move,' +
          ' resize or delete components on the second form. Check "Show non' +
          '-visual components" check box to show/hide non-visual components' +
          ' on then Form2. Use mouse right button or special keyboard key t' +
          'o activate popup menu on the Form2 and try to use component lock' +
          'ing and clipboard operations.'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clNavy
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        WordWrap = True
      end
      object GroupBox1: TGroupBox
        Left = 8
        Top = 8
        Width = 217
        Height = 145
        Caption = 'Form grid'
        TabOrder = 0
        object Label6: TLabel
          Left = 8
          Top = 72
          Width = 29
          Height = 13
          Caption = 'XStep'
        end
        object Label7: TLabel
          Left = 8
          Top = 98
          Width = 29
          Height = 13
          Caption = 'YStep'
        end
        object Label8: TLabel
          Left = 104
          Top = 16
          Width = 24
          Height = 13
          Caption = 'Color'
        end
        object Label1: TLabel
          Left = 48
          Top = 72
          Width = 6
          Height = 13
          Caption = '8'
        end
        object Label2: TLabel
          Left = 48
          Top = 98
          Width = 6
          Height = 13
          Caption = '8'
        end
        object CheckBox2: TCheckBox
          Left = 8
          Top = 16
          Width = 89
          Height = 17
          Caption = 'Visible'
          Checked = True
          State = cbChecked
          TabOrder = 0
          OnClick = CheckBox2Click
        end
        object ColorGrid2: TColorGrid
          Left = 104
          Top = 32
          Width = 100
          Height = 100
          BackgroundEnabled = False
          TabOrder = 1
          OnChange = ColorGrid2Change
        end
        object CheckBox1: TCheckBox
          Left = 8
          Top = 40
          Width = 97
          Height = 17
          Caption = 'Snap to grid'
          Checked = True
          State = cbChecked
          TabOrder = 2
          OnClick = CheckBox1Click
        end
        object UpDown2: TUpDown
          Left = 64
          Top = 65
          Width = 16
          Height = 24
          Min = 2
          Max = 32
          Position = 8
          TabOrder = 3
          Wrap = False
          OnClick = UpDown2Click
        end
        object UpDown1: TUpDown
          Left = 64
          Top = 92
          Width = 16
          Height = 24
          Min = 2
          Max = 32
          Position = 8
          TabOrder = 4
          Wrap = False
          OnClick = UpDown1Click
        end
      end
      object GroupBox2: TGroupBox
        Left = 232
        Top = 8
        Width = 249
        Height = 145
        Caption = 'Selected controls'
        TabOrder = 1
        object Memo2: TMemo
          Left = 8
          Top = 24
          Width = 137
          Height = 108
          TabOrder = 0
        end
        object Button3: TButton
          Left = 152
          Top = 52
          Width = 89
          Height = 24
          Caption = 'Clear selection'
          TabOrder = 1
          OnClick = Button3Click
        end
        object Button4: TButton
          Left = 152
          Top = 24
          Width = 89
          Height = 24
          Caption = 'Select all'
          TabOrder = 2
          OnClick = Button4Click
        end
      end
      object CheckBox11: TCheckBox
        Left = 8
        Top = 160
        Width = 177
        Height = 17
        Caption = 'Show non-visual components'
        Checked = True
        State = cbChecked
        TabOrder = 2
        OnClick = CheckBox11Click
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'Inserting new components'
      ImageIndex = 1
      object Label9: TLabel
        Left = 6
        Top = 140
        Width = 475
        Height = 85
        AutoSize = False
        Caption = 
          'Select any radiobutton item from Inserting new components group ' +
          'and click somewhere on Form2 to insert a new component of the se' +
          'lected type. TMyPanel component demonstrates handling of a custo' +
          'm control, which is not in Delphi component palette. Check also ' +
          'sourcecode if OnComponentInserting and OnComponentInserted event' +
          ' handlers.'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clNavy
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        WordWrap = True
      end
      object GroupBox4: TGroupBox
        Left = 8
        Top = 8
        Width = 473
        Height = 113
        Caption = 'Inserting new components'
        TabOrder = 0
        object RadioButton1: TRadioButton
          Left = 35
          Top = 20
          Width = 113
          Height = 17
          Caption = 'None'
          Checked = True
          TabOrder = 0
          TabStop = True
        end
        object RadioButton2: TRadioButton
          Left = 35
          Top = 44