vdfsplat / AppSrc / ObjectInspector.dg
History | View | Annotate | Download (92.4 KB)
1 | 19 | wil | Use Windows |
---|---|---|---|
2 | Use DfError |
||
3 | Use MsgBox |
||
4 | Use DfTreeVw |
||
5 | Use DfSpnFrm |
||
6 | Use File_Dlg |
||
7 | Use Seq_Chnl |
||
8 | Use DfTimer |
||
9 | Use DfOtPanl // TopMostMixin class |
||
10 | Use cOutputWindow.pkg // include getclassname declaration |
||
11 | Use cWorkingPanel.pkg |
||
12 | 20 | wil | Use cProgramObjects.pkg |
13 | 22 | wil | Use cImageList32.pkg |
14 | 38 | wil | Use cCJGrid.pkg |
15 | 49 | wil | Use cReadOnlyCheckbox.pkg |
16 | 38 | wil | Use Windows.pkg |
17 | 19 | wil | |
18 | 25 | wil | Define CS_CRLF For (Character(13)+Character(10)) |
19 | |||
20 | |||
21 | 38 | wil | Struct tFieldOptions |
22 | 39 | wil | Boolean bAutoFind |
23 | Boolean bAutofindGE |
||
24 | Boolean bCapsLock |
||
25 | Boolean bCommit |
||
26 | Boolean bForcePut |
||
27 | Boolean bNoEnter |
||
28 | Boolean bNoPut |
||
29 | Boolean bDisplayOnly |
||
30 | Boolean bZeroSuppress |
||
31 | Boolean bRequired |
||
32 | Boolean bFindReq |
||
33 | Boolean bRetain |
||
34 | Boolean bRetainAll |
||
35 | Boolean bSkipFound |
||
36 | 40 | wil | Boolean bKeyField |
37 | 38 | wil | End_Struct |
38 | |||
39 | 45 | wil | Struct tForeignFieldOptions |
40 | Boolean bAllowNewSave |
||
41 | 50 | wil | Boolean bReadOnly |
42 | 45 | wil | tFieldOptions ddDefault |
43 | tFieldOptions ddIndex |
||
44 | tFieldOptions ddKey |
||
45 | End_Struct |
||
46 | |||
47 | 39 | wil | Struct tColumn |
48 | Integer iNr |
||
49 | String sName |
||
50 | Integer eDfType |
||
51 | Integer iLength |
||
52 | Integer iPrecision |
||
53 | Boolean bChanged |
||
54 | String sDDValue |
||
55 | String sRBValue |
||
56 | 40 | wil | Integer iMainIndex |
57 | 39 | wil | End_Struct |
58 | 38 | wil | |
59 | 40 | wil | Struct tServer |
60 | Handle hoDD |
||
61 | Integer iFile |
||
62 | String sName |
||
63 | 49 | wil | Boolean bNullAllowed |
64 | Boolean bNoSwitch |
||
65 | 40 | wil | End_Struct |
66 | |||
67 | Struct tClient |
||
68 | Handle hoDD |
||
69 | Integer iFile |
||
70 | String sName |
||
71 | End_Struct |
||
72 | |||
73 | 39 | wil | Struct tTable |
74 | Integer iNr |
||
75 | String sName |
||
76 | Boolean bChangedState |
||
77 | Boolean bShouldSave |
||
78 | 40 | wil | Boolean bInUse |
79 | Boolean bAutoFill |
||
80 | 42 | wil | Boolean bFillFromFirst |
81 | 49 | wil | Boolean bProtectKey |
82 | Boolean bReadOnly |
||
83 | Boolean bCascadeDelete |
||
84 | Boolean bNoDelete |
||
85 | Boolean bNoCascadeDeleteStrict |
||
86 | Boolean bNoRelate |
||
87 | Boolean bParentChanged |
||
88 | Boolean bInheritConstraints |
||
89 | Boolean bUseDDRelates |
||
90 | 42 | wil | Integer iOrdering |
91 | 45 | wil | tForeignFieldOptions Foreign |
92 | 39 | wil | tColumn[] Columns |
93 | 40 | wil | tServer[] Servers |
94 | tClient[] Clients |
||
95 | 39 | wil | End_Struct |
96 | |||
97 | |||
98 | 19 | wil | Class ObjectTreeView Is A TreeView |
99 | |||
100 | Procedure Private_VScroll |
||
101 | End_Procedure // |
||
102 | |||
103 | Procedure Private_MouseWheel |
||
104 | End_Procedure // |
||
105 | |||
106 | Function Child_Object_Name Handle hoChild Returns String |
||
107 | String sChildName |
||
108 | |||
109 | Get ShortName of oProgram hoChild To sChildName |
||
110 | Move (sChildName+", id=("+trim(hoChild)+")") to sChildName |
||
111 | Function_Return sChildName |
||
112 | End_Function |
||
113 | |||
114 | |||
115 | Procedure AddChildren Integer hoRoot Handle hRoot Integer hoTarget |
||
116 | Integer iChildren iChild |
||
117 | String sChildName |
||
118 | Handle hChild hoPrevChild hoChild |
||
119 | String sClassname |
||
120 | Integer iImage |
||
121 | Integer iItemData |
||
122 | 20 | wil | Boolean bClientArea |
123 | 19 | wil | |
124 | Move -1 to hoChild |
||
125 | If hoRoot Ne 0 Begin |
||
126 | Get ChildCount Of oProgram hoRoot To iChildren |
||
127 | |||
128 | For iChild From 1 To iChildren |
||
129 | |||
130 | If (hoChild=-1) Begin |
||
131 | Get FirstChild Of oProgram hoRoot To hoChild |
||
132 | End |
||
133 | Else Begin |
||
134 | If (hoChild>0) Begin |
||
135 | Move hoChild To hoPrevChild |
||
136 | 29 | wil | //Get NextChild Of oProgram hoRoot hoPrevChild To hoChild |
137 | Get NextChild Of oProgram hoPrevChild To hoChild |
||
138 | 19 | wil | If (hoChild=hoPrevChild) Begin |
139 | Move 0 To hoChild |
||
140 | End |
||
141 | End // hoChild |
||
142 | End |
||
143 | |||
144 | |||
145 | If (hoChild > 0) Begin |
||
146 | Get Child_Object_Name hoChild to sChildName |
||
147 | Get xBitmapIDForObj of oProgram hoChild To iImage |
||
148 | 20 | wil | Get Debuggee_Client_Area_State of oProgram hoChild to bClientArea |
149 | If (bClientArea) Begin |
||
150 | 19 | wil | Move (tvPDSClient * 65536 + hoChild) To iItemData |
151 | End |
||
152 | Else Begin |
||
153 | Move (tvPDSNormal * 65536 + hoChild) To iItemData |
||
154 | End |
||
155 | Get AddTreeItem sChildName hRoot iItemData iImage iImage To hChild |
||
156 | Send AddChildren hoChild hChild hoTarget |
||
157 | 37 | wil | If (hoChild = hoTarget) Begin |
158 | Set CurrentTreeItem To hChild |
||
159 | Set ItemBold hChild To True // Object equal to Self is in Bold |
||
160 | End |
||
161 | 19 | wil | End |
162 | Loop |
||
163 | End |
||
164 | End_Procedure // AddChildren |
||
165 | |||
166 | |||
167 | Procedure AddDesktopChildren Handle hRoot Integer hoCurrentDesktopBranch Integer hoTarget |
||
168 | Integer iChildren hoChild iChild |
||
169 | 25 | wil | Integer iChildCount |
170 | 19 | wil | String sChildName |
171 | 25 | wil | Boolean bClientArea |
172 | 19 | wil | Handle hChild hoPrevChild |
173 | |||
174 | Get ChildCount of oProgram Desktop to iChildren |
||
175 | Move -1 to hoChild |
||
176 | For iChild From 1 To iChildren |
||
177 | |||
178 | If (hoChild=-1) Begin // **WvA |
||
179 | Get FirstChild Of oProgram Desktop To hoChild |
||
180 | End |
||
181 | Else Begin |
||
182 | If (hoChild>0) Begin |
||
183 | Move hoChild To hoPrevChild |
||
184 | 29 | wil | //Get NextChild Of oProgram Desktop hoPrevChild To hoChild |
185 | Get NextChild Of oProgram hoPrevChild To hoChild |
||
186 | 19 | wil | End |
187 | End |
||
188 | If (hoChild > 0) Begin |
||
189 | Get Child_Object_Name hoChild to sChildName |
||
190 | 25 | wil | Get PropertyBooleanEval of oProgram "Client_Area_State" hoChild To bClientArea |
191 | If (bClientArea) Begin |
||
192 | 19 | wil | Get AddTreeItem sChildName hRoot (tvPDSClient * 65536 + hoChild) bmpPDSClient bmpPDSClient to hChild |
193 | End |
||
194 | Else Begin |
||
195 | Get AddTreeItem sChildName hRoot (tvPDSNormal * 65536 + hoChild) bmpPDSNormal bmpPDSNormal to hChild |
||
196 | End |
||
197 | If hoChild Eq hoCurrentDesktopBranch Begin |
||
198 | Send AddChildren hoChild hChild hoTarget |
||
199 | Send DoExpandItem hChild |
||
200 | End |
||
201 | Else Begin |
||
202 | 25 | wil | If (hoChild=hoTarget) Set CurrentTreeItem to hChild |
203 | Get ChildCount of oProgram hoChild to iChildCount |
||
204 | If (iChildCount>0) Set ItemChildCount hChild to 1 |
||
205 | 19 | wil | End |
206 | End |
||
207 | Loop |
||
208 | End_Procedure // AddDesktopChildren |
||
209 | |||
210 | //**************************************************************************** |
||
211 | // $Module type: PROCEDURE |
||
212 | // $Module name: OnItemChanged |
||
213 | // $Author : VOO |
||
214 | // Created : 23/12/96 @ 10:37 |
||
215 | // |
||
216 | // Description |
||
217 | // This method will allow us to change the current target object |
||
218 | // |
||
219 | // $Rev History |
||
220 | // 23/12/96 Module header created |
||
221 | //**************************************************************************** |
||
222 | Procedure OnItemChanged Handle hItem Handle hItemOld |
||
223 | 29 | wil | Integer iData |
224 | Handle hoNewTarget |
||
225 | 19 | wil | |
226 | Get ItemData hItem To iData |
||
227 | 24 | wil | Move (Low (iData)) To hoNewTarget |
228 | 19 | wil | Delegate Set phoTarget To hoNewTarget |
229 | 29 | wil | Delegate Send DisplayCurrentObjectDetails |
230 | 19 | wil | End_Procedure // OnItemChanged |
231 | |||
232 | //**************************************************************************** |
||
233 | // $Module type: PROCEDURE |
||
234 | // $Module name: OnItemExpanding |
||
235 | // $Author : VOO |
||
236 | // Created : 22/12/96 @ 16:09 |
||
237 | // |
||
238 | // Description |
||
239 | // This method is used when the [+] in front of an item is clicked |
||
240 | // |
||
241 | // $Rev History |
||
242 | // 22/12/96 Module header created |
||
243 | //**************************************************************************** |
||
244 | Procedure OnItemExpanding Handle hItem |
||
245 | Integer bExpanded iData hoChild |
||
246 | Handle hChild |
||
247 | |||
248 | Get ItemExpandedState hItem To bExpanded |
||
249 | 24 | wil | If (bExpanded=False) Begin |
250 | 19 | wil | Get ChildItem hItem To hChild |
251 | 24 | wil | If (hChild=0) Begin |
252 | 19 | wil | Get ItemData hItem To iData |
253 | 24 | wil | Move (Low (iData)) To hoChild |
254 | 19 | wil | Send AddChildren hoChild hItem 0 |
255 | End |
||
256 | End |
||
257 | End_Procedure // OnItemExpanding |
||
258 | |||
259 | //**************************************************************************** |
||
260 | // $Module type: PROCEDURE |
||
261 | // $Module name: Error_Report |
||
262 | // $Author : VOO |
||
263 | // Created : 23/12/96 @ 12:06 |
||
264 | // |
||
265 | // Description |
||
266 | // Cancelled method. |
||
267 | // |
||
268 | // $Rev History |
||
269 | // 23/12/96 Module header created |
||
270 | //**************************************************************************** |
||
271 | Procedure Error_Report |
||
272 | End_Procedure // Error_Report |
||
273 | |||
274 | 37 | wil | Procedure OnGetInfoTip Handle hItem String ByRef sInfoTip |
275 | 38 | wil | Boolean bBold |
276 | String sVal |
||
277 | String sSelected |
||
278 | 37 | wil | |
279 | Get ItemLabel hItem to sVal |
||
280 | 38 | wil | Get ItemBold hItem To bBold |
281 | If (bBold) Move "<- has focus" To sSelected |
||
282 | Else Move "" To sSelected |
||
283 | Move ("Object with (object id):" * sVal * sSelected) to sInfoTip |
||
284 | 37 | wil | End_Procedure |
285 | |||
286 | |||
287 | 19 | wil | //**************************************************************************** |
288 | // $Module type: PROCEDURE |
||
289 | // $Module name: OnCreateTree |
||
290 | // $Author : VINCENT |
||
291 | // Created : 18-12-96 @ 15:49 |
||
292 | // |
||
293 | // Description |
||
294 | // |
||
295 | // $Rev History |
||
296 | // 18-12-96 VINCENT Module header created |
||
297 | //**************************************************************************** |
||
298 | Procedure OnCreateTree |
||
299 | 37 | wil | Handle hRoot |
300 | Handle hoTarget |
||
301 | Handle hoLastChild |
||
302 | Handle hoOldErrorBox |
||
303 | |||
304 | 24 | wil | Move Error_Object_Id To hoOldErrorBox |
305 | 38 | wil | Move Self To Error_Object_Id |
306 | 19 | wil | |
307 | Delegate Get phoTarget To hoTarget |
||
308 | |||
309 | While hoTarget Gt Desktop |
||
310 | 25 | wil | Move hoTarget To hoLastChild |
311 | Get PropertyHandleEval of oProgram "Parent" hoTarget To hoTarget |
||
312 | 19 | wil | End |
313 | |||
314 | Get AddTreeItem 'Desktop' 0 (tvPDSRoot * 65536 + Desktop) bmpPDSRoot bmpPDSRoot To hRoot |
||
315 | |||
316 | Delegate Get phoTarget To hoTarget |
||
317 | Send AddDesktopChildren hRoot hoLastChild hoTarget |
||
318 | |||
319 | 24 | wil | Move hoOldErrorBox To Error_Object_Id |
320 | 19 | wil | |
321 | Send DoExpandItem hRoot |
||
322 | End_Procedure // OnCreateTree |
||
323 | |||
324 | 31 | wil | //// **WvA |
325 | //Procedure OnResize |
||
326 | // Integer hoPanel |
||
327 | // Integer hoSelf |
||
328 | // Integer iPy iPy1 |
||
329 | // Integer iPx iPx1 |
||
330 | // Integer iPxy iPxy1 |
||
331 | // |
||
332 | // Forward Send OnResize |
||
333 | // Get Main_Panel_Id To hoPanel |
||
334 | // Move Self To hoSelf |
||
335 | // If (hoSelf<>0) Begin |
||
336 | // Get GuiLocation To iPxy |
||
337 | // Move (Hi(iPxy)) To iPy |
||
338 | // Move (Low(iPxy)) To iPx |
||
339 | // |
||
340 | // Move (iPy+ hi(GuiSize(hoSelf))+3) To iPy1 |
||
341 | // If (hoPanel <> 0) Begin |
||
342 | // |
||
343 | // Set GuiSize To (Hi(Client_Size(hoPanel))-iPy-10) (Low(GUISize(hoPanel))-iPx-10) |
||
344 | // //Set GuiLocation To iPy iPx |
||
345 | // Send Adjust_Logicals |
||
346 | // End |
||
347 | // End |
||
348 | //End_Procedure // OnResize |
||
349 | 19 | wil | |
350 | End_Class // ObjectTreeView |
||
351 | |||
352 | |||
353 | |||
354 | 40 | wil | Class cObjectInspector Is A ModalPanel//ToolPanel |
355 | 19 | wil | |
356 | Procedure Construct_Object |
||
357 | 40 | wil | //Integer hoCurrent |
358 | //Integer hoSelf |
||
359 | 19 | wil | |
360 | Forward Send Construct_Object |
||
361 | |||
362 | 29 | wil | Set Border_Style To Border_Thick |
363 | 40 | wil | //Set Caption_Bar To True |
364 | //Set Sysmenu_Icon To True |
||
365 | //Set Modal_State To True |
||
366 | 29 | wil | Set Locate_mode To Center_on_screen |
367 | 19 | wil | |
368 | On_Key Kcancel Send Close_Panel |
||
369 | |||
370 | Property Integer phoTarget Public |
||
371 | 40 | wil | //Property Integer pbIsResizing False |
372 | 19 | wil | Property Integer Main_Panel_Id 0 |
373 | |||
374 | 20 | wil | Object oProgram is a cProgramObjects |
375 | 19 | wil | End_Object |
376 | |||
377 | 29 | wil | Set Main_Panel_Id To Self |
378 | 19 | wil | End_Procedure // Construct_Object |
379 | |||
380 | |||
381 | 29 | wil | Procedure DisplayCurrentObjectDetails |
382 | 38 | wil | Send DisplayObjectDetails To oDetailsGroup |
383 | 29 | wil | End_Procedure |
384 | 19 | wil | |
385 | Function Debuggee_Focus_Object Returns Handle |
||
386 | String sResult |
||
387 | Handle hObjectID |
||
388 | Handle hoDebugger |
||
389 | Boolean bOK |
||
390 | |||
391 | Move 0 To hObjectID |
||
392 | Get phoDebugger To hoDebugger |
||
393 | If (hoDebugger) Begin |
||
394 | Move "" To sResult |
||
395 | Get ComEval of hoDebugger ("focus(desktop)") (&sResult) to bOK |
||
396 | If (bOk) begin |
||
397 | Move (sResult) To hObjectID |
||
398 | End |
||
399 | End |
||
400 | Function_Return hObjectID |
||
401 | End_Function // |
||
402 | |||
403 | Procedure ActivateObjectInspectorPanel |
||
404 | Integer hoFocus |
||
405 | Handle hoPopup |
||
406 | |||
407 | Get Debuggee_Focus_Object To hoFocus |
||
408 | Set phoTarget To hoFocus |
||
409 | |||
410 | // Show a "working" panel if this is called from within a GUI |
||
411 | Get Create U_cWorkingPanel To hoPopup |
||
412 | If (hoPopup) Begin |
||
413 | Send Show Of hoPopup "Please hold on.. " "The program is busy enumerating all objects in the running application." |
||
414 | End |
||
415 | Send Cursor_Wait of Cursor_Control |
||
416 | |||
417 | Send CreateObjectArray of oProgram |
||
418 | |||
419 | Send Cursor_Ready of Cursor_Control |
||
420 | If (hoPopup) begin |
||
421 | Send Hide Of hoPopup |
||
422 | Send Destroy of hoPopup |
||
423 | End |
||
424 | |||
425 | Send Popup_Modal |
||
426 | 29 | wil | Send DisplayCurrentObjectDetails |
427 | 19 | wil | End_Procedure // ActivateObjectInspectorPanel |
428 | |||
429 | 31 | wil | //// **WvA |
430 | //Procedure OnResize |
||
431 | // //If BuildingObjectID Ne 0 Begin |
||
432 | // // Forward Send OnResize |
||
433 | // If ((active_State(Self)) And (pbIsResizing(Self)=False)) Begin |
||
434 | // Set pbIsResizing To True |
||
435 | // Send OnResize Of ObjectTree |
||
436 | // Set pbIsResizing To False |
||
437 | // End |
||
438 | //End_Procedure // OnResize |
||
439 | 19 | wil | |
440 | |||
441 | End_Class // cObjectInspector |
||
442 | |||
443 | |||
444 | Object oObjectInspectorPanel Is A cObjectInspector |
||
445 | 38 | wil | Set Size To 220 545 |
446 | Set Location To 28 4 |
||
447 | Set Label To "Object Inspector" |
||
448 | 19 | wil | |
449 | 38 | wil | Object ObjectTree Is A ObjectTreeView |
450 | Set Size To 200 260 |
||
451 | Set Location To 10 3 |
||
452 | Set Label To 'Runtime application objects' |
||
453 | Set Label_Justification_Mode To jMode_Top |
||
454 | Set Label_Col_Offset To 1 |
||
455 | Set peAnchors To anTopBottomLeft |
||
456 | |||
457 | |||
458 | Object oObjectTreeBitmaps is an cImageList32 |
||
459 | Set piImageHeight to 16 |
||
460 | Set piImageWidth to 16 |
||
461 | 25 | wil | |
462 | 38 | wil | Procedure OnCreate |
463 | Integer iImg |
||
464 | |||
465 | Get AddImage 'Desktop.bmp' to iImg // Rootobject bitmap |
||
466 | Get AddImage 'AbView.bmp' to iImg // Clientobject bitmap |
||
467 | Get AddImage 'AbConPal.bmp' to iImg // Normalobject bitmap |
||
468 | |||
469 | Get AddImage 'ttbitmap16.bmp' to iImg // bmpPDSBitmap |
||
470 | Get AddImage 'ttchkbox16.bmp' to iImg // bmpPDSCheckbox |
||
471 | Get AddImage 'ttcombo16.bmp' to iImg // bmpPDSCombo |
||
472 | Get AddImage 'ttcontainer16.bmp' to iImg // bmpPDSContainer |
||
473 | Get AddImage 'ttedit16.bmp' to iImg // bmpPDSEdit |
||
474 | Get AddImage 'ttf_sellst16.bmp' to iImg // bmpPDSSellist |
||
475 | Get AddImage 'ttform16.bmp' to iImg // bmpPDSForm |
||
476 | Get AddImage 'ttgrid16.bmp' to iImg // bmpPDSGrid |
||
477 | Get AddImage 'ttgroup16.bmp' to iImg // bmpPDSGroup |
||
478 | Get AddImage 'ttlist16.bmp' to iImg // bmpPDSList |
||
479 | Get AddImage 'ttmodalpanel16.bmp' to iImg // bmpPDSModalPanel |
||
480 | Get AddImage 'ttradio16.bmp' to iImg // bmpPDSRadio |
||
481 | Get AddImage 'ttspin16.bmp' to iImg // bmpPDSSpin |
||
482 | Get AddImage 'tttab16.bmp' to iImg // bmpPDSTabpage |
||
483 | Get AddImage 'tttabdlg16.bmp' to iImg // bmpPDSTabDialog |
||
484 | Get AddImage 'tttextbox16.bmp' to iImg // bmpPDSTextbox |
||
485 | Get AddImage 'tttrack16.bmp' to iImg // bmpPDSTrack |
||
486 | Get AddImage 'tttreeview16.bmp' to iImg // bmpPDSTreeview |
||
487 | Get AddImage 'ttview16.bmp' to iImg // bmpPDSView |
||
488 | Get AddImage 'ttradiogroup16.bmp' to iImg // bmpPDSRadioGroup |
||
489 | Get AddImage 'ttmenu16.bmp' to iImg // bmpPDSMenu |
||
490 | Get AddImage 'ttbutton16.bmp' to iImg // bmpPDSButton |
||
491 | Get AddImage 'ttobject16.bmp' to iImg // bmpPDSActiveX |
||
492 | End_Procedure |
||
493 | |||
494 | End_Object // ObjectIdBitmaps |
||
495 | |||
496 | Set ImageListObject To (oObjectTreeBitmaps(Self)) |
||
497 | Set TreeRootLinesState To False |
||
498 | Set pbEnableInfoTips To True |
||
499 | End_Object // ObjectTree |
||
500 | |||
501 | Object oDetailsGroup Is A Group |
||
502 | Set Label To "Details" |
||
503 | Set Size to 204 274 |
||
504 | Set Location To 6 266 |
||
505 | Set peAnchors To anAll |
||
506 | |||
507 | Function ComplexToString Integer ciValue Returns String |
||
508 | Function_Return (String (Hi (ciValue)) - ',' - String (Low (ciValue))) |
||
509 | End_Function // ComplexToString |
||
510 | |||
511 | Function BooleanToString Boolean bValue Returns String |
||
512 | String sValue |
||
513 | If (bValue) Move "True" To sValue |
||
514 | Else Move "False" To sValue |
||
515 | Function_Return sValue |
||
516 | End_Function |
||
517 | |||
518 | Function AnchorsToString Integer eAnchors Returns String |
||
519 | String sAnchors |
||
520 | 34 | wil | |
521 | 38 | wil | Move "unknown" to sAnchors |
522 | Case Begin |
||
523 | Case (eAnchors= anNone) |
||
524 | Move "anNone" To sAnchors |
||
525 | Case Break |
||
526 | Case (eAnchors= anAll) |
||
527 | Move "anAll" To sAnchors |
||
528 | Case Break |
||
529 | Case (eAnchors= anBottomLeft) |
||
530 | Move "anBottomLeft" To sAnchors |
||
531 | Case Break |
||
532 | Case (eAnchors= anBottomLeftRight) |
||
533 | Move "anBottomLeftRight" To sAnchors |
||
534 | Case Break |
||
535 | Case (eAnchors= anBottomRight) |
||
536 | Move "anBottomRight" To sAnchors |
||
537 | Case Break |
||
538 | Case (eAnchors= anTopBottomLeft) |
||
539 | Move "anTopBottomLeft" To sAnchors |
||
540 | Case Break |
||
541 | Case (eAnchors= anTopBottomRight) |
||
542 | Move "anTopBottomRight" To sAnchors |
||
543 | Case Break |
||
544 | Case (eAnchors= anTopLeftRight) |
||
545 | Move "anTopLeftRight" To sAnchors |
||
546 | Case Break |
||
547 | Case (eAnchors= anTopRight) |
||
548 | Move "anTopRight" To sAnchors |
||
549 | Case Break |
||
550 | Case (eAnchors= anTopLeft) |
||
551 | Move "anTopLeft" To sAnchors |
||
552 | Case Break |
||
553 | Case End |
||
554 | Function_Return sAnchors |
||
555 | End_Function |
||
556 | |||
557 | Function BorderStyleToString Integer eStyle Returns String |
||
558 | String sStyle |
||
559 | 34 | wil | |
560 | 38 | wil | Move "unknown" to sStyle |
561 | Case Begin |
||
562 | Case (eStyle=Border_None) |
||
563 | Move "Border_None" To sStyle |
||
564 | Case Break |
||
565 | Case (eStyle=Border_Dialog) |
||
566 | Move "Border_Dialog" To sStyle |
||
567 | Case Break |
||
568 | Case (eStyle=Border_Normal) |
||
569 | Move "Border_Normal" To sStyle |
||
570 | Case Break |
||
571 | Case (eStyle=Border_Thick) |
||
572 | Move "Border_Thick" To sStyle |
||
573 | Case Break |
||
574 | Case (eStyle=Border_ClientEdge) |
||
575 | Move "Border_ClientEdge" To sStyle |
||
576 | Case Break |
||
577 | Case (eStyle=Border_StaticEdge) |
||
578 | Move "Border_StaticEdge" To sStyle |
||
579 | Case Break |
||
580 | Case (eStyle=Border_WindowEdge) |
||
581 | Move "Border_WindowEdge" To sStyle |
||
582 | Case Break |
||
583 | Case End |
||
584 | Function_Return sStyle |
||
585 | End_Function |
||
586 | |||
587 | Function JustificationModeToString Integer eMode Returns String |
||
588 | String sMode |
||
589 | 34 | wil | |
590 | 38 | wil | Move "unknown" To sMode |
591 | Case Begin |
||
592 | Case (eMode=jmode_top) |
||
593 | Move "jmode_top" to sMode |
||
594 | Case break |
||
595 | Case (eMode=jmode_left) |
||
596 | Move "jmode_left" to sMode |
||
597 | Case break |
||
598 | Case (eMode=jmode_right) |
||
599 | Move "jmode_right" to sMode |
||
600 | Case break |
||
601 | Case End |
||
602 | Function_Return sMode |
||
603 | End_Function |
||
604 | 50 | wil | |
605 | |||
606 | Function TableName handle hoDD Integer iMainFile Returns String |
||
607 | Integer iRuntimeVersion |
||
608 | Integer iPos |
||
609 | Integer iField |
||
610 | String sValue |
||
611 | String sTableName |
||
612 | String sDDfileText |
||
613 | String sExtMess |
||
614 | Handle hoDebugger |
||
615 | |||
616 | Get phoDebugger To hoDebugger |
||
617 | If (hoDebugger) Begin |
||
618 | Get piRuntimeVersion of hoDebugger To iRuntimeVersion |
||
619 | If (iRuntimeVersion>=180) Begin |
||
620 | |||
621 | Get StringEval of oProgram ("ErrorMessageTableName("+trim(hoDD)+","+trim(iMainFile)+")") To sValue |
||
622 | Move sValue To sTableName |
||
623 | End |
||
624 | Else Begin |
||
625 | // Unfortunately before DF18.0 we don't have a clean function for getting the logic_file_name |
||
626 | // of the table, so we need to parse it out by hand. |
||
627 | //Move (DD_FILE_TEXT* string(iFile) * "-" * sFile) to sExtMess |
||
628 | Get StringEval of oProgram ("Current_Validate_Field("+trim(hoDD)+")") To iField |
||
629 | If (iField=0) Begin |
||
630 | Get StringEval of oProgram ("Extended_Error_Message("+trim(hoDD)+")") To sValue |
||
631 | Move (Pos("\n",sValue)) To iPos |
||
632 | If (iPos>0) Begin |
||
633 | Move (Left(sValue,iPos-1)) To sExtMess |
||
634 | End |
||
635 | Else Move sValue To sExtMess |
||
636 | Move (DD_FILE_TEXT* string(iMainFile) + " - ") To sDDfileText |
||
637 | Move (Replace(sDDfileText,sExtMess,"")) To sTableName |
||
638 | End |
||
639 | Else Begin |
||
640 | // ugh, we're in a validation can't use the above logic as it resets the current_validate_field |
||
641 | // property, and we've got to clean means to restore that. |
||
642 | // Let's fallback on something ugly, because without table name we're gonna get runtime errors. |
||
643 | Get ShortName Of oProgram hoDD To sValue |
||
644 | If (Pos("o",sValue)=1) Move (Replace("o",sValue,"")) To sValue |
||
645 | Move (Replace("_DD",sValue,"")) To sTableName |
||
646 | End |
||
647 | End |
||
648 | End |
||
649 | Function_Return sTableName |
||
650 | End_Function |
||
651 | 19 | wil | |
652 | 38 | wil | |
653 | |||
654 | Procedure DisplayObjectDetails |
||
655 | Handle hoTarget |
||
656 | Handle hoDD |
||
657 | Integer eWindowsClass |
||
658 | Integer iMainFile |
||
659 | Boolean bState |
||
660 | Boolean bIsDD |
||
661 | Boolean bIsDbView |
||
662 | Boolean bIsDeo |
||
663 | String sValue |
||
664 | String sLine |
||
665 | 19 | wil | |
666 | 38 | wil | Move False To bIsDD |
667 | Move False To bIsDbView |
||
668 | Move False To bIsDeo |
||
669 | 25 | wil | |
670 | 38 | wil | Get phoTarget To hoTarget |
671 | 25 | wil | |
672 | 38 | wil | Get ShortName of oProgram hoTarget To sValue |
673 | Set Value of oShortName To sValue |
||
674 | |||
675 | Get xBitmapIDForObj of oProgram hoTarget To eWindowsClass |
||
676 | 51 | wil | Get PropertyHandleEval of oProgram "Server" hoTarget to hoDD |
677 | If (hoDD=0 and eWindowsClass=bmpPDSModalPanel) Begin |
||
678 | Get PropertyHandleEval of oProgram "Main_DD" hoTarget to hoDD |
||
679 | End |
||
680 | If (hoDD and eWindowsClass<>bmpPDSView and eWindowsClass<>bmpPDSContainer and eWindowsClass<>bmpPDSModalPanel and eWindowsClass<>bmpPDSClient) Begin |
||
681 | 38 | wil | Move True To bIsDeo |
682 | End |
||
683 | 51 | wil | Else If (hoDD and (eWindowsClass=bmpPDSView or eWindowsClass=bmpPDSContainer or eWindowsClass=bmpPDSModalPanel or eWindowsClass=bmpPDSClient)) Begin |
684 | // view/container or datadictionary |
||
685 | 40 | wil | Get PropertyIntegerEval Of oProgram "Main_File" hoTarget To iMainFile |
686 | 38 | wil | If (iMainFile<>0) Begin |
687 | Move True To bIsDD |
||
688 | End |
||
689 | Else Begin |
||
690 | Move True To bIsDbView |
||
691 | End |
||
692 | End |
||
693 | |||
694 | 43 | wil | If (hoTarget>Desktop) Begin |
695 | Get PropertyBooleanEval of oProgram "Active_State" hoTarget To bState |
||
696 | Set Checked_State of oActiveState To bState |
||
697 | End |
||
698 | |||
699 | 38 | wil | If (bIsDD=false) Begin |
700 | 51 | wil | Set Visible_State of oDDGroup To False |
701 | Set Visible_State of oObjectDetailsEdit to True |
||
702 | Send DisplayObjectDetails of oObjectDetailsEdit |
||
703 | |||
704 | Get ObjectWindowsClassName of oProgram hoTarget to sValue |
||
705 | 38 | wil | Set Value Of oWindowsClass To sValue |
706 | End |
||
707 | 41 | wil | Else Begin |
708 | Set Value Of oWindowsClass To "" |
||
709 | End |
||
710 | 38 | wil | |
711 | If (bIsDeo) Begin |
||
712 | Send DisplayDeoDetails Of oObjectDetailsEdit hoDD |
||
713 | End |
||
714 | Else if (bIsDD) Begin |
||
715 | Set Visible_State of oObjectDetailsEdit To False |
||
716 | Set Visible_State of oDDGroup To True |
||
717 | Send DisplayDataDictionaryDetails of oDDGroup iMainFile |
||
718 | End |
||
719 | Else if (bIsDbView) Begin |
||
720 | Send DisplayViewDetails Of oObjectDetailsEdit |
||
721 | End |
||
722 | 51 | wil | Else Begin |
723 | // Not a DEO or DD or View |
||
724 | Send DisplayNonDeoDetails of oObjectDetailsEdit |
||
725 | End |
||
726 | 38 | wil | |
727 | End_Procedure |
||
728 | |||
729 | Object oShortName is a Form |
||
730 | Set Location To 8 60 |
||
731 | Set Size To 13 106 |
||
732 | Set Label To "Name:" |
||
733 | Set Label_Col_Offset to 2 |
||
734 | Set Label_Justification_Mode to jMode_Right |
||
735 | Set Enabled_State to False |
||
736 | End_Object |
||
737 | |||
738 | 49 | wil | Object oActiveState is a cReadOnlyCheckbox |
739 | 38 | wil | Set Location To 23 60 |
740 | 40 | wil | Set Size To 10 50 |
741 | Set Label To "Active State" |
||
742 | 38 | wil | End_Object |
743 | |||
744 | Object oWindowsClass is a Form |
||
745 | Set Location To 38 60 |
||
746 | Set Size To 13 106 |
||
747 | Set Label To "Windows Class:" |
||
748 | Set Label_Col_Offset to 2 |
||
749 | Set Label_Justification_Mode to jMode_Right |
||
750 | Set Enabled_State to False |
||
751 | End_Object |
||
752 | |||
753 | Object oDDGroup is a Group |
||
754 | Set Location To 53 3 |
||
755 | Set Size to 144 267 |
||
756 | Set Label To "DataDictionary" |
||
757 | Set peAnchors To anAll |
||
758 | |||
759 | Property Handle phoCurrentDD 0 |
||
760 | 39 | wil | Property tTable pTable |
761 | 38 | wil | |
762 | // |
||
763 | 45 | wil | // Returns field options |
764 | 38 | wil | // |
765 | Function DDFieldOption Handle hoDD Integer iField String sOption Returns Boolean |
||
766 | String sValue |
||
767 | Boolean bState |
||
768 | 19 | wil | |
769 | 38 | wil | Move False To bState |
770 | Get StringEval of oProgram ("Field_Option("+trim(hoDD)+","+trim(iField)+","+sOption+")") To sValue |
||
771 | If (sValue=True) Move True To bState // string evaluates to boolean |
||
772 | Function_Return bState |
||
773 | End_Function |
||
774 | 45 | wil | |
775 | // |
||
776 | // Returns foreign field options |
||
777 | // iField can also be: |
||
778 | // DD_Default, DD_IndexField, DD_KeyField as those are negative values, they do not collide |
||
779 | // with Fields |
||
780 | // |
||
781 | Function DDForeignFieldOption Handle hoDD Integer iField String sOption Returns Boolean |
||
782 | String sValue |
||
783 | Boolean bState |
||
784 | 49 | wil | Integer iRuntimeVersion |
785 | Integer iOption |
||
786 | Integer iOptions |
||
787 | Handle hoDebugger |
||
788 | 45 | wil | |
789 | 49 | wil | Get phoDebugger To hoDebugger |
790 | If (hoDebugger) Begin |
||
791 | Get piRuntimeVersion of hoDebugger To iRuntimeVersion |
||
792 | If (iRuntimeVersion>=141) Begin |
||
793 | Move False To bState |
||
794 | Get StringEval of oProgram ("Foreign_Field_Option("+trim(hoDD)+","+trim(iField)+","+sOption+")") To sValue |
||
795 | If (sValue=True) Move True To bState // string evaluates to boolean |
||
796 | End |
||
797 | Else Begin |
||
798 | Move False To bState |
||
799 | Get StringEval of oProgram ("Foreign_Field_Options("+trim(hoDD)+","+trim(iField)+")") To sValue |
||
800 | Move sValue To iOptions |
||
801 | Get FieldOptionStringToInteger sOption To iOption |
||
802 | If (iOption<>0) Begin |
||
803 | If ((iOptions iAnd iOption)=iOption) Begin |
||
804 | Move True To bState |
||
805 | End |
||
806 | End |
||
807 | End |
||
808 | End |
||
809 | 45 | wil | Function_Return bState |
810 | End_Function |
||
811 | 38 | wil | |
812 | 41 | wil | // Obsolete |
813 | 38 | wil | // Returns field options as a string |
814 | // |
||
815 | Function DDFieldOptionsToString Handle hoDD Integer iField Returns String |
||
816 | Boolean bState |
||
817 | String sOption |
||
818 | String sOptions |
||
819 | |||
820 | Move "" To sOptions |
||
821 | Move "DD_Autofind" To sOption |
||
822 | Get DDFieldOption hoDD iField sOption To bState |
||
823 | If (bState) Move (sOption+",") To sOptions |
||
824 | |||
825 | Move "DD_Autofind_GE" To sOption |
||
826 | Get DDFieldOption hoDD iField sOption To bState |
||
827 | If (bState) Move (sOptions+sOption+",") To sOptions |
||
828 | |||
829 | Move "DD_CapsLock" To sOption |
||
830 | Get DDFieldOption hoDD iField sOption To bState |
||
831 | If (bState) Move (sOptions+sOption+",") To sOptions |
||
832 | |||
833 | Move "DD_Commit" To sOption |
||
834 | Get DDFieldOption hoDD iField sOption To bState |
||
835 | If (bState) Move (sOptions+sOption+",") To sOptions |
||
836 | |||
837 | Move "DD_ForcePut" To sOption |
||
838 | Get DDFieldOption hoDD iField sOption To bState |
||
839 | If (bState) Move (sOptions+sOption+",") To sOptions |
||
840 | |||
841 | Move "DD_NoEnter" To sOption |
||
842 | Get DDFieldOption hoDD iField sOption To bState |
||
843 | If (bState) Move (sOptions+sOption+",") To sOptions |
||
844 | |||
845 | Move "DD_NoPut" To sOption |
||
846 | Get DDFieldOption hoDD iField sOption To bState |
||
847 | If (bState) Move (sOptions+sOption+",") To sOptions |
||
848 | |||
849 | // is noenter+noput |
||
850 | //Move "DD_DisplayOnly" To sOption |
||
851 | //Get DDFieldOption hoDD iField sOption To bState |
||
852 | //If (bState) Move (sOptions+","+sOption) To sOptions |
||
853 | |||
854 | Move "DD_Zero_Suppress" To sOption |
||
855 | Get DDFieldOption hoDD iField sOption To bState |
||
856 | If (bState) Move (sOptions+sOption+",") To sOptions |
||
857 | |||
858 | Move "DD_Required" To sOption |
||
859 | Get DDFieldOption hoDD iField sOption To bState |
||
860 | If (bState) Move (sOptions+sOption+",") To sOptions |
||
861 | |||
862 | Move "DD_FindReq" To sOption |
||
863 | Get DDFieldOption hoDD iField sOption To bState |
||
864 | If (bState) Move (sOptions+sOption+",") To sOptions |
||
865 | |||
866 | Move "DD_Retain" To sOption |
||
867 | Get DDFieldOption hoDD iField sOption To bState |
||
868 | If (bState) Move (sOptions+sOption+",") To sOptions |
||
869 | |||
870 | 49 | wil | Move "DD_RetainAll" To sOption |
871 | Get DDFieldOption hoDD iField sOption To bState |
||
872 | If (bState) Move (sOptions+","+sOption) To sOptions |
||
873 | 38 | wil | |
874 | Move "DD_SkipFound" To sOption |
||
875 | Get DDFieldOption hoDD iField sOption To bState |
||
876 | If (bState) Move (sOptions+sOption+",") To sOptions |
||
877 | |||
878 | If (sOptions<>"") Begin |
||
879 | Move (Replaces("DD_",sOptions," ")) To sOptions // DD_ in the name just takes up more space, replace by space character |
||
880 | Move (Left(sOptions,Length(sOptions)-1)) To sOptions // remove trailing comma |
||
881 | End |
||
882 | Function_Return sOptions |
||
883 | End_Function |
||
884 | |||
885 | 49 | wil | Function FieldOptionStringToInteger String sOption Returns Integer |
886 | Integer iOption |
||
887 | Move 0 To iOption |
||
888 | Case Begin |
||
889 | Case (sOption="DD_Autofind") |
||
890 | Move DD_Autofind To iOption |
||
891 | Case Break |
||
892 | Case (sOption="DD_Autofind_GE") |
||
893 | Move DD_Autofind_GE To iOption |
||
894 | Case Break |
||
895 | Case (sOption="DD_CapsLock") |
||
896 | Move DD_CapsLock To iOption |
||
897 | Case Break |
||
898 | Case (sOption="DD_Commit") |
||
899 | Move DD_Commit To iOption |
||
900 | Case Break |
||
901 | Case (sOption="DD_ForcePut") |
||
902 | Move DD_ForcePut To iOption |
||
903 | Case Break |
||
904 | Case (sOption="DD_NoEnter") |
||
905 | Move DD_NoEnter To iOption |
||
906 | Case Break |
||
907 | Case (sOption="DD_NoPut") |
||
908 | Move DD_NoPut To iOption |
||
909 | Case Break |
||
910 | Case (sOption="DD_DisplayOnly") |
||
911 | Move DD_DisplayOnly To iOption |
||
912 | Case Break |
||
913 | Case (sOption="DD_Zero_Suppress") |
||
914 | Move DD_Zero_Suppress To iOption |
||
915 | Case Break |
||
916 | Case (sOption="DD_Required") |
||
917 | Move DD_Required To iOption |
||
918 | Case Break |
||
919 | Case (sOption="DD_FindReq") |
||
920 | Move DD_FindReq To iOption |
||
921 | Case Break |
||
922 | Case (sOption="DD_Retain") |
||
923 | Move DD_Retain To iOption |
||
924 | Case Break |
||
925 | Case (sOption="DD_RetainAll") |
||
926 | Move DD_RetainAll to iOption |
||
927 | Case Break |
||
928 | Case (sOption="DD_SkipFound") |
||
929 | Move DD_SkipFound To iOption |
||
930 | Case Break |
||
931 | Case End |
||
932 | Function_Return iOption |
||
933 | End_Function |
||
934 | |||
935 | 38 | wil | // |
936 | 41 | wil | // Returns field options into the tFieldOptions structure |
937 | 38 | wil | // |
938 | Function DDFieldOptions Handle hoDD Integer iField Returns tFieldOptions |
||
939 | Boolean bState |
||
940 | String sOption |
||
941 | tFieldOptions Options |
||
942 | |||
943 | Move "DD_Autofind" To sOption |
||
944 | Get DDFieldOption hoDD iField sOption To bState |
||
945 | If (bState) Move True To Options.bAutoFind |
||
946 | |||
947 | Move "DD_Autofind_GE" To sOption |
||
948 | Get DDFieldOption hoDD iField sOption To bState |
||
949 | If (bState) Move True To Options.bAutoFindGE |
||
950 | |||
951 | Move "DD_CapsLock" To sOption |
||
952 | Get DDFieldOption hoDD iField sOption To bState |
||
953 | If (bState) Move True To Options.bCapsLock |
||
954 | |||
955 | Move "DD_Commit" To sOption |
||
956 | Get DDFieldOption hoDD iField sOption To bState |
||
957 | If (bState) Move True To Options.bCommit |
||
958 | |||
959 | Move "DD_ForcePut" To sOption |
||
960 | Get DDFieldOption hoDD iField sOption To bState |
||
961 | If (bState) Move True To Options.bForcePut |
||
962 | |||
963 | Move "DD_NoEnter" To sOption |
||
964 | Get DDFieldOption hoDD iField sOption To bState |
||
965 | If (bState) Move True To Options.bNoEnter |
||
966 | |||
967 | Move "DD_NoPut" To sOption |
||
968 | Get DDFieldOption hoDD iField sOption To bState |
||
969 | If (bState) Move True To Options.bNoPut |
||
970 | |||
971 | 41 | wil | // is noenter+noput, no need to query or display again. |
972 | 38 | wil | //Move "DD_DisplayOnly" To sOption |
973 | //Get DDFieldOption hoDD iField sOption To bState |
||
974 | //If (bState) Move True to Options.bDisplayOnly |
||
975 | |||
976 | Move "DD_Zero_Suppress" To sOption |
||
977 | Get DDFieldOption hoDD iField sOption To bState |
||
978 | If (bState) Move True To Options.bZeroSuppress |
||
979 | |||
980 | Move "DD_Required" To sOption |
||
981 | Get DDFieldOption hoDD iField sOption To bState |
||
982 | If (bState) Move True To Options.bRequired |
||
983 | |||
984 | Move "DD_FindReq" To sOption |
||
985 | Get DDFieldOption hoDD iField sOption To bState |
||
986 | If (bState) Move True To Options.bFindReq |
||
987 | |||
988 | Move "DD_Retain" To sOption |
||
989 | Get DDFieldOption hoDD iField sOption To bState |
||
990 | If (bState) Move True to Options.bRetain |
||
991 | |||
992 | 49 | wil | Move "DD_RetainAll" To sOption |
993 | Get DDFieldOption hoDD iField sOption To bState |
||
994 | If (bState) Move True To Options.bRetainAll |
||
995 | 38 | wil | |
996 | Move "DD_SkipFound" To sOption |
||
997 | Get DDFieldOption hoDD iField sOption To bState |
||
998 | If (bState) Move True To Options.bSkipFound |
||
999 | |||
1000 | 40 | wil | Get StringEval of oProgram ("Key_Field_State("+trim(hoDD)+","+trim(iField)+")") To bState |
1001 | If (bState) Move True To Options.bKeyField |
||
1002 | |||
1003 | 38 | wil | Function_Return Options |
1004 | End_Function |
||
1005 | 48 | wil | |
1006 | // |
||
1007 | // Returns field options into the tFieldOptions structure |
||
1008 | // |
||
1009 | Function DDForeignFieldOptions Handle hoDD Integer iField Returns tFieldOptions |
||
1010 | Boolean bState |
||
1011 | String sOption |
||
1012 | tFieldOptions Options |
||
1013 | 38 | wil | |
1014 | 48 | wil | Move "DD_Autofind" To sOption |
1015 | Get DDForeignFieldOption hoDD iField sOption To bState |
||
1016 | If (bState) Move True To Options.bAutoFind |
||
1017 | |||
1018 | Move "DD_Autofind_GE" To sOption |
||
1019 | Get DDForeignFieldOption hoDD iField sOption To bState |
||
1020 | If (bState) Move True To Options.bAutoFindGE |
||
1021 | |||
1022 | Move "DD_CapsLock" To sOption |
||
1023 | Get DDForeignFieldOption hoDD iField sOption To bState |
||
1024 | If (bState) Move True To Options.bCapsLock |
||
1025 | |||
1026 | Move "DD_Commit" To sOption |
||
1027 | Get DDForeignFieldOption hoDD iField sOption To bState |
||
1028 | If (bState) Move True To Options.bCommit |
||
1029 | |||
1030 | Move "DD_ForcePut" To sOption |
||
1031 | Get DDForeignFieldOption hoDD iField sOption To bState |
||
1032 | If (bState) Move True To Options.bForcePut |
||
1033 | |||
1034 | Move "DD_NoEnter" To sOption |
||
1035 | Get DDForeignFieldOption hoDD iField sOption To bState |
||
1036 | If (bState) Move True To Options.bNoEnter |
||
1037 | |||
1038 | Move "DD_NoPut" To sOption |
||
1039 | Get DDForeignFieldOption hoDD iField sOption To bState |
||
1040 | If (bState) Move True To Options.bNoPut |
||
1041 | |||
1042 | // is noenter+noput, no need to query or display again. |
||
1043 | //Move "DD_DisplayOnly" To sOption |
||
1044 | //Get DDFieldOption hoDD iField sOption To bState |
||
1045 | //If (bState) Move True to Options.bDisplayOnly |
||
1046 | |||
1047 | Move "DD_Zero_Suppress" To sOption |
||
1048 | Get DDForeignFieldOption hoDD iField sOption To bState |
||
1049 | If (bState) Move True To Options.bZeroSuppress |
||
1050 | |||
1051 | Move "DD_Required" To sOption |
||
1052 | Get DDForeignFieldOption hoDD iField sOption To bState |
||
1053 | If (bState) Move True To Options.bRequired |
||
1054 | |||
1055 | Move "DD_FindReq" To sOption |
||
1056 | Get DDForeignFieldOption hoDD iField sOption To bState |
||
1057 | If (bState) Move True To Options.bFindReq |
||
1058 | |||
1059 | Move "DD_Retain" To sOption |
||
1060 | Get DDForeignFieldOption hoDD iField sOption To bState |
||
1061 | If (bState) Move True to Options.bRetain |
||
1062 | |||
1063 | 49 | wil | Move "DD_RetainAll" To sOption |
1064 | 50 | wil | Get DDForeignFieldOption hoDD iField sOption To bState |
1065 | 49 | wil | If (bState) Move True To Options.bRetainAll |
1066 | 48 | wil | |
1067 | Move "DD_SkipFound" To sOption |
||
1068 | Get DDForeignFieldOption hoDD iField sOption To bState |
||
1069 | If (bState) Move True To Options.bSkipFound |
||
1070 | |||
1071 | Function_Return Options |
||
1072 | End_Function |
||
1073 | |||
1074 | 30 | wil | |
1075 | 38 | wil | |
1076 | Object oTable_TD is a TabDialog |
||
1077 | 39 | wil | Set Location To 8 3 |
1078 | Set Size to 134 258 |
||
1079 | 38 | wil | Set peAnchors to anAll |
1080 | 31 | wil | |
1081 | 39 | wil | Object oTable_TP is a TabPage |
1082 | 38 | wil | Set Label to "Table" |
1083 | 39 | wil | |
1084 | 40 | wil | Object oTableName is a Form |
1085 | Set Location to 8 35 |
||
1086 | Set Size to 13 106 |
||
1087 | Set Label to "Name:" |
||
1088 | Set Label_Col_Offset to 2 |
||
1089 | Set Label_Justification_Mode to jMode_Right |
||
1090 | Set Enabled_State to False |
||
1091 | End_Object |
||
1092 | |||
1093 | 49 | wil | Object oOrdering is a Form |
1094 | Set Location to 8 193 |
||
1095 | Set Size to 13 46 |
||
1096 | Set Label to "Ordering:" |
||
1097 | Set Label_Col_Offset to 2 |
||
1098 | Set Label_Justification_Mode to jMode_Right |
||
1099 | Set Enabled_State to False |
||
1100 | End_Object |
||
1101 | |||
1102 | Object oShouldSave_cb is a cReadOnlyCheckbox |
||
1103 | 39 | wil | Set Size to 10 50 |
1104 | 40 | wil | Set Location to 27 12 |
1105 | 39 | wil | Set Label to "Should Save" |
1106 | 49 | wil | Set psTooltip To "Should_Save" |
1107 | 39 | wil | End_Object |
1108 | 40 | wil | |
1109 | 49 | wil | Object oChangedState_cb is a cReadOnlyCheckbox |
1110 | 40 | wil | Set Size to 10 50 |
1111 | Set Location to 42 12 |
||
1112 | 49 | wil | Set Label to "Changed" |
1113 | Set psTooltip to "Changed_State" |
||
1114 | 40 | wil | End_Object |
1115 | |||
1116 | 49 | wil | Object oInUse_cb is a cReadOnlyCheckbox |
1117 | 40 | wil | Set Size to 10 50 |
1118 | Set Location to 57 12 |
||
1119 | 49 | wil | Set Label to "In Use" |
1120 | Set psTooltip To "In_Use_State" |
||
1121 | 40 | wil | End_Object |
1122 | |||
1123 | 49 | wil | Object oAutoFill_cb is a cReadOnlyCheckbox |
1124 | 40 | wil | Set Size to 10 50 |
1125 | Set Location to 72 12 |
||
1126 | 49 | wil | Set Label to "Auto Fill" |
1127 | Set psTooltip To "Auto_Fill_State" |
||
1128 | 40 | wil | End_Object |
1129 | 42 | wil | |
1130 | 49 | wil | Object oFillFromFirst_cb is a cReadOnlyCheckbox |
1131 | 42 | wil | Set Size to 10 50 |
1132 | Set Location to 87 12 |
||
1133 | Set Label to "Fill From First" |
||
1134 | 49 | wil | Set psTooltip To "pbAutoFillFromFirst" |
1135 | 42 | wil | End_Object |
1136 | |||
1137 | 49 | wil | Object oProtectKey_cb is a cReadOnlyCheckbox |
1138 | Set Size to 10 50 |
||
1139 | Set Location to 27 82 |
||
1140 | Set Label to "Protect Key" |
||
1141 | set psTooltip To "Protect_Key_State" |
||
1142 | 42 | wil | End_Object |
1143 | 49 | wil | |
1144 | Object oReadOnly_cb is a cReadOnlyCheckbox |
||
1145 | Set Size to 10 50 |
||
1146 | Set Location to 42 82 |
||
1147 | Set Label to "Read Only" |
||
1148 | Set psTooltip to "Read_Only_State" |
||
1149 | End_Object |
||
1150 | |||
1151 | Object oNoDelete_cb is a cReadOnlyCheckbox |
||
1152 | Set Size to 10 50 |
||
1153 | Set Location to 57 82 |
||
1154 | Set Label to "No Delete" |
||
1155 | Set psTooltip To "No_Delete_State" |
||
1156 | End_Object |
||
1157 | |||
1158 | Object oNoRelate_cb is a cReadOnlyCheckbox |
||
1159 | Set Size to 10 50 |
||
1160 | Set Location to 72 82 |
||
1161 | Set Label to "No Relate" |
||
1162 | Set psTooltip To "No_Relate_State" |
||
1163 | End_Object |
||
1164 | |||
1165 | Object oParentChanged_cb is a cReadOnlyCheckbox |
||
1166 | Set Size to 10 50 |
||
1167 | Set Location to 87 82 |
||
1168 | Set Label to "Parent Changed" |
||
1169 | Set psTooltip To "Parent_Changed_State" |
||
1170 | End_Object |
||
1171 | |||
1172 | Object oInheritConstraints_cb is a cReadOnlyCheckbox |
||
1173 | Set Size to 10 50 |
||
1174 | Set Location to 27 152 |
||
1175 | Set Label to "Inherit Constraints" |
||
1176 | Set psTooltip To "pbInheritConstraints" |
||
1177 | End_Object |
||
1178 | |||
1179 | Object oUseDDRelates_cb is a cReadOnlyCheckbox |
||
1180 | Set Size to 10 50 |
||
1181 | Set Location to 42 152 |
||
1182 | Set Label to "DD Relates" |
||
1183 | Set psTooltip to "pbUseDDRelates" |
||
1184 | End_Object |
||
1185 | |||
1186 | Object oNoCascadeDeleteStrict is a cReadOnlyCheckbox |
||
1187 | Set Size to 10 50 |
||
1188 | Set Location to 72 152 |
||
1189 | Set Label to "No Cascade Delete Strict" |
||
1190 | Set psTooltip To "pbNoCascadeDeleteStrict" |
||
1191 | End_Object |
||
1192 | |||
1193 | Object oCascadeDelete_cb is a cReadOnlyCheckbox |
||
1194 | Set Size to 10 50 |
||
1195 | Set Location to 87 152 |
||
1196 | Set Label to "Cascade Delete" |
||
1197 | Set psTooltip To "Cascade_Delete_State" |
||
1198 | End_Object |
||
1199 | 40 | wil | |
1200 | Procedure DisplayTabDetails |
||
1201 | Handle hoDD |
||
1202 | String sName |
||
1203 | Boolean bState |
||
1204 | tTable Table |
||
1205 | |||
1206 | Get phoCurrentDD to hoDD |
||
1207 | If (hoDD) Begin |
||
1208 | Get pTable To Table |
||
1209 | |||
1210 | 49 | wil | Set Value Of oTableName To Table.sName |
1211 | Set Checked_State Of oShouldSave_cb To Table.bShouldSave |
||
1212 | Set Checked_State Of oChangedState_cb To Table.bChangedState |
||
1213 | Set Checked_State Of oInUse_cb To Table.bInUse |
||
1214 | Set Checked_State Of oAutoFill_cb To Table.bAutoFill |
||
1215 | Set Checked_State Of oFillFromFirst_cb To Table.bFillFromFirst |
||
1216 | Set Checked_State Of oProtectKey_cb To Table.bProtectKey |
||
1217 | Set Checked_State Of oReadOnly_cb To Table.bReadOnly |
||
1218 | Set Checked_State Of oNoDelete_cb To Table.bNoDelete |
||
1219 | Set Checked_State Of oNoRelate_cb To Table.bNoRelate |
||
1220 | Set Checked_State Of oParentChanged_cb To Table.bParentChanged |
||
1221 | Set Checked_State Of oInheritConstraints_cb To Table.bInheritConstraints |
||
1222 | Set Checked_State Of oUseDDRelates_cb To Table.bUseDDRelates |
||
1223 | Set Checked_State Of oNoCascadeDeleteStrict To Table.bNoCascadeDeleteStrict |
||
1224 | Set Checked_State Of oCascadeDelete_cb To Table.bCascadeDelete |
||
1225 | Set Value Of oOrdering To Table.iOrdering |
||
1226 | 40 | wil | End |
1227 | End_Procedure |
||
1228 | 38 | wil | End_Object |
1229 | |||
1230 | Object oData_TP is a TabPage |
||
1231 | Set Label to "Data" |
||
1232 | 39 | wil | |
1233 | |||
1234 | Object oDataList is a cCJGrid |
||
1235 | Set Size to 124 220 |
||
1236 | 40 | wil | Set Location to 4 3 |
1237 | 39 | wil | Set pbSelectionEnable To True |
1238 | Set peAnchors to anAll |
||
1239 | Set pbReadOnly to True |
||
1240 | |||
1241 | Object oDataColumnNo is a cCJGridColumn |
||
1242 | Set piWidth to 30 |
||
1243 | Set psCaption to "#" |
||
1244 | 40 | wil | Set psTooltip To "Column Number" |
1245 | 39 | wil | Set peDataType to Mask_Numeric_Window |
1246 | Set pbResizable to False |
||
1247 | End_Object |
||
1248 | |||
1249 | Object oDataColumnName is a cCJGridColumn |
||
1250 | Set piWidth to 70 |
||
1251 | Set psCaption to "Column" |
||
1252 | End_Object |
||
1253 | |||
1254 | Object oDataColumnChanged is a cCJGridColumn |
||
1255 | Set piWidth to 25 |
||
1256 | Set pbCheckbox to True |
||
1257 | 40 | wil | //Set pbVisible To False |
1258 | 39 | wil | Set psCaption to "Changed" |
1259 | End_Object |
||
1260 | |||
1261 | Object oDataColumnDDValue is a cCJGridColumn |
||
1262 | Set piWidth to 60 |
||
1263 | Set psCaption to "DD Value" |
||
1264 | 40 | wil | Set psTooltip To "DataDictionary Column Value" |
1265 | 39 | wil | End_Object |
1266 | |||
1267 | Object oDataColumnRBValue is a cCJGridColumn |
||
1268 | Set piWidth to 60 |
||
1269 | Set psCaption to "Rec.Buffer" |
||
1270 | 40 | wil | Set psTooltip To "Record Buffer Column Value" |
1271 | 39 | wil | End_Object |
1272 | |||
1273 | |||
1274 | Procedure LoadData |
||
1275 | Handle hoDataSource |
||
1276 | Handle hoDD |
||
1277 | Boolean bChanged |
||
1278 | Boolean bIsCreated |
||
1279 | Integer iRows |
||
1280 | Integer iNo |
||
1281 | Integer iName |
||
1282 | Integer iChanged |
||
1283 | Integer iDDValue |
||
1284 | Integer iRBValue |
||
1285 | Integer iItem |
||
1286 | Integer iCount |
||
1287 | Integer iField |
||
1288 | String sDDValue |
||
1289 | String sRBValue |
||
1290 | String sField |
||
1291 | tTable Table |
||
1292 | tColumn[] Columns |
||
1293 | tDataSourceRow[] TheData |
||
1294 | |||
1295 | Get phoDataSource to hoDataSource |
||
1296 | Get phoCurrentDD to hoDD |
||
1297 | |||
1298 | // Get the datasource indexes of the various columns |
||
1299 | Get piColumnId of oDataColumnNo To iNo |
||
1300 | Get piColumnId of oDataColumnName To iName |
||
1301 | Get piColumnId of oDataColumnChanged To iChanged |
||
1302 | Get piColumnId of oDataColumnDDValue To iDDValue |
||
1303 | Get piColumnId Of oDataColumnRBValue To iRBValue |
||
1304 | |||
1305 | // Load all data into the datasource array |
||
1306 | If (hoDD) Begin |
||
1307 | Get pTable To Table |
||
1308 | Move Table.Columns To Columns |
||
1309 | Move (SizeOfArray(Columns)) To iCount |
||
1310 | For iItem From 0 To (iCount-1) |
||
1311 | Move Columns[iItem].iNr To iField |
||
1312 | Move Columns[iItem].sName To sField |
||
1313 | Move Columns[iItem].bChanged To bChanged |
||
1314 | Move Columns[iItem].sDDValue To sDDValue |
||
1315 | Move Columns[iItem].sRBValue To sRBValue |
||
1316 | |||
1317 | Move iField To TheData[iRows].sValue[iNo] |
||
1318 | Move sField To TheData[iRows].sValue[iName] |
||
1319 | Move bChanged To TheData[iRows].sValue[iChanged] |
||
1320 | Move sDDValue To TheData[iRows].sValue[iDDValue] |
||
1321 | Move sRBValue To TheData[iRows].sValue[iRBValue] |
||
1322 | |||
1323 | Increment iRows |
||
1324 | Loop |
||
1325 | |||
1326 | End |
||
1327 | |||
1328 | Get IsComObjectCreated To bIsCreated |
||
1329 | If (bIsCreated) Begin |
||
1330 | // Initialize Grid with new data |
||
1331 | Send InitializeData TheData |
||
1332 | Send MovetoFirstRow |
||
1333 | End |
||
1334 | End_Procedure |
||
1335 | End_Object |
||
1336 | |||
1337 | |||
1338 | Procedure DisplayTabDetails |
||
1339 | Send LoadData of oDataList |
||
1340 | End_Procedure |
||
1341 | 38 | wil | End_Object |
1342 | |||
1343 | Object oFieldOptions_TP is a TabPage |
||
1344 | 39 | wil | Set Label to "Options" |
1345 | |||
1346 | 48 | wil | Object oFieldOptionsColumnsList is a cCJGrid |
1347 | 39 | wil | Set Size to 114 80 |
1348 | 40 | wil | Set Location to 4 3 |
1349 | 39 | wil | Set pbSelectionEnable To True |
1350 | Set peAnchors to anTopBottomLeft |
||
1351 | Set pbReadOnly to True |
||
1352 | |||
1353 | Object oOptionsColumnNo is a cCJGridColumn |
||
1354 | Set piWidth to 30 |
||
1355 | Set psCaption to "#" |
||
1356 | Set peDataType to Mask_Numeric_Window |
||
1357 | Set pbResizable to False |
||
1358 | End_Object |
||
1359 | |||
1360 | Object oOptionsColumnName is a cCJGridColumn |
||
1361 | Set piWidth to 50 |
||
1362 | Set psCaption to "Column" |
||
1363 | End_Object |
||
1364 | |||
1365 | Object oOptionsColumnChanged is a cCJGridColumn |
||
1366 | Set piWidth to 35 |
||
1367 | Set pbCheckbox to True |
||
1368 | Set psCaption to "Changed" |
||
1369 | Set pbVisible To False |
||
1370 | Set pbShowInFieldChooser To False |
||
1371 | End_Object |
||
1372 | |||
1373 | Function CurrentRow Returns Integer |
||
1374 | Handle hoDataSource |
||
1375 | Integer iRow |
||
1376 | |||
1377 | Move -1 To iRow |
||
1378 | Get phoDataSource to hoDataSource |
||
1379 | If (hoDataSource) Begin |
||
1380 | Get SelectedRow of hoDataSource to iRow |
||
1381 | End |
||
1382 | Function_Return irow |
||
1383 | End_Function |
||
1384 | |||
1385 | Procedure OnRowChanged Integer iOld Integer iNew |
||
1386 | Forward Send OnRowChanged iOld iNew |
||
1387 | If (iOld<>iNew) begin |
||
1388 | Send DisplayFieldOptions |
||
1389 | End |
||
1390 | End_Procedure |
||
1391 | |||
1392 | |||
1393 | Procedure LoadData |
||
1394 | Handle hoDataSource |
||
1395 | Handle hoDD |
||
1396 | Boolean bChanged |
||
1397 | Boolean bIsCreated |
||
1398 | Integer iRows |
||
1399 | Integer iNo |
||
1400 | Integer iName |
||
1401 | Integer iChanged |
||
1402 | Integer iCount |
||
1403 | Integer iField |
||
1404 | Integer iItem |
||
1405 | String sValue |
||
1406 | String sField |
||
1407 | tTable Table |
||
1408 | tColumn[] Columns |
||
1409 | tDataSourceRow[] TheData |
||
1410 | |||
1411 | Get phoDataSource to hoDataSource |
||
1412 | Get phoCurrentDD to hoDD |
||
1413 | |||
1414 | // Get the datasource indexes of the various columns |
||
1415 | Get piColumnId of oOptionsColumnNo To iNo |
||
1416 | Get piColumnId of oOptionsColumnName To iName |
||
1417 | Get piColumnId of oOptionsColumnChanged To iChanged |
||
1418 | |||
1419 | // Load all data into the datasource array |
||
1420 | If (hoDD) Begin |
||
1421 | Get pTable To Table |
||
1422 | Move Table.Columns To Columns |
||
1423 | Move (SizeOfArray(Columns)) To iCount |
||
1424 | For iItem From 0 To (iCount-1) |
||
1425 | Move Columns[iItem].iNr To iField |
||
1426 | Move Columns[iItem].sName To sField |
||
1427 | Move Columns[iItem].bChanged To bChanged |
||
1428 | |||
1429 | Move iField To TheData[iRows].sValue[iNo] |
||
1430 | Move sField To TheData[iRows].sValue[iName] |
||
1431 | Move bChanged To TheData[iRows].sValue[iChanged] |
||
1432 | Increment iRows |
||
1433 | Loop |
||
1434 | |||
1435 | End |
||
1436 | |||
1437 | Get IsComObjectCreated To bIsCreated |
||
1438 | If (bIsCreated) Begin |
||
1439 | // Initialize Grid with new data |
||
1440 | Send InitializeData TheData |
||
1441 | Send MovetoFirstRow |
||
1442 | End |
||
1443 | End_Procedure |
||
1444 | End_Object |
||
1445 | 19 | wil | |
1446 | 39 | wil | |
1447 | |||
1448 | |||
1449 | |||
1450 | 49 | wil | Object oAutoFind_cb is a cReadOnlyCheckbox |
1451 | 38 | wil | Set Size to 10 50 |
1452 | 40 | wil | Set Location to 13 92 |
1453 | 38 | wil | Set Label to "Auto Find" |
1454 | End_Object |
||
1455 | 19 | wil | |
1456 | 49 | wil | Object oAutoFindGE_cb is a cReadOnlyCheckbox |
1457 | 38 | wil | Set Size to 10 50 |
1458 | 40 | wil | Set Location to 25 92 |
1459 | 38 | wil | Set Label to "Auto Find GE" |
1460 | End_Object |
||
1461 | |||
1462 | 49 | wil | Object oCapslock_cb is a cReadOnlyCheckbox |
1463 | 38 | wil | Set Size to 10 50 |
1464 | 40 | wil | Set Location to 37 92 |
1465 | 38 | wil | Set Label to "Capslock" |
1466 | End_Object |
||
1467 | |||
1468 | 49 | wil | //Object oDisplayOnly_cb is a cReadOnlyCheckbox |
1469 | 40 | wil | // Set Size to 10 50 |
1470 | // Set Location to 49 92 |
||
1471 | // Set Label to "DisplayOnly" |
||
1472 | //End_Object |
||
1473 | 38 | wil | |
1474 | 49 | wil | Object oFindReq_cb is a cReadOnlyCheckbox |
1475 | 38 | wil | Set Size to 10 50 |
1476 | 40 | wil | Set Location to 61 92 |
1477 | 38 | wil | Set Label to "FindReq" |
1478 | End_Object |
||
1479 | |||
1480 | 49 | wil | Object oForcePut_cb is a cReadOnlyCheckbox |
1481 | 38 | wil | Set Size to 10 50 |
1482 | 40 | wil | Set Location to 73 92 |
1483 | 38 | wil | Set Label to "ForcePut" |
1484 | End_Object |
||
1485 | |||
1486 | 49 | wil | Object oKeyfield_cb is a cReadOnlyCheckbox |
1487 | 38 | wil | Set Size to 10 50 |
1488 | 40 | wil | Set Location to 85 92 |
1489 | 38 | wil | Set Label to "Keyfield" |
1490 | End_Object |
||
1491 | |||
1492 | 49 | wil | Object oNoEnter_cb is a cReadOnlyCheckbox |
1493 | 38 | wil | Set Size to 10 50 |
1494 | 40 | wil | Set Location to 97 92 |
1495 | 38 | wil | Set Label to "NoEnter" |
1496 | End_Object |
||
1497 | |||
1498 | 49 | wil | Object oNoPut_cb is a cReadOnlyCheckbox |
1499 | 38 | wil | Set Size to 10 50 |
1500 | 40 | wil | Set Location to 109 92 |
1501 | 38 | wil | Set Label to "NoPut" |
1502 | End_Object |
||
1503 | |||
1504 | 49 | wil | Object oRetain_cb is a cReadOnlyCheckbox |
1505 | 38 | wil | Set Size to 10 50 |
1506 | 40 | wil | Set Location to 13 175 |
1507 | 38 | wil | Set Label to "Retain" |
1508 | End_Object |
||
1509 | |||
1510 | 49 | wil | Object oRequired_cb is a cReadOnlyCheckbox |
1511 | 38 | wil | Set Size to 10 50 |
1512 | 40 | wil | Set Location to 25 175 |
1513 | 38 | wil | Set Label to "Required" |
1514 | End_Object |
||
1515 | |||
1516 | 49 | wil | Object oSkipFound_cb is a cReadOnlyCheckbox |
1517 | 38 | wil | Set Size to 10 50 |
1518 | 40 | wil | Set Location to 37 175 |
1519 | 38 | wil | Set Label to "SkipFound" |
1520 | End_Object |
||
1521 | |||
1522 | 49 | wil | Object oZeroSuppress_cb is a cReadOnlyCheckbox |
1523 | 38 | wil | Set Size to 10 50 |
1524 | 40 | wil | Set Location to 49 175 |
1525 | 38 | wil | Set Label to "ZeroSuppress" |
1526 | End_Object |
||
1527 | |||
1528 | 49 | wil | Object oCommit_cb is a cReadOnlyCheckbox |
1529 | 38 | wil | Set Size to 10 50 |
1530 | 40 | wil | Set Location to 61 175 |
1531 | 38 | wil | Set Label to "Commit" |
1532 | End_Object |
||
1533 | 33 | wil | |
1534 | 39 | wil | Procedure DisplayFieldOptions |
1535 | 38 | wil | Handle hoDD |
1536 | Integer iRow |
||
1537 | Integer iField |
||
1538 | tFieldOptions Options |
||
1539 | |||
1540 | Get phoCurrentDD To hoDD |
||
1541 | 48 | wil | Get CurrentRow Of oFieldOptionsColumnsList To iRow |
1542 | 38 | wil | If (iRow<>-1 and hoDD) Begin |
1543 | 39 | wil | Get SelectedRowValue of oOptionsColumnNo to iField |
1544 | 38 | wil | Get DDFieldOptions hoDD iField To Options |
1545 | Set Checked_State of oAutoFind_cb To Options.bAutoFind |
||
1546 | Set Checked_State of oAutoFindGE_cb To Options.bAutoFindGE |
||
1547 | Set Checked_State of oCapslock_cb To Options.bCapslock |
||
1548 | //Set Checked_State of oDisplayOnly_cb To Options.bDisplayOnly |
||
1549 | Set Checked_State of oFindReq_cb To Options.bFindReq |
||
1550 | Set Checked_State of oForcePut_cb To Options.bForcePut |
||
1551 | 40 | wil | Set Checked_State Of oKeyfield_cb To Options.bKeyField |
1552 | 38 | wil | Set Checked_State Of oNoEnter_cb To Options.bNoEnter |
1553 | Set Checked_State Of oNoPut_cb To Options.bNoPut |
||
1554 | Set Checked_State Of oRetain_cb To Options.bRetain |
||
1555 | Set Checked_State Of oRequired_cb To Options.bRequired |
||
1556 | Set Checked_State Of oSkipFound_cb To Options.bSkipFound |
||
1557 | Set Checked_State Of oZeroSuppress_cb To Options.bZeroSuppress |
||
1558 | Set Checked_State Of oCommit_cb To Options.bCommit |
||
1559 | 33 | wil | End |
1560 | 38 | wil | End_Procedure |
1561 | 39 | wil | |
1562 | Procedure DisplayTabDetails |
||
1563 | 48 | wil | Send LoadData Of oFieldOptionsColumnsList |
1564 | 39 | wil | Send DisplayFieldOptions |
1565 | End_Procedure |
||
1566 | 38 | wil | End_Object |
1567 | 45 | wil | |
1568 | |||
1569 | Object oForeignFieldOptions_TP is a TabPage |
||
1570 | Set Label to "Foreign Options" |
||
1571 | |||
1572 | 49 | wil | //Object oDisplayOnly_cb is a cReadOnlyCheckbox |
1573 | 48 | wil | // Set Size to 10 50 |
1574 | // Set Location to 49 92 |
||
1575 | // Set Label to "DisplayOnly" |
||
1576 | //End_Object |
||
1577 | |||
1578 | 50 | wil | Object oForeignKeyGrp is a Group |
1579 | Set Size to 86 73 |
||
1580 | Set Location to 6 8 |
||
1581 | Set Label to "Key Fields" |
||
1582 | 48 | wil | |
1583 | 50 | wil | Object oAutoFind_cb is a cReadOnlyCheckbox |
1584 | Set Size to 10 50 |
||
1585 | Set Location to 10 10 |
||
1586 | Set Label to "Auto Find" |
||
1587 | End_Object |
||
1588 | Object oAutoFindGE_cb is a cReadOnlyCheckbox |
||
1589 | Set Size to 10 50 |
||
1590 | Set Location to 22 10 |
||
1591 | Set Label to "Auto Find GE" |
||
1592 | End_Object |
||
1593 | Object oFindReq_cb is a cReadOnlyCheckbox |
||
1594 | Set Size to 10 50 |
||
1595 | Set Location to 34 10 |
||
1596 | Set Label to "FindReq" |
||
1597 | End_Object |
||
1598 | Object oNoEnter_cb is a cReadOnlyCheckbox |
||
1599 | Set Size to 10 50 |
||
1600 | Set Location to 46 10 |
||
1601 | Set Label to "NoEnter" |
||
1602 | End_Object |
||
1603 | Object oNoPut_cb is a cReadOnlyCheckbox |
||
1604 | Set Size to 10 50 |
||
1605 | Set Location to 58 10 |
||
1606 | Set Label to "NoPut" |
||
1607 | End_Object |
||
1608 | Object oSkipFound_cb is a cReadOnlyCheckbox |
||
1609 | Set Size to 10 50 |
||
1610 | Set Location to 70 10 |
||
1611 | Set Label to "SkipFound" |
||
1612 | Set psTooltip to "DD_SkipFound" |
||
1613 | End_Object |
||
1614 | |||
1615 | Procedure DisplayFieldOptions tFieldOptions Options |
||
1616 | Set Checked_State of oAutoFind_cb To Options.bAutoFind |
||
1617 | Set Checked_State of oAutoFindGE_cb To Options.bAutoFindGE |
||
1618 | Set Checked_State of oCapslock_cb To Options.bCapslock |
||
1619 | //Set Checked_State of oDisplayOnly_cb To Options.bDisplayOnly |
||
1620 | Set Checked_State of oFindReq_cb To Options.bFindReq |
||
1621 | Set Checked_State Of oNoEnter_cb To Options.bNoEnter |
||
1622 | Set Checked_State Of oNoPut_cb To Options.bNoPut |
||
1623 | Set Checked_State Of oSkipFound_cb To Options.bSkipFound |
||
1624 | End_Procedure |
||
1625 | 48 | wil | End_Object |
1626 | |||
1627 | 50 | wil | Object oForeignIndexGrp is a Group |
1628 | Set Size to 86 73 |
||
1629 | Set Location to 6 88 |
||
1630 | Set Label to "Index Fields" |
||
1631 | 48 | wil | |
1632 | 50 | wil | Object oAutoFind_cb is a cReadOnlyCheckbox |
1633 | Set Size to 10 50 |
||
1634 | Set Location to 10 10 |
||
1635 | Set Label to "Auto Find" |
||
1636 | End_Object |
||
1637 | Object oAutoFindGE_cb is a cReadOnlyCheckbox |
||
1638 | Set Size to 10 50 |
||
1639 | Set Location to 22 10 |
||
1640 | Set Label to "Auto Find GE" |
||
1641 | End_Object |
||
1642 | Object oFindReq_cb is a cReadOnlyCheckbox |
||
1643 | Set Size to 10 50 |
||
1644 | Set Location to 34 10 |
||
1645 | Set Label to "FindReq" |
||
1646 | End_Object |
||
1647 | Object oNoEnter_cb is a cReadOnlyCheckbox |
||
1648 | Set Size to 10 50 |
||
1649 | Set Location to 46 10 |
||
1650 | Set Label to "NoEnter" |
||
1651 | End_Object |
||
1652 | Object oNoPut_cb is a cReadOnlyCheckbox |
||
1653 | Set Size to 10 50 |
||
1654 | Set Location to 58 10 |
||
1655 | Set Label to "NoPut" |
||
1656 | End_Object |
||
1657 | Object oSkipFound_cb is a cReadOnlyCheckbox |
||
1658 | Set Size to 10 50 |
||
1659 | Set Location to 70 10 |
||
1660 | Set Label to "SkipFound" |
||
1661 | Set psTooltip to "DD_SkipFound" |
||
1662 | End_Object |
||
1663 | |||
1664 | Procedure DisplayFieldOptions tFieldOptions Options |
||
1665 | Set Checked_State of oAutoFind_cb To Options.bAutoFind |
||
1666 | Set Checked_State of oAutoFindGE_cb To Options.bAutoFindGE |
||
1667 | Set Checked_State of oCapslock_cb To Options.bCapslock |
||
1668 | //Set Checked_State of oDisplayOnly_cb To Options.bDisplayOnly |
||
1669 | Set Checked_State of oFindReq_cb To Options.bFindReq |
||
1670 | Set Checked_State Of oNoEnter_cb To Options.bNoEnter |
||
1671 | Set Checked_State Of oNoPut_cb To Options.bNoPut |
||
1672 | Set Checked_State Of oSkipFound_cb To Options.bSkipFound |
||
1673 | End_Procedure |
||
1674 | 48 | wil | End_Object |
1675 | |||
1676 | 50 | wil | Object oForeignDefaultGrp is a Group |
1677 | Set Size to 86 73 |
||
1678 | Set Location to 6 167 |
||
1679 | Set Label to "Default" |
||
1680 | Object oNoEnter_cb is a cReadOnlyCheckbox |
||
1681 | Set Size to 10 50 |
||
1682 | Set Location to 46 10 |
||
1683 | Set Label to "NoEnter" |
||
1684 | End_Object |
||
1685 | Object oNoPut_cb is a cReadOnlyCheckbox |
||
1686 | Set Size to 10 50 |
||
1687 | Set Location to 58 10 |
||
1688 | Set Label to "NoPut" |
||
1689 | End_Object |
||
1690 | Object oSkipFound_cb is a cReadOnlyCheckbox |
||
1691 | Set Size to 10 50 |
||
1692 | Set Location to 70 10 |
||
1693 | Set Label to "SkipFound" |
||
1694 | Set psTooltip to "DD_SkipFound" |
||
1695 | End_Object |
||
1696 | |||
1697 | Procedure DisplayFieldOptions tFieldOptions Options |
||
1698 | Set Checked_State Of oNoEnter_cb To Options.bNoEnter |
||
1699 | Set Checked_State Of oNoPut_cb To Options.bNoPut |
||
1700 | Set Checked_State Of oSkipFound_cb To Options.bSkipFound |
||
1701 | End_Procedure |
||
1702 | 48 | wil | End_Object |
1703 | |||
1704 | 50 | wil | Object oForeignReadonly_cb is a cReadOnlyCheckbox |
1705 | 48 | wil | Set Size to 10 50 |
1706 | 50 | wil | Set Location to 102 55 |
1707 | Set Label to "Foreign Readonly" |
||
1708 | Set psTooltip to "pbForeignReadOnly" |
||
1709 | 48 | wil | End_Object |
1710 | 50 | wil | Object oForeignNewSave_cb is a cReadOnlyCheckbox |
1711 | 48 | wil | Set Size to 10 50 |
1712 | 50 | wil | Set Location to 102 152 |
1713 | Set Label to "Foreign New Save" |
||
1714 | Set psTooltip to "Allow_Foreign_New_Save_State" |
||
1715 | 48 | wil | End_Object |
1716 | |||
1717 | 50 | wil | |
1718 | Procedure DisplayForeignFieldOptions tForeignFieldOptions Foreign |
||
1719 | Send DisplayFieldOptions Of oForeignKeyGrp Foreign.ddKey |
||
1720 | Send DisplayFieldOptions Of oForeignIndexGrp Foreign.ddIndex |
||
1721 | Send DisplayFieldOptions Of oForeignDefaultGrp Foreign.ddDefault |
||
1722 | 48 | wil | End_Procedure |
1723 | 45 | wil | |
1724 | Procedure DisplayTabDetails |
||
1725 | 50 | wil | Handle hoDD |
1726 | tTable Table |
||
1727 | |||
1728 | Get phoCurrentDD to hoDD |
||
1729 | If (hoDD) Begin |
||
1730 | Get pTable To Table |
||
1731 | |||
1732 | Set Checked_State Of oForeignReadonly_cb To Table.Foreign.bReadOnly |
||
1733 | Set Checked_State Of oForeignNewSave_cb To Table.Foreign.bAllowNewSave |
||
1734 | End |
||
1735 | Send DisplayForeignFieldOptions Table.Foreign |
||
1736 | 45 | wil | End_Procedure |
1737 | 50 | wil | |
1738 | 45 | wil | End_Object |
1739 | 38 | wil | |
1740 | 40 | wil | Object oRelationships_TP is a TabPage |
1741 | Set Label to "Relationships" |
||
1742 | |||
1743 | Object oParentGroup is a Group |
||
1744 | Set Size to 58 234 |
||
1745 | Set Location to 1 4 |
||
1746 | Set Label to "Parents" |
||
1747 | |||
1748 | Object oParentList is a cCJGrid |
||
1749 | 49 | wil | Set Size to 50 155 |
1750 | 40 | wil | Set Location to 7 3 |
1751 | Set pbSelectionEnable to True |
||
1752 | Set peAnchors to anAll |
||
1753 | Set pbReadOnly to True |
||
1754 | |||
1755 | Object oParentColumnNo is a cCJGridColumn |
||
1756 | 49 | wil | Set piWidth to 40 |
1757 | 40 | wil | Set psCaption to "#" |
1758 | Set psTooltip to "File Number" |
||
1759 | Set peDataType to Mask_Numeric_Window |
||
1760 | Set pbResizable to False |
||
1761 | End_Object |
||
1762 | |||
1763 | Object oParentColumnName is a cCJGridColumn |
||
1764 | 49 | wil | Set piWidth to 270 |
1765 | 40 | wil | Set psCaption to "Name" |
1766 | End_Object |
||
1767 | |||
1768 | Procedure LoadData |
||
1769 | Handle hoDataSource |
||
1770 | Handle hoDD |
||
1771 | Boolean bIsCreated |
||
1772 | Integer iRows |
||
1773 | Integer iNo |
||
1774 | Integer iName |
||
1775 | Integer iItem |
||
1776 | Integer iCount |
||
1777 | Integer iFile |
||
1778 | String sFile |
||
1779 | tTable Table |
||
1780 | tServer[] Servers |
||
1781 | tDataSourceRow[] TheData |
||
1782 | |||
1783 | Get phoDataSource to hoDataSource |
||
1784 | Get phoCurrentDD to hoDD |
||
1785 | |||
1786 | // Get the datasource indexes of the various columns |
||
1787 | Get piColumnId of oDataColumnNo to iNo |
||
1788 | Get piColumnId of oDataColumnName to iName |
||
1789 | |||
1790 | // Load all data into the datasource array |
||
1791 | If (hoDD) Begin |
||
1792 | Get pTable to Table |
||
1793 | Move Table.Servers to Servers |
||
1794 | Move (SizeOfArray(Servers)) to iCount |
||
1795 | For iItem from 0 to (iCount-1) |
||
1796 | Move Servers[iItem].iFile to iFile |
||
1797 | Move Servers[iItem].sName to sFile |
||
1798 | |||
1799 | Move iFile to TheData[iRows].sValue[iNo] |
||
1800 | Move sFile to TheData[iRows].sValue[iName] |
||
1801 | |||
1802 | Increment iRows |
||
1803 | Loop |
||
1804 | |||
1805 | End |
||
1806 | |||
1807 | Get IsComObjectCreated to bIsCreated |
||
1808 | If (bIsCreated) Begin |
||
1809 | // Initialize Grid with new data |
||
1810 | Send InitializeData TheData |
||
1811 | Send MovetoFirstRow |
||
1812 | End |
||
1813 | End_Procedure |
||
1814 | 49 | wil | |
1815 | Function CurrentRow Returns Integer |
||
1816 | Handle hoDataSource |
||
1817 | Integer iRow |
||
1818 | |||
1819 | Move -1 To iRow |
||
1820 | Get phoDataSource to hoDataSource |
||
1821 | If (hoDataSource) Begin |
||
1822 | Get SelectedRow of hoDataSource to iRow |
||
1823 | End |
||
1824 | Function_Return irow |
||
1825 | End_Function |
||
1826 | |||
1827 | Procedure OnRowChanged Integer iOld Integer iNew |
||
1828 | Forward Send OnRowChanged iOld iNew |
||
1829 | If (iOld<>iNew) begin |
||
1830 | Send DisplayParentDetails |
||
1831 | End |
||
1832 | End_Procedure |
||
1833 | |||
1834 | 40 | wil | End_Object |
1835 | 49 | wil | |
1836 | Object oParentNullAllowed_cb is a cReadOnlyCheckBox |
||
1837 | Set Size to 10 50 |
||
1838 | Set Location to 18 169 |
||
1839 | Set Label to "Null Allowed" |
||
1840 | Set psToolTip to "ParentNullAllowed" |
||
1841 | End_Object |
||
1842 | |||
1843 | Object oParentNoSwitch_cb is a cReadOnlyCheckBox |
||
1844 | Set Size to 10 50 |
||
1845 | Set Location to 30 169 |
||
1846 | Set Label to "No Switch" |
||
1847 | Set psToolTip to "ParentNoSwitchIfCommitted" |
||
1848 | End_Object |
||
1849 | |||
1850 | Procedure DisplayParentDetails |
||
1851 | Integer iRow |
||
1852 | Integer iFile |
||
1853 | Handle hoDD |
||
1854 | tTable Table |
||
1855 | tServer[] Servers |
||
1856 | |||
1857 | Get phoCurrentDD To hoDD |
||
1858 | Get CurrentRow Of oParentList To iRow |
||
1859 | If (iRow<>-1 and hoDD) Begin |
||
1860 | Get pTable to Table |
||
1861 | Move Table.Servers to Servers |
||
1862 | |||
1863 | Get SelectedRowValue of oParentColumnNo to iFile |
||
1864 | If (Servers[iRow].iFile=iFile) Begin |
||
1865 | Set Checked_State of oParentNullAllowed_cb To Servers[iRow].bNullAllowed |
||
1866 | Set Checked_State of oParentNoSwitch_cb To Servers[iRow].bNoSwitch |
||
1867 | End |
||
1868 | Else Begin |
||
1869 | Send Info_Box ("DisplayParentDetails assert grid ifile"+trim(Servers[iRow].iFile)+"<>"+trim(iFile)+"ifile") |
||
1870 | End |
||
1871 | End |
||
1872 | End_Procedure |
||
1873 | 40 | wil | End_Object |
1874 | |||
1875 | Object oChildGroup is a Group |
||
1876 | Set Size to 58 234 |
||
1877 | Set Location to 60 4 |
||
1878 | Set Label to "Childs" |
||
1879 | |||
1880 | Object oChildList is a cCJGrid |
||
1881 | 49 | wil | Set Size to 50 154 |
1882 | 40 | wil | Set Location to 8 3 |
1883 | Set pbSelectionEnable to True |
||
1884 | Set peAnchors to anAll |
||
1885 | Set pbReadOnly to True |
||
1886 | |||
1887 | Object oChildColumnNo is a cCJGridColumn |
||
1888 | 49 | wil | Set piWidth to 38 |
1889 | 40 | wil | Set psCaption to "#" |
1890 | Set psTooltip to "File Number" |
||
1891 | Set peDataType to Mask_Numeric_Window |
||
1892 | Set pbResizable to False |
||
1893 | End_Object |
||
1894 | |||
1895 | Object oChildColumnName is a cCJGridColumn |
||
1896 | 49 | wil | Set piWidth to 270 |
1897 | 40 | wil | Set psCaption to "Name" |
1898 | End_Object |
||
1899 | |||
1900 | Procedure LoadData |
||
1901 | Handle hoDataSource |
||
1902 | Handle hoDD |
||
1903 | Boolean bIsCreated |
||
1904 | Integer iRows |
||
1905 | Integer iNo |
||
1906 | Integer iName |
||
1907 | Integer iItem |
||
1908 | Integer iCount |
||
1909 | Integer iFile |
||
1910 | String sFile |
||
1911 | tTable Table |
||
1912 | tClient[] Clients |
||
1913 | tDataSourceRow[] TheData |
||
1914 | |||
1915 | Get phoDataSource to hoDataSource |
||
1916 | Get phoCurrentDD to hoDD |
||
1917 | |||
1918 | // Get the datasource indexes of the various columns |
||
1919 | Get piColumnId of oDataColumnNo to iNo |
||
1920 | Get piColumnId of oDataColumnName to iName |
||
1921 | |||
1922 | // Load all data into the datasource array |
||
1923 | If (hoDD) Begin |
||
1924 | Get pTable to Table |
||
1925 | Move Table.Clients to Clients |
||
1926 | Move (SizeOfArray(Clients)) to iCount |
||
1927 | For iItem from 0 to (iCount-1) |
||
1928 | Move Clients[iItem].iFile to iFile |
||
1929 | Move Clients[iItem].sName to sFile |
||
1930 | |||
1931 | Move iFile to TheData[iRows].sValue[iNo] |
||
1932 | Move sFile to TheData[iRows].sValue[iName] |
||
1933 | |||
1934 | Increment iRows |
||
1935 | Loop |
||
1936 | |||
1937 | End |
||
1938 | |||
1939 | Get IsComObjectCreated to bIsCreated |
||
1940 | If (bIsCreated) Begin |
||
1941 | // Initialize Grid with new data |
||
1942 | Send InitializeData TheData |
||
1943 | Send MovetoFirstRow |
||
1944 | End |
||
1945 | End_Procedure |
||
1946 | End_Object |
||
1947 | End_Object |
||
1948 | |||
1949 | |||
1950 | |||
1951 | Procedure DisplayTabDetails |
||
1952 | Send LoadData Of oParentList |
||
1953 | 49 | wil | Send DisplayParentDetails of oParentGroup |
1954 | 40 | wil | Send LoadData of oChildList |
1955 | End_Procedure |
||
1956 | End_Object |
||
1957 | |||
1958 | 38 | wil | |
1959 | Function Tab_Change Integer iToTab Integer ePointerMode Returns Integer |
||
1960 | Handle hoToTab |
||
1961 | Integer iCurrentTab |
||
1962 | Integer iRetVal |
||
1963 | |||
1964 | Get Current_Tab To iCurrentTab |
||
1965 | Forward Get Tab_Change iToTab ePointerMode To iRetVal |
||
1966 | If (iCurrentTab<>-1 and iRetval=0) Begin |
||
1967 | Get Tab_Page_Id iToTab To hoToTab |
||
1968 | 45 | wil | If (hoToTab=oFieldOptions_TP or hoToTab=oForeignFieldOptions_TP or hoToTab=oData_TP or hoToTab=oTable_TP or hoToTab=oRelationships_TP) Begin |
1969 | 38 | wil | Send DisplayTabDetails of hoToTab |
1970 | 33 | wil | End |
1971 | End |
||
1972 | 38 | wil | Function_Return iRetVal |
1973 | End_Function |
||
1974 | |||
1975 | 40 | wil | Procedure UpdateCurrentTab |
1976 | Handle hoTab |
||
1977 | Integer iTab |
||
1978 | |||
1979 | Get Current_Tab To iTab |
||
1980 | If (iTab<>-1) Begin |
||
1981 | Get Tab_Page_Id iTab To hoTab |
||
1982 | If (hoTab=oFieldOptions_TP or hoTab=oData_TP or hoTab=oTable_TP or hoTab=oRelationships_TP) Begin |
||
1983 | Send DisplayTabDetails of hoTab |
||
1984 | End |
||
1985 | End |
||
1986 | End_Procedure |
||
1987 | |||
1988 | 38 | wil | End_Object |
1989 | |||
1990 | 39 | wil | Function EmptyTable Returns tTable |
1991 | tTable Table |
||
1992 | tColumn[] Columns |
||
1993 | |||
1994 | Move (ResizeArray(Columns,0)) To Columns |
||
1995 | Move 0 To Table.iNr |
||
1996 | Move "" To Table.sName |
||
1997 | Move Columns To Table.Columns |
||
1998 | Function_Return Table |
||
1999 | End_Function |
||
2000 | |||
2001 | 40 | wil | Function EnumerateColumns Handle hoDD String sFile Returns tColumn[] |
2002 | Boolean bChanged |
||
2003 | Integer iCount |
||
2004 | Integer iItem |
||
2005 | Integer iField |
||
2006 | Integer iMainIndex |
||
2007 | String sField |
||
2008 | String sValue |
||
2009 | String sRBValue |
||
2010 | tColumn[] Columns |
||
2011 | |||
2012 | Get PropertyIntegerEval of oProgram "Field_Count" hoDD To iCount |
||
2013 | Move 0 To iItem |
||
2014 | For iField From 0 To iCount |
||
2015 | Get StringEval of oProgram ("Field_Label_Tag("+trim(hoDD)+","+trim(iField)+")") To sValue |
||
2016 | Move sValue To sField |
||
2017 | |||
2018 | //Get DDFieldOptionsToString hoDD iField To sOptions |
||
2019 | //If (sOptions<>"") Move ("-"+sOptions) To sOptions |
||
2020 | |||
2021 | Get StringEval of oProgram ("Field_Current_Value("+trim(hoDD)+","+trim(iField)+")") To sValue |
||
2022 | Get StringEval of oProgram ("Field_Changed_State("+trim(hoDD)+","+trim(iField)+")") To bChanged |
||
2023 | Get StringEval of oProgram ("Field_Index(" +trim(hoDD)+","+trim(iField)+")") To iMainIndex |
||
2024 | |||
2025 | Get StringEval of oProgram (trim(sFile)+"."+trim(sField)) To sRBValue |
||
2026 | |||
2027 | Move iField To Columns[iItem].iNr |
||
2028 | Move sField To Columns[iItem].sName |
||
2029 | Move sValue To Columns[iItem].sDDValue |
||
2030 | Move sRBValue To Columns[iItem].sRBValue |
||
2031 | Move bChanged To Columns[iItem].bChanged |
||
2032 | Move iMainIndex To Columns[iItem].iMainIndex |
||
2033 | Increment iItem |
||
2034 | Loop |
||
2035 | Function_Return Columns |
||
2036 | End_Function |
||
2037 | |||
2038 | Function EnumerateParents Handle hoDD Returns tServer[] |
||
2039 | Integer iCount |
||
2040 | Integer iFile |
||
2041 | Integer iItem |
||
2042 | 49 | wil | Integer iRuntimeVersion |
2043 | Handle hoDebugger |
||
2044 | Boolean bNullAllowed |
||
2045 | Boolean bNoSwitch |
||
2046 | 40 | wil | Handle hoParent |
2047 | String sValue |
||
2048 | String sName |
||
2049 | tServer[] Servers |
||
2050 | |||
2051 | Get PropertyIntegerEval of oProgram "Data_Set_Server_Count" hoDD To iCount |
||
2052 | For iItem From 0 To (iCount-1) |
||
2053 | Get StringEval of oProgram ("Data_Set_Server("+trim(hoDD)+","+trim(iItem)+")") To sValue |
||
2054 | Move sValue To hoParent |
||
2055 | Get ShortName Of oProgram hoParent To sName |
||
2056 | Get PropertyIntegerEval Of oProgram "Main_File" hoParent To iFile |
||
2057 | |||
2058 | 49 | wil | Move False To bNullAllowed |
2059 | Move False To bNoSwitch |
||
2060 | Get phoDebugger To hoDebugger |
||
2061 | If (hoDebugger) Begin |
||
2062 | Get piRuntimeVersion of hoDebugger To iRuntimeVersion |
||
2063 | If (iRuntimeVersion>=170) Begin |
||
2064 | // VDF17.0+ |
||
2065 | Get StringEval of oProgram ("ParentNullAllowed("+trim(hoDD)+","+trim(iFile)+")") To sValue |
||
2066 | Move sValue To bNullAllowed |
||
2067 | Get StringEval of oProgram ("ParentNoSwitchIfCommitted("+trim(hoDD)+","+trim(iFile)+")") To sValue |
||
2068 | Move sValue To bNoSwitch |
||
2069 | End |
||
2070 | End |
||
2071 | |||
2072 | Move hoParent To Servers[iItem].hoDD |
||
2073 | Move sName To Servers[iItem].sName |
||
2074 | Move iFile To Servers[iItem].iFile |
||
2075 | Move bNullAllowed To Servers[iItem].bNullAllowed |
||
2076 | Move bNoSwitch To Servers[iItem].bNoSwitch |
||
2077 | 40 | wil | Loop |
2078 | Function_Return Servers |
||
2079 | End_Function |
||
2080 | |||
2081 | Function EnumerateChilds Handle hoDD Returns tClient[] |
||
2082 | Integer iCount |
||
2083 | Integer iFile |
||
2084 | Integer iItem |
||
2085 | Handle hoChild |
||
2086 | String sValue |
||
2087 | String sName |
||
2088 | tClient[] Clients |
||
2089 | |||
2090 | Get PropertyIntegerEval of oProgram "Data_Set_Client_Count" hoDD To iCount |
||
2091 | For iItem From 0 To (iCount-1) |
||
2092 | Get StringEval of oProgram ("Data_Set_Client("+trim(hoDD)+","+trim(iItem)+")") To sValue |
||
2093 | Move sValue To hoChild |
||
2094 | Get ShortName Of oProgram hoChild To sName |
||
2095 | Get PropertyIntegerEval Of oProgram "Main_File" hoChild To iFile |
||
2096 | |||
2097 | Move hoChild To Clients[iItem].hoDD |
||
2098 | Move sName To Clients[iItem].sName |
||
2099 | Move iFile To Clients[iItem].iFile |
||
2100 | Loop |
||
2101 | Function_Return Clients |
||
2102 | End_Function |
||
2103 | |||
2104 | 50 | wil | Function ForeignFieldOptions Handle hoDD Returns tForeignFieldOptions |
2105 | Boolean bReadOnly |
||
2106 | Boolean bNewSave |
||
2107 | tFieldOptions ddDefault |
||
2108 | tFieldOptions ddIndex |
||
2109 | tFieldOptions ddKey |
||
2110 | tForeignFieldOptions Foreign |
||
2111 | 49 | wil | |
2112 | 50 | wil | Get PropertyBooleanEval of oProgram "pbForeignReadOnly" hoDD To bReadOnly |
2113 | Get PropertyBooleanEval of oProgram "Allow_Foreign_New_Save_State" hoDD To bNewSave |
||
2114 | 49 | wil | |
2115 | 50 | wil | Get DDForeignFieldOptions hoDD DD_Default To ddDefault |
2116 | Get DDForeignFieldOptions hoDD DD_IndexField To ddIndex |
||
2117 | Get DDForeignFieldOptions hoDD DD_KeyField To ddKey |
||
2118 | |||
2119 | Move bReadOnly To Foreign.bReadOnly |
||
2120 | Move bNewSave To Foreign.bAllowNewSave |
||
2121 | Move ddDefault To Foreign.ddDefault |
||
2122 | Move ddIndex To Foreign.ddIndex |
||
2123 | Move ddKey To Foreign.ddKey |
||
2124 | Function_Return Foreign |
||
2125 | 49 | wil | End_Function |
2126 | |||
2127 | 38 | wil | Procedure DisplayDataDictionaryDetails Integer iMainFile |
2128 | Handle hoDD |
||
2129 | 40 | wil | Handle hoParent |
2130 | Handle hoChild |
||
2131 | 38 | wil | Boolean bTableChanged |
2132 | 49 | wil | Boolean bShouldSave |
2133 | 38 | wil | Boolean bChanged |
2134 | 40 | wil | Boolean bInUse |
2135 | Boolean bAutoFill |
||
2136 | 42 | wil | Boolean bFillFromFirst |
2137 | 49 | wil | Boolean bProtectKey |
2138 | Boolean bReadOnly |
||
2139 | Boolean bNoDelete |
||
2140 | Boolean bNoRelate |
||
2141 | Boolean bParentChanged |
||
2142 | Boolean bInheritConstraints |
||
2143 | Boolean bUseDDRelates |
||
2144 | Boolean bNoCascadeDeleteStrict |
||
2145 | Boolean bCascadeDelete |
||
2146 | 39 | wil | Integer iItem |
2147 | 38 | wil | Integer iCount |
2148 | Integer iField |
||
2149 | 42 | wil | Integer iOrdering |
2150 | 49 | wil | String sTableName |
2151 | 38 | wil | String sField |
2152 | String sValue |
||
2153 | String sOptions |
||
2154 | String sLine |
||
2155 | 39 | wil | tColumn[] Columns |
2156 | 40 | wil | tServer[] Servers |
2157 | tClient[] Clients |
||
2158 | 50 | wil | tForeignFieldOptions Foreign |
2159 | 39 | wil | tTable Table |
2160 | 38 | wil | |
2161 | Get phoTarget To hoDD |
||
2162 | Set phoCurrentDD To hoDD |
||
2163 | 39 | wil | Get Emptytable To Table |
2164 | 38 | wil | |
2165 | 49 | wil | Get TableName hoDD iMainFile To sTableName |
2166 | |||
2167 | Move ("DataDictionary for Table : "+sTableName) To sLine |
||
2168 | 38 | wil | Set Label Of oDDGroup To sLine |
2169 | 39 | wil | |
2170 | 49 | wil | Get PropertyBooleanEval of oProgram "Should_Save" hoDD To bShouldSave |
2171 | Get PropertyBooleanEval of oProgram "Changed_State" hoDD To bTableChanged |
||
2172 | Get PropertyBooleanEval of oProgram "In_Use_State" hoDD To bInUse |
||
2173 | Get PropertyBooleanEval of oProgram "Auto_Fill_State" hoDD To bAutoFill |
||
2174 | Get PropertyBooleanEval of oProgram "pbAutoFillFromFirst" hoDD To bFillFromFirst |
||
2175 | Get PropertyIntegerEval of oProgram "Ordering" hoDD To iOrdering |
||
2176 | Get PropertyBooleanEval of oProgram "Protect_Key_State" hoDD To bProtectKey |
||
2177 | Get PropertyBooleanEval of oProgram "Read_Only_State" hoDD To bReadOnly |
||
2178 | Get PropertyBooleanEval of oProgram "No_Delete_State" hoDD To bNoDelete |
||
2179 | Get PropertyBooleanEval of oProgram "No_Relate_State" hoDD To bNoRelate |
||
2180 | Get PropertyBooleanEval of oProgram "Parent_Changed_State" hoDD To bParentChanged |
||
2181 | Get PropertyBooleanEval of oProgram "pbInheritConstraints" hoDD To bInheritConstraints |
||
2182 | Get PropertyBooleanEval of oProgram "pbUseDDRelates" hoDD To bUseDDRelates |
||
2183 | Get PropertyBooleanEval of oProgram "pbNoCascadeDeleteStrict" hoDD To bNoCascadeDeleteStrict |
||
2184 | Get PropertyBooleanEval of oProgram "Cascade_Delete_State" hoDD To bCascadeDelete |
||
2185 | 40 | wil | |
2186 | 49 | wil | Move iMainFile To Table.iNr |
2187 | Move sTableName To Table.sName |
||
2188 | Move bShouldSave To Table.bShouldSave |
||
2189 | Move bTableChanged To Table.bChangedState |
||
2190 | Move bInUse To Table.bInUse |
||
2191 | Move bAutoFill To Table.bAutoFill |
||
2192 | Move bFillFromFirst To Table.bFillFromFirst |
||
2193 | Move bProtectKey To Table.bProtectKey |
||
2194 | Move bReadOnly To Table.bReadOnly |
||
2195 | Move bNoDelete To Table.bNoDelete |
||
2196 | Move bNoRelate To Table.bNoRelate |
||
2197 | Move bParentChanged To Table.bParentChanged |
||
2198 | Move bInheritConstraints To Table.bInheritConstraints |
||
2199 | Move bUseDDRelates To Table.bUseDDRelates |
||
2200 | Move bNoCascadeDeleteStrict To Table.bNoCascadeDeleteStrict |
||
2201 | Move bCascadeDelete To Table.bCascadeDelete |
||
2202 | Move iOrdering To Table.iOrdering |
||
2203 | 40 | wil | |
2204 | 50 | wil | Get ForeignFieldOptions hoDD To Foreign |
2205 | Get EnumerateColumns hoDD sTableName To Columns |
||
2206 | Get EnumerateParents hoDD To Servers |
||
2207 | Get EnumerateChilds hoDD To Clients |
||
2208 | |||
2209 | Move Foreign To Table.Foreign |
||
2210 | 39 | wil | Move Columns To Table.Columns |
2211 | 40 | wil | Move Servers To Table.Servers |
2212 | Move Clients To Table.Clients |
||
2213 | |||
2214 | 39 | wil | Set pTable To Table |
2215 | 40 | wil | |
2216 | Send UpdateCurrentTab Of oTable_TD |
||
2217 | 38 | wil | End_Procedure |
2218 | End_Object |
||
2219 | |||
2220 | Object oObjectDetailsEdit is a Edit |
||
2221 | Set Location To 53 3 |
||
2222 | Set Size To 144 263 |
||
2223 | Set Read_Only_State to True |
||
2224 | Set peAnchors To anAll |
||
2225 | |||
2226 | Procedure Add_Line String sText |
||
2227 | String sValue |
||
2228 | |||
2229 | Send Append_Text (sText + CS_CRLF) |
||
2230 | End_Procedure // Add_Row |
||
2231 | |||
2232 | Procedure DisplayDeoDetails Handle hoDD |
||
2233 | Integer iFile |
||
2234 | Integer iField |
||
2235 | Integer iMainFile |
||
2236 | Integer iValue |
||
2237 | Handle hoTarget |
||
2238 | Handle hoFileDD |
||
2239 | Handle hoMainDD |
||
2240 | String sFile |
||
2241 | String sField |
||
2242 | String sValue |
||
2243 | String sLine |
||
2244 | |||
2245 | Get phoTarget To hoTarget |
||
2246 | Get PropertyHandleEval of oProgram "Main_DD" hoTarget to hoMainDD |
||
2247 | If (hoMainDD) Begin |
||
2248 | |||
2249 | Get ShortName Of oProgram hoMainDD To sValue |
||
2250 | Move ("Main DD : "+sValue) To sLine |
||
2251 | 25 | wil | Send Add_Line sLine |
2252 | 38 | wil | End |
2253 | |||
2254 | Get PropertyIntegerEval of oProgram "Main_File" hoDD to iMainFile |
||
2255 | |||
2256 | 51 | wil | Get PropertyStringEval of oProgram "Label" hoTarget to sValue |
2257 | If (sValue<>"0") Begin |
||
2258 | Move ("Label : "+trim(sValue)) to sLine |
||
2259 | Send Add_Line sLine |
||
2260 | End |
||
2261 | Get PropertyIntegerEval of oProgram "Label_Col_Offset" hoTarget to iValue |
||
2262 | 38 | wil | If (iValue<>0) Begin |
2263 | Move ("Label_Col_Offset : "+trim(iValue)) To sLine |
||
2264 | Send Add_Line sLine |
||
2265 | End |
||
2266 | Get PropertyIntegerEval of oProgram "Label_Row_Offset" hoTarget To iValue |
||
2267 | If (iValue<>0) Begin |
||
2268 | Move ("Label_Row_Offset : "+trim(iValue)) To sLine |
||
2269 | Send Add_Line sLine |
||
2270 | End |
||
2271 | Get PropertyIntegerEval of oProgram "Label_Justification_Mode" hoTarget To iValue |
||
2272 | If (iValue<>jmode_left) Begin |
||
2273 | Get JustificationModeToString iValue To sValue |
||
2274 | Move ("Label_Justification_Mode : "+sValue) To sLine |
||
2275 | Send Add_Line sLine |
||
2276 | End |
||
2277 | |||
2278 | |||
2279 | Get ShortName Of oProgram hoDD To sValue |
||
2280 | Move ("Server : "+sValue) To sLine |
||
2281 | Send Add_Line sLine |
||
2282 | |||
2283 | Get PropertyIntegerEval of oProgram "Data_File" hoTarget To iFile |
||
2284 | If (iFile<>0) Begin |
||
2285 | Get PropertyIntegerEval of oProgram "Data_Field" hoTarget to iField |
||
2286 | Move ("File/Field : "+trim(iFile)+","+trim(iField)) To sLine |
||
2287 | Send Add_line sLine |
||
2288 | 33 | wil | |
2289 | 50 | wil | Get TableName hoDD iFile To sFile |
2290 | Move ("File : "+sFile) To sLine |
||
2291 | 38 | wil | Send Add_line sLine |
2292 | 34 | wil | |
2293 | 38 | wil | If (iMainFile<>0 and iMainFile<>iFile) Begin |
2294 | Get StringEval of oProgram ("Data_Set("+trim(hoDD)+","+trim(iFile)+")") To hoFileDD |
||
2295 | 33 | wil | End |
2296 | 38 | wil | Else Begin |
2297 | Move hoDD To hoFileDD |
||
2298 | 33 | wil | End |
2299 | 38 | wil | Get StringEval of oProgram ("Field_Label_Tag("+trim(hoFileDD)+","+trim(iField)+")") To sValue |
2300 | Move sValue To sField |
||
2301 | Move ("Field : "+sValue) To sLine |
||
2302 | Send Add_line sLine |
||
2303 | 19 | wil | |
2304 | 38 | wil | Get StringEval of oProgram ("File_Field_Current_Value("+trim(hoDD)+","+trim(iFile)+","+trim(iField)+")") To sValue |
2305 | Move ("DD Value : "+sValue) To sLine |
||
2306 | Send Add_line sLine |
||
2307 | |||
2308 | Get StringEval of oProgram (trim(sFile)+"."+trim(sField)) To sValue |
||
2309 | Move ("Record Value : "+sValue) To sLine |
||
2310 | Send Add_line sLine |
||
2311 | |||
2312 | Get StringEval of oProgram ("File_Field_Changed_State("+trim(hoDD)+","+trim(iFile)+","+trim(iField)+")") To sValue |
||
2313 | Get BooleanToString sValue To sValue |
||
2314 | Move ("DD Changed_State : "+sValue) To sLine |
||
2315 | Send Add_line sLine |
||
2316 | End |
||
2317 | End_Procedure |
||
2318 | |||
2319 | |||
2320 | Procedure DisplayViewDetails |
||
2321 | Handle hoDialog |
||
2322 | Boolean bState |
||
2323 | String sValue |
||
2324 | String sLine |
||
2325 | Integer eBorderStyle |
||
2326 | Integer ciMaxSize |
||
2327 | Integer ciMinSize |
||
2328 | |||
2329 | Get phoTarget To hoDialog |
||
2330 | Send Add_Line "dbView Object" |
||
2331 | Get PropertyIntegerEval of oProgram "piMinSize" hoDialog To ciMinSize |
||
2332 | If (ciMinSize<>0) Begin |
||
2333 | Get ComplexToString ciMinSize To sValue |
||
2334 | Move ("piMinSize : "+sValue) To sLine |
||
2335 | Send Add_Line sLine |
||
2336 | End |
||
2337 | Get PropertyIntegerEval of oProgram "piMaxSize" hoDialog To ciMaxSize |
||
2338 | If (ciMaxSize<>0) Begin |
||
2339 | Get ComplexToString ciMaxSize To sValue |
||
2340 | Move ("piMaxSize : "+sValue) To sLine |
||
2341 | Send Add_Line sLine |
||
2342 | End |
||
2343 | Get PropertyIntegerEval of oProgram "Border_Style" hoDialog To eBorderStyle |
||
2344 | If (eBorderStyle<>Border_Dialog) Begin |
||
2345 | Get BorderStyleToString eBorderStyle To sValue |
||
2346 | Move ("Border_Style : "+sValue) To sLine |
||
2347 | Send Add_Line sLine |
||
2348 | End |
||
2349 | Get PropertyBooleanEval of oProgram "Minimize_Icon" hoDialog to bState |
||
2350 | If (bState=false) Begin |
||
2351 | Move ("Minimize_Icon : false") To sLine |
||
2352 | Send Add_Line sLine |
||
2353 | End |
||
2354 | |||
2355 | End_Procedure |
||
2356 | |||
2357 | 51 | wil | Procedure DisplayNonDeoDetails |
2358 | Integer iValue |
||
2359 | Integer iCount |
||
2360 | Integer iItem |
||
2361 | Integer iDisplayed |
||
2362 | Handle hoTarget |
||
2363 | String sValue |
||
2364 | String sLine |
||
2365 | |||
2366 | Get phoTarget to hoTarget |
||
2367 | |||
2368 | Get PropertyStringEval of oProgram "Label" hoTarget to sValue |
||
2369 | If (sValue<>"0") Begin |
||
2370 | Move ("Label : "+trim(sValue)) to sLine |
||
2371 | Send Add_Line sLine |
||
2372 | End |
||
2373 | Get PropertyIntegerEval of oProgram "Label_Col_Offset" hoTarget to iValue |
||
2374 | If (iValue<>0) Begin |
||
2375 | Move ("Label_Col_Offset : "+trim(iValue)) to sLine |
||
2376 | Send Add_Line sLine |
||
2377 | End |
||
2378 | Get PropertyIntegerEval of oProgram "Label_Row_Offset" hoTarget to iValue |
||
2379 | If (iValue<>0) Begin |
||
2380 | Move ("Label_Row_Offset : "+trim(iValue)) to sLine |
||
2381 | Send Add_Line sLine |
||
2382 | End |
||
2383 | Get PropertyIntegerEval of oProgram "Label_Justification_Mode" hoTarget to iValue |
||
2384 | If (iValue<>jmode_left) Begin |
||
2385 | Get JustificationModeToString iValue to sValue |
||
2386 | Move ("Label_Justification_Mode : "+sValue) to sLine |
||
2387 | Send Add_Line sLine |
||
2388 | End |
||
2389 | Get PropertyIntegerEval of oProgram "Item_Count" hoTarget to iCount |
||
2390 | If (iCount>0) Begin |
||
2391 | Move ("Item_Count : "+trim(iCount)) to sLine |
||
2392 | Send Add_Line sLine |
||
2393 | Move 0 to iDisplayed |
||
2394 | For iItem from 0 to (iCount-1) |
||
2395 | Get StringEval of oProgram ("Value("+trim(hoTarget)+","+Trim(iItem)+")") to sValue |
||
2396 | If (sValue<>"") Begin |
||
2397 | Move ("item "+Trim(iItem)+" : "+trim(sValue)) to sLine |
||
2398 | Send Add_Line sLine |
||
2399 | Increment iDisplayed |
||
2400 | If (iCount>30 and iDisplayed=30) Begin |
||
2401 | Send Add_Line "... more" // limit over 30 data points on this to keep things fast |
||
2402 | Move iCount to iItem |
||
2403 | End |
||
2404 | End |
||
2405 | Loop |
||
2406 | End |
||
2407 | End_Procedure |
||
2408 | |||
2409 | 38 | wil | Procedure DisplayObjectDetails |
2410 | Handle hoTarget |
||
2411 | 53 | wil | Handle hWnd |
2412 | Handle hChildWnd |
||
2413 | 38 | wil | Integer ciSize |
2414 | Integer ciLocation |
||
2415 | Integer eWindowsClass |
||
2416 | Integer eAnchors |
||
2417 | 41 | wil | Boolean bIsCreated |
2418 | 38 | wil | String sValue |
2419 | String sLine |
||
2420 | |||
2421 | Send Delete_Data |
||
2422 | |||
2423 | Get phoTarget To hoTarget |
||
2424 | |||
2425 | Get xBitmapIDForObj of oProgram hoTarget To eWindowsClass |
||
2426 | Get PropertyIntegerEval of oProgram "Size" hoTarget To ciSize |
||
2427 | If (ciSize<>0) begin |
||
2428 | Get ComplexToString ciSize To sValue |
||
2429 | Move ("Size : "+sValue) To sLine |
||
2430 | Send Add_Line sLine |
||
2431 | End |
||
2432 | 19 | wil | |
2433 | 38 | wil | Get PropertyIntegerEval of oProgram "Location" hoTarget To ciLocation |
2434 | If (ciLocation<>0) Begin |
||
2435 | Get ComplexToString ciLocation To sValue |
||
2436 | Move ("Location : "+sValue) To sLine |
||
2437 | Send Add_Line sLine |
||
2438 | End |
||
2439 | 19 | wil | |
2440 | 38 | wil | Get PropertyIntegerEval of oProgram "peAnchors" hoTarget To eAnchors |
2441 | If (eAnchors<>anNone) Begin |
||
2442 | Get AnchorsToString eAnchors To sValue |
||
2443 | Move ("peAnchors : "+sValue) To sLine |
||
2444 | Send Add_Line sLine |
||
2445 | End |
||
2446 | 22 | wil | |
2447 | 53 | wil | Move 0 To hWnd |
2448 | Get PropertyIntegerEval of oProgram "Window_Handle" hoTarget To sValue |
||
2449 | If (sValue<>0) Begin |
||
2450 | Move sValue To hWnd |
||
2451 | Move ("Window Handle : "+sValue+" ($"+IntToHex(sValue)+")") To sLine |
||
2452 | Send Add_Line sLine |
||
2453 | End |
||
2454 | |||
2455 | |||
2456 | 41 | wil | If (eWindowsClass=bmpPDSActiveX) Begin |
2457 | Get ProgID of oProgram hoTarget To sValue |
||
2458 | Move ("ProgID : "+sValue) To sLine |
||
2459 | Send Add_Line sLine |
||
2460 | If (sValue<>"") Begin |
||
2461 | Get ActivexName of oProgram hoTarget to sValue |
||
2462 | Move ("Control Name : "+sValue) To sLine |
||
2463 | Send Add_Line sLine |
||
2464 | End |
||
2465 | Get PropertyBooleanEval Of oProgram "IsComObjectCreated" hoTarget To bIsCreated |
||
2466 | Get BooleanToString bIsCreated To sValue |
||
2467 | Move ("IsComObjectCreated : "+sValue) To sLine |
||
2468 | Send Add_Line sLine |
||
2469 | 53 | wil | if (bIsCreated) Begin |
2470 | // Below doesn't work, not sure why, get "External function not defined error" |
||
2471 | //Get PropertyVariantEval of oProgram "pvComObject" hoTarget To sValue |
||
2472 | //If (sValue<>0) Begin |
||
2473 | // Move ("pvComObject : "+sValue+" ($"+IntToHex(sValue)+")") To sLine |
||
2474 | // Send Add_Line sLine |
||
2475 | //End |
||
2476 | |||
2477 | If (hWnd<>0) Begin |
||
2478 | Get FindFirstChildWindowHandle hWnd To hChildWnd |
||
2479 | while (hChildWnd<>0) |
||
2480 | Get WindowsClassnameForWindowsHandle hChildWnd To sValue |
||
2481 | Move ("ActiveX Control : "+sValue+" ($"+IntToHex(hChildWnd)+")") To sLine |
||
2482 | Send Add_Line sLine |
||
2483 | Get FindNextChildWindowHandle hWnd hChildWnd To hChildWnd |
||
2484 | loop |
||
2485 | End |
||
2486 | |||
2487 | Get PropertyIntegerEval of oProgram "PHDISPATCHDRIVER" hoTarget To sValue |
||
2488 | If (sValue<>0) Begin |
||
2489 | Move ("phDispatchDriver : "+sValue+" ($"+IntToHex(sValue)+")") To sLine |
||
2490 | Send Add_Line sLine |
||
2491 | End |
||
2492 | End |
||
2493 | |||
2494 | 41 | wil | End |
2495 | |||
2496 | 38 | wil | End_Procedure |
2497 | End_Object |
||
2498 | End_Object // oDetailsGroup |
||
2499 | 19 | wil | |
2500 | End_Object // oObjectInspectorPanel |
||
2501 | |||
2502 | |||
2503 | 53 | wil | Procedure StartObjectInspector |
2504 | Boolean bStarted |
||
2505 | Boolean bPaused |
||
2506 | |||
2507 | Get HasProgramStarted To bStarted |
||
2508 | If (bStarted) Begin |
||
2509 | Get HasProgramPaused To bPaused // Automatically pause the program if not already |
||
2510 | If (bPaused=false) Begin // paused as otherwise the object inspector can't show much |
||
2511 | Send doDebugPause // of anything. |
||
2512 | End |
||
2513 | Send ActivateObjectInspectorPanel To oObjectInspectorPanel |
||
2514 | End |
||
2515 | Else Begin |
||
2516 | Send Info_Box "The object inspector only works when debugging a program.\nIt appears that we are not doing that now." |
||
2517 | End |
||
2518 | End_Procedure // StartObjectInspector |
||
2519 | 19 | wil | |
2520 | |||
2521 | 53 | wil | |
2522 | |||
2523 | On_Key Key_Ctrl+Key_L Send StartObjectInspector |