FiveTech Software tech support forums

Saludos Antonio, no genera ningún archivo , este es mi prg todo normal hasta que llamo el dialogo y le doy aceptar debería guardarme la info en la base pero no registra nada, y he notado que dando ESC tambien pasa el mismo comportamiento. Lo estoy avanzando en la version FWH 2210 de 32bist y todo tr...

Saludos tengo una actualización a FWH24.02 y veo que al abrir la ventana el Xbrowse se monta sobre el la barra de botones cosa q no pasaba antes DEFINE WINDOW oWnd FROM 0,0 TO nHeith,nWith PIXEL MDICHILD OF oWind ; TITLE "Mantenimiento de Valorizaciones" ICON oIco NOZOOM NOICONIZE @ 10,10 ...

Dear Marc, I think Cristobal means this way: @ nRow, nCol GET aGets[ 1 ] VAR aData[ 1, 2 ] ; PICTURE aData[ 1, 3 ] SIZE nWidth - nCol * 2, 15 PIXEL OF oDlg ; COLOR nClrTxt, CLR_WHITE CUEBANNER "REQUIRED" BOTTOMBORDER ; INFIELD INFONT oFontI INCLRTXT CLR_GRAY ; INCLRBORDER { | o | if( o:lF...

Dear Marc, I think Cristobal means this way: @ nRow, nCol GET aGets[ 1 ] VAR aData[ 1, 2 ] ; PICTURE aData[ 1, 3 ] SIZE nWidth - nCol * 2, 15 PIXEL OF oDlg ; COLOR nClrTxt, CLR_WHITE CUEBANNER "REQUIRED" BOTTOMBORDER ; INFIELD INFONT oFontI INCLRTXT CLR_GRAY ; INCLRBORDER { | o | if( o:lFo...

Where do you put the "REQUIRED" ? I get a syntax error at compiling This is from the sample Subscript0.prg @ nRow, nCol GET aGets[ 1 ] VAR aData[ 1, 2 ] ; PICTURE aData[ 1, 3 ] SIZE nWidth - nCol * 2, 15 PIXEL OF oDlg ; COLOR nClrTxt, CLR_WHITE CUEBANNER aData[ 1, 1 ] BOTTOMBORDER ; INFIEL...

I have some buttons on a scrollpanel https://i.postimg.cc/h4zG0Jp9/ff.jpg I created the buttons with the Btnbmp class I want that when I press one it stays selected I made lActive:= .f. For n=1 to Len(aElements) cDesc := aElements[n][2] cImage := aElements[n][5] nProduct:= aElements[...

Perhaps I found a solution for the border I would like to propose these changes to the fwteam #define WHITE_PEN 6 // add this on top METHOD PaintBorder() CLASS TBtnBmp local nAdjustBorder := 0 local nWidth, nAdj, oCli local nRound := If( ::lRound, ::nRound, 0 ) local hWhitePen, hGrayPen, hOldPen add...

I wish write on report ( Treport class) a text

oReport:SetTxtColor(CLR_HGRAY,4)
oReport:Say( 0.1, "fac-simile", 4, 16, 1500 )

where 4 is the font number 4

the say method give me error ... why ?

//TGet():bColorBlock := { |oGet| IF( oGet:lFocused, { CLR_WHITE, CLR_HBLUE }, IF( .NOT. oGet:lActive, {CLR_BLACK, CLR_HGRAY}, {CLR_BLACK, CLR_WHITE} )) }
//fix for readonly gets
// TGet():lDisColors := .f.
// TGet():nClrGrayText := 25

Muy bien Silvio. SSAY.PRG es maravilloso. Luego, cuando tengas tiempo, echa un vistazo a DSAY.PRG, lo uso mucho, es simplemente excelente. Puede hacer lo que quiera con cualquiera de las dos clases. Gracias. Very good Silvio. SSAY.PRG is wonderful. Then, when you have time, check out DSAY.PRG, I us...

there is an error on build of the Box https://i.postimg.cc/90mZNvrD/errore.png the boxes are identical changes only the coordinates of the row FIRST nRiga := 5.5 nColonna := 1 nAltezza := 0.8 nlarghezza := 4.5 cTesto := "Tipo documento" cColorbordo := CLR_BLACK nTipoBordo :...

yo preparo asi mi Xbrowse con tdolphin aCols := {; {"idpedido","ID",NIL,50,AL_RIGHT},; {"factura_doc","DOC",NIL,40,AL_LEFT },; {"factura_ser","SERIE",NIL,60,AL_LEFT },; {"factura_num","NUMERO",NIL,90,AL_LEFT },; {"f...

TGet():bColorBlock := { |oGet| IF( oGet:lFocused, { CLR_WHITE, CLR_HBLUE }, IF( .NOT. oGet:lActive, {CLR_BLACK, CLR_HGRAY}, {CLR_BLACK, CLR_WHITE} )) }

Dear Master Rao,

Thanks a lot.

nageswaragunupudi wrote:

oBrw:bClrHeader := { ||{ CLR_GRAY, nRGB( 242, 242, 242 ), CLR_HGRAY } }

Right.

oBrw:bClrHeader := { ||{ CLR_GRAY, nRGB( 242, 242, 242 ), CLR_HGRAY } }

Right.