mmercado wrote:Hola Amigos:
3.- Conectividad con Excel. Ha sido para mí una gran ayuda para darle al usuario final una herramienta de extensión para la manipulación de la información mostrada por el browser.
ej. DEFINE BUTTON OF oBar ACTION oBrw:ExcelOle()
Actualmente estoy trabajando en la conexión ADO/TSBrowse, muy pronto tendrán noticias.
Espero que les sea de utilidad, aquí la pueden descargar:
http://hyperupload.com/download/022f125 ... E.zip.html
Manuel Mercado
oRpt := RptBegin( {{||cTitle}}, { {||cHeader + ::aMsg[ 20 ] + Space( 1 ) + DToC( Date() ) + " - " + ;
::aMsg[ 22 ] + Space( 1 ) + Time() } }, ;
{ {|| cFooter + ::aMsg[ 21 ] + Str( oRpt:nPage, 3 ) } }, ;
/*If( oFont == Nil, Nil, {oFont} )*/,,,,,, lPreview,, oDevice, cCaption,,, "CENTER" )
if bRclick = NIL
::bRClicked := { |nR,nC| Menu_TSB( nR, nC, Self ) }
else
::bRClicked = bRClick
endif
#define _cvar Alltrim(cValToChar( EVal( oLbx:aColumns[ oLbx:nCell ]:bData ) ))
function Menu_TsB( nRow, nCol, oLbx )
local oMenu, oClp
DEFINE CLIPBOARD oClp OF oLbx FORMAT TEXT
MENU oMenu POPUP 2007
MENUITEM "Copiar" ACTION ;
iif( oClp:Open(), (;
oClp:Clear(),;
oClp:SetText( _cvar ),;
oClp:End(),;
oMenu:End() ),;
MsgInfo( "El clipboard no esta habilitado por ahora", "Usuario" ) )
MENUITEM "&Excel" ACTION oLbx:ExcelOle()
SEPARATOR
MENUITEM "&Imprimir" ACTION oLbx:Report()
ENDMENU
ACTIVATE POPUP oMenu AT nRow, nCol-1 OF oLbx
return( .t. )
//--------------------------------------------------------------------------------------------------------
ERROR.LOG
Application
===========
Path and name: D:\Apl\PRGS\Carmona\dbf\wcta.exe (32 bits)
Size: 4,110,848 bytes
Time from start: 0 hours 0 mins 7 secs
Error occurred at: 28/02/2008, 13:02:08
Error description: Error BASE/1083 Error de argumento: *
Args:
[ 1] = U
[ 2] = N 600
Stack Calls
===========
Called from: REPORT.PRG => (b)TREPORT:NEW(0)
Called from: => AEVAL(0)
Called from: REPORT.PRG => TREPORT:NEW(0)
Called from: PDREPORT.PRG => RPTBEGIN(0)
Called from: TSBROWSE.PRG => TSBROWSE:REPORT(8303)
Called from: General.PRG => (b)MENU_TSB(1076)
Called from: MENU.PRG => TMENU:ACTIVATE(0)
Called from: General.PRG => MENU_TSB(1080)
Called from: TSBROWSE.PRG => (b)TSBROWSE:REDEFINE(889)
Called from: TSBROWSE.PRG => TSBROWSE:RBUTTONDOWN(8130)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: CONTROL.prg => TCONTROL:HANDLEEVENT(1414)
Called from: TSBROWSE.PRG => TSBROWSE:HANDLEEVENT(6141)
Called from: WINDOW.PRG => _FWH(0)
Called from: => DIALOGBOX(0)
Called from: DIALOG.PRG => TDIALOG:ACTIVATE(0)
Called from: CartProd.PRG => CARTOLAPROD(373)
Called from: Wcta.PRG => (b)MAIN(78)
Called from: TOOLBAR.PRG => TTOOLBAR:COMMAND(0)
Called from: DIALOG.PRG => TDIALOG:COMMAND(0)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: DIALOG.PRG => TDIALOG:HANDLEEVENT(0)
Called from: WINDOW.PRG => _FWH(0)
Called from: => WINRUN(0)
Called from: WINDOW.PRG => TMDIFRAME:ACTIVATE(0)
Called from: Wcta.PRG => MAIN(215)
REDEFINE BROWSE oLbx GRID ALIAS "CPROTMP" ;
COLORS CLR_BLACK, RGB( 255, 255, 235) ;
ID 103 OF oDlg;
ON DBLCLICK Detalle()
oLbx:nHeightCell += 2 //filas
oLbx:nHeightHead += 6 //columnas
oLbx:SetColor( { 9, 10 }, { CLR_BLACK, oBrush } ) // brushed Footers background
oLbx:SetColor( { 5, 6, 4, 15 }, ;
{ CLR_WHITE, CLR_BLACK, ; // cursor
oBrush, ; // brushed headers background
CLR_BLACK }, ; // grid lines
NIL )
oLbx:lNoMoveCols := .t.
oLbx:lNoHScroll := .t.
ADD COLUMN TO BROWSE oLbx DATA oLbx:nAt ;
TITLE "Item" ;
SIZE 40 PIXELS ;
3DLOOK TRUE,TRUE,FALSE ;
ALIGN DT_CENTER,DT_CENTER,DT_CENTER ;
COLORS CLR_BLACK, CLR_HGRAY//RGB( 255, 255, 235)
ADD COLUMN TO BROWSE oLbx DATA CProTmp->Fecha ;
TITLE "Fecha" ;
SIZE 76 PIXELS ;
3DLOOK TRUE,TRUE,FALSE ;
ALIGN DT_CENTER,DT_CENTER,DT_CENTER ;
COLORS CLR_BLACK, RGB( 255, 255, 235)
AEval( aFont,;
{ | val, elem | ;
::aFont[elem]:= TFont():New( val:cFaceName,;
Int( val:nWidth* ::nLogPixX / 72 ),;
Int( val:nHeight* ::nLogPixY / 72 ),;
.f.,;
val:lBold,;
val:nEscapement,;
val:nOrientation,;
val:nWeight,;
val:lItalic,;
val:lUnderline,;
val:lStrikeOut,;
val:nCharSet,;
val:nOutPrecision,;
val:nClipPrecision,;
val:nQuality ) } )
mmercado wrote:Hola Amigos:
Después de 4 años sin actualizaciones, pongo a su disposición esta nueva versión a la que llamo 8.0 pero en realidad sería la 1.0 para FWH/(x)Harbour en 32 bits ya que he decidido suspender (por falta de tiempo) la compatibilidad con Clipper 16 bits.
En esta ocasión no habrá LoNuevo.txt o WhatsNew.txt ya que son tantas las modificaciones que le he hecho que la verdad ni las recuerdo.
Solamente mencionaré las que para mí son las más llamativas:
1- Transparencia, TSBrowse toma como fondo el fondo de la ventana o del diálogo al que pertenece, o bien de su propia imagen de fondo.
Ej. @ 0, 0 BROWSE oBrw of oDlg TRANSPARENT.....
2.- ToolTips para las Cabeceras de las columnas.
Ej. ADD COLUMN TO oBrw TITLE "ST" TOOLTIP "State"
3.- Conectividad con Excel. Ha sido para mí una gran ayuda para darle al usuario final una herramienta de extensión para la manipulación de la información mostrada por el browser.
ej. DEFINE BUTTON OF oBar ACTION oBrw:ExcelOle()
Actualmente estoy trabajando en la conexión ADO/TSBrowse, muy pronto tendrán noticias.
Espero que les sea de utilidad, aquí la pueden descargar:
http://hyperupload.com/download/022f125 ... E.zip.html
Manuel Mercado
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: Google [Bot], nnicanor and 45 guests