OpenEuphoria

2. Re: Using GDI Plus with Win32Lib

• Posted by BRyan Jan 09, 2012
• 1286 views

Always use ATOMS for any HANDLE when writing windows code

4. Re: Using GDI Plus with Win32Lib

• Posted by mattlewis (admin) Jan 09, 2012
• 1283 views

First, note that a Win32Lib id is not a HWND (Windows Handle). A Windows handle is a 32-bit value (technically, the size of a pointer), and so should always be an atom. The values used by Win32Lib are indices into a sequence, and so may be safely stored in an atom.

The ~GDIPlus library is not Win32Lib specific, and requires the actual Windows handle. You can get the Windows handle for any Win32Lib id using the Win32Lib function, getHandle(). Make sure that all of the values you pass to the GDIPlus library are generated like that.

Matt

6. Re: Using GDI Plus with Win32Lib

• Posted by buzzo Jan 09, 2012
• 1277 views

Matt,

My code:

atom wH 
wH=getHandle(win)					-- no image 

win is the constant generated here:

constant  
		win = createEx( Window, "Relatives", 0, xWinPos, yWinPos, winWidth, winHeight, 0, 0 ),	 
		GStatus = create( StatusBar, " ", win, 0, {{300},0.46,-1}, 0, 0, 0 ), 

Am I missing something?

Buzz

8. Re: Using GDI Plus with Win32Lib

• Posted by buzzo Jan 09, 2012
• 1289 views

Matt,

I am using GdiPlus Graphics Library 132K Al Getz Use search on the archives at RDS..

Buzz

10. Re: Using GDI Plus with Win32Lib

• Posted by buzzo Jan 09, 2012
• 1266 views

Matt,

Thanks anyway If you think of a solution/fix, please let me know..

Buzzo

12. Re: Using GDI Plus with Win32Lib

• Posted by buzzo Jan 09, 2012
• 1262 views

Matt,

This is from GDIPLUS ...

constant xGdipCreateFromHWND=lF(gdiplus,"GdipCreateFromHWND",{CP,CP},CL) 
 
global function GdipCreateFromHWND(atom hwnd,atom pp_graphics) 
    --(HWND hwnd,GpGraphics **graphics) 
  if gdiplus>0 then 
    return c_func(xGdipCreateFromHWND,{hwnd,pp_graphics}) 
  else 
    return 0 
  end if 
end function 

This is my code...

atom ppGraphics,ppImage,pGraphics 
atom wH 
wH=getHandle(win)					-- no image 
status=GdipCreateFromHWND(wH,ppGraphics) 

Atoms are atoms where they should be.. If you have no idea why this fails, that's OK... Maybe someone else will have a idea why atoms are not atoms?????? I'll be checking back from time to time..

Buzzo

14. Re: Using GDI Plus with Win32Lib

• Posted by buzzo Jan 09, 2012
• 1289 views

Slimmed down code.. same results..

--testGDI-01.exw 
-- 1-9-2012 
 
 
include machine.e 
include misc.e 
include Win32Lib.ew 
include dll.e 
include wildcard.e 
include gdiplus_Win98,XP.ew 
 
without warning 
 
sequence screenSize screenSize =  getCtlSize( Screen )			-- get screen size 
global integer screenWidth screenWidth = screenSize[1]			-- width 
global integer screenHeight screenHeight = screenSize[2]		-- height 
integer winWidth winWidth = 1280								-- MAIN WINDOW WIDTH 
integer winHeight winHeight = 900								-- MAIN WINDOW WIDTH 
integer xWinPos xWinPos = floor((screenWidth - winWidth)/2)		-- x postion on display for centering MAIN WINDOW 
integer yWinPos yWinPos = floor((screenHeight - winHeight)/2)	-- y postion on display 
 
constant win = createEx( Window, "Relatives", 0, xWinPos, yWinPos, winWidth, winHeight, 0, 0 ), 
	 CrLf    = { '\r', '\n' } 
 
--************ GdiPlus Specific code *************** 
global atom status,ppGraphics,ppImage,pGraphics,pImage 
status=GdipInitialize() 
if status!=0 then puts(1,"Cant open a required dll\n") sleep(1) end if 
--pointer vars for use with images 
pImage=0 
ppGraphics=allocate(4) 
ppImage=allocate(4) 
 
