Module SigCJProgressBarDemo_View.vw

     1Use dfallent.pkg
     2Use cSigCjProgressBar.pkg
     3Use cSigCjPushButton.pkg
     4
     5Deferred_View Activate_oSigCJProgressBarDemo_View for ;
     6Object oSigCJProgressBarDemo_View is a dbView
     7    Set Border_Style to Border_Thick
     8    Set Size to 78 243
     9    Set Location to 2 2
    10    Set Maximize_Icon to True
    11    Set Icon to "SIG.ico"
    12    Set Label to "Codejock Demo - Progress Bar"
    13
    14    Set Verify_Data_Loss_Msg to 0
    15    Set Verify_Exit_Msg      to 0
    16
    17    Object oSigCJProgressBar_Standard is a cSigCJProgressBar
    18        Set Location to 8 7
    19        Set Size to 13 150
    20        Set psText to "Bar Style - Standard"
    21    End_Object
    22
    23    Object oSigCJPushButton_Standard is a cSigCJPushButton
    24        Set Location to 8 165
    25        Set psCaption to " Start"
    26
    27        Procedure OnClick
    28            Integer iCounter iLoop
    29            
    30            Set piValue of oSigCJProgressBar_Standard to 0
    31
    32            For iCounter from 1 to 100
    33                Set piValue of oSigCJProgressBar_Standard to iCounter
    34                
    35                For iLoop from 1 to 100000
    36                    //Delay Loop
    37                Loop
    38            Loop
    39        End_Procedure
    40    End_Object
    41
    42    Object oSigCJProgressBar_Smooth is a cSigCJProgressBar
    43        Set Location to 27 7
    44        Set peStyle to ePR_BarSmooth
    45        Set psText to "Bar Style - Smooth"
    46    End_Object
    47
    48    Object oSigCJPushButton_Smooth is a cSigCJPushButton
    49        Set Location to 27 164
    50        Set psCaption to " Start"
    51        
    52        Procedure OnClick
    53            Integer iCounter iLoop
    54            
    55            Set piValue of oSigCJProgressBar_Smooth to 0
    56            
    57            For iCounter from 1 to 100
    58                Set piValue of oSigCJProgressBar_Smooth to iCounter
    59                
    60                For iLoop from 1 to 100000
    61                    //Delay Loop
    62                Loop
    63            Loop
    64        End_Procedure
    65    End_Object
    66
    67    Object oSigCJProgressBar_Marquee is a cSigCJProgressBar
    68        Set Location to 46 7
    69        Set peStyle to ePR_BarMarquee
    70        Set psText to "Bar Style - Marquee"
    71        Set piMarqueeDelay to 0
    72    End_Object
    73
    74    Object oSigCJPushButton_Marquee is a cSigCJPushButton
    75        Set Location to 46 163
    76        Set psCaption to "Start"
    77        
    78        Procedure OnClick
    79            String sWork
    80            Get psCaption to sWork
    81            
    82            If (sWork = "Start") Begin
    83                Set psCaption to "Stop"
    84                Set piMarqueeDelay of oSigCJProgressBar_Marquee to 80
    85            End
    86            Else Begin
    87                Set psCaption to "Start"
    88                Set piMarqueeDelay of oSigCJProgressBar_Marquee to 0
    89            End
    90        End_Procedure
    91    End_Object
    92
    93Cd_End_Object
    94