Ahora mismo es:
- Code: Select all Expand view
#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
#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
METHOD New( nTop, nLeft, nBottom, nRight, oWnd ) CONSTRUCTOR
