FiveTech Software tech support forums

... con el formulario // al cumplirse el timer 1, el formulario se cierra y retorna al menu principal. ********* fin de los timers redefine bitmap oBmpLogo filename _cBmpLogo ID 180 of oDlg on right click fChangeLogo(@oBmpLogo) oBmpLogo:lTransparent:=.t. fDefineSays(@oDlg,aSays,aColors[3],aColors[1],oFontDlg) ...

... GRAPH_TYPE_BAR 1 #define GRAPH_TYPE_LINE 2 #define GRAPH_TYPE_POINT 3 #define GRAPH_TYPE_ALL 4 static oWnd, lInit MEMVAR cEmpresa, nEmpresa, oBmpLogo, oBmp, cFntW, cBmp, cFont //----------------------------------------------------------------------------// function cachaza() local oBar, oBrush, ...

Hola Sebastian: Muchas gracias por tu aclaracion, lo aplico y te cuento. Saludos, Miguel Miguel: En la línea: @ -100, -100 BITMAP oBmplogo RESOURCE 'FONDO.BMP' ADJUST OF oWnd PIXEL NO BORDER Algo tienes mal, porque si el logo está en un fichero llamado Fondo.BMP. RESOURCE hay que cambiarlo ...

Miguel: En la línea: @ -100, -100 BITMAP oBmplogo RESOURCE 'FONDO.BMP' ADJUST OF oWnd PIXEL NO BORDER Algo tienes mal, porque si el logo está en un fichero llamado Fondo.BMP. RESOURCE hay que cambiarlo por FILE. Yo lo tengo puesto RESOURCE porque ...

... desde FIVEGEN de FW 2.4, como me lo indico Antonio. Dondes esta el error? Saludos, Miguel Miguel, function IniLogo(oWnd,oBmpTiled) if ! Empty( oBmpLogo ) .or. ! Empty( oBmpTiled ) oWnd:bPainted = { | hDC | If( oBmpTiled != nil,; BmpTiled( hDC, oWnd, oBmpTiled ),),; If( oBmpLogo != nil,; PalBmpDraw( ...

Miguel, function IniLogo(oWnd,oBmpTiled) if ! Empty( oBmpLogo ) .or. ! Empty( oBmpTiled ) oWnd:bPainted = { | hDC | If( oBmpTiled != nil,; BmpTiled( hDC, oWnd, oBmpTiled ),),; If( oBmpLogo != nil,; PalBmpDraw( hDC,; oWnd:nHeight() / 2 - ; oBmpLogo:nHeight() ...

... un fondo de pantalla. Puedo usar el FW 2.4 y porque el error? Saludos, Miguel RUTINA. AL FINAL ESTA EL ERROR. function IniLogo() if ! Empty( ::oBmpLogo ) .or. ! Empty( ::oBmpTiled ) ::oWnd:bPainted = { | hDC | If( ::oBmpTiled != nil,; BmpTiled( hDC, ::oWnd, ::oBmpTiled ),),; If( ::oBmpLogo ...

... lo que me indicastes para colocar el fondo de pantalla en mi aplicacion, pero algo no estoy haciendo bien. No muestra ningun logo, y si declaro oBmplogo como local, el la rutina me dice que no existe esta variable. NOTA: Uso Clipper 5.3b, FW 2.4 y Blinker 7.0 Por tu ayuda, muchas gracias. Saludos, ...

... } ACTIVATE WINDOW oWnd ON INIT Inilogo() ... Esta es la función Inilogo: function IniLogo() local aclirect := getclientRect(oWnd:hWnd) if valtype(oBmplogo) = 'O' oBmpLogo:End() endif @ -100, -100 BITMAP oBmplogo RESOURCE 'LOGO' ADJUST OF oWnd PIXEL NO BORDER oBmpLogo:nTop := int( (aclirect[3]/2) ...

... } ACTIVATE WINDOW oWnd ON INIT Inilogo() ... Esta es la función Inilogo: function IniLogo() local aclirect := getclientRect(oWnd:hWnd) if valtype(oBmplogo) = 'O' oBmpLogo:End() endif @ -100, -100 BITMAP oBmplogo RESOURCE 'LOGO' ADJUST OF oWnd PIXEL NO BORDER oBmpLogo:nTop := int( (aclirect[3]/2) ...

DEFINE BITMAP oBmpLogo FILE "milogo.bmp" oWnd:bPainted = { | hDC | If( oBmpLogo != nil,; PalBmpDraw( hDC,; oWnd:nHeight() / 2 - ; oBmpLogo:nHeight() / 2 - 50,; oWnd:nWidth() ...