FiveTech Software tech support forums

... function GenClrBlock( oCol, aPos )   local oBrw  := oCol:oBrw   local nCol  := oCol:nCreationOrder   local xCol   xCol  := nCol // your calculationreturn { || If( AScan( aPos, { |a| a[ 1 ] == ...

... function GenClrBlock( oCol, aPos )   local oBrw  := oCol:oBrw   local nCol  := oCol:nCreationOrder   local xCol   xCol  := nCol // your calculationreturn { || If( AScan( aPos, ...

... I save on it the coordinates to colorize https://i.postimg.cc/4d7Td1mk/hhh.png If I make For n= 1 to Len(aPos) nRow:= aPos[n][1] nCol:= aPos[n][2] oBrw1:aCols[nCol]:bClrStd := {|| { CLR_BLACK,IIf(oBrw1:nArrayAt=nRow, nColor1,CLR_WHITE) } } next it colorize only the last nRow , ...

Can I show or hide a group of columns of a xbrowse ? sample : @ nRow ,nCol CHECKBOX aChk[1] VAR ::lBa PROMPT ::aRuote[1] SIZE 100, 20 OF oGrS1 ; ON CHANGE hidexbrowse( ::oLbx,::lBa) Function hidexbrowse( ::oLbx,::lBa) local i,oCol do case case ::lba = .t. nInit ...

... //esto es para el corte automatico del papel //separo 5 filas que es la distancia entre la ultima impresion y la linea de corte oPrn:Say( nRow, nCol, ' ' ) nRow ++ oPrn:Say( nRow, nCol, ' ' ) nRow ++ oPrn:Say( nRow, nCol, ' ' ) nRow ++ oPrn:Say( nRow, nCol, ' ' ) nRow ++ oPrn:Say( nRow, nCol, ...

... que MakeTotals() funcione con parametros?, Los parametro podrian considerar una condiucionpara totalizar los registros,,, ejemplo eCond := {|nCol|if(lCondition , nCol:nTotal += oData:valor, nCol:nTotal += 0)} eCond := {||if(oData:registro > 0, nCol:nTotal += oData:valor, nCol:nTotal += ...

I wish use scrollbar on a dialog @ nRow, ncol SCROLLBAR oScrollInizio HORIZONTAL SIZE 400,20 PIXEL OF oDlg ; RANGE 1,reccount() ; ON DOWN ( dbSkip(),; If( EoF(), dbGoBottom(),) ); ON UP ( dbSkip( -1 ) ) this run ok but the thmbpos is not stuck ...

... scrollbar and show the field data of the record but I not Know how set ON THUMBPOS there is a sample to use scrollbar with a dbf ? I made @ nRow, ncol Say oSay[9] Prompt "Data Iniziale: " of oDlg SIZE 200,14 PIXEL FONT oBold @ nRow, nCol+100 Say oSay[10] Prompt dtoc(oDbf:data) of oDlg ...

... recognizable for example oBtnNum[2,1 ] is the btn with the cCaption number 11 ( Col 1,Row 2) How do it ? I made for k=1 to 10 For j=1 to 9 @ nrow,ncol BTNBMP oBtnNum[k,j] PROMPT "C"+ltrim(str(k))+"R"+lTrim(str(j)) ; SIZE xWidth,xHeight FLAT PIXEL OF oDlg NOROUND nrow+=xHeight ...

... recognizable for example oBtnNum[2,1 ] is the btn with the cCaption number 11 ( Col 1,Row 2) How do it ? I made for k=1 to 10 For j=1 to 9 @ nrow,ncol BTNBMP oBtnNum[k,j] PROMPT "C"+ltrim(str(k))+"R"+lTrim(str(j)) ; SIZE xWidth,xHeight FLAT PIXEL OF oDlg NOROUND nrow+=xHeight ...

... recognizable for example oBtnNum[2,1 ] is the btn with the cCaption number 11 ( Col 1,Row 2) How do it ? I made for k=1 to 10 For j=1 to 9 @ nrow,ncol BTNBMP oBtnNum[k,j] PROMPT "C"+ltrim(str(k))+"R"+lTrim(str(j)) ; SIZE xWidth,xHeight FLAT PIXEL OF oDlg NOROUND nrow+=xHeight ...

I have some btnbmp and I use cargo to save a state for k=1 to 11 for j=1 to 13 @ nrow,ncol BTNBMP oPrezziBtn[k+j] PROMPT transform(aImporti[j],"999.99") ; SIZE nSizeW,nSizeH FLAT PIXEL OF oDlg NOROUND oPrezziBtn[k+j]:cargo := {k,j,1} obviously at each cargo[3] ...

... 30 oBrw:nMarqueeStyle := 4 oBrw:bKeyDown:={|nKey,nFlag|iif(veo(@nApu,@oBrw,aBotones,nKey),eval(aBotones[nApu,4]),NIL)} oBrw:bLDblClick := { |nRow,nCol,nKeyFlags|EditoCons(.f.),oBrw:Refresh()} oBrw:CreateFromCode() cGrad := PadR( GradStr( BrwGrad( oBrw ) ), 128 ) ACTIVATE DIALOG oDlg CENTERED on ...

... calculated? I made nRowSelect:=Colorize_Max(oBrw,RGB( 255, 0,0 ),RGB( 252, 235, 220 )) oBrw:KeyNo:= nRowSelect static Function Colorize_Max(oBrw,nColor1,nColor2) local avals:= oBrw:aArraydata local atest:= aFindMax( aVals ) local nRow:= atest[1] local nCol:= atest[2] oBrw:aCols[nCol]:bClrStd ...

... 951 ) Y la linea del prg es un simple say: oExcel:Say(3,1 ,'Matrícula','Arial',09 ,.F. , , , 7 , , , ,1) //METHOD Say( nRow, nCol, xValue , cFont , nSize , lBold , lItalic ,lUnderLine, nAlign, nColor, nFondo , nOrien , nStyle , cFormat ) CLASS TExcelScript Como que "explota" ...