TPanel

[cnavarro]

Es posible que la definicion del comando sea errónea? (Fivewin.ch)
Ahora mismo es:

Code: Select all  Expand view  RUN

#xcommand @ <nRow>, <nCol> PANEL [ <oPnl> ] ;
             [ SIZE <nWidth>, <nHeight> ] ;
             [ <of: OF, WINDOW, DIALOG > <oWnd> ] ;
             [ <design: DESIGN> ] ;
       => ;
          [ <oPnl> := ] TPanel():New( <nRow>, <nCol>, <nWidth> + <nCol> - 1,;
             <nHeight> + <nRow> - 1, <oWnd>, <.design.> )
 

y debería ser

Code: Select all  Expand view  RUN

#xcommand @ <nRow>, <nCol> PANEL [ <oPnl> ] ;
             [ SIZE <nWidth>, <nHeight> ] ;
             [ <of: OF, WINDOW, DIALOG > <oWnd> ] ;
             [ <design: DESIGN> ] ;
       => ;
          [ <oPnl> := ] TPanel():New( <nRow>, <nCol>,  <nHeight> + <nRow> - 1,;
                             <nWidth> + <nCol> - 1,  <oWnd>, <.design.> )

 

según la definicion de la clase

Code: Select all  Expand view  RUN

METHOD New( nTop, nLeft, nBottom, nRight, oWnd ) CONSTRUCTOR
 

[Antonio Linares]

Cristobal,

Tienes toda la razón. Es un bug en la definición del comando. Muchas gracias!