Baje hace dias la nueva version liberada de HMG.4, me encontre escribiendo un ejemplo para ver lo nuevo en el mismo que no encuentro la documentacion sobre la sintaxis de HMG.4
mirando hmg.4.html me encontre que hay muchas cosas termninadas como lo que necesito "define Tab" mas completa
pero mirando ..\hmg.4\svn\include\hmg.ch no es asi
Code: Select all
/*----------------------------------------------------------------------*/
// Tab
/*----------------------------------------------------------------------*/
#command DEFINE TAB <oObj> ;
[ <dummy1: OF, PARENT> <oParent> ] ;
AT <nRow> , <nCol> ;
WIDTH <nWidth> ;
HEIGHT <nHeight> ;
[ VALUE <nValue> ] ;
[ FONT <cFontName> ] ;
[ SIZE <nFontSize> ] ;
[ <lFontBold : BOLD> ] ;
[ <lFontItalic : ITALIC> ] ;
[ <lFontUnderline : UNDERLINE> ] ;
[ <lFontStrikeout : STRIKEOUT> ] ;
[ TOOLTIP <cToolTip> ] ;
[ <lButtons: BUTTONS> ] ;
[ <lFlat: FLAT> ] ;
[ ON CHANGE <bOnChange> ] ;
[ <lNoTabStop: NOTABSTOP> ] ;
[ <lMultiLine: MULTILINE> ] ;
=>;
With Object <oObj> := Tab():New() ; :Name := <"oObj"> ; oPriotTab := oCurrentTab ; oCurrentTab := <oObj> ;;
[:Row := <nRow> ] ;;
[:Col := <nCol> ] ;;
[:Parent := <oParent> ] ;;
[:Width := <nWidth> ] ;;
[:Height := <nHeight> ] ;;
[:Value := <nValue> ] ;;
[:FontName := <cFontName> ] ;;
[:FontSize := <nFontSize> ] ;;
[:FontBold := <.lFontBold.> ] ;;
[:FontItalic := <.lFontItalic.> ] ;;
[:FontUnderline := <.lFontUnderline.> ] ;;
[:FontStrikeout := <.lFontStrikeout.> ] ;;
[:ToolTip := <cToolTip> ] ;;
[:OnChange := <{bOnChange}> ] ;;
[:Flat := <.lFlat.> ] ;;
[:TabStop := !<.lNoTabStop.> ] ;;
[:MultiLine := <.lMultiLine.> ]
#command DEFINE TAB <oObj> ;
[ PARENT> <oParent> ] ;
ROW <nRow> ;
COL <nCol> ;
WIDTH <nWidth> ;
HEIGHT <nHeight> ;
[ VALUE <nValue> ] ;
[ FONTNAME <cFontName> ] ;
[ FONTSIZE <nFontSize> ] ;
[ FONTBOLD <lFontBold> ] ;
[ FONTITALIC <lFontItalic> ] ;
[ FONTUNDERLINE <lFontUnderline> ] ;
[ FONTSTRIKEOUT <lFontStrikeout> ] ;
[ TOOLTIP <cTooltip> ] ;
[ BUTTONS <lButtons> ] ;
[ FLAT <lFlat> ] ;
[ ON CHANGE <bOnChange> ] ;
[ TABSTOP <lTabStop> ] ;
[ MULTILINE <lMultiLine> ] ;
=>;
With Object <oObj> := Tab():New() ; :Name := <"oObj"> ; oPriotTab := oCurrentTab ; oCurrentTab := <oObj> ;;
[:Row := <nRow> ] ;;
[:Col := <nCol> ] ;;
[:Parent := <oParent> ] ;;
[:Width := <nWidth> ] ;;
[:Height := <nHeight> ] ;;
[:Value := <nValue> ] ;;
[:FontName := <cFontName> ] ;;
[:FontSize := <nFontSize> ] ;;
[:FontBold := <.lFontBold.> ] ;;
[:FontItalic := <.lFontItalic.> ] ;;
[:FontUnderline := <.lFontUnderline.> ] ;;
[:FontStrikeout := <.lFontStrikeout.> ] ;;
[:ToolTip := <cTooltip> ] ;;
[:OnChange := <{bOnChange}> ] ;;
[:Flat := <.lFlat.> ] ;;
[:TabStop := <.lTabStop.> ] ;;
[:MultiLine := <.lMultiLine.> ]
// Page Without Name
#command PAGE <cCaption> [ IMAGE <cImage> ] ;
=>;
oPriorPage := oCurrentPage ;;
With Object oCurrentPage := TabPage():New() ;;
:Parent := oCurrentTab ;;
:Caption := <cCaption> ;;
[ :Image := <cImage> ]
#command DEFINE PAGE <cCaption> [ IMAGE <cImage> ] ;
=>;
oPriorPage := oCurrentPage ;;
With Object oCurrentPage := TabPage():New() ;;
:Parent := oCurrentTab ;;
:Caption := <cCaption> ;;
[ :Image := <cImage> ]
#command DEFINE TAB PAGE <cCaption> [ IMAGE <cImage> ] ;
=>;
oPriorPage := oCurrentPage ;;
With Object oCurrentPage := TabPage():New() ;;
:Parent := oCurrentTab ;;
:Caption := <cCaption> ;;
[ :Image := <cImage> ]
// Page With Name
#command PAGE <cCaption> [ IMAGE <cImage> ] NAME <oObj> ;
=>;
oPriorPage := oCurrentPage ;;
With Object oCurrentPage := TabPage():New() ;;
<oObj> := oCurrentPage ;;
:Parent := oCurrentTab ;;
:Caption := <cCaption> ;;
[ :Image := <cImage> ]
#command DEFINE PAGE <cCaption> [ IMAGE <cImage> ] NAME <oObj> ;
=>;
oPriorPage := oCurrentPage ;;
With Object oCurrentPage := TabPage():New() ;;
<oObj> := oCurrentPage ;;
:Parent := oCurrentTab ;;
:Caption := <cCaption> ;;
[ :Image := <cImage> ]
#command DEFINE TAB PAGE <cCaption> [ IMAGE <cImage> ] NAME <oObj> ;
=>;
oPriorPage := oCurrentPage ;;
With Object oCurrentPage := TabPage():New() ;;
<oObj> := oCurrentPage ;;
:Parent := oCurrentTab ;;
:Caption := <cCaption> ;;
[ :Image := <cImage> ]
#command END PAGE ;
=>;
End With ; oCurrentPage := oPriorPage ; oPriorPage := Nil
#xcommand END TAB => End With ; oCurrentTab := oPriorTab ; oPriorTab := Nil
Saludos
DaNiElMaXiMiLiAnO