home *** CD-ROM | disk | FTP | other *** search
- object Form3: TForm3
- Left = 237
- Top = 144
- BorderStyle = bsNone
- Caption = 'Form3'
- ClientHeight = 124
- ClientWidth = 125
- Color = clSilver
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- FormStyle = fsStayOnTop
- PopupMenu = PopupMenu1
- Position = poScreenCenter
- OnActivate = FormActivate
- OnClose = FormClose
- OnCreate = FormCreate
- OnMouseDown = FormMouseDown
- OnMouseMove = FormMouseMove
- OnMouseUp = FormMouseUp
- PixelsPerInch = 120
- TextHeight = 16
- object Bevel1: TBevel
- Left = 0
- Top = 0
- Width = 124
- Height = 123
- Style = bsRaised
- end
- object Bevel2: TBevel
- Left = 6
- Top = 6
- Width = 111
- Height = 111
- end
- object PaintBox1: TPaintBox
- Left = 7
- Top = 7
- Width = 108
- Height = 108
- ParentShowHint = False
- ShowHint = False
- OnMouseDown = FormMouseDown
- OnMouseMove = FormMouseMove
- OnMouseUp = FormMouseUp
- OnPaint = PaintBox1Paint
- end
- object PopupMenu1: TPopupMenu
- Left = 80
- Top = 16
- object Zapri1: TMenuItem
- Caption = 'Hide'
- Default = True
- ShortCut = 0
- OnClick = Zapri1Click
- end
- object N1: TMenuItem
- Caption = '-'
- ShortCut = 0
- end
- object Zoom3x1: TMenuItem
- Caption = 'Zoom 3x'
- GroupIndex = 1
- RadioItem = True
- ShortCut = 0
- OnClick = Zoom3x1Click
- end
- object Zoom5x1: TMenuItem
- Caption = 'Zoom 5x'
- Checked = True
- GroupIndex = 1
- RadioItem = True
- ShortCut = 0
- OnClick = Zoom5x1Click
- end
- object Zoom10x1: TMenuItem
- Caption = 'Zoom 10x'
- GroupIndex = 1
- RadioItem = True
- ShortCut = 0
- OnClick = Zoom10x1Click
- end
- end
- object Timer1: TTimer
- OnTimer = Timer1Timer
- Left = 8
- Top = 8
- end
- end
-