HB_FUNC( TTNSETTEXT ) // pNMTTDISPINFO, cTooltipText
{
LPNMTTDISPINFO pti = ( LPNMTTDISPINFO ) hb_parnl( 1 );
MultiByteToWideChar( CP_OEMCP, MB_PRECOMPOSED,
( LPCSTR ) hb_parc( 2 ), -1, ( LPWSTR ) pti->szText,
hb_parclen( 2 ) + 1 );
pti->hinst = NULL;
pti->lpszText = NULL;
pti->uFlags = 0;
}
DEFINE DIALOG oDlg TITLE "Atisa" FROM 0, 0 TO 480, 800 PIXEL FONT oFont
oDlg:lHelpIcon := .f.
@ 0, 0 BROWSE oBrw SIZE 100, 100 ALIAS "M347_BC" OF oDlg FONT oFont
ADD COLUMN TO oBrw HEADER "Código" DATA {|| M347_BC->CodigoP } ALIGN DT_CENTER
ADD COLUMN TO oBrw HEADER "NIF" DATA {|| M347_BC->NIF } ALIGN DT_CENTER
ADD COLUMN TO oBrw HEADER "Op." DATA {|| M347_BC->ClaveOp } ALIGN DT_CENTER
ADD COLUMN TO oBrw HEADER "Ignora?" DATA {|| M347_BC->Ignorar } ALIGN DT_CENTER
ADD COLUMN TO oBrw HEADER "Importe" DATA {|| M347_BC->Importe } ALIGN DT_RIGHT
ADD COLUMN TO oBrw HEADER "Computable" DATA {|| M347_BC->Importe } ALIGN DT_RIGHT
ADD COLUMN TO oBrw HEADER "Seguro" DATA {|| M347_BC->OpSeguro } ALIGN DT_CENTER
ADD COLUMN TO oBrw HEADER "Arrend.?" DATA {|| M347_BC->ArrendLoc } ALIGN DT_CENTER
ADD COLUMN TO oBrw HEADER "Concepto" DATA {|| M347_BC->Concepto }
ADD COLUMN TO oBrw HEADER "Fecha" DATA {|| M347_BC->Fecha } ALIGN DT_CENTER
ADD COLUMN TO oBrw HEADER "Contrapartida" DATA {|| M347_BC->Contrap } ALIGN DT_CENTER
ADD COLUMN TO oBrw HEADER "Apunte" DATA {|| M347_BC->Apunte } ALIGN DT_RIGHT
oBrw:nHeightCell += 6
oBrw:nHeightHead += 6
ACTIVATE DIALOG oDlg CENTERED ON INIT ( CreaBarra( oDlg ), oDlg:SetControl( oBrw ) )
Return NIL
FUNCTION CreaBarra( oDlg )
Local oImageList, oBar
DEFINE IMAGELIST oImageList SIZE 16, 16
ILDESTROY( oImageList:hImageList )
oImageList:hImageList:= ILCREATE32( 16, 16 )
oImageList:Add( TBitmap():Define( ,"..\Icons16\check2.bmp", oDlg ) )
oImageList:Add( TBitmap():Define( ,"..\Icons16\document_add.bmp", oDlg ) )
oImageList:Add( TBitmap():Define( ,"..\Icons16\document_preferences.bmp", oDlg ) )
oImageList:Add( TBitmap():Define( ,"..\Icons16\document_delete.bmp", oDlg ) )
oImageList:Add( TBitmap():Define( ,"..\Icons16\replace2.bmp", oDlg ) )
oImageList:Add( TBitmap():Define( ,"..\Icons16\document_gear.bmp", oDlg ) )
// oImageList:Add( TBitmap():Define( ,"..\Icons16\document_exchange.bmp", oDlg ) )
oReBar = TReBar():New( oDlg )
DEFINE TOOLBAR oBar OF oReBar SIZE 16,20 IMAGELIST oImageList
oReBar:InsertBand( oBar )
oBar:nHeight -= 2
DEFINE TBBUTTON OF oBar ;
ACTION oDlg:End() ;
TOOLTIP 'Salir'
DEFINE TBSEPARATOR OF oBar
DEFINE TBBUTTON OF oBar ;
MESSAGE "Añadir" ;
ACTION oDlg:End() ;
TOOLTIP 'Añadiró'
DEFINE TBBUTTON OF oBar ;
ACTION oDlg:End() ;
TOOLTIP 'Incluir'
DEFINE TBBUTTON OF oBar ;
ACTION oDlg:End() ;
TOOLTIP 'Excluir'
DEFINE TBSEPARATOR OF oBar
DEFINE TBBUTTON OF oBar ;
ACTION GenMov347BC( oDlg ) ;
TOOLTIP 'Recálcular'
DEFINE TBBUTTON OF oBar ;
ACTION oDlg:End() ;
TOOLTIP 'Generar registros'
Return NIL
DEFINE ICON oIcon RESOURCE 1
DEFINE WINDOW oWnd TITLE "Atisa" MENU MainMenu() ICON oIcon FROM 0, 0 TO 480, 800 PIXEL
DEFINE IMAGELIST oImageList SIZE 32, 32
ILDESTROY( oImageList:hImageList )
oImageList:hImageList:= ILCREATE32( 32, 32 )
oImageList:Add( TBitmap():Define( "SALIR32" ,, oWnd ) )
oImageList:Add( TBitmap():Define( "CLIENTES32" ,, oWnd ) )
oImageList:Add( TBitmap():Define( "PROVEED32" ,, oWnd ) )
oImageList:Add( TBitmap():Define( "IVA32" ,, oWnd ) )
oImageList:Add( TBitmap():Define( "VENTAS32" ,, oWnd ) )
oImageList:Add( TBitmap():Define( "COMPRAS32" ,, oWnd ) )
oImageList:Add( TBitmap():Define( "TESORERIA32",, oWnd ) )
oImageList:Add( TBitmap():Define( "CONCEPTO32" ,, oWnd ) )
oReBar = TReBar():New( oWnd )
DEFINE TOOLBAR oBar OF oReBar SIZE 40, 52 IMAGELIST oImageList
oReBar:InsertBand( oBar )
oBar:nHeight -= 2
DEFINE TBBUTTON OF oBar ;
PROMPT "Salir" ;
ACTION oWnd:End() ;
TOOLTIP 'Salir del Programa'
DEFINE TBSEPARATOR OF oBar
DEFINE TBBUTTON OF oBar ;
PROMPT "Clientes" ;
ACTION ClientesBrowse() ;
TOOLTIP 'Mantenimiento de Clientes'
DEFINE TBBUTTON OF oBar ;
PROMPT "Proveedores" ;
ACTION ProveedoresBrowse() ;
TOOLTIP 'Mantenimiento de Proveedores'
DEFINE TBSEPARATOR OF oBar
DEFINE TBBUTTON OF oBar ;
PROMPT "Tipos de IVA" ;
ACTION TipoIVABrowse() ;
TOOLTIP 'Mantenimiento de Tipos de IVA'
DEFINE TBBUTTON OF oBar ;
PROMPT "Ventas" ;
ACTION VentasBrowse() ;
TOOLTIP 'Facturas de Venta'
DEFINE TBBUTTON OF oBar ;
PROMPT "Compras" ;
ACTION ComprasBrowse() ;
TOOLTIP 'Facturas de Compra'
DEFINE TBSEPARATOR OF oBar
DEFINE TBBUTTON OF oBar ;
PROMPT "Tesoreria" ;
ACTION FondosBrowse() ;
TOOLTIP 'Gestión de Cuentas de Tesorería'
DEFINE TBBUTTON OF oBar ;
PROMPT "Conceptos" ;
ACTION ConceptoBrowse() ;
TOOLTIP 'Gestión de Conceptos de Tesorería'
SET MESSAGE OF oWnd TO "Datos de Gestión" CENTERED
ACTIVATE WINDOW oWnd // MAXIMIZED
Antonio Linares wrote:Carlos,
Posiblemente se pueda solucionar cambiando CP_OEMCP por CP_ACP en el código en C que he publicado
DEFINE ICON OICON RESOURCE "ATICONTA"
DEFINE WINDOW PRINCIPAL FROM 0, 0 TO SizeY, SizeX PIXEL ;
TITLE "ATICONTA v2.0 - Programa de contabilidad - Asesores Titulados S.A." ICON OICON COLORS 0, RGB(126,188,165)
SET MESSAGE TO ("Asesores Titulados, S.A. atisa@atisa.es Tfno. 912054400 ") OF PRINCIPAL
DEFINE BUTTONBAR oBar SIZE 48, 48 _3D OF PRINCIPAL // ToolBar
@ 0,0 BITMAP oBmp RESOURCE "ATICONTA" NOBORDER SIZE 800, 600 OF PRINCIPAL
ACTIVATE WINDOW PRINCIPAL ON INIT MainInit( oBmp ) VALID ( FErase( cMarcaLog ), .T. )
Carlos Mora wrote:Perfecto!
Muchas gracias!
Carlos.
Antonio Linares wrote:José,
Que errores te dá ?
...codigo de toolbar1.prg modificado......
RETURN
//-----------------------------------------------------
#pragma BEGINDUMP
HB_FUNC( TTNSETTEXT )
{
LPNMTTDISPINFO pti = ( LPNMTTDISPINFO ) hb_parnl( 1 );
MultiByteToWideChar( CP_ACP, MB_PRECOMPOSED,
( LPCSTR ) hb_parc( 2 ), -1, ( LPWSTR ) pti->szText,
hb_parclen( 2 ) + 1 );
pti->hinst = NULL;
pti->lpszText = NULL;
pti->uFlags = 0;
}
#pragma ENDDUMP
//-----------
Los errores son:
Error E2451 d:\prueba\prg\toolbar1.prg 143: Undefined Symbol 'LPNMTTDISPINFO' in function HB_FUN_TTNSETTEXT
Error E2379 d:\prueba\prg\toolbar1.prg 143: Statement missing ; in function HB_FUN_TTNSETTEXT
Error E2451 d:\prueba\prg\toolbar1.prg 143: Undefined symbol 'pti' in function HB_FUN_TTNSETTEXT
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: No registered users and 44 guests