home *** CD-ROM | disk | FTP | other *** search
- object FImage: TFImage
- Left = 617
- Top = 10
- BorderIcons = [biSystemMenu, biMinimize]
- BorderStyle = bsSingle
- Caption = 'Image coordinate'
- ClientHeight = 141
- ClientWidth = 257
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- FormStyle = fsStayOnTop
- Position = poScreenCenter
- PixelsPerInch = 96
- TextHeight = 13
- object Panel1: TPanel
- Left = 0
- Top = 108
- Width = 257
- Height = 33
- Align = alBottom
- Caption = 'Panel1'
- TabOrder = 0
- object Button1: TButton
- Left = 88
- Top = 4
- Width = 75
- Height = 25
- Caption = 'Hide'
- TabOrder = 0
- OnClick = Button1Click
- end
- end
- object Panel2: TPanel
- Left = 0
- Top = 0
- Width = 257
- Height = 108
- Align = alClient
- TabOrder = 1
- object Label1: TLabel
- Left = 16
- Top = 12
- Width = 18
- Height = 13
- Caption = 'Left'
- end
- object Label2: TLabel
- Left = 16
- Top = 35
- Width = 19
- Height = 13
- Caption = 'Top'
- end
- object Label3: TLabel
- Left = 16
- Top = 60
- Width = 25
- Height = 13
- Caption = 'Right'
- end
- object Label4: TLabel
- Left = 16
- Top = 83
- Width = 33
- Height = 13
- Caption = 'Bottom'
- end
- object ELeft: TEdit
- Left = 80
- Top = 8
- Width = 169
- Height = 21
- TabOrder = 0
- OnExit = ELeftExit
- end
- object ETop: TEdit
- Left = 80
- Top = 32
- Width = 169
- Height = 21
- TabOrder = 1
- OnExit = ETopExit
- end
- object ERight: TEdit
- Left = 80
- Top = 56
- Width = 169
- Height = 21
- TabOrder = 2
- OnExit = ERightExit
- end
- object EBottom: TEdit
- Left = 80
- Top = 80
- Width = 169
- Height = 21
- TabOrder = 3
- OnExit = EBottomExit
- end
- end
- end
-