FiveTech Software tech support forums

Joao, efectivamente así lo he dejado. Lástima que queda un pequeño fondo blanco, apenas visible.
@08, 060 ADD BUTTON PROMPT "From" SIZE 40, 18 OF oGroup SAYBUTTON TRANSPARENT
Saludos, y gracias.

Try removing TRANSPARENT. That is allowing the background to be seen in the control. REDEFINE GROUP [ <oGroup> ]; [ LABEL | PROMPT <cLabel> ]; [ ID <nId> ]; [ OF | WINDOW | DIALOG <oWnd> ]; [ COLOR <cClrFore> [, <nClrBack> ] ]; [ FONT <oFont> ...

I don't know why we can't use OF oGroup. Maybe TGroup class lacks of something required.

Maurizio wrote:Ciao Enrico ,
Did you use the REDEFINE sources? I have the same error

Please replace OF oGroup with OF oDlg.

Carlos, Has probado haciendo oGroup:Refresh( .F. ) ? Gracias Antonio, No me ha servido pero posiblemente sea por que en el área del TGroup tengo controles que 'cuelgan' de la MDICHILD no del TGroup. Le estoy dando vueltas. Jugaré con WndBoxClr( ...

Carlos,

Has probado haciendo oGroup:Refresh( .F. ) ?

... A new dialog is created from the cropped result. http://www.pflegeplus.com/IMAGES/cropped3.jpg There seems a adjustment needed ? oGroup := TGroup():New( nRow, nCol, ; // nTop, nLeft nRow + 150, ; // nBottom nCol + 150, ; // nRight "", ; // cLabel oDlg, ; // oWnd NIL, ...

... move and resize next save the selected area of a image 1. rightclick define the area jn design-mode 2. rightclick save the image STATIC oDlg, oGroup, nClicked := 0 oDlg:bRClicked := {| nRow, nCol | nClicked++, ; IIF( nClicked = 1, MAKE_GROUP( nRow, nCol ), ; MAKE_IMAGE( cImgFile ) ) } // -------------- ...

... schemes with this function. I did not know about these global settings. Thank you very much, Rick. @08, 060 SAY "From" SIZE 40, 18 OF oGroup PIXEL TRANSPARENT RIGHT ¡Bárbaro! Gracias, Daniel.

... these lines ( group ). From the alert You can get the values. FUNCTION MAKE_AREA(oDlg) // Group-startposition and size : Top, Left, Bottom, Right oGroup := TGroup():New( 100, 100, 300, 300, "", oDlg, NIL, NIL, .T. , .T. , NIL, .T. ) oGroup:SETCOLOR( , 23324454) RETURN( NIL ) Replace ...

... !short: BOX - GROUPS */ #xcommand @ <nTop>, <nLeft> [ GROUP <oGroup> ] TO <nBottom>, <nRight> ; agora esta: #xcommand @ <nTop>, <nLeft> GROUP [ <oGroup> ] [ TO <nBottom>, ...

... HEIGHT 160 TOPMARGIN 36 @ 15,2 ADD BUTTON oBtns[5] PROMPT "Da :" SAYBUTTON GROUP oGroup[3] SIZE 50,20 TRANSPARENT @ 50,2 ADD BUTTON oBtns[5] PROMPT "a :" SAYBUTTON GROUP oGroup[3] SIZE 50,20 @ 0.8,10 DTPICKER oDateIn VAR ...

En mi opinión la sintaxis correcta debiera ser: #xcommand @ <nTop>, <nLeft> GROUP [ <oGroup> ] [ TO <nBottom>, <nRight> ] ... ya que el control sobre el que estamos centrados es el GROUP y tiene que estar como identificador principal del comando. ...

... !short: BOX - GROUPS */ #xcommand @ <nTop>, <nLeft> GROUP [ <oGroup> ] [ TO <nBottom>, <nRight> ] Así debe quedar a si me funciona bien #xcommand @ <nTop>, <nLeft> [GROUP <oGroup> ...

I made @ 5, 7 ADD BUTTON oChk2 GROUP oGroup[1] BITMAP ".\bitmaps\checkon.bmp" MOSTLEFT SIZE 80, 45 PROMPT "Normale" ; ACTION ( lNormale := ! lMultipla, oChk2:SetFile( If( lNormale, ".\bitmaps\checkon.bmp", ".\bitmaps\checkoff.bmp" ...