Page 1 of 1
Highlight GadgetItem while dragover from another App
Posted: Mon Sep 25, 2006 7:21 am
by clipper
There are many examples here how to enable drag and drop between Gadgets and how to acept Dropping Files from Outside using DragAcceptFiles_(hwnd,1) ...
In these examples I could see how to highlight a Treegadgetitem (using easyvent) during a dragover operation.
But I haven´t seen a example how to highlight a treegadgetitem if the Dragoperation starts from outside, and I could not figure out how to do this.
For example: If you drag a file from another Application over the Explorer, the folders and drives are highlighted.
Any Tips?
Posted: Wed Sep 27, 2006 4:57 pm
by Fluid Byte
I have thrown something together now but be warned! Although this seems to work at the moment it's by far not what you call a final solution!
Code: Select all
Declare ThreadProc(lParam.l)
#WIN_Main = 0
#LST_Itemdata = 0
OpenWindow(0,0,0,400,300,"untitled",#WS_OVERLAPPEDWINDOW | 1)
CreateGadgetList(WindowID(#WIN_Main))
ListIconGadget(#LST_Itemdata,0,0,0,0,"Name",350,#PB_ListIcon_AlwaysShowSelection)
For i=1 To 30 : AddGadgetItem(#LST_Itemdata,-1,"Untitled ListView Item #" + Str(i)) : Next
CreateThread(@ThreadProc(),0)
; -------------------------------------------------------------------------------------
; MAIN LOOP
; -------------------------------------------------------------------------------------
Repeat
EventID = WaitWindowEvent()
If EventID = #PB_Event_SizeWindow
ResizeGadget(0,5,5,WindowWidth(0)-10,WindowHeight(0)-10)
EndIf
Until EventID = 16
; -------------------------------------------------------------------------------------
; FUNCTIONS
; -------------------------------------------------------------------------------------
Procedure ThreadProc(lParam.l)
Repeat
Delay(10) : GetCursorPos_(cpt.POINT)
Hotspot = SendMessage_(WindowID(#WIN_Main),#WM_NCHITTEST,0,cpt\x | cpt\y << 16)
If GetAsyncKeyState_(#VK_LBUTTON) And Hotspot = #HTCLIENT
ScreenToClient_(GadgetID(#LST_Itemdata),cpt)
irc.RECT : irc\left = #LVIR_LABEL
SendMessage_(GadgetID(#LST_Itemdata),#LVM_GETITEMRECT,0,irc)
ItemHeight = irc\bottom - irc\top
If cpt\x >= irc\left And cpt\x < (GadgetWidth(#LST_Itemdata) - 30)
Index = (cpt\y - irc\top) / ItemHeight
SetGadgetState(#LST_Itemdata,Index)
EndIf
EndIf
ForEver
EndProcedure
You should be aware of the fact that item highlighting is done with the default color used for items in window controls that don't have the focus. Perfectly normal behaviour if you consider the outside click. I you want a more crisp highlight color and a focus rectangle you can easily roll your own if want.