home *** CD-ROM | disk | FTP | other *** search
- object Form1: TForm1
- Left = 294
- Top = 234
- Width = 251
- Height = 336
- ActiveControl = SaveBtn
- Caption = 'Button1 X:121 Y:0'
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Visible = True
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object Button1: TButton
- Left = 42
- Top = 183
- Width = 153
- Height = 25
- Caption = 'Button1'
- PopupMenu = PopupMenu1
- TabOrder = 0
- OnClick = AButtonClick
- OnMouseDown = AButtonMouseDown
- OnMouseMove = AButtonMouseMove
- end
- object Button2: TButton
- Left = 42
- Top = 212
- Width = 153
- Height = 25
- Caption = 'Button2'
- PopupMenu = PopupMenu1
- TabOrder = 1
- OnClick = AButtonClick
- OnMouseDown = AButtonMouseDown
- OnMouseMove = AButtonMouseMove
- end
- object Button3: TButton
- Left = 42
- Top = 241
- Width = 153
- Height = 25
- Caption = 'Button3'
- PopupMenu = PopupMenu1
- TabOrder = 2
- OnClick = AButtonClick
- OnMouseDown = AButtonMouseDown
- OnMouseMove = AButtonMouseMove
- end
- object Button4: TButton
- Left = 42
- Top = 271
- Width = 153
- Height = 25
- Caption = 'Button4'
- PopupMenu = PopupMenu1
- TabOrder = 3
- OnClick = AButtonClick
- OnMouseDown = AButtonMouseDown
- OnMouseMove = AButtonMouseMove
- end
- object GroupBox1: TGroupBox
- Left = 8
- Top = 8
- Width = 225
- Height = 169
- Caption = ' Control Pad '
- TabOrder = 4
- object SaveBtn: TButton
- Left = 42
- Top = 32
- Width = 153
- Height = 25
- Caption = 'Save Form'
- TabOrder = 0
- OnClick = SaveBtnClick
- end
- object LoadBtn: TButton
- Left = 42
- Top = 72
- Width = 153
- Height = 25
- Caption = 'Load Form'
- TabOrder = 1
- OnClick = LoadBtnClick
- end
- object ShowCmpsBtn: TButton
- Left = 42
- Top = 112
- Width = 153
- Height = 25
- Caption = 'Show Components'
- TabOrder = 2
- OnClick = ShowCmpsBtnClick
- end
- end
- object PopupMenu1: TPopupMenu
- Left = 24
- Top = 184
- object AlignLeft1: TMenuItem
- Caption = 'Align &Left'
- ShortCut = 0
- OnClick = AlignLeft1Click
- end
- object AlignRight1: TMenuItem
- Caption = 'Align &Right'
- ShortCut = 0
- OnClick = AlignRight1Click
- end
- object AlignTop1: TMenuItem
- Caption = 'Align &Top'
- ShortCut = 0
- OnClick = AlignTop1Click
- end
- object AlignBottom1: TMenuItem
- Caption = 'Align &Bottom'
- ShortCut = 0
- OnClick = AlignBottom1Click
- end
- object MakeSameSize1: TMenuItem
- Caption = 'Make &Same Size'
- ShortCut = 0
- OnClick = MakeSameSize1Click
- end
- end
- end
-