vdfsplat / AppSrc / cWorkingPanel.pkg @ 65
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 |