MOD-HARBOUR

Código: Seleccionar todo

#xcommand BIMAGE <oImg> OF <oParent> DOC <oMain> ;
             [ BACKGROUND <cBackGround> ] ;
             [ BORDER <cStyle>,<nW>,<cColo>,<cBord>,<nRad> ] ;
             [ DISPLAY <cDisplay> ] ;
             [ FLOAT <cFloat> ] ;
             [ HEIGHT <cHeight> ] ;
             [ IMAGEN <cImage> ] ;
             [ KEYSTYLE <cKeyType> , <cKeyStyle>  ] ;
             [ MARGIN <cMargin>, <cU> ] ;
             [ MARGINBOTT <nBott> ] ;
             [ MARGINLEFT <nLeft> ] ;
             [ MARGINRIGHT <nRight> ] ;
             [ MARGINTOP <nTop> ] ;
             [ OPACITY <nOpacity> ] ;
             [ POSITION <cPosition> ] ;
             [ WIDTH <cWidth> ] ;
          => ;
          <oImg>:= TBImage():New( , <oMain>, ,  <oParent> )  ;; 
          WITH OBJECT <oImg> ;;
             [ :SetBackGround( <cBackGround> ) ];;
             [ :SetBorder( <cStyle>,<nW>,<cColo>,<cBord>,<nRad> ) ];;
             [ :SetDisplay( <cDisplay> ) ];;
             [ :SetFloat( <cFloat> ) ];;
             [ :SetHeight( <cHeight> ) ];;
             [ :SetImage( <cImage> ) ];;
             [ :SetKeyStyles( { { <cKeyType> , <cKeyStyle> } } ) ];;
             [ :SetMargin( <cMargin>, <cU> ) ];;
             [ :SetMarginBottom( <nBott> ) ];;
             [ :SetMarginLeft( <nLeft> ) ];;
             [ :SetMarginRight( <nRight> ) ];;
             [ :SetMarginTop( <nTop> ) ];;
             [ :SetOpacity( <nOpacity> ) ];;
             [ :SetPosition( <cPosition> ) ];;
             [ :SetWidth( <cWidth> ) ];;
          END

#xcommand ACTIVATE <oImg> ;
          [ CLASS <cClass> ] ;
          [ ID <cId> ] ;
       => ;
         <oImg>:Activate( [<cClass>], [<cId>] )

Código: Seleccionar todo

#xcommand BSPAN <oSpan> OF <oParent> DOC <oMain> ;
          [ CAPTION <cCaption> ] ;
          [ COLORS <cText>,<cBack> ] ;
          [ FAMFONT <cFont> ] ;
          [ SIZEFONT <nN> ] ;
          [ LINEHEIGHT <nHeight> ] ;
          => ;
          <oSpan>:= TSpan():New( , <oMain>, ,  <oParent> )  ;; 
          WITH OBJECT <oSpan> ;;
             [ :SetCaption( <cCaption> ) ];;
             [ :SetColor( <cText>,<cBack> ) ];;
             [ :SetFamFont( <cFont> ) ];;
             [ :SetSizeFont( <nN> ) ];;
             [ :SetLineHeight( <nHeight> ) ];;
          END

#xcommand ACTIVATE <oSpan> ;
          [ CLASS <cClass> ] ;
          [ ID <cId> ] ;
       => ;
         <oSpan>:Activate( [<cClass>], [<cId>] )

Código: Seleccionar todo

#xcommand BPARAGRAPH <oParg> OF <oParent> DOC <oMain> ;
          [ CAPTION <cCaption> ] ;
          [ COLORS <cText>,<cBack> ] ;
          [ DISPLAY <cDisplay> ] ;
          [ FLOAT <cFloat> ] ;
          [ FAMFONT <cFont> ] ;
          [ HEIGHT <cHeight> ] ;
          [ ICONO <cIcon> ] ;
          [ LINEHEIGHT <nHeight> ] ;
          [ LISTILE <cStile> ] ;
          [ MARGIN <cMargin>, <cU> ] ;
          [ MARGINBOTT <nBott> ] ;
          [ MARGINLEFT <nLeft> ] ;
          [ MARGINRIGHT <nRight> ] ;
          [ MARGINTOP <nTop> ] ;
          [ OPACITY <nOpacity> ] ;
          [ OVERFLOW <cOverFlow> ] ;
          [ PADDBOTTOM <nPbott> ] ;
          [ PADDLEFT <nPleft> ] ;
          [ PADDRIGHT <nPright> ] ;
          [ PADDTOP <nPtop> ] ;
          [ REF <cRef> ] ;
          [ SIZEFONT <nN> ] ;
          [ TEXTALIGN <cAlign> ] ;
          [ TEXTDECO <cDeco> ] ;
          [ WIDTH <cWidth> ] ;
          => ;
          <oParg>:= TParagraph():New( , <oMain>, ,  <oParent> )  ;; 
          WITH OBJECT <oParg> ;;
             [ :SetCaption( <cCaption> ) ];;
             [ :SetColor( <cText>,<cBack> ) ];;
             [ :SetDisplay( <cDisplay> ) ];;
             [ :SetFamFont( <cFont> ) ];;
             [ :SetFloat( <cFloat> ) ];;
             [ :SetHeight( <cHeight> ) ];;
             [ :SetHRef( <cRef> ) ];;
             [ :SetImgIcon( <cIcon> ) ];;
             [ :SetLineHeight( <nHeight> ) ];;
             [ :SetListStyle( <cStile> ) ];;
             [ :SetMargin( <cMargin>, <cU> ) ];;
             [ :SetMarginBottom( <nBott> ) ];;
             [ :SetMarginLeft( <nLeft> ) ];;
             [ :SetMarginRight( <nRight> ) ];;
             [ :SetMarginTop( <nTop> ) ];;
             [ :SetOpacity( <nOpacity> ) ] ;;
             [ :SetOverFlow( <cOverFlow> ) ];;
             [ :SetPaddingBottom( <nPbott> ) ] ;;
             [ :SetPaddingLeft( <nPleft> ) ] ;;
             [ :SetPaddingRight( <nPright> ) ] ;;
             [ :SetPaddingTop( <nPtop> ) ] ;;
             [ :SetSizeFont( <nN> ) ];;
             [ :SetTextAlign( <cAlign> ) ];;
             [ :SetTextDecoration( .T., <cDeco> )  ];;
             [ :SetWidth( <cWidth> ) ];;
          END

#xcommand ACTIVATE <oParg> ;
          [ CLASS <cClass> ] ;
          [ ID <cId> ] ;
       => ;
         <oParg>:Activate( [<cClass>], [<cId>] )
         
#xcommand ENDPARAGRAPH <oParg>;
       => ;                         
           <oParg>:EndParagraph()