Code archives/BlitzPlus Gui/Convert Textarea to Password Area
This code has been declared by its author to be Public Domain code.
Download source code
| |||||
| The only reason i did this is due to the fact that blitzmax cant color any textfields. It can color textareas. Which im using in place of a textarea. It still looks roughly the same and i can retrieve text from it. you could use the same commands in B+ using the user32 decls file | |||||
Include "bin\user32.bmx"
'use the user32 source as an include in a sub directory.. you
'don't have to though you can just import it.
Global windowt:TGadget = CreateWindow("win",200,200,200,300,Desktop(),1)
Global txtarea:Tgadget = CreateTextArea(10,10,100,20,windowt)
'create our window and our textfield
hWnd = QueryGadget(txtarea,1)
SendMessageA(hWnd, EM_SETEDITSTYLE, ES_PASSWORD,0)
SendMessageA(hWnd,EM_SETPASSWORDCHAR,1,0 )
rem
the 1 inside the SendMessageA(hWnd,EM_SETPASSWORDCHAR,1,0 )
command is suppose to represent the character to replace the characters in the textarea with. I used a 1 guessing.. but it makes a *. i suppose you could play around with it to have it replace the chars with something other than a asterisk
end rem |
Comments
None.
Code Archives Forum
   |