ree View Control

[presser]

I want to create a tree view control in my Quickwin application and therefore copied a sample program from the CVF Help System, which I tried to adjust to my program requirements. Not very familiar with Windows programming, I didn't succeed to pruduce any list of items in a tree view window. My questions to this subject: Is it possible to use a tree view control in Quickwin in general and if yes, are there any existing tools to use or is it necessary to write its own program code? Thank you for your help
W.Presser

[Jugoslav_Dujic]

 
MODULE Subclass 
USE DFWINTY, ONLY: WM_APP 
INTEGER(INT_PTR_KIND()):: lpfnOldWndProc 
INTEGER, PARAMETER:: WM_CREATETREE = WM_APP+1 
CONTAINS 
INTEGER FUNCTION MyWindowProc(hWnd, Msg, wParam, lParam) 
!DEC$ATTRIBUTES STDCALL::MyWindowProc 
INTEGER, INTENT(IN):: hWnd, Msg, wParam, lParam 
SELECT CASE(Msg) 
CASE(WM_CREATETREE) 
   hwndTree=CreateWindowEx(..."SysTreeView32"C...hWnd) 
   MyWindowProc=hwndTree 
CASE(WM_NOTIFY) 
   !TODO handle TVN_ messages here 
CASE DEFAULT 
   MyWindowProc = CallWindowProc(lpfnOldWndProc, hWnd, Msg, wParam, lParam) 
END MODULE Subclass 
!====================== 
(PROGRAM) 
USE Subclass 
... 
lpfnOldWndProc = SetWindowLong(GETHWNDQQ(iUnit), GWL_WNDPROC, LOC(MyWindowProc)) 
hwndTree = SendMessage(GETHWNDQQ(iUnit), WM_CREATETREE, 0, 0) 
 
 
HTH
 
Jugoslav