OpenEuphoria

1. CxImage User Input

• Posted by Lone_EverGreen_Ranger Aug 31, 2009
• 1284 views

Hello,

I tried searching the code for the old cxImage code that allowed a user to input a graphic file using the cximage, but it isn't showing up. Does anyone have the code for the use of the cximage library? I remember the code being something like this

function createDIBFromCXImage() 
--eu code 
end function 

However that's all I can remember.

3. Re: CxImage User Input

• Posted by useless Aug 31, 2009
• 1248 views

function createDIBFromCXImage() 
--eu code 
end function 

[03:01] <katsmeow-afk> !eu search CXImage
[03:01] <[Tiggr]> There's 11 files found...
[03:01] <[Tiggr]> Looking for CXImage , I find it in these files: \winprog.5\124 - Emf13.e , \winprog.5\123 - Emf12.e , \winprog.5\122 - Emf11.e , \winprog.5\121 - Emf10.e , \winprog.5\120 - Emf9.e , \winprog.5\119 - Emf8.e , \picview\file_list.ew , \picview\cximage.ew , \picview\PicView.exw , \cximage\test.exw ,
[03:01] <[Tiggr]> \cximage\cximage.ew ,
[03:01] <katsmeow-afk> !eu more
[03:01] <[Tiggr]> there's no more!
[03:01] <katsmeow-afk> thanks, Tiggr
[03:03] <katsmeow-afk> !eu search createDIBFromCXImage
[03:03] <[Tiggr]> Sorry, i don't have that word indexed!
[03:03] <katsmeow-afk> !eu search cxi
[03:03] <[Tiggr]> There's 6 files found...
[03:03] <[Tiggr]> Looking for cxi , I find it in these files: \picview\file_list.ew , \picview\cximage.ew ,
\picview\PicView.exw , \cximage\test.exw , \cximage\cximage.ew , \2d_plots\2D_PLOTS.TXT ,
[03:05] * katsmeow-afk hugs her bot
[03:05] * [Tiggr] hugs katsmeow back B-]

useless

5. Re: CxImage User Input

• Posted by Lone_EverGreen_Ranger Aug 31, 2009
• 1200 views

OK, However whenever I try to load a image, my program freezes, here's my code.

 
Hero_WalkGfx_Win = createEx(Window,"",Tab_Hero,460,50,64,64,{WS_CHILD,WS_CLIPSIBLINGS},0) 
 
object HeroWalk_Gfx 
HeroWalk_Gfx = 0 
 
procedure Load_HeroWalk_Gfx(integer self, integer event, sequence parm) 
	fName = getOpenFileName(Hero_WalkGfx_Win,file,GraphicType) 
	 
	if length(fName) = 0 then 
		return 
	end if 
	 
	HeroWalk_Gfx = CXI_LoadImage(fName,CXI_FORMAT_UNKNOWN,0) 
	 
end procedure 
setHandler(Hero_WalkGfx_Load,w32HClick,routine_id("Load_HeroWalk_Gfx")) 
 
procedure Paint_HeroWalk_Gfx(integer self, integer event, sequence parm) 
	transBlt(Hero_WalkGfx_Win,0,0,HeroWalk_Gfx) 
end procedure 
setHandler(Hero_WalkGfx_Win,w32HPaint,routine_id("Paint_HeroWalk_Gfx")) 

There's more code to obviously, but this is the part that counts, I'm pretty sure. I remember they're being some kinda of code Greg wrote so that user input images would work. What I want is for the user to load a image and then have it displayed in the window. However, when I tried loading an image, my program froze.

7. Re: CxImage User Input

• Posted by Lone_EverGreen_Ranger Aug 31, 2009
• 1143 views

OK I did, and now it dosen't freeze anymore, but my image isn't showing up on the window.

9. Re: CxImage User Input

• Posted by Lone_EverGreen_Ranger Aug 31, 2009
• 1135 views

That didn't work either. I remember somebody had some code written so that it would allow for this. I remember it being something like this.

function createDIBFromCXImage(atom hDib) 
return hDib 
end function 

I don't rememeber all the code in the function, but I remember that is what I had that showed the image in the window. I think Greg wrote it, but I'm not sure.

11. Re: CxImage User Input

• Posted by jimcbrown (admin) Aug 31, 2009
• 1137 views

function createDIBFromCXImage(atom hDib) 
return hDib 
end function 

However, I was able to grab it from google cache, and I have saved them here:

http://malcom.unkmar.com/loading.html

http://malcom.unkmar.com/simplest.html

HTH

13. Re: CxImage User Input

• Posted by Lone_EverGreen_Ranger Aug 31, 2009
• 1181 views

