OpenEuphoria

Re: Edita Requests

• Posted by don cole <doncole at pacbell.net> Jun 18, 2007
• 782 views

procedure drawTabItems(atom hDC, --   this I assume is hDc=getDC(TABCONTROL)
                        atom lParam,      --I don't know what to put here
                        atom lpRect,     -- I don't know
                        integer action,  -- I put ODA_DRAWINTIRE
                        integer state)  --  I put ODS_FOCUS 

 end procedure

I get a machine level exception using this routine.;


-- ACTIONS
--ODA_DRAWENTIRE    The entire control needs to be drawn.
--ODA_FOCUS The control has lost or gained the keyboard focus. The itemState
member should be checked to determine whether the control has the focus.
--ODA_SELECT    The selection status has changed. The itemState member should be
checked to determine the new selection state.

-- STATE AFTER ACTION
--ODS_CHECKED   The menu item is to be checked. This bit is used only in a menu.
--ODS_COMBOBOXEDIT  The drawing takes place in the selection field (edit
control) of an ownerdrawn combo box.
--ODS_DEFAULT   The item is the default item.
--ODS_DISABLED  The item is to be drawn as disabled.
--ODS_FOCUS The item has the keyboard focus.
--ODS_GRAYED    The item is to be grayed. This bit is used only in a menu.
--ODS_SELECTED  The menu item's status is selected.

Thanks again Pete. What I am having trouble with is getting the dimensions on
the tabs.

I think this will do if I can get it to work.

Don Cole