TPanel

Post Reply
User avatar
cnavarro
Posts: 6557
Joined: Wed Feb 15, 2012 8:25 pm
Location: España
Been thanked: 3 times

TPanel

Post by cnavarro »

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

Code: Select all | Expand


#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


#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


METHOD New( nTop, nLeft, nBottom, nRight, oWnd ) CONSTRUCTOR
 
Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
User avatar
Antonio Linares
Site Admin
Posts: 42414
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Has thanked: 12 times
Been thanked: 48 times
Contact:

Re: TPanel

Post by Antonio Linares »

Cristobal,

Tienes toda la razón. Es un bug en la definición del comando. Muchas gracias! :-)
regards, saludos

Antonio Linares
www.fivetechsoft.com
Post Reply