FiveTech Software tech support forums

This is a working sample: #include "Fivewin.ch"FUNCTION MAIN()    WQOUT( GETDESKTOPAREA() )    RETURN NIL#pragma BEGINDUMP#include "windows.h"#include "hbapi.h"#ifdef __XHARBOUR__  #define hb_storvnl( v, x, y ) hb...

Antonio, mil gracias por contestar... pero al incluir este código en mi .PRG y compilar, me genera los siguientes errores: Error E0020 Incomplete statement or unbalanced delimiters Error E0030 Syntax error: "syntax error at 'RCT'" Error E0030 Syntax error: "syntax error at 'HB_STORVNL...

Lorenzo, HB_FUNC( GETDESKTOPAREA ){   RECT rct;   SystemParametersInfo( SPI_GETWORKAREA, 0, &rct, 0 );   hb_reta( 4 );   hb_storvnl( rct.top,    -1, 1 );   hb_storvnl( rct.left,   -1, 2 )...

Hola a todos, compañeros

Podría alguien, por favor, enviarme el código de GetDesktopArea()

Tengo la versión FWH 17.11 y al parecer esta función está incluida a partir de la versión 17.12

Mil gracias.
LORENZO.

... = 350 oBrw1:CreateFromResource(180) oBrw1:SetRDD() oBrw1:bChange:={|| Saldos(cAlias2,cAlias1), oBrw2:MakeTotals(), oBrw2:Refresh() } //esta funct es la que filtra el oBrw2, segun seleccion en el oBrw1 //******* BROWSE NUMERO DOS ****** oBrw2 := TXBrowse():New( oDlg ) oBrw2:cAlias:=(cAlias2) ...

... = 350 oBrw1:CreateFromResource(180) oBrw1:SetRDD() oBrw1:bChange:={|| Saldos(cAlias2,cAlias1), oBrw2:MakeTotals(), oBrw2:Refresh() } //esta funct es la que filtra el oBrw2, segun seleccion en el oBrw1 //******* BROWSE NUMERO DOS ****** oBrw2 := TXBrowse():New( oDlg ) oBrw2:cAlias:=(cAlias2) ...

Hi Tim; I think it means you need to write a c wrapper funct to call the .dll function so that you can send your parms to it and then you need to write a c function with your .prg function name for them to call it. What is the .dll func you need to ...

... then it may be possible, but then it will slow many processes. Any idea you may have ? Function List does not recognize abbreviations of the word FUNCTION (FUNCT, etc.) Yep. I will revisit the parsing code sometime later. But for the fact that we must use strong syntax, it will be a down-side ...

... of it on daily basis. FeedBack: Function List is not updated unless source is saved... Function List does not recognize abbreviations of the word FUNCTION (FUNCT, etc.) Aplication is closed by Windows when a PRG file is open and the print button is pressed. ASKING IS FREE: It would be nice if ...

... LNK2019: unresolved external symbol "void __cdecl mysql_get_l ast_error(int,char *)" (?mysql_get_last_error@@YAXHPAD@Z) referenced in function HB_FUN_MYSQL_GET_LAST_ERROR SQLNet.obj : error LNK2019: unresolved external symbol "int __cdecl mysql_discon nect(void)" (?mysql_disconnect@@YAHXZ) ...

¿Tiene una llamada a una DLL en VB6 y quiere usarla en FWH sin traducirla? Aquí tiene cómo hacerlo. Do you have a DLL call with VB6 sintax a you want to use it in FWH without translate it? Here you have how to make it. Ejemplo / Example **************************************************** #include "...

... utilizando la clase TWBROWSE para mostrar datos mediantes listbox. Hasta aquí todo perfecto. Ahora le he añadido un nuevo PRG (ix.prg) muy simple: funct ix msginfo('modulo en construccion') return Compila perfecto pero ahora los listbox no me los muestra bien, ocultando todos los registros excepto ...

... utilizando la clase TWBROWSE para mostrar datos mediantes listbox. Hasta aquí todo perfecto. Ahora le he añadido un nuevo PRG (ix.prg) muy simple: funct ix msginfo('modulo en construccion') return Compila perfecto pero ahora los listbox no me los muestra bien, ocultando todos los registros excepto ...

aida, Define dialog... @ 8, 0 TABS oTabs PROMPTS "&One", "&Two", "T&hree", "&Four" OF oWnd ACTION opcion() Activate dialog... funct opcion do case case oTabs:nOption=1 ; msginfo('primera opcion') case oTabs:nOption=2 ; msginfo('segunda opcion') case oTabs:nOption=3 ; msginfo('tercera ...

for x=1 to 620 aforo[x]:bRClicked:={ |nRow, nCol, nFlags, x | GenBlock1(nRow, nCol, aforo[x], x) } next funct GenBlock1( nRow, nCol, oBtn , x ) return { || dblmenu( nRow, nCol, oBtn ,x ) } funct dblmenu( nRow, nCol, oBtn, x ) Local oMenu C5MENU oMenu POPUP c5menuitem 'prueba' ...