I had a whole message here until my mouse went crazy and clicked the [x] button
. But anyways...
The click event - it would be really cool of BlueGUI could detect whether a click was a "true" click: eg: started on the object and was released on the object, registering when the click is released.
And generally any of the following functions:
function setRichEditBkg(richEditHandle as integer,colorval as dword)
oldbkg as dword
oldbkg = call dll(user32num,"SendMessageA",windowHandle(richEditHandle),0x443,0,convertToSystemColor(colorval))
endfunction
function getRichEditLineNum(richEditHandle as integer)
linenum as dword
linenum = call dll(user32num,"SendMessageA",windowHandle(richEditHandle),0x436,0,getSelStart(richEditHandle))
inc linenum,1
endfunction linenum
function getRichEditEndSelLineNum(richEditHandle as integer)
linenum as dword
linenum = call dll(user32num,"SendMessageA",windowHandle(richEditHandle),0x436,0,getSelStart(richEditHandle)+getSelLen(richEditHandle))
inc linenum,1
endfunction linenum
function getRichEditLineFromPos(richEditHandle as integer,pos as dword)
linenum as dword
linenum = call dll(user32num,"SendMessageA",windowHandle(richEditHandle),0x436,0,pos)
inc linenum,1
endfunction linenum
function setRichEditBuffer(richEditHandle as integer,buffer as dword)
lresult as dword
lresult = call dll(user32num,"SendMessageA",windowHandle(richEditHandle),0x435,0,buffer)
endfunction
function setRichEditUndos(richEditHandle as integer,undos as dword)
lresult as dword
lresult = call dll(user32num,"SendMessageA",windowHandle(richEditHandle),0x452,undos,0)
endfunction
function getTextModified(richEditHandle as integer)
lresult as dword
lresult = call dll(user32num,"SendMessageA",windowHandle(richEditHandle),0xB8,0,0)
endfunction lresult
function setTextModified(richEditHandle as integer,modified as boolean)
lresult as dword
lresult = call dll(user32num,"SendMessageA",windowHandle(richEditHandle),0xB9,modified,0)
endfunction
function setRichEditMode(richEditHandle as integer,multipleUndos as boolean,allowUnicodeSet as boolean)
rem There must be no text in the edit box for this to work!!!
lresult as dword
lresult = call dll(user32num,"SendMessageA",windowHandle(richEditHandle),0xB9,20+4*multipleUndos+16*allowUnicodeSet,0)
endfunction
function getEditTopLineNum(editHandle as integer)
linenum as dword
linenum = call dll(user32num,"SendMessageA",windowHandle(editHandle),0xCE,0,0)
inc linenum,1
endfunction linenum
function getEditNumLines(editHandle as integer)
numlines as dword
numlines = call dll(user32num,"SendMessageA",windowHandle(editHandle),0xBA,0,0)
endfunction numlines
function realSelStart(editHandle as integer)
returnval as dword
returnval = getSelStart(editHandle)+getRichEditLineNum(editHandle)-1
endfunction returnval
function realSelLen(editHandle as integer)
returnval as dword
returnval = getSelLen(editHandle)+getRichEditEndSelLineNum(editHandle)-getRichEditLineNum(editHandle)
endfunction returnval
function setRealSelStart(editHandle as integer,selectStart as dword)
setSelStart editHandle,selectStart-getRichEditLineFromPos(editHandle,selectStart)+1
endfunction
function setRealSelLen(editHandle as integer,selectLen as dword)
setSelLen editHandle,selectLen-getRichEditLineFromPos(editHandle,getSelStart(editHandle)+selectLen)+getRichEditLineNum(editHandle)
endfunction
function setRichEditSelVisible(richEditHandle as integer,visible as boolean)
lresult as dword
lresult = call dll(user32num,"SendMessageA",windowHandle(richEditHandle),0x43F,visible=0,0)
endfunction
function createOLabel(x as integer,y as integer,width as integer,height as integer,text$ as string,parent as integer)
returnval as integer
returnval = createPanel(x,y,width,height,parent)
setGadgetText returnval,text$
endfunction returnval
And don't worry, I don't expect that any of these are in the least bit feasible, but they would be cool. And it's an awesome plugin
. Thanks.
-Xol