Los #xcommand segunda parte.
Un saludo,
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()