//TH-Header
//*****************************************************************************************
// Copyright (c)  2024 Antwise Solutions
// All rights reserved.
//
// $FileName    : SyncFusion\AppSrc\csfWebBaseForm.pkg
// $ProjectName : SyncFusion Library
// $Authors     : Wil van Antwerpen
// $Created     : 2024-05-30
//
// Contents:
// This is a web framework wrapper form base class for the SyncFusion controls.
//
//
//*****************************************************************************************
//TH-RevisionStart
// ********************
// MODIFICATION SUMMARY
// ********************
// ####### DD/MM/YYYY  WHO COMMENT
//TH-RevisionEnd
Use cWebBaseForm.pkg


{ OverrideProperty=psLabel Visibility=Private }
{ OverrideProperty=psLabelColor Visibility=Private }
{ OverrideProperty=peLabelAlign Visibility=Private }
{ OverrideProperty=peLabelPosition Visibility=Private }
{ OverrideProperty=piLabelOffset Visibility=Private }
{ OverrideProperty=psBackgroundColor Visibility=Private }
{ OverrideProperty=psTextColor Visibility=Private }
{ OverrideProperty=pbShowLabel InitialValue=False }
{ DesignerClass=cDTCWebObject }
{ DesignerJSClass=df.WebDesignerControl }
Class csfWebBaseForm is a cWebBaseForm
    
    Procedure Construct_Object
        Forward Send Construct_Object
        
        //
        // If set then it determines the height of the Control. If equal to C_WebDefault then it uses the height as
        // automatically determined.
        { InitialValue=300 }  // only as a hint for the designer
        { WebProperty=Client }
        Property Integer piHeight                     C_WebDefault
        
        //
        // If set then it determines the width of the Control. If equal to C_WebDefault then it uses the width as
        // automatically determined.
        { WebProperty=Client }
        Property Integer piWidth                      C_WebDefault
        
        
        // Private properties used for configuring the Control.
        { Category="SyncFusion" }
        { WebProperty=Client }
        Property String  psSyncfusionLicense       ""
        
        Set pbShowLabel  to False                   // By default do not show a label
    End_Procedure
    
    Procedure InitializeDefaults
        Send ClientAction "initializeDefaults"
    End_Procedure
    
    Procedure LicenseComponent
      String sLicenseKey
      Get SyncFusionLicenseKey Of ghoApplication To sLicenseKey
      Set psSyncfusionLicense to sLicenseKey
    End_Procedure
    
    Procedure LogConsole String sParam
        String[] aParams
        tWebValueTree tVT
        
        Move sParam To aParams[0]
        Send ClientAction "logConsole" aParams tVT
    End_Procedure
   
    Procedure End_Construct_Object
        Send LicenseComponent
        Forward Send End_Construct_Object
    End_Procedure


End_Class