In memoriam
xais
2026
Preminula 09.06.2026. Profil ostaje u sjećanje; knjiga gostiju je zatvorena.
Knjiga gostiju je zatvorena. Sjećanje na xais ostavi na In memoriam stranici.
Ostavi sjećanje-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
Option Explicit
Private drapeau As Long
Private ICtxMenu2 As IContextMenu2
Private idCmdGlob As Long
Public Function WndProc(ByVal hWnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Select Case uMsg
Case WM_INITMENUPOPUP, WM_DRAWITEM, WM_MEASUREITEM
If Not (ICtxMenu2 Is Nothing) Then
Call ICtxMenu2.HandleMenuMsg(uMsg, wParam, lParam)
End If
Case WM_DESTROY
Call CallWindowProc(GetProp(hWnd, OLDWNDPROC), hWnd, uMsg, wParam, lParam)
Call WND_UnSubClass(hWnd)
Exit Function
End Select
WndProc = CallWindowProc(GetProp(hWnd, OLDWNDPROC), hWnd, uMsg, wParam, lParam)
End Function
'# Procedure dite de rappel du TreeView
Public Function TVWndProc(ByVal hWnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Select Case uMsg
Case TVM_SETIMAGELIST:
Exit Function
Case OCM_NOTIFY
Dim dwRtn As Long
dwRtn = TV_Notify(hWnd, lParam)
If dwRtn Then
TVWndProc = dwRtn
Exit Function
End If
Case WM_DESTROY
Dim oldProc As Long
oldProc = GetProp(hWnd, "OldProc")
Call SetWindowLong(hWnd, GWL_WNDPROC, oldProc)
End Select
TVWndProc = CallWindowProc(GetProp(hWnd, "OldProc"), hWnd, uMsg, wParam, lParam)
End Function
'# Cette fonction traite les messages de notification
Public Function TV_Notify(hwndTV As Long, ByVal lParam As Long) As Long
Dim nmtv As NMTREEVIEW
Dim tvid As cTVItem
'# lParam pointe sur un NMHDR, ou sur une structure plus complexe, dont le premier membre est un NMHDR
MoveMemory nmtv, ByVal lParam, Len(nmtv)
Select Case nmtv.hdr.code
Case TVN_ITEMEXPANDING
If (TV_GetChild(nmtv.itemNew.hItem) = 0) Then
Call InsertSubFolders(mTVItems(CStr(nmtv.itemNew.lParam)).pidlFQ, nmtv.itemNew.hItem, GetNodeFromlParam(nmtv.itemNew.lParam))
End If -
-
haje mi posalji na pm msn ja ti vecinom imam mix neki
moRemo s vama izdurat non steam od sljedece sedmice sam steam 


