FiveTech Software tech support forums

... 14089979 } oWBtn5:SetColor( 0, ) --------------------------- It seems, You want to display a centered Logo ? From Your Test : ON PAINT ( BmpTiled( hDC , oBmpTiled ),; PalBmpDraw( hDC,; ( oWnd:nHeight() / 2 ) - ( oBmp:nHeight() / 2 ) - 50,; ( oWnd:nWidth() / 2 ) - ( oBmp:nWidth() / 2 ), ...

... on the paint clausule from the main window : ACTIVATE WINDOW oWnd MAXIMIZED ; ON INIT ( Start_Hen(DataDir , oWnd , bStart ) ) ; /* ON PAINT ( BmpTiled( hDC , oBmpTiled ),; PalBmpDraw( hDC,; ( oWnd:nHeight() / 2 ) - ( oBmp:nHeight() / 2 ) - 50,; ( oWnd:nWidth() / 2 ) - ( oBmp:nWidth() / 2 ), ...

... FWCOPYRIGHT ; NOINSET CENTERED KEYBOARD DATE CLOCK DEFINE BITMAP oBmp FILENAME "c:\sdl\diversos\fiveback.bmp" oWnd:bPainted = { | hDC | BmpTiled( hDC, oWnd, oBmp ) } ACTIVATE WINDOW oWnd ; VALID MsgYesNo( "Quer Desligar?" ) return nil ******************************************************************************** ...

...       ....        define image obmp FILENAME ".\IMG\logosocial.bmp" of oWndPrincipal            oWndPrincipal:bPainted = { | hDC | BmpTiled( hDC,oBmp, oWndPrincipal ) }        ....    activate window oWndPrincipal maximized valid CloseAplicattion(2) on init ...

... MAXIMIZED oBmp:End() SET RESOURCES TO Return nil //-----------------------------------------//FWH STATIC FUNCTION PongaBmp( hDC, oBmp, oWnd ) //BmpTiled( local nWidth := oWnd:nWidth(), nHeight := oWnd:nHeight() local nRow := 0, nCol := 0, n local nBmpWidth := oBmp:nWidth(), nBmpHeight := oBmp:nHeight() ...

... MAXIMIZED oBmp:End() SET RESOURCES TO Return nil //-----------------------------------------//FWH STATIC FUNCTION PongaBmp( hDC, oBmp, oWnd ) //BmpTiled( local nWidth := oWnd:nWidth(), nHeight := oWnd:nHeight() local nRow := 0, nCol := 0, n local nBmpWidth := oBmp:nWidth(), nBmpHeight := oBmp:nHeight() ...

... 3 DEFINE BITMAP oBmp RESOURCE "Background" SET MESSAGE OF oWnd TO "DonorQuest 7.0, (c) Intrepid Systems, Inc. " CENTERED oWnd:bPainted = { | hDC | BmpTiled( hDC, oWnd, oBmp ) } ACTIVATE WINDOW oWnd return nil //----------------------------------------------------------------------------// function ...

... Amigo: Sabes que la saque 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( ...

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 - ...

... 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 != nil,; PalBmpDraw( hDC,; ::oWnd:nHeight() ...

... tienes un ejemplo de como poner un logo centrado ó en mosaico: if ! Empty( ::oBmpLogo ) .or. ! Empty( ::oBmpTiled ) ::oWnd:bPainted = { | hDC | If( ::oBmpTiled != nil,; BmpTiled( hDC, ::oWnd, ::oBmpTiled ...

... tienes un ejemplo de como poner un logo centrado ó en mosaico: if ! Empty( ::oBmpLogo ) .or. ! Empty( ::oBmpTiled ) ::oWnd:bPainted = { | hDC | If( ::oBmpTiled != nil,; BmpTiled( hDC, ::oWnd, ::oBmpTiled ...

!!Resuelto!! La verdad que sucede solo con xp, y la solucion la encontre en fivetilus ACTIVATE WINDOW _oWnd MAXIMIZED ; ON PAINT BmpTiled( hDC, _oWnd, oBmp ) STATIC FUNCTION BmpTiled( hDC, oWnd, oBmp ) local nWidth := oWnd:nWidth(), nHeight := oWnd:nHeight() local nRow := 0, nCol := 0, ...