OpenEuphoria

2. Re: Example wanted

• Posted by DerekParnell (admin) Oct 16, 2010
• 1354 views

How to do what? You haven't actually explained what it is you want to achieve.

4. Re: Example wanted

• Posted by mattlewis (admin) Oct 16, 2010
• 1363 views

Is this like asking how to spell FBI?

Matt

6. Re: Example wanted

• Posted by bugfinder Oct 16, 2010
• 1366 views

8. Re: Example wanted

• Posted by dcole Oct 16, 2010
• 1315 views

O.K. Sorry. What I want to do is put text into a window and have the text change size proportionately to size changes of the window.

Don Cole

10. Re: Example wanted

• Posted by dcole Oct 16, 2010
• 1338 views

I don't know this is what I am asking. I think not a text box. I just want a plain window.

I agree this would have to do with getClientRect() and setFont() also the spacing of left column and top. What's the formula?

Don Cole

12. Re: Example wanted

• Posted by dcole Oct 17, 2010
• 1289 views

Thank you Pete!,

That's exactly what I was looking for.

It's a matter of balancing onPaint, onResize, and onActivate and the drawing(reDraw text).

I wasen't sure how to set it up. I can build my program around your example.

Thanks again.

Don Cole

14. Re: Example wanted

• Posted by petelomax Oct 18, 2010
• 1188 views

Here you go

 
-- Description: 
--  Similar but not a copy of Chapter 10 - Windows 2000 Graphics API Black Book 
--   (Coriolis & Damon Chandler), highly recommended for Serious Programmers. 
-- Keywords: 
--  Mapping mode, scaling, Viewport, DrawText, setFont 
-- Credit: translated from Euman's advanc.exw (in demos with win32lib). 
 
include arwen.ew    -- (..\Win32Demo\Advanc.exw is the win32lib version of this) 
 
constant 
    MainWin = create(Window, "Mapping Mode Scaling Demo", 0, NULL, 25, 25, 300, 200, 0), 
    xSetGraphicsMode    = define_c_func(gdi32,"SetGraphicsMode",{C_POINTER,C_INT},C_INT), 
    xSetMapMode         = define_c_func(gdi32,"SetMapMode",{C_POINTER,C_INT},C_INT), 
    xSetViewportExtEx   = define_c_func(gdi32,"SetViewportExtEx",{C_LONG,C_INT,C_INT,C_INT},C_INT), 
    xSetWindowExtEx     = define_c_func(gdi32,"SetWindowExtEx",{C_LONG,C_INT,C_INT,C_POINTER},C_INT), 
    xEllipse            = define_c_func(gdi32,"Ellipse",{C_POINTER,C_INT,C_INT,C_INT,C_INT},C_LONG), 
    GM_ADVANCED = 2, 
    MM_ANISOTROPIC = 8, 
    MainWinDC = getDC(MainWin), 
    pInitExtent = allocate(16), 
    pText = allocate_string("Euman's Demo on arwen"), 
    DT_CVCS = or_all({DT_CENTER,DT_VCENTER,DT_SINGLELINE}), 
    InitRect = getClientRect(MainWin) 
 
constant InitExtent = MainWinDC & InitRect                          -- for xEllipse 
constant DrawTextX = {MainWinDC, pText, -1, pInitExtent, DT_CVCS}   -- for xDrawText 
 
    poke4(pInitExtent, InitRect) 
    void = c_func(xSetMapMode,{MainWinDC,MM_ANISOTROPIC}) 
    void = c_func(xSetGraphicsMode,{MainWinDC, GM_ADVANCED}) 
    void = c_func(xSetWindowExtEx,{MainWinDC,InitRect[3],InitRect[4],0})   
    setFont(MainWin, "Times New Roman", 16, 0) 
 
integer Drawing Drawing = 0 
 
function mainHandler(integer id, integer msg, atom wParam, object lParam) 
sequence CurExtent 
    if id=MainWin then 
        if msg=WM_PAINT then 
            if MainWinDC!=0 
            and Drawing=0 then 
                Drawing = 1   
                CurExtent = getClientRect(MainWin) 
                if c_func(xSetViewportExtEx,{MainWinDC,CurExtent[3],CurExtent[4],0}) then 
                    -- These don't change, the mapping mode does it! 
                    void = c_func(xEllipse,InitExtent)   
                    c_proc(xDrawText,DrawTextX) 
                end if 
                Drawing = 0 
            end if 
        elsif msg=WM_CLOSE then 
            releaseDC(MainWin,MainWinDC) 
            if atom(wParam) or object(lParam) then end if   -- (suppress warnings) 
        end if 
    end if 
    return 0 
end function 
setHandler(MainWin, routine_id("mainHandler")) 
 
WinMain(MainWin, SW_NORMAL)