Hi Charles,
On 8-ott-06, at 02:00, Charles Yeomans wrote:
I've written an HISearchField control for use outside the toolbar.
This is the real thing, not some shoddy clone like you can find on
the web. It worked when it left here, and appears to play well
with the REALbasic framework. It's undocumented and the code could
use a little tidying, but perhaps it will do for now. The project
is available for download at <http://www.declareSub.com/>.
I downloaded your great HISearchField (never thankful enough for your
generosity!)
and wanted to tweak the MacMenu style methods a bit
(as they are now you can't set more than one style at once, and can't
even set off a style you've set on)
so I've made this little function to get the previously set value
Function GetItemStyle(index as Integer) As MemoryBlock
#if TargetCarbon
If me.Ref = 0 then
Return nil
End if
Soft Declare Sub GetItemStyle Lib CarbonLib (theMenu as Integer,
item as Short, chStyle as Ptr)
dim style as new MemoryBlock(sizeOfStyle)
style.LittleEndian = true <----------- weird point
GetItemStyle me.Ref, index, style
Return style
#endif
End Function
the weird thing is that I had to set the LittleEndian of style to
true to make it work
why this Carbon declare returns a little endian memoryblock?
Using RB 2006r4 on a iMac g5 ppc
Charles Yeomans
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
Cool Runnings,
Erne.
/ |\ |\ | /
– |/ | \ | –
\ |\ | \| \
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
