ree View Control

ree View Control

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

2 posts / 0 new
Last post
For more complete information about compiler optimizations, see our Optimization Notice.
Jugoslav Dujic's picture
 
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
Jugoslav www.xeffort.com

Login to leave a comment.