strange error with png files

[Silvio.Falconi]

friends,

I tried a small prg to show a background file png and two button ( btnbmp) with png file into a Wnd
I have some problems as you can see

the btnbmp are not transparent

Code: Select all  Expand view

#include "FiveWin.ch"

 Static c_path,c_path1,oBackground

function Main()

   local oWnd
   local oBtn[2]


    c_path := cFilePath(GetModuleFileName( GetInstance() ) )
    c_path1 := c_Path + "IMAGES\"

    DEFINE IMAGE oBackground FILENAME c_path1 + "Back.png"

     DEFINE WINDOW oWnd FROM 10, 10 TO 48,110



@ 200, 450 BTNBMP oBtn[1] OF oWnd  ;
SIZE 80, 80 ;
PROMPT "";
NOBORDER ;
FILE c_Path1 + "Pay.png" ;
ACTION MsgInfo("Pay")
oBtn[1]:lEllipse := .T.
oBtn[1]:lTransparent := .T.

@ 350, 520 BTNBMP oBtn[2] OF oWnd  ;
SIZE 120, 80 ;
PROMPT "";
NOBORDER ;
FILE c_Path1 + "Spin.png" ;
ACTION MsgInfo("spin")
oBtn[2]:lTransparent := .T.


 ACTIVATE WINDOW oWnd ;
           ON PAINT ( ABPaint( hDC, 50, 10, oBackground:hBitmap, 255 ) )

//    another test ON PAINT   PaintTransparent( hDC, oBackground:hBitmap, 0, 0 )

//-----------------------------------------------------------------------------//

 function PaintTransparent( hDC, hBitmap, nRow, nCol )

   local hBmpOld := SelectObject( hDC, hBitmap )
   local nZeroZeroClr := GetPixel( hDC, 0, 0 )
   local nOldClr

   SelectObject( hDC, hBmpOld )
   nOldClr = SetBkColor( hDC, nRGB( 255, 255, 255 ) )
   TransBmp( hBitmap, nBmpWidth( hBitmap ), nBmpHeight( hBitmap ),;
             nZeroZeroClr, hDC, nRow, nCol, nBmpWidth( hBitmap ), nBmpHeight( hBitmap ) )
   SetBkColor( hDC, nOldClr )

   return nil

[ukoenig]

Silvio,

Painting a Button on top of a image doesn't work ( the transparent area shows the window-brush )

The following solution works, merging 2 images for brush usage

Using PIXELFORMER

1. load and copy the needed image
2. create a new image with the window-size and wanted backgound-color
3. past the copied image
4. save the new merged image as new image
5. use it as a wnd-brush

DEFINE BRUSH oBrush1 FILENAME c_path1 + "Backgrd.png"
DEFINE WINDOW oWnd FROM 50, 50 TO 600, 800 TITLE "GDIPLUS-test" ;
STYLE WS_POPUP BRUSH oBrush1 PIXEL



best regards
Uwe

[Silvio.Falconi]

I cannot use a brush because I must insert the background on window on exactly position
I explain you I have a png where you can see a room as the picture I sent you and the reels must be on center ( see the e-mail)

I use

oWnd:bPainted := {|hDC| PalBmpDraw( hDC, 0, 0, oBackground:hBitmap,, oWnd:nWidth, oWnd:nHeight,, .T.) }

then I must make a configuration for the touch monitor I found

local nMINWidth := 1200
local nMINHeight := 900
local nMAXWidth := 1200//GETSYSMETRICS( 0 ) //risoluzione orizzontale
local nMAXHeight := 900//GETSYSMETRICS( 1 ) //risoluzione verticale


oWnd:aMinMaxInfo = { GETSYSMETRICS( 0 ), GETSYSMETRICS( 1 ),; // xMaxSize, yMaxSize
0, 0,; // xMaxPosition, yMaxPosition
nMINWidth, nMINHeight,; // xMinTrackSize, yMinTrackSize
nMAXWidth, nMAXHeight }

I cannot insert buttons ( png) on bottom