vdfsplat / AppSrc / cWorkingPanel.pkg
History | View | Annotate | Download (1.53 KB)
1 |
//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 |
|
18 |
|
19 |
|
20 |
|
21 |
|
22 |
Class cWorkingPanel is a ToolPanel |
23 |
|
24 |
|
25 |
Procedure Construct_Object |
26 |
Forward send Construct_Object |
27 |
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 |
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 |
Send Page_Object False |
52 |
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 |
End_Class |