-
-
Notifications
You must be signed in to change notification settings - Fork 4
/
ItemPicturesForm.dfm
185 lines (185 loc) · 4.73 KB
/
ItemPicturesForm.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
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
object fItemPicturesForm: TfItemPicturesForm
Left = 546
Top = 133
BorderStyle = bsDialog
Caption = 'fItemPicturesForm'
ClientHeight = 560
ClientWidth = 688
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
Position = poMainFormCenter
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object lblPictures: TLabel
Left = 8
Top = 8
Width = 48
Height = 13
Caption = 'lblPictures'
end
object lbPictures: TListBox
Left = 8
Top = 24
Width = 537
Height = 529
Style = lbOwnerDrawFixed
IntegralHeight = True
ItemHeight = 35
PopupMenu = pmnPictures
TabOrder = 0
OnClick = lbPicturesClick
OnDblClick = lbPicturesDblClick
OnDrawItem = lbPicturesDrawItem
OnMouseDown = lbPicturesMouseDown
end
object gbPictureDetails: TGroupBox
Left = 552
Top = 8
Width = 129
Height = 545
Caption = 'Picture details'
TabOrder = 1
inline frmItemPictureFrame: TfrmItemPictureFrame
Left = 8
Top = 16
Width = 112
Height = 522
Constraints.MaxWidth = 112
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 0
end
end
object pmnPictures: TPopupMenu
OnPopup = pmnPicturesPopup
Left = 520
object mniIP_Add: TMenuItem
Caption = 'Add pictures...'
ShortCut = 45
OnClick = mniIP_AddClick
end
object mniIP_LoadThumb: TMenuItem
Caption = 'Load thumbnail for selected picture...'
ShortCut = 8237
OnClick = mniIP_LoadThumbClick
end
object mniIP_AddWithThumb: TMenuItem
Caption = 'Add picture with thumbnail...'
ShortCut = 16429
OnClick = mniIP_AddWithThumbClick
end
object mniIP_AddMultiThumb: TMenuItem
Caption = 'Add pictures and autoload thumbnails...'
OnClick = mniIP_AddMultiThumbClick
end
object mniIP_Remove: TMenuItem
Caption = 'Remove selected picture'
ShortCut = 46
OnClick = mniIP_RemoveClick
end
object mniIP_RemoveAll: TMenuItem
Caption = 'Remove all pictures'
ShortCut = 8238
OnClick = mniIP_RemoveAllClick
end
object N1: TMenuItem
Caption = '-'
end
object mniIP_Rename: TMenuItem
Caption = 'Auto-rename selected picture'
ShortCut = 16462
OnClick = mniIP_RenameClick
end
object mniIP_RenameAll: TMenuItem
Caption = 'Auto-rename all pictures'
ShortCut = 49230
OnClick = mniIP_RenameAllClick
end
object N2: TMenuItem
Caption = '-'
end
object mniIP_Reload: TMenuItem
Caption = 'Reload picture info'
ShortCut = 16466
OnClick = mniIP_ReloadClick
end
object mniIP_ReloadAll: TMenuItem
Caption = 'Reload all pictures info'
ShortCut = 49234
OnClick = mniIP_ReloadAllClick
end
object N3: TMenuItem
Caption = '-'
end
object mniIP_ImportPics: TMenuItem
Caption = 'Import picture list from another item...'
ShortCut = 16461
OnClick = mniIP_ImportPicsClick
end
object mniIP_ExportPic: TMenuItem
Caption = 'Export picture...'
ShortCut = 16453
OnClick = mniIP_ExportPicClick
end
object mniIP_ExportThumb: TMenuItem
Caption = 'Export thumbnail...'
OnClick = mniIP_ExportThumbClick
end
object mniIP_ExportPicAll: TMenuItem
Caption = 'Export all pictures...'
OnClick = mniIP_ExportPicAllClick
end
object mniIP_ExportThumbAll: TMenuItem
Caption = 'Export all thumbnails...'
OnClick = mniIP_ExportThumbAllClick
end
object N4: TMenuItem
Caption = '-'
end
object mniIP_ItemPicture: TMenuItem
Caption = 'Item picture'
ShortCut = 16457
OnClick = mniIP_ItemPictureClick
end
object mniIP_PackagePicture: TMenuItem
Caption = 'Package picture'
ShortCut = 16464
OnClick = mniIP_PackagePictureClick
end
object mniIP_SecondaryPicture: TMenuItem
Caption = 'Current secondary picture'
ShortCut = 16463
OnClick = mniIP_SecondaryPictureClick
end
object N5: TMenuItem
Caption = '-'
end
object mniIP_MoveUp: TMenuItem
Caption = 'Move up'
OnClick = mniIP_MoveUpClick
end
object mniIP_MoveDown: TMenuItem
Caption = 'Move down'
OnClick = mniIP_MoveDownClick
end
end
object diaOpenDialog: TOpenDialog
Options = [ofHideReadOnly, ofAllowMultiSelect, ofPathMustExist, ofFileMustExist, ofEnableSizing]
Left = 456
end
object diaSaveDialog: TSaveDialog
Left = 488
end
end