Hi guys,
I'm supposed to be snoozing, but I've discovered this .. :)
def w1:Window
def tab[6]:Int
def ptr:pointer
' example of setting Tabs in a Rich Edit control ..
' set the Tab positions ..
tab[0]=5,10,15,20,25,30
ptr = tab[0] :'A pointer to the Tab[] array
Const EM_SETTABSTOPS = 0xCB
Window w1,0,0,400,300,@Size,0,"Tab Test",messages
setwindowcolor w1,rgb(0,90,90)
Control w1,"RE,,(400-200)/2,50,200,100,@HScroll|@VScroll|@CTEditMulti|@CTEditAutoV|@CTEditAutoH ,10"
setcontrolcolor w1,10,0,rgb(200,200,200)
' set the tabbing ..
SendMessage(w1, EM_SETTABSTOPS, 1, ptr, 10)
WaitUntil w1=0
End
Sub messages
Select @Class
Case @IDCreate
CenterWindow w1
Case @IDCloseWindow
CloseWindow w1
EndSelect
Return
Just thought it might prove useful ..
all the best, :)
Graham
Thanks for the code, Graham.
Hey, if it makes you feel any better about missing your nap, I've got you covered ... in the middle of a 3+ hour conference call and I'm sure glad that long ago I learned to sleep with my eyes open.
Borrrrrrrriiiiiiiiggggggggggggggggg :)