FiveTech Software tech support forums

Seems to depend on the bitmap, this code works for some bitmaps, I have also used @ 0,0 Bitmap... ...main program @ 0,0 Image oLogo File Mcs_AppPath() + "Images\SqlServerLogo.bmp" Of oWnd:oWndClient No Border ACTIVATE WINDOW oWnd VALID MCS_EXIT(oWnd,cPath,pPRG_ABRV) ON INIT ...

Dear Silvio, I would say that you have not properly created oLogo as it is containing a string instead of an object I copied only your test and I add only a buttonbar ( oBarRight) and another Buttonbar (oBar) https://i.postimg.cc/nrzDb5Ws/b.png ...

Dear Silvio,

I would say that you have not properly created oLogo as it is containing a string instead of an object

... not bpainted and when I reopen the bar right I must redraw the image how I can resolve it ? I add oApp:oWinMain:bResized := { || SetLogo( oApp:oLogo, oApp:oWinMain ) and the procedure make error when I resize Error description: Error BASE/1004 Metodo non disponibile: NWIDTH Args: [ 1] = C c:\work\fwh\bitmaps\fivetech.bmp ...

... my program gets hung up when clicking on the menu. Here is the old code I used in the main program just before the Activate Window: @ 0,0 Bitmap oLogo File Mcs_AppPath() + "Images\EocwdLogo.bmp" of oWnd:oWndClient PIXEL NOBORDER oWnd:CoorsUpdate() oWnd:bPainted := {|| SetLogo( oLogo,oWnd ...

... ID 4003 ; HEADERS "NOMBRE", "CGO","C.I.F" ; ON CHANGE(COGE_COMPANIA(),REFRESCA_COMPANIA(),capturalogo(odl,ologo,"COMPANIA")) ; ON RIGHT CLICK (MENUCIA(NROW,NCOL,obRW,"COMPANIA",OLOGO)) ; OF odl FONT OFONT10 COLOR LETRAS,FONDO OBRW:BKEYDOWN:={ ...

Thank You very much it works I had to add for all images @ 518, 845 BITMAP oLogo[1] FILE c_path1 + "U-Kingdom.bmp" PIXEL NOBORDER OF oDlg oLogo[1]:lTransparent = .t. I think the release 17.12 has detected the alpachannel and oLogo[1]:lTransparent = ...

... http://www.pflegeplus.com/IMAGES/Update1.jpg the xbrowse-sample doesn't work anymore missing alphablended @ 518, 865 BITMAP oLogo[1] FILE c_path1 + "U-Kingdom.bmp" PIXEL NOBORDER OF oDlg @ 554, 865 BITMAP oLogo[2] FILE c_path1 + "Spain.bmp" PIXEL NOBORDER ...

The needed calculation on window-resize ( I can add a compiled sample + source if needed ) Logo : @ nLTop, nLLeft IMAGE oLogo ; // Top / Left FILENAME c_Path1 + cLogo ; NOBORDER ; OF oWnd PIXEL UPDATE TRANSPARENT The calculation to center the image-position on window-resize : oWnd:bResized ...

... ) lVisible := .F. ACTIVATE WINDOW oWnd MAXIMIZED ; ON RESIZE ( W_BACKGRD( oWnd:oWndClient, "PICTURE8.jpg" ), ; IIF( lVisible = .T., oLogo:End(), NIL ), ; PAINT_LOGO(oWnd:oWndClient), ; aLogo[1] := ( oWnd:nHeight / 2 ) - 50 - ( 248 / 2 ), ; aLogo[2] := ( oWnd:nWidth / 2 ) - ( 320 ...

... Left, Bottom and Right-position to redraw on new Backround. Also You need a Logical-var, to know if the Logo has to be closed. I used STATIC : oLogo lVisible := .F. aLogo[4] aLogo[1] := 120 // Logo Start-top-pos. aLogo[2] := 50 // Logo-Start-left-pos. nWColorF := 16443068 // 1. Color nWColorB ...

... ( WND_BRUSH( nWStyle, lWGrad, nWColorF, nWColorB, nWPos, cWBrush, cWImage ) , ; SHOW_DLG(oDlg) , oDlg:Hide() ) ; ON PAINT ( ABPaint( hDC, 50, 50, oLogo, 255 ), ; NEW_LOGO(hDC) ) oLogo:End() oWndLogo:End() oFont1:End() oBrwFont:End() oTitleFont:End() RETURN NIL // ----- FUNCTION SHOW_DLG(oDlg) ...

... Mheight * .03, 2) M_rto = ROUND( Mheight * .13, 2) M_col = ROUND( Mwidth * .05, 2) M_cto = ROUND( Mwidth * .25, 2) IF FILE(cLogo) DEFINE BITMAP oLogo FILENAME cLogo oPrn:SayBitmap( M_row, M_col, cLogo, (M_cto-M_col), M_row+(M_rto-M_row) ) ENDIF // Header... Mrow := ROUND( Mheight * .03, 0) FOR ...

... Mheight * .03, 2) M_rto = ROUND( Mheight * .13, 2) M_col = ROUND( Mwidth * .05, 2) M_cto = ROUND( Mwidth * .25, 2) IF FILE(cLogo) DEFINE BITMAP oLogo FILENAME cLogo oPrinter:SayBitmap( M_row, M_col, cLogo, (M_cto-M_col), M_row+(M_rto-M_row) ) ENDIF // Header... Mrow := ROUND( Mheight * .03, ...

... INTERVAL aConfig[5] ACTION USBChk() oTimer:Activate() ACTIVATE WINDOW oWnd ICONIZED ON INIT START(oWnd) RETU NIL FUNC START(oWnd) LOCAL oDlg,oSAY,oLOGO,oPANEL,oBtn,oBtnLOGO,oCBX,nEle LOCAL oCOM1,oCOM2,oCOM3,oCOM4,oCOM5,oTIPOSYS LOCAL cCOM:='' cIMG:='' oGET:=ARRAY(43) oG3:=ARRAY(20) aCOOP:={'','10','20','25','30','33','40','50','60','70','75','80','90','100'} ...