-
Notifications
You must be signed in to change notification settings - Fork 5
/
Copy pathUMain.dfm
125 lines (125 loc) · 2.76 KB
/
UMain.dfm
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
object FMain: TFMain
Left = 192
Top = 107
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = 'QuickView'
ClientHeight = 106
ClientWidth = 135
Color = clBlack
TransparentColorValue = 1
ParentFont = True
FormStyle = fsStayOnTop
KeyPreview = True
OldCreateOrder = False
PopupMenu = RMenu
Position = poScreenCenter
OnCreate = FormCreate
OnDestroy = FormDestroy
OnMouseDown = FormMouseDown
OnMouseMove = FormMouseMove
OnPaint = FormPaint
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object ImageAnimate: TImage
Left = 0
Top = 0
Width = 135
Height = 106
Align = alClient
Center = True
Proportional = True
Transparent = True
Visible = False
OnMouseDown = FormMouseDown
OnMouseMove = FormMouseMove
ExplicitLeft = 3
ExplicitTop = 3
ExplicitWidth = 106
ExplicitHeight = 135
end
object RMenu: TPopupMenu
Top = 1
object NewWinItem: TMenuItem
Caption = '&New Window...'
ShortCut = 16462
OnClick = NewWinItemClick
end
object FileMenu: TMenuItem
Caption = '&Open...'
ShortCut = 16463
OnClick = FileMenuClick
end
object ViewMenu: TMenuItem
Caption = '&View as'
object View200: TMenuItem
Tag = 200
Caption = '200%'
RadioItem = True
OnClick = PercentClick
end
object View100: TMenuItem
Tag = 100
Caption = '100%'
Checked = True
RadioItem = True
OnClick = PercentClick
end
object View075: TMenuItem
Tag = 75
Caption = '75%'
RadioItem = True
OnClick = PercentClick
end
object View050: TMenuItem
Tag = 50
Caption = '50%'
RadioItem = True
OnClick = PercentClick
end
object View025: TMenuItem
Tag = 25
Caption = '25%'
RadioItem = True
OnClick = PercentClick
end
object View010: TMenuItem
Tag = 10
Caption = '10%'
RadioItem = True
OnClick = PercentClick
end
end
object PercentMenu: TMenuItem
Caption = '&Resize...'
OnClick = PercentMenuClick
end
object TransMenu: TMenuItem
Caption = '&Transparent...'
OnClick = TransMenuClick
end
object VFlip: TMenuItem
Caption = '&Vertical Flip'
OnClick = VFlipClick
end
object HFlip: TMenuItem
Caption = '&Horizontal Flip'
OnClick = HFlipClick
end
object Pin: TMenuItem
Caption = '&Pin'
OnClick = PinClick
end
object ExitMenu: TMenuItem
Caption = 'E&xit'
ShortCut = 27
OnClick = ExitMenuClick
end
end
object OpenBmpDlg: TOpenPictureDialog
FileName = 'sample.bmp'
Left = 30
Top = 1
end
end