Phix : win32lib7 project

new topic     » topic index » view thread      » older message » newer message
  • Posted by ChrisB (moderator) Dec 12, 2016
  • 1786 views

Hi

Phix is shipped with win32lib 0.60. In order to run IDE 1.04, you need win32lib 0.70.4. We will call this win32lib7 for brevity. I am currently in the process of modifying win32lib7 so that it runs with Phix, the ultimate goal being a working IDE.

Up to now, in the demos, I have working
advanc.exe
kalaidascope.exw
appselect.exw
boxes.exw
minmax.exw
listviewstyles.exw
scroller.exw
simple_flattoolbar.exw

Most of the others are producing this error 

C:\euphoria\Phix\demo\win32lib7\win32lib.ew:7498 in procedure setBackground() 
fatal exception #80000003 at #005FC661 
    id = {15} 
    flag = 0 
    bkData = -16 
    lNewBrush = 0 
    lOldBrush = <novalue> 
    lFillBrush = <novalue> 
    lNeedsBrush = 0 
    lStyles = <novalue> 
    lId = 15 
    lColor = 15790320 
    lHatched = 0 
    lComboEditId = <novalue> 
    hdc = <novalue> 
    rect = <novalue> 
    s = <novalue> 
    i = 1 
... called from C:\euphoria\Phix\demo\win32lib7\win32lib.ew:13638 in function createEx() 
    pControl = 17 
    pCaption = "LText3" 
    pOwner = 3 
    pLeft = 228'ä' 
    pTop = 80'P' 
    pWidth = 148'”' 
    pHeight = 20 
    styleFlags = 0 
    exFlags = 0 
    id = 15 
    at = <novalue> 
    hotkey = <novalue> 
    bgControl = <novalue> 
    style = <novalue> 
    result = <novalue> 
    hWnd = 2295218 
    flags = 1409286400.0 
    extendedflags = 0 
    lParenthWnd = 1707104 
    szClassName = 3566732 
    szCaption = 39090852 
    hMenu = 0 
    newhWnd = <novalue> 
    pstr = <novalue> 
    struct = <novalue> 
    ok = <novalue> 
    newobj = <novalue> 
    BBox = {228'ä',80'P',148'”',20} 
    lvcol = <novalue> 
    sbPanels = <novalue> 
    lHintText = "" 
    iIconInfo = <novalue> 
    autoclose = 0 
    lBGColor = -16 
    lBGType = 0 
    lUserPre = {} 
    lUserPost = <novalue> 
    lTemp = <novalue> 
    lControl = 17 
    cloneIt = 0 
    i = <novalue> 
... called from C:\euphoria\Phix\demo\Win32Demo\tvclick.exw:8

at this point 

                    lColor = colorValue(bkData) 
                    if ctrl_Bg_Brush[lId] = 0 then 
                        ctrl_Bg_Brush[lId] = w32Func(xCreateSolidBrush,{lColor}) 
                    end if 
                     
 >>>7498                if lColor != colorValue(ctrl_Bg_Color[ lId ]) then 
                        ctrl_Bg_Color[ lId ] = bkData 
         
                        -- create a new brush 
                        lNewBrush = w32Func( xCreateSolidBrush, {lColor} ) 
                    else 
                        repaintWindow(lId) 
                        lNewBrush = 0 
                    end if

Any ideas or pointers gratefully received.

Cheers

Chris

new topic     » topic index » view thread      » older message » newer message

Search



Quick Links

User menu

Not signed in.

Misc Menu