vdfsplat / AppSrc / cWorkingPanel.pkg
History | View | Annotate | Download (1.53 KB)
1 | 29 | wil | //TH-Header |
---|---|---|---|
2 | //***************************************************************************************** |
||
3 | // Copyright (c) 2015 Antwise Solutions |
||
4 | // All rights reserved. |
||
5 | // |
||
6 | // $FileName : .\vdfsplat\appsrc\cWorkingPanel.pkg |
||
7 | // $ProjectName : VdfSplat DataFlex Debugger |
||
8 | // $Authors : Wil van Antwerpen |
||
9 | // $Created : 09.11.2015 17:53 |
||
10 | // $Type : GPL v2 |
||
11 | // |
||
12 | // Contents: |
||
13 | // |
||
14 | //***************************************************************************************** |
||
15 | //TH-RevisionStart |
||
16 | //TH-RevisionEnd |
||
17 | 19 | wil | |
18 | |||
19 | |||
20 | |||
21 | 29 | wil | |
22 | Class cWorkingPanel is a ToolPanel |
||
23 | |||
24 | |||
25 | 19 | wil | Procedure Construct_Object |
26 | Forward send Construct_Object |
||
27 | 29 | wil | Set Size To 50 380 |
28 | Set Label To "Working" |
||
29 | Set Locate_mode To Center_on_screen |
||
30 | |||
31 | Object oText is a Textbox |
||
32 | End_Object |
||
33 | Object oText1 is a Textbox |
||
34 | End_Object |
||
35 | 19 | wil | Set Size Of oText To 13 360 |
36 | Set Location Of oText To 10 9 |
||
37 | Set Size Of oText1 To 13 360 |
||
38 | Set Location Of oText1 To 25 9 |
||
39 | End_Procedure |
||
40 | |||
41 | Procedure Show String sMessage String sDetails |
||
42 | Send Page_Object True |
||
43 | Send Page_Object Of oText True |
||
44 | Send Page_Object Of oText1 True |
||
45 | |||
46 | Set Value Of oText To sMessage |
||
47 | Set Value Of oText1 To sDetails |
||
48 | End_Procedure // Show |
||
49 | |||
50 | Procedure Hide |
||
51 | 29 | wil | Send Page_Object False |
52 | 19 | wil | Send Page_Object Of oText False |
53 | Send Page_Object Of oText1 False |
||
54 | End_Procedure // Hide |
||
55 | |||
56 | //Finish object construction |
||
57 | Procedure End_Construct_Object |
||
58 | Forward send End_Construct_Object |
||
59 | End_Procedure |
||
60 | 29 | wil | End_Class |