PureBasic Forums - English

GenRabbit

		Case #WM_CHAR  
			If GetAsyncKeyState_(#VK_LCONTROL) & $8000 Or GetAsyncKeyState_(#VK_RCONTROL) & $8000
				ProcedureReturn DefSubclassProc_(hWnd, uMsg, wParam, lParam)
			EndIf

Added this to the beginning, seems to have done the trick.

GenRabbit

Select uMsg
Case #WM_NCDESTROY
RemoveWindowSubclass_(hWnd, @NewSubclassWindow(), uIdSubclass)
Case #WM_PASTE
Debug "Working Now!"

Case #WM_CHAR
Debug "Char: " + FormatNumber(wparam,0,"","") ; #WM_PASTE gives value 22
SendMessage_(hwnd,#EM_GETSEL, @wp,@lp)
lt = lp - wp
Select ...

GenRabbit

Rewrote your version to be more like mine.
And it still work
EnableExplicit
Global.i evWW

Import "Comctl32.lib"
; use the PureBasic Syntax (Windows API procedures using trailing underscore)
;
SetWindowSubclass_(hWnd.i, *fnSubclass, uIdSubclass.i, dwRefData.i) As "SetWindowSubclass ...

GenRabbit

Hi
I have a problem, I try to intercept a Paste into a stringgadget, so to check that the stuff to be pasted does not include stuff not allowed(Numbers)

The intercept is happening inside and callback. So far so good.

The Question is, what command am I to intercept?

Tried #WM_PASTE, nothing ...

GenRabbit

Thanks. That shortened it a lot.

GenRabbit

Hi
is there a better way to detect row selected in listicongadget than this?

Code: Select all

	tv2 = CountGadgetItems(#ListIconGadget1)
	tv1 = 0
	While tv1 < tv2
		If GetGadgetItemState(#ListIconGadget1, tv1) & #PB_ListIcon_Selected
			Debug tv1
			Break
		EndIf
		tv1 +1	
	Wend

GenRabbit

Thanks, that did it.

GenRabbit

ListIconGadget(#ListIconGadget1, 20,340,400,240,"Month name",270,#PB_ListIcon_FullRowSelect)
AddGadgetColumn(#ListIconGadget1,2,"Days",100)
SetGadgetItemAttribute(#ListIconGadget1, 1 , #PB_ListIcon_ColumnAlignment, #PB_ListIcon_Center)

In my code i have these three lines of code. As I understand ...

GenRabbit

Thanks, Hoped it could be done without using WINAPI, but TrackPopupMenu_ it is. The same one I used in my VB6 project I'm trying to transfer over.

GenRabbit

@Breeze4me: Thanks, that helped a lot.
I worked on it a little and run into a new problem.
I use dynamic menu, in other word destroy and rebuild each time.
Now when I choose an Item in the menu, is there a way to get what item from popupmenu is chosen?

If I use my old WINAPI code from my VB6 which ...

GenRabbit

Already done. But if someone either paste or hit a letter I get a message bubble poping up saying letters are not allowed. and the like.

GenRabbit

The ctrl+v/Win+v should be easier. As for banned text its everything which is not a number.
Banned is probably the wrong word here. Not allowed should be better. And numbers is the only thing allowed in the stringadgets.

GenRabbit

I trying to intercept right click's on stringadgets and kill them of so the popupmenu do not appear if there is bad data in the Clipboard so they can't paste.

I'm checking it in an Callback if the mousepointer is over the gadgets and the code know when I'm over the gadget. tried to set uMsg to 0 ...

GenRabbit

I have done something more like this before. I just totally forgot that the wparam/lparam/sparam is mostly, if not always a pointer, and not the value itself.

GenRabbit

Doh, So basically I have to use @ with every API call where it returns values like that. Point to the value, do not provide the value directly.
Thanks it did it.

PureBasic Forums - English

Search found 149 matches

Re: Paste to StringGadget

Re: Paste to StringGadget

Re: Paste to StringGadget

Paste to StringGadget

Re: Listicongadget/RowSelect

Listicongadget/RowSelect

Re: SetGadgetItemAttribute <- What Am I doing wrong

SetGadgetItemAttribute <- What Am I doing wrong

Re: Block RightMouse Click on Stringagdget.

Re: Block RightMouse Click on Stringagdget.

Re: Block RightMouse Click on Stringagdget.

Re: Block RightMouse Click on Stringagdget.

Block RightMouse Click on Stringagdget.

Re: Finding Selectionstart/selectionend in string/editorgadget

Re: Finding Selectionstart/selectionend in string/editorgadget