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
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
| /*****************************************************************************
Copyright (c) My Company
Project: CATALOG
FileName: CATALOG.PRO
Purpose: No description
Written by: Visual Prolog
Comments:
******************************************************************************/
include "catalog.inc"
include "catalog.con"
include "hlptopic.con"
%BEGIN_WIN Task Window
/***************************************************************************
Event handling for Task Window
***************************************************************************/
predicates
task_win_eh : EHANDLER
constants
%BEGIN Task Window, CreateParms, 22:55:40-19.1.2012, Code automatically updated!
task_win_Flags = [wsf_SizeBorder,wsf_TitleBar,wsf_Close,wsf_Maximize,wsf_Minimize,wsf_ClipSiblings]
task_win_Menu = res_menu(idr_task_menu)
task_win_Title = "catalog"
task_win_Help = idh_contents
%END Task Window, CreateParms
clauses
%BEGIN Task Window, e_Create
task_win_eh(_Win,e_Create(_),0):-!,
%BEGIN Task Window, InitControls, 22:55:40-19.1.2012, Code automatically updated!
%END Task Window, InitControls
%BEGIN Task Window, ToolbarCreate, 22:55:40-19.1.2012, Code automatically updated!
tb_project_toolbar_Create(_Win),
tb_help_line_Create(_Win),
%END Task Window, ToolbarCreate
ifdef use_message
msg_Create(100),
enddef
!.
%END Task Window, e_Create
%MARK Task Window, new events
%BEGIN Task Window, id_Catalog_open
task_win_eh(_Win,e_Menu(id_Catalog_open,_ShiftCtlAlt),0):-!,
win_new_window_Create(_Win),
!.
%END Task Window, id_Catalog_open
%BEGIN Task Window, id_help_contents
task_win_eh(_Win,e_Menu(id_help_contents,_ShiftCtlAlt),0):-!,
vpi_ShowHelp("catalog.hlp"),
!.
%END Task Window, id_help_contents
%BEGIN Task Window, id_help_about
task_win_eh(Win,e_Menu(id_help_about,_ShiftCtlAlt),0):-!,
dlg_about_dialog_Create(Win),
!.
%END Task Window, id_help_about
%BEGIN Task Window, id_file_exit
task_win_eh(Win,e_Menu(id_file_exit,_ShiftCtlAlt),0):-!,
win_Destroy(Win),
!.
%END Task Window, id_file_exit
%BEGIN Task Window, e_Size
task_win_eh(_Win,e_Size(_Width,_Height),0):-!,
ifdef use_tbar
toolbar_Resize(_Win),
enddef
ifdef use_message
msg_Resize(_Win),
enddef
!.
%END Task Window, e_Size
%END_WIN Task Window
/***************************************************************************
Invoking on-line Help
***************************************************************************/
project_ShowHelpContext(HelpTopic):-
vpi_ShowHelpContext("catalog.hlp",HelpTopic).
/***************************************************************************
Main Goal
***************************************************************************/
goal
ifdef use_mdi
vpi_SetAttrVal(attr_win_mdi,b_true),
enddef
ifdef ws_win
ifdef use_3dctrl
vpi_SetAttrVal(attr_win_3dcontrols,b_true),
enddef
enddef
vpi_Init(task_win_Flags,task_win_eh,task_win_Menu,"catalog",task_win_Title).
%BEGIN_TLB Project toolbar, 22:55:40-19.1.2012, Code automatically updated!
/**************************************************************************
Creation of toolbar: Project toolbar
**************************************************************************/
clauses
tb_project_toolbar_Create(_Parent):-
ifdef use_tbar
toolbar_create(tb_top,0xC0C0C0,_Parent,
[tb_ctrl(id_file_new,pushb,idb_new_up,idb_new_dn,idb_new_up,"New;New file",1,1),
tb_ctrl(id_file_open,pushb,idb_open_up,idb_open_dn,idb_open_up,"Open;Open file",1,1),
tb_ctrl(id_file_save,pushb,idb_save_up,idb_save_dn,idb_save_up,"Save;File save",1,1),
separator,
tb_ctrl(id_edit_undo,pushb,idb_undo_up,idb_undo_dn,idb_undo_up,"Undo;Undo",1,1),
tb_ctrl(id_edit_redo,pushb,idb_redo_up,idb_redo_dn,idb_redo_up,"Redo;Redo",1,1),
separator,
tb_ctrl(id_edit_cut,pushb,idb_cut_up,idb_cut_dn,idb_cut_up,"Cut;Cut to clipboard",1,1),
tb_ctrl(id_edit_copy,pushb,idb_copy_up,idb_copy_dn,idb_copy_up,"Copy;Copy to clipboard",1,1),
tb_ctrl(id_edit_paste,pushb,idb_paste_up,idb_paste_dn,idb_paste_up,"Paste;Paste from clipboard",1,1),
separator,
separator,
tb_ctrl(id_help_contents,pushb,idb_help_up,idb_help_down,idb_help_up,"Help;Help",1,1)]),
enddef
true.
%END_TLB Project toolbar
%BEGIN_TLB Help line, 22:55:40-19.1.2012, Code automatically updated!
/**************************************************************************
Creation of toolbar: Help line
**************************************************************************/
clauses
tb_help_line_Create(_Parent):-
ifdef use_tbar
toolbar_create(tb_bottom,0xC0C0C0,_Parent,
[tb_text(idt_help_line,tb_context,452,0,4,10,0x0,"")]),
enddef
true.
%END_TLB Help line
%BEGIN_DLG About dialog
/**************************************************************************
Creation and event handling for dialog: About dialog
**************************************************************************/
constants
%BEGIN About dialog, CreateParms, 22:55:40-19.1.2012, Code automatically updated!
dlg_about_dialog_ResID = idd_dlg_about
dlg_about_dialog_DlgType = wd_Modal
dlg_about_dialog_Help = idh_contents
%END About dialog, CreateParms
predicates
dlg_about_dialog_eh : EHANDLER
clauses
dlg_about_dialog_Create(Parent):-
win_CreateResDialog(Parent,dlg_about_dialog_DlgType,dlg_about_dialog_ResID,dlg_about_dialog_eh,0).
%BEGIN About dialog, idc_ok _CtlInfo
dlg_about_dialog_eh(_Win,e_Control(idc_ok,_CtrlType,_CtrlWin,_CtrlInfo),0):-!,
win_Destroy(_Win),
!.
%END About dialog, idc_ok _CtlInfo
%MARK About dialog, new events
dlg_about_dialog_eh(_,_,_):-!,fail.
%END_DLG About dialog
%BEGIN_WIN New_window
/**************************************************************************
Creation and event handling for window: New_window
**************************************************************************/
constants
%BEGIN New_window, CreateParms, 23:16:22-19.1.2012, Code automatically updated!
win_new_window_WinType = w_TopLevel
win_new_window_Flags = [wsf_SizeBorder,wsf_TitleBar,wsf_Maximize,wsf_Minimize,wsf_Close,wsf_ClipSiblings,wsf_ClipChildren]
win_new_window_RCT = rct(100,80,858,353)
win_new_window_Menu = no_menu
win_new_window_Title = "Каталог видеокарт"
win_new_window_Help = idh_contents
%END New_window, CreateParms
predicates
win_new_window_eh : EHANDLER
nondeterm cycle(integer,integer,integer)
nondeterm video(Window, integer)
clauses
win_new_window_Create(_Parent):-
win_Create(win_new_window_WinType,win_new_window_RCT,win_new_window_Title,
win_new_window_Menu,_Parent,win_new_window_Flags,win_new_window_eh,0).
%BEGIN New_window, e_Create
win_new_window_eh(_Win,e_Create(_),0):-!,
%BEGIN New_window, InitControls, 23:16:22-19.1.2012, Code automatically updated!
win_CreateControl(wc_Edit,rct(590,65,686,89),"",_Win,[wsf_Group,wsf_TabStop,wsf_AutoHScroll,wsf_AlignLeft],id_edit1),
win_CreateControl(wc_PushButton,rct(590,139,686,163),"OK",_Win,[wsf_Group,wsf_TabStop],id_button),
win_CreateControl(wc_LBox,rct(12,47,362,247),"",_Win,[wsf_Group,wsf_TabStop,wsf_VScroll,wsf_Sort,wsf_NoIntegralHeight],id_list1),
win_CreateControl(wc_LBox,rct(360,47,460,247),"",_Win,[wsf_Group,wsf_TabStop,wsf_VScroll,wsf_Sort,wsf_NoIntegralHeight],id_list2),
win_CreateControl(wc_LBox,rct(476,179,501,214),"",_Win,[wsf_Group,wsf_TabStop,wsf_VScroll,wsf_Sort,wsf_NoIntegralHeight,wsf_Invisible],id_list3),
win_CreateControl(wc_LBox,rct(504,180,523,210),"",_Win,[wsf_Group,wsf_TabStop,wsf_VScroll,wsf_Sort,wsf_NoIntegralHeight,wsf_Invisible],id_list4),
win_CreateControl(wc_LBox,rct(529,179,544,217),"",_Win,[wsf_Group,wsf_TabStop,wsf_VScroll,wsf_Sort,wsf_NoIntegralHeight,wsf_Invisible],id_list5),
win_CreateControl(wc_Text,rct(11,17,160,37),"Список видеокарт",_Win,[wsf_AlignLeft],id_video),
win_CreateControl(wc_Text,rct(360,17,456,37),"Цена, руб",_Win,[wsf_AlignLeft],id_coast),
win_CreateControl(wc_LBox,rct(550,180,580,216),"",_Win,[wsf_Group,wsf_TabStop,wsf_VScroll,wsf_Sort,wsf_NoIntegralHeight,wsf_Invisible],id_list6),
win_CreateControl(wc_Edit,rct(590,103,686,127),"",_Win,[wsf_Group,wsf_TabStop,wsf_AutoHScroll,wsf_AlignLeft],id_edit2),
win_CreateControl(wc_Text,rct(475,66,517,86),"Кэш:",_Win,[wsf_AlignLeft],idc_my_window_1),
win_CreateControl(wc_Text,rct(475,105,583,125),"Объем памяти:",_Win,[wsf_AlignLeft],idc_my_window_9),
win_CreateControl(wc_Text,rct(695,65,719,85),"Кб",_Win,[wsf_AlignLeft],idc_my_window_10),
win_CreateControl(wc_Text,rct(695,103,718,123),"Мб",_Win,[wsf_AlignLeft],idc_my_window_15),
%END New_window, InitControls
%BEGIN New_window, ToolbarCreate, 23:16:22-19.1.2012, Code automatically updated!
%END New_window, ToolbarCreate
!.
%END New_window, e_Create
%MARK New_window, new events
%BEGIN New_window, id_button _CtlInfo
win_new_window_eh(_Win,e_Control(id_button,_CtrlType,_CtrlWin,_CtlInfo),0):-!,
Lb1=win_GetCtlHandle(_Win, id_list1),
Lb2=win_GetCtlHandle(_Win, id_list2),
Lb3=win_GetCtlHandle(_Win, id_list3),
Lb4=win_GetCtlHandle(_Win, id_list4),
Lb5=win_GetCtlHandle(_Win, id_list5),
Lb6=win_GetCtlHandle(_Win, id_list6),
lbox_Clear(Lb1),
lbox_Clear(Lb2),
lbox_Clear(Lb3),
lbox_Clear(Lb4),
lbox_Clear(Lb5),
lbox_Add(Lb3, 0, "Asus GeForce GTX 580"),
lbox_Add(Lb3, 1, "GigaByte GeForce GTX 570"),
lbox_Add(Lb3, 2, "Sapphire AMD Radeon HD6970"),
lbox_Add(Lb3, 3, "Palit GeForce GTX 570 Sonic Platinum"),
lbox_Add(Lb3, 4, "GigaByte AMD Radeon HD6970"),
lbox_Add(Lb3, 5, "Sapphire AMD Radeon HD6570"),
lbox_Add(Lb3, 6, "Gigabyte GeForce GTX 560Ti-448"),
lbox_Add(Lb3, 7, "Palit GeForce GTX 570"),
lbox_Add(Lb3, 8, "Asus GeForce GTX 560 Ti"),
lbox_Add(Lb3, 9, "Palit GeForce GTX 560 Ti"),
lbox_Add(Lb3, 10, "AMD Radeon HD6870 Vapor-X"),
lbox_Add(Lb3, 11, "Zotac GeForce GTX 560"),
lbox_Add(Lb3, 12, "Palit GeForce GTS 450 Sonic"),
lbox_Add(Lb3, 13, "Asus AMD Radeon HD6770"),
lbox_Add(Lb3, 14, "GigaByte GeForce GT 430"),
lbox_SetSel(Lb3, 0, b_true),
lbox_Add(Lb4, 0, "512"),
lbox_Add(Lb4, 1, "512"),
lbox_Add(Lb4, 2, "256"),
lbox_Add(Lb4, 3, "512"),
lbox_Add(Lb4, 4, "256"),
lbox_Add(Lb4, 5, "128"),
lbox_Add(Lb4, 6, "128"),
lbox_Add(Lb4, 7, "128"),
lbox_Add(Lb4, 8, "128"),
lbox_Add(Lb4, 9, "256"),
lbox_Add(Lb4, 10, "64"),
lbox_Add(Lb4, 11, "64"),
lbox_Add(Lb4, 12, "128"),
lbox_Add(Lb4, 13, "64"),
lbox_Add(Lb4, 14, "64"),
lbox_SetSel(Lb4, 0, b_true),
lbox_Add(Lb5, 0, "17495"),
lbox_Add(Lb5, 1, "13395"),
lbox_Add(Lb5, 2, "12795"),
lbox_Add(Lb5, 3, "12595"),
lbox_Add(Lb5, 4, "11595"),
lbox_Add(Lb5, 5, "11495"),
lbox_Add(Lb5, 6, "8995"),
lbox_Add(Lb5, 7, "7895"),
lbox_Add(Lb5, 8, "7495"),
lbox_Add(Lb5, 9, "6295"),
lbox_Add(Lb5, 10, "5895"),
lbox_Add(Lb5, 11, "5495"),
lbox_Add(Lb5, 12, "4695"),
lbox_Add(Lb5, 13, "4195"),
lbox_Add(Lb5, 14, "3195"),
lbox_SetSel(Lb5, 0, b_true),
lbox_Add(Lb6, 0, "1024"),
lbox_Add(Lb6, 1, "1024"),
lbox_Add(Lb6, 2, "1024"),
lbox_Add(Lb6, 3, "512"),
lbox_Add(Lb6, 4, "512"),
lbox_Add(Lb6, 5, "1024"),
lbox_Add(Lb6, 6, "1024"),
lbox_Add(Lb6, 7, "512"),
lbox_Add(Lb6, 8, "512"),
lbox_Add(Lb6, 9, "1024"),
lbox_Add(Lb6, 10, "1024"),
lbox_Add(Lb6, 11, "512"),
lbox_Add(Lb6, 12, "512"),
lbox_Add(Lb6, 13, "512"),
lbox_Add(Lb6, 14, "512"),
lbox_SetSel(Lb6, 0, b_true),
Y=lbox_CountAll(Lb3)-1,
video(_Win, Y),
!.
%END New_window, id_button _CtlInfo
%BEGIN New_window, e_Size
win_new_window_eh(_Win,e_Size(_Width,_Height),0):-!,
ifdef use_tbar
toolbar_Resize(_Win),
enddef
!.
%END New_window, e_Size
%BEGIN New_window, e_Menu, Parent window
win_new_window_eh(Win,e_Menu(ID,CAS),0):-!,
PARENT = win_GetParent(Win),
win_SendEvent(PARENT,e_Menu(ID,CAS)),
!.
%END New_window, e_Menu, Parent window
%END_WIN New_window
cycle(X,X,_).
cycle(J,X,Y):-X<Y,Xnew=X+1,cycle(J,Xnew,Y).
video(Win,Y):-cycle(J,0,Y),
Lb1=win_GetCtlHandle(Win, id_list1),
Lb2=win_GetCtlHandle(Win, id_list2),
Lb3=win_GetCtlHandle(Win, id_list3),
Lb4=win_GetCtlHandle(Win, id_list4),
Lb5=win_GetCtlHandle(Win, id_list5),
Lb6=win_GetCtlHandle(Win, id_list6),
String3=lbox_GetItem(Lb3,J),
String4=lbox_GetItem(Lb4,J),
String5=lbox_GetItem(Lb5,J),
String6=lbox_GetItem(Lb6,J),
Ctl1=win_GetCtlHandle(Win,id_edit1),
Ctl2=win_GetCtlHandle(Win,id_edit2),
String1=win_GetText(Ctl1),
String1=String4,
String2=win_GetText(Ctl2),
String2=String6,
lbox_Add(Lb1, 0, String3),
lbox_Add(Lb2, 0, String5),
fail;
true.
video(_,_). |