//TH-Header
//*****************************************************************************************
// Copyright (c)  2020 PP7
// All rights reserved.
//
// $FileName    : csfWebColumnImage.pkg
// $ProjectName : PP7 SyncFusion
// $Authors     : Wil van Antwerpen
// $Created     : 06.04.2020  13:46
//
// Contents:
// This is a web framework wrapper class for the SyncFusion Grid control.
// Documentation for the API is here:
// https://ej2.syncfusion.com/documentation/api/grid
//
//*****************************************************************************************
//TH-RevisionStart
// ********************
// MODIFICATION SUMMARY
// ********************
// ####### DD/MM/YYYY  WHO COMMENT
//TH-RevisionEnd
Use csfWebColumnHtml.pkg

{ HelpTopic=cWebColumnImage }
{ DesignerJSClass=df.WebColumnImage }
Class csfWebColumnImage Is a csfWebColumnHtml
    Procedure Construct_Object
        Forward Send Construct_Object
        { WebProperty=Client }
        Property String  psImageUrl        ""
        
        { WebProperty=Client }
        Property Boolean pbServerOnClick False
        
        Set pbShowColumnMenu  To False
        Set pbAllowSorting    To False
        Set pbAllowFiltering  To False

        Set psHtmlBefore To '<img src="'
        Set psHtmlAfter  To '">'
                //
        Set psJSClass To "sf.WebColumnImage"
    End_Procedure
    
    Procedure LoadCustomHtml
        String sImageUrl
        String sBefore sAfter sHtml
        tsfWebColumnCustomDraw CustomDraw
        Move True                 To CustomDraw.bHasHtml
        Get psHtmlBefore          To sBefore
        Get psHtmlAfter           To sAfter
        Get psImageUrl            To sImageUrl
        If (sImageUrl<>"") Begin
            Move (sBefore+sImageUrl+sAfter) To sHtml
        End
        Move sHtml To CustomDraw.sHtmlBefore
        Move ""         To CustomDraw.sHtmlAfter
        Set pCustomDraw to CustomDraw
    End_Procedure
    
    // See DAW doc
    { MethodType=Event }
    Procedure OnClick String sButton String sRowID Integer iX Integer iY
    End_Procedure
    
    Procedure End_Construct_Object
        WebPublishProcedure OnClick
        Forward Send End_Construct_Object
    End_Procedure
    
End_Class