WinClass Help (Al)

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

From Radio.ew


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 nameyou 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. }}}

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

Search



Quick Links

User menu

Not signed in.

Misc Menu