FiveTech Software tech support forums

hi, i have found in c:\fwh\source\winapi\listview.c what was change for Unicode   LPWSTR pWide = fw_parWide( 3 );//   lvi.pszText  = ( LPTSTR ) hb_parc( 3 );   lvi.pszText  = pWide; Question : is fw_parWide() the same as AnsiToWide() :?: --- i have now include #define UNICODE    // Made Unic...

... have a clue why selected items from the browse selectboxes are not written into the dbf fields? We know very well. The codebocks you have used in AddColumn() methods are readonly. They can not be used to assign values. That is the reason We (FWH Team) recommends use of COLUMNS clause. In that ...

... not print two reports on a single page. I did it more than 20 years ago using FW 16 bits. I remember it was a bit tricky, using the DelColumn and AddColumn methods with bPostEnd block but it worked flawlessly. For a reason I could not discover the upgrade to FWH broke my code. As it coincided ...

Por qué no intentas en lugar de utilizar ADDCOLUMN, definir tus columnas previamente en el SETADO, y después ya solo tienes que definir los aspectos estéticos de cada columna?

Code: Select all  Expand view

oBrwMs:SetADO( oRsMes, .T. , .T., { "nombre", ..... } )
 

oCn:RenameColumn( cTable, cOldName, cNewName )
oCn:AddColumn( cTable, aColSpec )
oCn:AlterColumn( cTable, aColSpec )

aColSpec ( dbf column spec )
Eg:
{ "firstname", "C", 30, 0 }

{ "salary", "N", 10, 2 }

etc

ESTABA HACIENDO ESTO
oCol:=xLbx:AddCol() , oCol:cHeader:= cTitulo , oCol:bStrData := bCampo , oCol:nWidth := nAncho ) ,;

AHORA HAGO
oCol:=xLbx:AddColumn( cTitulo , bCampo , cPicture ,,,, nAncho , .F., .F.,,,,,, .F.,,,,, .F.,,, ) , oCol:oHeaderFont:=memvar->oDatos:oFont9 )

... siempre se queda con el ultimo valor del for. Lo que necesito es saber como crear "x" columnas que pueden variar. Supongo que debo usar addcolumn pero como le asigno el element del array. Por favor necesito ayuda, estoy parado y necesito seguir. Muchas Gracias.

... oFontNegr}, {oPen1, oPen2},,cImpresoraSalida,,; , lPreview,,, cCaption,; 'CENTER' , 'LEFT', 'RIGHT' ) for i=1 TO len( aContenido ) oRpt:AddColumn(TRcolumn():new({aEncabezado[i]},,; {aContenido[i] },,; {HacePicture(aPicture[i],aAnchura[i])},,; iif(aTotaliza[i]='N',.f.,.t.); ,,,,,,oRpt)) ...

No,
I think ( and I found it on this forum) I can make a function type

Function Addcolumn()
ADD TO oBrw AT 8 DATA oBrw:Rit HEADER "SlNo"
oBrw:Rit:setcheck()
return nil

where Rit ia a field .... but it not run here!!!

Adolfo,

You could add a new column using oBrw:AddCol( no parameters ) or oBrw:AddColumn( ... parameters... )

... bLine := "{|| field->code }" oCol := TcColumn():New( cHeading , &bLine , , CLR_GREEN , CLR_WHITE , 0 , 100 , , , , , , , ) oBrw:addcolumn( oCol ) Thanks in advance Marco

... 'dbedit Test' @ 16, 2 prompt "Sair " message 'sair' menu to nOpc if nOpc=1 @ 11,14 to 21,71 double otbr:=tbrowsedb(12,15,20,70) otbr:addcolumn(tbcolumnnew('(FIRST)' ,{|| customer->first })) otbr:addcolumn(tbcolumnnew('(LAST)' ,{|| customer->last })) otbr:addcolumn(tbcolumnnew('(STREET)',{|| ...

... oDlg SIZE 200 , 400 @ 0, 0 BROWSE oBrw oCol := TcColumn():New( "First" , { || TEST->first } , , , , 0 , 60 , , , , , , , ) oBrw:addcolumn( oCol ) oCol := TcColumn():New( "Last" , { || TEST->last } , , , , 0 , 60 , , , , , , , ) oBrw:addcolumn( oCol ) oCol := TcColumn():New( ...

I had a problem with the horizontal scroll bar. I traced it down to the addcolumn method. If you use addcolumn, there is no updating of ::oHScroll. The delcolumn has the code below to update the horizontal scroll bar. So I added that code to method addcolumn ...

... not in use: ORDBAGNAME Stack Calls =========== Called from: => ORDBAGNAME(0) Called from: K:\pigc\ADDON32\UPDATED2\xbrowse.prg => TXBROWSE:ADDCOLUMN(5320) I temporary solved removing line 5320 from the xbrowse class * oCol:cOrdBag := ( ::cAlias )->( OrdBagName( ncOrder ) )