PureBasic Forums - English

both links are broken;
any chance of re-up?

found a solution.

hello,

tried with Scintilla's callback, but *s\ch returns 0 at this, also, the window callback (uMsg=#WM_KEYUP) doesn't seem to work.
it need to capture these keys and disallow text removing except if caret is located at last line;

thanks, netmaestro

to specify:

http://i.imgur.com/AltpVKg.png

so, if doing w/ 2nd window (which also fits delayed while moving), i guess a 3rd window is needed to put the "menu" onto;

since the background gadgets aren't "needed" while the menu is opened, i managed by calling PrintWindow_ and ...

hello,

didn't found a solution for this: is there an API-way to set ImageGadget's opacity while it's on top of other gadgets?
(having a second window w/ #LWA_ALPHA is no solution for my case, btw.)

fits - thanks.

hello,

unfortunately, PB seems to ignore ?: (non-capturing group);
matches include <file> / </file> .. any workaround?



If CreateRegularExpression(0, "(?:<file>)(.*?)(?:</file>)",#PB_RegularExpression_DotAll )
Dim Result$(0)
NbFound = ExtractRegularExpression(0, "<xml><test>nn</test><file>File ...

nice one, RASHAD;

but.. how to only allow 'a' character?


this won't .. triggers, but still puts non-a-chars to Editor
Procedure.i EditorSubclassProc(hWnd, uMsg, wParam, lParam)


If (uMsg=#WM_KEYUP Or uMsg=#WM_KEYDOWN) And wParam<>65
Debug "everyhing but 'a' pressed"
ProcedureReturn

EndIf ...

srod wrote:I've done this in the past to mimic a console in a GUI etc.

yay!

hello

how to stop certain keys--like #VK_UP--from being interpreted by EditorGadget?
in this example, the caret always jumps to last position--but, optimally, really nothing
should happen if #VK_UP gets pressed


Global EditorNormalProc

Procedure.i EditorSubclassProc(hWnd, uMsg, wParam, lParam ...

PB implantation of HMAC_SHA1;
useful for authentication signing - e.g. Twitter's OAuth
http://en.wikipedia.org/wiki/HMAC


; hss/2011

Procedure.s hmac_sha1(key.s,msg.s)

If(Len(key)>64)
key=SHA1Fingerprint(@key,Len(key))
For x=1 To 20:PokeB(@key+x-1,Val("$"+Mid(key,(x*2)-1,2))):Next
For x ...

interesting!

... any chance of creating Menus with sub-content (buttons, input)? is there a library for this?

like Google Chrome's settings menu (Cut, copy... zoom)

Tip: to preserve transparency for moving/resizable gadgets,
use SetWindowLong_ w/ #WS_CLIPCHILDREN param




Procedure __test(x)

Repeat
x+10
ResizeGadget(2,x,#PB_Ignore,#PB_Ignore,#PB_Ignore)
ResizeGadget(3,#PB_Ignore,x,#PB_Ignore,#PB_Ignore)
Delay(1000)
ForEver

EndProcedure ...