procedure DoGraphics() 
puts(1,w32ToString(win)) puts(1,CrLf) 
	sequence FilePath,FileName 
	atom Width,Height,pUINT,status,x,y 
	object lpFilePathW 
	atom wH 
--wH=getHandle(win)				-- no image 
--wH=getHandle("win")				-- error message, but continue puts partial image is on desktop 
--wH=getHWND(win)					-- no image 
--wH=getHWND("win")					-- error 
wH=getId(win)						-- partial image is on desktop 
--wH=getMainWindow()				-- partial image is on desktop 
--wH=getIdName(win)					-- error 
--wH=getIdName("win")				-- error 
--wH=getNameId(win)					-- error 
--wH=getNameId("win")				-- partial image is on desktop 
--wH=getNameIdInContext("win", win)	-- partial image is on desktop 
puts(1,w32ToString(wH)) puts(1,CrLf) 
-- **************** from GDI ***************** 
--constant xGdipCreateFromHWND=lF(gdiplus,"GdipCreateFromHWND",{CP,CP},CL) 
--global function GdipCreateFromHWND(atom hwnd,atom pp_graphics) 
--   --(HWND hwnd,GpGraphics **graphics) 
--  if gdiplus>0 then 
--    return c_func(xGdipCreateFromHWND,{hwnd,pp_graphics}) 
--  else 
--    return 0 
--  end if 
--end function 
	status=GdipCreateFromHWND(wH,ppGraphics) 
puts(1,w32ToString(status)) puts(1,CrLf) 
	if status=0 then 
	  pGraphics=peek4u(ppGraphics) --the graphics object has been created. 
puts(1,w32ToString(pGraphics)) puts(1,CrLf) 
	else 
	  pGraphics=0 
	end if 
	FilePath="H:\\Euphoria\\relatives\\Genealogy\\JPark.jpg" 
	if length(FilePath)>0 then 
    --release old pic 
    	status=GdipDisposeImage(pImage) 
    --load the file 
    	lpFilePathW=AnsiToUnicode(FilePath) 
    	status=GdipLoadImageFromFile(lpFilePathW,ppImage) 
    	FreeUnicode(lpFilePathW) 
    	if status=0 then 
      		pImage=peek4u(ppImage) 
 puts(1,w32ToString(pImage)) puts(1,CrLf) 
    	else 
      		pImage=0       
    	end if 
  	end if 
  	pUINT=allocate(4) 
  	status=GdipGetImageWidth(pImage,pUINT) 
	Width=peek4u(pUINT) 
 	status=GdipGetImageHeight(pImage,pUINT) 
 	Height=peek4u(pUINT) 
  --Width=Width/2 
  --Height=Height/2 
 puts(1,w32ToString(Width)) puts(1,CrLf)		-- puts correct size 
 puts(1,w32ToString(Height)) puts(1,CrLf)		-- puts correct size 
-- ************* from GDI ************** 
--constant xGdipDrawImageRectI=lF(gdiplus,"GdipDrawImageRectI",{CP,CP,CI,CI,CI,CI},CL) 
--global function GdipDrawImageRectI(atom p_graphics,atom p_image,atom x,atom y,atom width,atom height) 
--    --(GpGraphics *graphics,GpImage *image,INT x,INT y,INT width,INT height) 
--  if gdiplus>0 then 
--    return c_func(xGdipDrawImageRectI,{p_graphics,p_image,x,y,width,height}) 
--  else 
--    return 0 
--  end if 
--end function 
  	status=GdipDrawImageRectI(pGraphics,pImage, 40,20,Width,Height) 
puts(1,w32ToString(status)) puts(1,CrLf) 
  	free(pUINT) 
	free(ppGraphics) 
	free(ppImage) 
end procedure 
------------------------------------------------------------------------------ 
DoGraphics() 
WinMain(win,Normal)  
   

Buzzo

16. Re: Using GDI Plus with Win32Lib

• Posted by buzzo Jan 09, 2012
• 1269 views

Matt,

That did it...

I lost sight of the fact that the code I was lifting stuff from was not made with Win32Lib and did not need a handler..

Thanks for your help.