home *** CD-ROM | disk | FTP | other *** search
- object Form1: TForm1
- Left = 205
- Top = 144
- Width = 505
- Height = 372
- Caption = 'FormMagnet demo (http://www.appcontrols.com)'
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- PixelsPerInch = 96
- TextHeight = 13
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 497
- Height = 29
- Align = alTop
- TabOrder = 0
- object BitBtn1: TBitBtn
- Left = 2
- Top = 2
- Width = 127
- Height = 25
- Caption = '&Add Window'
- TabOrder = 0
- OnClick = BitBtn1Click
- Glyph.Data = {
- 4E010000424D4E01000000000000760000002800000012000000120000000100
- 040000000000D8000000CE0E0000D80E00000000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
- 77777700000070000000000007777700000070033333333330777700000070B0
- 3333333333077700000070F80333333333307700000070B80333333333330700
- 000070F8F000033333330700000070B8FFFFF00000000700000070F8F777777F
- 70777700000070B8FFFFFFFF0007770000007708F7777FF8AA07770000007778
- FFFFFF88AA00770000007778F77778AAAAAA070000007778FFFFF8AAAAAA0700
- 0000777888888888AA0077000000777777777778AA0777000000777777777777
- 887777000000777777777777777777000000}
- end
- object BitBtn2: TBitBtn
- Left = 156
- Top = 2
- Width = 131
- Height = 25
- Caption = '&Add "Sub-Window"'
- TabOrder = 1
- OnClick = BitBtn2Click
- Glyph.Data = {
- 4E010000424D4E01000000000000760000002800000012000000120000000100
- 040000000000D8000000CE0E0000D80E00000000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
- 77777700000070000000000007777700000070033333333330777700000070B0
- 3333333333077700000070F80333333333307700000070B80333333333330700
- 000070F8F000033333330700000070B8FFFFF00000000700000070F8F777777F
- 70777700000070B8FFFFFFFF0007770000007708F7777FF8AA07770000007778
- FFFFFF88AA00770000007778F77778AAAAAA070000007778FFFFF8AAAAAA0700
- 0000777888888888AA0077000000777777777778AA0777000000777777777777
- 887777000000777777777777777777000000}
- end
- end
- object ScrollBox: TScrollBox
- Left = 0
- Top = 29
- Width = 497
- Height = 316
- HorzScrollBar.Tracking = True
- VertScrollBar.Tracking = True
- Align = alClient
- TabOrder = 1
- object Label1: TLabel
- Left = 6
- Top = 6
- Width = 187
- Height = 13
- Caption = 'Move main form near the screen edges.'
- end
- object Label2: TLabel
- Left = 6
- Top = 20
- Width = 433
- Height = 13
- Caption =
- 'Open child windows (using buttons above) to move them on screen ' +
- 'and near other windows'
- end
- end
- object FormMagnet1: TFormMagnet
- Active = True
- Glue = False
- FormDragable = False
- MagnetType = mkOnMoving
- Power = 20
- ScreenMagnet.Area = saWorkArea
- ScreenMagnet.DesktopPower = 20
- ScreenMagnet.Top = True
- ScreenMagnet.Bottom = True
- ScreenMagnet.Left = True
- ScreenMagnet.Right = True
- Left = 208
- Top = 129
- end
- end
-