1 /******************************************************************************
2 *
3 * Copyright (C) 2004-2007, The Gentee Group. All rights reserved.
4 * This file is part of the Gentee open source project - http://www.gentee.com.
5 *
6 * THIS FILE IS PROVIDED UNDER THE TERMS OF THE GENTEE LICENSE ("AGREEMENT").
7 * ANY USE, REPRODUCTION OR DISTRIBUTION OF THIS FILE CONSTITUTES RECIPIENTS
8 * ACCEPTANCE OF THE AGREEMENT.
9 *
10 * ID: vis.form 15.10.07 0.0.A.
11 *
12 * Author: Alexander Krivonogov ( gentee )
13 *
14 ******************************************************************************/
15 /* Компонента vScrollBox, порождена от vCtrl
16 События
17
18 */
19
20 include {
21 "panel.g"
22 }
23
24 type vScrollBox <inherit = vCtrl>
25 {
26 vPanel panel
27 }
28
29
30 method vScrollBox.mPosChanged <alias=vScrollBox_mPosChanged>( eventn ev )
31 {
32 SCROLLINFO si
33 /* si.cbSize = sizeof(SCROLLINFO)
34 si.fMask = $SIF_RANGE
35 GetScrollInfo( .hwnd, $SB_VERT, si )
36 */
37 si.fMask = $SIF_PAGE
38 si.nPage = this.clloc.height
39 SetScrollInfo( .hwnd, $SB_VERT, si, 1 )
40
41 this->vCtrl.mPosChanged( ev )
42 }
43
44 method uint vScrollBox.wmscroll <alias=vScrollBox_wmscroll> ( winmsg wmsg )
45 {
46 //print( "scroll 1 \(wmsg.wpar)\n" )
47 //if (wmsg.wpar & 0xFFFF) == $SB_ENDSCROLL
48 {
49 //print( "scroll 2\n" )
50 switch wmsg.msg
51 {
52 case $WM_VSCROLL
53 {
54 uint newpos
55 SCROLLINFO si
56 si.cbSize = sizeof(SCROLLINFO)
57 si.fMask = $SIF_POS | $SIF_PAGE | $SIF_TRACKPOS
58 GetScrollInfo( .hwnd, $SB_VERT, si )
59 newpos = si.nPos
60 switch wmsg.wpar & 0xFFFF
61 {
62 case $SB_LINEUP : newpos -= 10
63 case $SB_LINEDOWN : newpos += 10
64 case $SB_PAGEUP : newpos -= si.nPage
65 case $SB_PAGEDOWN : newpos += si.nPage
66 case $SB_TOP : newpos = si.nMax
67 case $SB_BOTTOM : newpos = si.nMin
68 case $SB_THUMBPOSITION, $SB_THUMBTRACK
69 {
70 newpos = si.nTrackPos
71 }
72 }
73 si.fMask = $SIF_POS
74 si.nPos = newpos
75 .panel.Top = -newpos
76 //print( "scroll 4 \(si.nPos)\n" )
77 SetScrollInfo( .hwnd, $SB_VERT, si, 1 )
78
79 wmsg.flags = 1
80 }
81 }
82 }
83 return 0
84 }
85
86 method vScrollBox vScrollBox.mCreateWin <alias=vScrollBox_mCreateWin>()
87 {
88 uint style = $WS_CHILD | $WS_VISIBLE | $WS_CLIPCHILDREN | $WS_CLIPSIBLINGS |
89 $WS_OVERLAPPED | $WS_VSCROLL | $WS_HSCROLL
90 .CreateWin( /*"GvScrollBox".ustr()*/"GvForm".ustr(), 0, style )
91 SCROLLINFO si
92 si.cbSize = sizeof(SCROLLINFO)
93 si.fMask = $SIF_RANGE
94 si.nMin = 0
95 si.nMax = 1000
96 SetScrollInfo( .hwnd, $SB_VERT, si, 1 )
97 this.prevwndproc = -1
98 this->vCtrl.mCreateWin()
99 .panel.Owner = this
100 return this
101 }
102
103
104
105 /*------------------------------------------------------------------------------
106 Registration
107 */
108 method vScrollBox vScrollBox.init( )
109 {
110 this.pTypeId = vScrollBox
111 this.pCanContain = 1
112 //this.pBorder = $brdLowered
113 this.loc.width = 100
114 this.loc.height = 100
115 this.panel.pAlign = $alhClient | $alvClient
116 this.panel.pBorder = 0
117 return this
118 }
119
120
121
122
123 func init_vScrollBox <entry>()
124 {
125 /*WNDCLASSEX visclass
126 ustr classname = "GvScrollBox"
127 with visclass
128 {
129 .cbSize = sizeof( WNDCLASSEX )
130 //.style = $CS_HREDRAW | $CS_VREDRAW
131 .lpfnWndProc = callback( &myproc, 4 )
132 .hInstance = GetModuleHandle( 0 )
133 .hCursor = LoadCursor( 0, $IDC_ARROW )
134 .hbrBackground = 1
135 .lpszClassName = classname.ptr()
136 }
137 uint hclass = RegisterClassEx( &visclass )
138 */
139 regcomp( vScrollBox, "vScrollBox", vCtrl, $vCtrl_last,
140 %{ %{$mCreateWin, vScrollBox_mCreateWin },
141 %{$mPosChanged, vScrollBox_mPosChanged }
142 },
143 %{ %{$WM_VSCROLL, vScrollBox_wmscroll },
144 %{$WM_HSCROLL, vScrollBox_wmscroll }
145 } )
146
147 ifdef $DESIGNING {
148 cm.AddComp( vScrollBox, 1, "Windows" )
149 cm.AddProps( vScrollBox, %{
150 "Caption" , ustr, 0
151 })
152 }
153
154 }
155
156