global function createDIBFromCXImage( atom image )  
  
    sequence info, pal  
    integer width, height, bitsPer, colors, headerSize  
    atom mset, memBits, memBitmapInfo, at, hdc, hDIB  
      
    mset = w32new_memset()  
      
    -- get the dib info  
    info = CXI_GetDIB( image )  
    memBits = info[1]  
    width   = info[2]  
    height  = info[3]  
    bitsPer = info[4]  
      
    -- get the palette  
    pal = CXI_GetPalette( image )  
      
    -- determine number of colors  
    colors = length( pal )  
      
    -- determine the header size  
    headerSize = SIZEOF_BITMAPINFOHEADER + (SIZEOF_RGBQUAD * colors)  
      
    -- allocate memory for DIB  
    memBitmapInfo = w32acquire_mem( mset, headerSize )  
    w32set_memory( memBitmapInfo, ID_BITMAPINFOHEADER,  
        {SIZEOF_BITMAPINFOHEADER, width, height, 1, bitsPer, 0, 0, 0, 0, colors, 0} )  
      
    -- get the address of the first rgb tuple  
    at = w32address( memBitmapInfo, bmiColors )  
  
    -- copy the pal to memory  
    for i = 1 to colors do  
  
        -- store values  
        w32store( at, rgbRed, pal[i][1] )  
        w32store( at, rgbGreen, pal[i][2] )  
        w32store( at, rgbBlue, pal[i][3] )  
        w32store( at, rgbReserved, 0 )  
  
        -- move to next quad  
        at += SIZEOF_RGBQUAD  
  
    end for  
      
    -- Get the screen's device context.  
    hdc = getDC( Screen )  
  
    -- Create the DIB.  
    hDIB = w32Func( xCreateDIBitmap, {  
            hdc,  
            w32address( memBitmapInfo, bmiHeader ),  
            CBM_INIT,  
            memBits,  
            memBitmapInfo,  
            DIB_RGB_COLORS} )  
  
    -- release the screen dc  
    releaseDC( Screen )  
  
    -- Free memory  
    w32release_mem( mset )  
  
    trackObject( {-1,kBitmapObject}, hDIB, ForProgram )  
  
    return hDIB  
end function  

Thanks, however my image is still now showing. Here is my code.

Hero_WalkGfx_Win = createEx(Window,"",Tab_Hero,460,50,64,64,{WS_CHILD,WS_CLIPSIBLINGS},0) 
 
global function createDIBFromCXImage( atom image )  
  
    sequence info, pal  
    integer width, height, bitsPer, colors, headerSize  
    atom mset, memBits, memBitmapInfo, at, hdc, hDIB  
      
    mset = w32new_memset()  
      
    -- get the dib info  
    info = CXI_GetDIB( image )  
    memBits = info[1]  
    width   = info[2]  
    height  = info[3]  
    bitsPer = info[4]  
      
    -- get the palette  
    pal = CXI_GetPalette( image )  
      
    -- determine number of colors  
    colors = length( pal )  
      
    -- determine the header size  
    headerSize = SIZEOF_BITMAPINFOHEADER + (SIZEOF_RGBQUAD * colors)  
      
    -- allocate memory for DIB  
    memBitmapInfo = w32acquire_mem( mset, headerSize )  
    w32set_memory( memBitmapInfo, ID_BITMAPINFOHEADER,  
        {SIZEOF_BITMAPINFOHEADER, width, height, 1, bitsPer, 0, 0, 0, 0, colors, 0} )  
      
    -- get the address of the first rgb tuple  
    at = w32address( memBitmapInfo, bmiColors )  
  
    -- copy the pal to memory  
    for i = 1 to colors do  
  
        -- store values  
        w32store( at, rgbRed, pal[i][1] )  
        w32store( at, rgbGreen, pal[i][2] )  
        w32store( at, rgbBlue, pal[i][3] )  
        w32store( at, rgbReserved, 0 )  
  
        -- move to next quad  
        at += SIZEOF_RGBQUAD  
  
    end for  
      
    -- Get the screen's device context.  
    hdc = getDC( Screen )  
  
    -- Create the DIB.  
    hDIB = w32Func( xCreateDIBitmap, {  
            hdc,  
            w32address( memBitmapInfo, bmiHeader ),  
            CBM_INIT,  
            memBits,  
            memBitmapInfo,  
            DIB_RGB_COLORS} )  
  
    -- release the screen dc  
    releaseDC( Screen )  
  
    -- Free memory  
    w32release_mem( mset )  
  
    trackObject( {-1,kBitmapObject}, hDIB, ForProgram )  
  
    return hDIB  
end function  
 
 
procedure Load_HeroWalk_Gfx(integer self, integer event, sequence parm) 
	fName = getOpenFileName(Hero_WalkGfx_Win,file,GraphicType) 
	 
	if length(fName) = 0 then 
		return 
	end if 
	 
	HeroWalk_Gfx = CXI_LoadImage(fName,CXI_FORMAT_UNKNOWN,0) 
	 
	HeroWalk_Gfx = createDIBFromCXImage(HeroWalk_Gfx) 
	 
end procedure 
setHandler(Hero_WalkGfx_Load,w32HClick,routine_id("Load_HeroWalk_Gfx")) 
 
procedure Paint_HeroWalk_Gfx(integer self, integer event, sequence parm) 
	copyBlt(Hero_WalkGfx_Win,0,0,HeroWalk_Gfx) 
end procedure 
setHandler(Hero_WalkGfx_Win,w32HPaint,routine_id("Paint_HeroWalk_Gfx")) 

15. Re: CxImage User Input

• Posted by Lone_EverGreen_Ranger Sep 01, 2009
• 1092 views

Hero_WalkGfx_Win = createEx(Window,"",Tab_Hero,460,50,64,64,{WS_VISIBLE,WS_CHILD,WS_CLIPSIBLINGS},0) 

Actually it wasn't that it, it wasn't visible, I forgot to add repaintWindow when I drew the image to the window.