FiveTech Software tech support forums

... #include "\Harbour\FWH\Include\Dll.ch" Procedure Main() public Int_Retorno hBor := LoadLibrary( "bwcc32.dll" ) BWCCRegister( GetResources( ) ) SetHandleCount( 200 ) m->Int_Retorno := Daruma_FI_LeituraX() hb_Analisa_Retorno() FreeLibrary( hBor ) // Release borland Return

... 32, 32 ) h1:oImgLst:AddMasked( TBitmap():Define( "bmp_AgrMov",, oWndAd ), nRGB( 255, 0, 255 ) ) ... o, h1:ahBmp[1]:= LoadBitmap( GetResources(), "bmp_Alerta" ) o, idem para FONTs hacer luego: h1:oImgLst:End() DeleteObject( h1:ahBmp[1] ) o, como es mi caso, que las variables ...

... GO_LEFT 1 #define GO_RIGHT 2 #define GO_PAGE .T. #define VSCROLL_RANGE 20*nZFactor #define HSCROLL_RANGE 20*nZFactor #define TXT_FIRST LoadString( GetResources(), 07 ) #define TXT_PREVIOUS LoadString( GetResources(), 08 ) #define TXT_NEXT LoadString( GetResources(), 09 ) #define TXT_LAST LoadString( ...

... oRt:DLLPTH := oRt:D32PTH RUTAR:=oRt:DLLPTH+"GESM0100.DLL" SET RESOURCES TO "&RUTAR.","BWCC32.DLL" BWCCRegister( GetResources() ) #endif y al final del programa principal #ifndef __CLIPPER__ DLL32 FUNCTION BWCCRegister( hInst AS LONG ) AS WORD PASCAL LIB "BWCC32.DLL" ...

... hInst AS LONG ) AS WORD PASCAL LIB "BWCC32.DLL" al incio local hBorland := LoadLibrary( "BWCC32.DLL" ) BWCCRegister( GetResources() ) y sucede lo mismo, no puede mostrarme los dialogos no uso SET RESOURCES TO... Ya revise toda la informacion del foro, he aplicado las ...

?LoadBitmap( GetResources() , "X_NADA") lo que me devuelve FWH es un numero no un array... Tienes razón, me confundí de función. No es ese el problema. Error description: Error BASE/1004 Message not found: TSBROWSE:ADDCOL ...

Hola Manuel El problema persiste, aunque he encontrado varias cosas que no tenia bien configuradas. Resulta que si hago: aBMP := { LoadBitmap( GetResources() , "X_NADA") ,; //1 LoadBitmap( GetResources() , "X_ROJO") ,; //2 LoadBitmap( GetResources() , "X_FOCO") ,; ...

... un arreglo que defino como STATIC para que lo pueda usar con libertad en todo el programa... // Cargando bitmaps para browse aBMP := { LoadBitmap( GetResources() , "X_NADA") ,; //1 LoadBitmap( GetResources() , "X_ROJO") ,; //2 LoadBitmap( GetResources() , "X_FOCO") ...

... function Main()    local oBar, oMenuNew    local hBorland := LoadLibrary( "BWCC32.dll" )    BWCCRegister( GetResources() )    DEFINE WINDOW oWnd FROM 3, 6 TO 20, 70 ;       TITLE FWVERSION + " Resources Editor" ;       MENU BuildMenu() MDI    DEFINE ...

... 0, CurDir() +"\Level4.bmp" ),; ReadBitmap( 0, CurDir() +"\Level5.bmp" ) } instead of this aHBitMaps:= { LoadBitmap( GetResources(), "Level1" ), ; LoadBitmap( GetResources(), "Level3" ), ; LoadBitmap( GetResources(), "Level2" ), ; LoadBitmap( ...

... que es el mismo que ::oDevice:aMeta, es 4, tanto a la entrada como a la salida, pero aqui..... METHOD NextPage() CLASS TPreview local hOldRes := GetResources() local oDevice := ::oDevice local aFiles := oDevice:aMeta // DEVICE msginfo("NEX "+STR(Len(aFiles))) el valor ya es cero, lo ...

... Local oIcono, oBrush, oBmp, oBmp1, oBarraBotones, oVer, oWebserver LOCAL oImageList local hdll:=loadlibrary("BWCC32.dll") bwccregister(getresources()) /* PUBLIC PATRES:="c:\avio\AVIORES" PUBLIC PATPTA:="c:\avio\AVIOPTAS" PUBLIC PATCTA:="c:\avio\CTALIQ" ...

... lPreview,, lModal, lSelection ) Endif Return Self METHOD Activate() CLASS TMPrinter Local oPagina Local hActWnd := GetActiveWindow() ::hOldRes := GetResources() #ifdef __CLIPPER__ SET RESOURCES TO "preview.dll" #else SET RESOURCES TO "prev32.dll" #endif If GetResources() < ...

... 130 ALIGN 2,1 What would be the equivalent code in txbrowse ? Also, using tsbrowse, I can add a bitmap by first defining it: aBmp := { LoadBitMap( GetResources( ) , "CM1" ), ; LoadBitMap( GetResources( ), "CM2" ), LoadBitMap(GetResources( ), "CM3") } And then in the ...

... nStyle, nClrText, nClrBack, oBrush, oWnd, lPixels,; oIco, oFont, nHelpId, nWidth, nHeight, lTransparent ) CLASS TDialog DEFAULT hResources := GetResources(), lVbx := .f.,; nClrText := GetSysColor( COLOR_BTNTEXT ), nClrBack := GetSysColor( COLOR_BTNFACE ),; lPixels := .f., nTop := 0, nLeft ...