Module SigCJPushButtonDemo.vw

     1Use Windows.pkg
     2Use DFClient.pkg
     3Use cSigCJPushButton.pkg 
     4
     5Deferred_View Activate_oSigCJPushButtonDemo_View for ;
     6Object oSigCJPushButtonDemo_View is a dbView
     7    Set Label to "Codejock Demo - Push Buttons"
     8    Set Border_Style to Border_Thick
     9    Set Size to 200 300
    10    Set Location to 2 2
    11    Set Icon to "SIG.ico"
    12
    13    Object oSigCJPushButton1 is a cSigCJPushButton
    14        Set Location to 20 95
    15        Set Size to 15 100
    16        Set Label to "Standard && Cool"
    17        Set psToolTip to "Standard & Cool" 
    18        
    19        Procedure OnClick
    20            Send Info_Box "You pushed me!"
    21        End_Procedure
    22    End_Object
    23
    24    Object oSigCJPushButton2 is a cSigCJPushButton
    25        Set Location to 40 95
    26        Set Size to 15 100
    27        Set Label to "Office 2003"
    28        Set peAppearance to OLExtpAppearanceOffice2003
    29        Set psImage to "icon1_24.bmp"
    30        Set peTextImageRelation to OLExtpImageBeforeText
    31        
    32        Procedure OnClick
    33            Set TextColor of oSigCJPushButton3 to clGreen
    34            Send Info_Box "You pushed me!"
    35        End_Procedure
    36    End_Object
    37
    38    Object oSigCJPushButton3 is a cSigCJPushButton
    39        Set Location to 60 95
    40        Set Size to 33 100
    41        Set Label to "Office 2007"
    42        
    43        #IF (SigCj_Codejock_Version < 150001) 
    44            Set peAppearance to OLExtpAppearanceOffice2007
    45        #ELSE
    46            Set peAppearance to OLExtpAppearanceResource
    47        #ENDIF 
    48
    49        Set psImage to "icon1_24.bmp"
    50        Set peTextImageRelation to OLExtpImageAboveText
    51        Set peImageAlignment to OLExtpAlignCenter
    52        Set peTextAlignment to OLExtpAlignCenter
    53        Set Color to clInactiveCaptionText
    54        Set TextColor to clRed
    55        Set pbPointer_Only to True
    56        Set piBackColor to clSilver
    57        Set psCaption to "Office 2007"
    58        
    59        Procedure OnClick
    60            Send Info_Box "You pushed me!"
    61        End_Procedure
    62    End_Object
    63
    64    Object oButton1 is a Button
    65        Set Location to 100 120
    66        Set Label to "Close"
    67    
    68        // fires when the button is clicked
    69        Procedure OnClick
    70            Send close_panel
    71        End_Procedure
    72    End_Object
    73
    74Cd_End_Object
    75