blob: 3e38f21d0e6b87f26a30a601cb001f9607d1b246 (
plain)
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
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
|
object fsframe: Tfsframe
Left = 583
Top = 507
Width = 277
Height = 198
Caption = 'fs.frame'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PopupMenu = PopupMenu1
Position = poDefaultSizeOnly
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
OnMouseWheel = FormMouseWheel
PixelsPerInch = 96
TextHeight = 13
object LabelFoo: TLabel
Left = 8
Top = 136
Width = 44
Height = 13
Caption = 'LabelFoo'
Visible = False
end
object PanelMute: TPanel
Left = 0
Top = 0
Width = 269
Height = 171
Align = alClient
BevelOuter = bvNone
Caption = 'mute'
Ctl3D = True
ParentCtl3D = False
TabOrder = 1
end
object d1: TDXDraw
Left = 0
Top = 0
Width = 269
Height = 171
AutoInitialize = True
AutoSize = False
Color = clBtnFace
Display.FixedBitCount = False
Display.FixedRatio = False
Display.FixedSize = False
Options = [doStretch, doDirectX7Mode, doHardware, doSelectDriver]
SurfaceHeight = 171
SurfaceWidth = 269
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 0
OnMouseDown = d1MouseDown
OnMouseMove = d1MouseMove
OnMouseUp = d1MouseUp
end
object PopupMenu1: TPopupMenu
OnPopup = PopupMenu1Popup
Left = 8
Top = 8
object MiBufferImages: TMenuItem
Caption = 'Buffer images'
OnClick = MiBufferImagesClick
end
object MiSaveFrame: TMenuItem
Caption = 'Save this image as ..'
OnClick = MiSaveFrameClick
end
object Mi11: TMenuItem
Caption = 'zoom 1:&1'
OnClick = Mi11Click
end
object Mi12: TMenuItem
Caption = 'zoom 1:&2'
OnClick = Mi12Click
end
object Mi176x144: TMenuItem
Caption = 'zoom 176x144'
OnClick = Mi176x144Click
end
object MiMute: TMenuItem
Caption = 'Mute'
OnClick = MiMuteClick
end
object MiBorders: TMenuItem
Caption = 'Borders'
Checked = True
OnClick = MiBordersClick
end
object MiStayOnTop: TMenuItem
Caption = 'StayOnTop'
OnClick = MiStayOnTopClick
end
object MiMouseTrack: TMenuItem
Caption = 'MouseTrack'
OnClick = MiMouseTrackClick
end
object MiHideCursor: TMenuItem
Caption = 'HideCursor'
OnClick = MiHideCursorClick
end
object MiUndock: TMenuItem
Caption = 'Undock'
OnClick = MiUndockClick
end
end
object dDib: TDXDIB
Left = 8
Top = 40
end
object dirBuffer: TScanDir
OnHandleFile = dirBufferHandleFile
Left = 8
Top = 72
end
object opd1: TOpenPictureDialog
Filter = 'All (*.jpg;*.bmp;*.avi)|*.jpg;*.bmp;*.avi'
Options = [ofHideReadOnly, ofAllowMultiSelect, ofFileMustExist, ofEnableSizing]
Left = 8
Top = 104
end
object framepsh: TC2PhotoShopHost
SerialNumber = 0
BackColor = clBlack
ForeColor = clBlack
Left = 40
Top = 8
end
object svd1: TSaveDialog
Filter = '*.bmp|BMP files'
Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofEnableSizing]
Left = 40
Top = 104
end
object dirUse: TScanDir
OnHandleFile = dirUseHandleFile
Left = 40
Top = 72
end
end
|
