OpenEuphoria

Re: WinClass Help (Al)

• Posted by Al Getz <Xaxo at aol.com> Nov 19, 2005
• 483 views

don cole wrote:
> 
> From Radio.ew
> 
> }}}
<eucode>
> global function Create(
>   atom StyleEx,
>   atom Style,
>   sequence Caption,
>   object font,
>   atom xpos,atom ypos,atom width,atom height,
>   atom idParent,
>   object events)
> 
>   atom ID,hButton,hParent
>   sequence Info,hFont
> 
>   ID=Track:GetNextID()
>   hParent=GetHandle(idParent)
> 
>   if and_bits(Style,WS_TABSTOP) then
>     Track:Event(onTab,ID,1)
>   end if
>   hButton=
>       win:CreateWindowEx(
>       StyleEx,   -- extended window style
>       "BUTTON",  -- window class name--you show text but it should be an atom
>       Caption,   -- window caption
>       LLF:OR({Style,BS_PUSHBUTTON,BS_RADIOBUTTON,WS_VISIBLE,WS_CHILD}),  --
>       window style
>       xpos,     -- initial x position
>       ypos,     -- initial y position
>       width,    -- initial width
>       height,   -- initial height
>       hParent,  -- parent window handle
>       ID,       -- control id
>       instance(),   -- program instance handle
>       NULL          -- creation parameters
>      )
> 
>   Track:Event(onCLASS,ID,Radio)
>   Track:SetHandle(ID,hButton)
>   Assert:AboveZero(hButton,"Couldnt create Checkbox: "&Caption)
>   Track:SetParentID(ID,idParent)
>   Track:AddEvents(events,ID)
> 
>   CCID=GetNextCID()
>   Track:SetWinClassCtl(ID,CCID)
>   hFont=Font:GetHOF(font)
>   Info=DefaultClassCtl
>   Info[HFONT]=hFont[1]
>   Info[FONTSPEC]=hFont[3]
>   win:SetFont(ID,hFont[1])
> 
>   ClassCtl[CCID]=Info
> 
> 
>   this=ID
>   return ID
> end function
> 
> --myline
> 
> global constant Radio3=RB: Create( Radio,?,"Random After", CWindow,     25,
> 188, 120, 20, 0,0)
> 
> I've tried everything but I get type check failure or Couldn't create
> checkbox.
> 
> I'm at my wits end please help.
> 
> Don Cole
>  A Bug is an un-documented feature.
> A Feature is a documented Bug.

Hi there Don,


Did you by any chance try using "Checkbox.ew" instead?
Geeze, im terribly sorry for this...i think i forgot to put the file
name in the "Filelist.txt" file, which lists all the 'class objects'.


Take care,
Al

And, good luck with your Euphoria programming!

My bumper sticker: "I brake for LED's"