]> git.saurik.com Git - wxWidgets.git/blame - src/os2/slider.cpp
projects / wxWidgets.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
toplevel code transferred to wxTopLevelWindow
[wxWidgets.git] / src / os2 / slider.cpp
CommitLineData
0e320a79
DW		 1/////////////////////////////////////////////////////////////////////////////
2// Name: slider.cpp
3// Purpose: wxSlider
409c9842 4// Author: David Webster
0e320a79 5// Modified by:
409c9842 6// Created: 10/15/99
0e320a79 7// RCS-ID: $Id$
409c9842
DW		 8// Copyright: (c) David Webster
9// Licence: wxWindows licence
0e320a79
DW		 10/////////////////////////////////////////////////////////////////////////////
11
409c9842
DW		 12// For compilers that support precompilation, includes "wx.h".
13#include "wx/wxprec.h"
14
15#ifdef __BORLANDC__
16#pragma hdrstop
17#endif
18
19#ifndef WX_PRECOMP
20#include <stdio.h>
21#include <wx/utils.h>
22#include <wx/brush.h>
0e320a79
DW		 23#endif
24
25#include "wx/slider.h"
409c9842 26#include "wx/os2/private.h"
0e320a79 27
0e320a79
DW		 28IMPLEMENT_DYNAMIC_CLASS(wxSlider, wxControl)
29
0e320a79
DW		 30wxSlider::wxSlider()
31{
3c299c3a
DW		 32 m_hStaticValue = 0L;
33 m_hStaticMin = 0L;
34 m_hStaticMax = 0L;
35 m_nPageSize = 1;
36 m_nLineSize = 1;
37 m_nRangeMax = 0;
38 m_nRangeMin = 0;
39 m_nTickFreq = 0;
40} // end of wxSlider::wxSlider
409c9842 41
0e320a79
DW		 42wxSlider::~wxSlider()
43{
3c299c3a
DW		 44 if (m_hStaticMin)
45 ::WinDestroyWindow((HWND)m_hStaticMin);
46 if (m_hStaticMax)
47 ::WinDestroyWindow((HWND)m_hStaticMax);
48 if (m_hStaticValue)
49 ::WinDestroyWindow((HWND)m_hStaticValue);
50} // end of wxSlider::~wxSlider
0e320a79 51
3c299c3a 52void wxSlider::ClearSel()
0e320a79 53{
3c299c3a 54} // end of wxSlider::ClearSel
0e320a79 55
3c299c3a 56void wxSlider::ClearTicks()
0e320a79 57{
3c299c3a 58} // end of wxSlider::ClearTicks
0e320a79 59
3c299c3a
DW		 60void wxSlider::Command (
61 wxCommandEvent& rEvent
62)
0e320a79 63{
3c299c3a
DW		 64 SetValue(rEvent.GetInt());
65 ProcessCommand(rEvent);
66} // end of wxSlider::Command
0e320a79 67
3c299c3a
DW		 68bool wxSlider::ContainsHWND(
69 WXHWND hWnd
70) const
0e320a79 71{
3c299c3a
DW		 72 return ( hWnd == GetStaticMin() ||
73 hWnd == GetStaticMax() ||
74 hWnd == GetEditValue()
75 );
76} // end of wxSlider::ContainsHWND
77
78bool wxSlider::Create(
79 wxWindow* pParent
80, wxWindowID vId
81, int nValue
82, int nMinValue
83, int nMaxValue
84, const wxPoint& rPos
85, const wxSize& rSize
86, long lStyle
87#if wxUSE_VALIDATORS
88, const wxValidator& rValidator
89#endif
90, const wxString& rsName
91)
0e320a79 92{
3c299c3a
DW		 93 int nX = rPos.x;
94 int nY = rPos.y;
95 int nWidth = rSize.x;
96 int nHeight = rSize.y;
97 long lMsStyle = 0L;
98 long lWstyle = 0L;
99
100 SetName(rsName);
101#if wxUSE_VALIDATORS
102 SetValidator(rValidator);
103#endif
104 if (pParent)
105 pParent->AddChild(this);
106 SetBackgroundColour(pParent->GetBackgroundColour()) ;
107 SetForegroundColour(pParent->GetForegroundColour()) ;
108
109 m_hStaticValue = 0L;
110 m_hStaticMin = 0L;
111 m_hStaticMax = 0L;
112 m_nPageSize = 1;
113 m_nLineSize = 1;
114 m_windowStyle = lStyle;
115 m_nTickFreq = 0;
116
117 if (vId == -1)
118 m_windowId = (int)NewControlId();
119 else
120 m_windowId = vId;
409c9842 121
3c299c3a
DW		 122 if (m_windowStyle & wxCLIP_SIBLINGS )
123 lMsStyle |= WS_CLIPSIBLINGS;
409c9842 124
3c299c3a
DW		 125 if (m_windowStyle & wxSL_LABELS)
126 {
127 lMsStyle |= WS_VISIBLE | SS_TEXT | DT_VCENTER;
128
129 m_hStaticValue = (WXHWND)::WinCreateWindow( (HWND)GetHwndOf(pParent) // Parent window handle
130 ,WC_STATIC // Window class
131 ,(PSZ)NULL // Initial Text
132 ,(ULONG)lMsStyle // Style flags
133 ,0L, 0L, 0L, 0L // Origin -- 0 size
134 ,(HWND)GetHwndOf(pParent) // owner window handle (same as parent
135 ,HWND_TOP // initial z position
136 ,(ULONG)NewControlId() // Window identifier
137 ,NULL // no control data
138 ,NULL // no Presentation parameters
139 );
140
141 //
142 // Now create min static control
143 //
144 sprintf(wxBuffer, "%d", nMinValue);
145 lWstyle = SS_TEXT|DT_LEFT|WS_VISIBLE;
146 if (m_windowStyle & wxCLIP_SIBLINGS)
147 lWstyle |= WS_CLIPSIBLINGS;
148 m_hStaticMin = (WXHWND)::WinCreateWindow( (HWND)GetHwndOf(pParent) // Parent window handle
149 ,WC_STATIC // Window class
150 ,(PSZ)wxBuffer // Initial Text
151 ,(ULONG)lWstyle // Style flags
152 ,0L, 0L, 0L, 0L // Origin -- 0 size
153 ,(HWND)GetHwndOf(pParent) // owner window handle (same as parent
154 ,HWND_TOP // initial z position
155 ,(ULONG)NewControlId() // Window identifier
156 ,NULL // no control data
157 ,NULL // no Presentation parameters
158 );
159 }
160 lMsStyle = 0;
409c9842 161
3c299c3a 162 SLDCDATA vSlData;
409c9842 163
3c299c3a
DW		 164 vSlData.cbSize = sizeof(SLDCDATA);
165 if (m_windowStyle & wxSL_VERTICAL)
166 lMsStyle = SLS_VERTICAL | WS_VISIBLE | WS_TABSTOP;
167 else
168 lMsStyle = SLS_HORIZONTAL | WS_VISIBLE | WS_TABSTOP;
409c9842 169
3c299c3a
DW		 170 if (m_windowStyle & wxCLIP_SIBLINGS)
171 lMsStyle |= WS_CLIPSIBLINGS;
409c9842 172
3c299c3a 173 if (m_windowStyle & wxSL_AUTOTICKS)
409c9842 174 {
3c299c3a
DW		 175 vSlData.usScale1Spacing = 0;
176 vSlData.usScale2Spacing = 0;
177 }
409c9842 178
3c299c3a
DW		 179 if (m_windowStyle & wxSL_LEFT)
180 lMsStyle |= SLS_PRIMARYSCALE2; // if SLS_VERTICAL then SCALE2 is to the left
181 else if (m_windowStyle & wxSL_RIGHT)
182 lMsStyle |= SLS_PRIMARYSCALE1; // if SLS_VERTICAL then SCALE2 is to the right
183 else if (m_windowStyle & wxSL_TOP)
184 lMsStyle |= SLS_PRIMARYSCALE1; // if SLS_HORIZONTAL then SCALE1 is to the top
185 else if (m_windowStyle & wxSL_BOTTOM )
186 lMsStyle |= SLS_PRIMARYSCALE2; // if SLS_HORIZONTAL then SCALE1 is to the bottom
187 else if ( m_windowStyle & wxSL_BOTH )
188 lMsStyle |= SLS_PRIMARYSCALE1 | SLS_PRIMARYSCALE2;
189 else
190 lMsStyle |= SLS_PRIMARYSCALE2;
191
192 m_nPageSize = ((nMaxValue - nMinValue)/10);
193 vSlData.usScale1Increments = m_nPageSize;
194 vSlData.usScale2Increments = m_nPageSize;
195
196 HWND hScrollBar = ::WinCreateWindow( (HWND)GetHwndOf(pParent) // Parent window handle
197 ,WC_SLIDER // Window class
198 ,(PSZ)wxBuffer // Initial Text
199 ,(ULONG)lMsStyle // Style flags
200 ,0L, 0L, 0L, 0L // Origin -- 0 size
201 ,(HWND)GetHwndOf(pParent) // owner window handle (same as parent
202 ,HWND_TOP // initial z position
203 ,(HMENU)m_windowId // Window identifier
204 ,&vSlData // Slider control data
205 ,NULL // no Presentation parameters
206 );
207 m_nRangeMax = nMaxValue;
208 m_nRangeMin = nMinValue;
209
210 //
211 // Set the size of the ticks ... default to 6 pixels
212 //
213 ::WinSendMsg( hScrollBar
214 ,SLM_SETTICKSIZE
215 ,MPFROM2SHORT(SMA_SETALLTICKS, 6)
216 ,NULL
217 );
218 //
219 // Set the position to the initial value
220 //
221 ::WinSendMsg( hScrollBar
222 ,SLM_SETSLIDERINFO
223 ,MPFROM2SHORT(SMA_SLIDERARMPOSITION, SMA_RANGEVALUE)
224 ,(MPARAM)nValue
225 );
226
227 m_hWnd = (WXHWND)hScrollBar;
228 SubclassWin(GetHWND());
229 ::WinSetWindowText((HWND)m_hWnd, "");
230 SetFont(pParent->GetFont());
231 if (m_windowStyle & wxSL_LABELS)
409c9842 232 {
3c299c3a
DW		 233 //
234 // Finally, create max value static item
235 //
236 sprintf(wxBuffer, "%d", nMaxValue);
237 lWstyle = SS_TEXT|DT_LEFT|WS_VISIBLE;
238 if (m_windowStyle & wxCLIP_SIBLINGS)
239 lMsStyle |= WS_CLIPSIBLINGS;
240 m_hStaticMax = (WXHWND)::WinCreateWindow( (HWND)GetHwndOf(pParent) // Parent window handle
241 ,WC_STATIC // Window class
242 ,(PSZ)wxBuffer // Initial Text
243 ,(ULONG)lWstyle // Style flags
244 ,0L, 0L, 0L, 0L // Origin -- 0 size
245 ,(HWND)GetHwndOf(pParent) // owner window handle (same as parent
246 ,HWND_TOP // initial z position
247 ,(ULONG)NewControlId() // Window identifier
248 ,NULL // no control data
249 ,NULL // no Presentation parameters
250 );
251 if (GetFont().Ok())
252 {
253 if (GetFont().GetResourceHandle())
254 {
255 if (m_hStaticMin)
256 wxOS2SetFont( m_hStaticMin
257 ,GetFont()
258 );
259 if (m_hStaticMax)
260 wxOS2SetFont( m_hStaticMax
261 ,GetFont()
262 );
263 if (m_hStaticValue)
264 wxOS2SetFont( m_hStaticValue
265 ,GetFont()
266 );
267 }
268 }
409c9842
DW		 269 }
270
3c299c3a
DW		 271 SetSize( nX
272 ,nY
273 ,nWidth
274 ,nHeight
275 );
276 m_nThumbLength = SHORT1FROMMR(::WinSendMsg( GetHwnd()
277 ,SLM_QUERYSLIDERINFO
278 ,MPFROM2SHORT( SMA_SLIDERARMDIMENSIONS
279 ,SMA_RANGEVALUE
280 )
281 ,(MPARAM)0
282 )
283 ) + 4; // for bordersizes
284
285 wxColour vColour;
286
287 vColour.Set(wxString("BLACK"));
288
289 LONG lColor = (LONG)vColour.GetPixel();
290
291 ::WinSetPresParam( m_hStaticMin
292 ,PP_FOREGROUNDCOLOR
293 ,sizeof(LONG)
294 ,(PVOID)&lColor
295 );
296 ::WinSetPresParam( m_hStaticMax
297 ,PP_FOREGROUNDCOLOR
298 ,sizeof(LONG)
299 ,(PVOID)&lColor
300 );
301 ::WinSetPresParam( m_hStaticValue
302 ,PP_FOREGROUNDCOLOR
303 ,sizeof(LONG)
304 ,(PVOID)&lColor
305 );
306 ::WinSetPresParam( m_hWnd
307 ,PP_FOREGROUNDCOLOR
308 ,sizeof(LONG)
309 ,(PVOID)&lColor
310 );
311 SetValue(nValue);
312 return TRUE;
313} // end of wxSlider::Create
314
315void wxSlider::DoSetSize(
316 int nX
317, int nY
318, int nWidth
319, int nHeight
320, int nSizeFlags
321)
322{
323 int nX1 = nX;
324 int nY1 = nY;
325 int nWidth1 = nWidth;
326 int nHeight1 = nHeight;
327 int nXOffset = nX;
328 int nYOffset = nY;
329 int nCx; // slider,min,max sizes
330 int nCy;
331 int nCyf;
332 int nCurrentX;
333 int nCurrentY;
334 char zBuf[300];
335
336 //
337 // Adjust for OS/2's reverse coordinate system
338 //
339 wxWindowOS2* pParent = (wxWindowOS2*)GetParent();
340 int nUsedHeight = 0;
341 int nOS2Height = nHeight;
342
343 if (nOS2Height < 0)
344 nOS2Height = 20;
345
346 if (pParent)
409c9842 347 {
3c299c3a
DW		 348 //
349 // Under OS/2, where a frame window is the parent, most child windows
350 // that are not specific frame clients are actually children of the
351 // frame's client, not the frame itself, and so position themselves
352 // with regards to the client origin, not the frame.
353 //
354 if (pParent->IsKindOf(CLASSINFO(wxFrame)))
355 {
356 nYOffset = pParent->GetClientSize().y - (nYOffset + nOS2Height);
357 if (nY != -1)
358 nY1 = pParent->GetClientSize().y - (nY1 + nOS2Height);
359 }
360 else
409c9842 361 {
3c299c3a
DW		 362 nYOffset = pParent->GetSize().y - (nYOffset + nOS2Height);
363 if (nY != -1)
364 nY1 = pParent->GetSize().y - (nY1 + nOS2Height);
409c9842 365 }
409c9842 366 }
3c299c3a 367 else
409c9842 368 {
3c299c3a 369 RECTL vRect;
409c9842 370
3c299c3a
DW		 371 ::WinQueryWindowRect(HWND_DESKTOP, &vRect);
372 nYOffset = vRect.yTop - (nYOffset + nOS2Height);
373 if (nY != -1)
374 nY1 = vRect.yTop - (nY1 + nOS2Height);
375 }
409c9842 376
3c299c3a
DW		 377 GetPosition( &nCurrentX
378 ,&nCurrentY
379 );
380 if (nX == -1 && !(nSizeFlags & wxSIZE_ALLOW_MINUS_ONE))
381 nX1 = nCurrentX;
382 if (nY == -1 && !(nSizeFlags & wxSIZE_ALLOW_MINUS_ONE))
383 nY1 = nCurrentY;
384
385 AdjustForParentClientOrigin( nX1
386 ,nY1
387 ,nSizeFlags
388 );
389 wxGetCharSize( GetHWND()
390 ,&nCx
391 ,&nCy
392 ,&this->GetFont()
393 );
394
395 if ((m_windowStyle & wxSL_VERTICAL) != wxSL_VERTICAL)
409c9842 396 {
3c299c3a
DW		 397 if (m_windowStyle & wxSL_LABELS )
398 {
399 int nMinLen = 0;
400 int nMaxLen = 0;
401
402 ::WinQueryWindowText((HWND)m_hStaticMin, 300, zBuf);
403 GetTextExtent(zBuf, &nMinLen, &nCyf, NULL, NULL, &this->GetFont());
404 ::WinQueryWindowText((HWND)m_hStaticMax, 300, zBuf);
405 GetTextExtent(zBuf, &nMaxLen, &nCyf, NULL, NULL, &this->GetFont());
406
407 if (m_hStaticValue)
408 {
409 int nNewWidth = (wxMax(nMinLen, nMaxLen));
410 int nValueHeight = nCyf;
411
412 ::WinSetWindowPos( (HWND)m_hStaticValue
413 ,HWND_TOP
414 ,(LONG)nXOffset
415 ,(LONG)nYOffset - (nCyf * 1.2)
416 ,(LONG)nNewWidth
417 ,(LONG)nValueHeight
418 ,SWP_ZORDER | SWP_SIZE | SWP_MOVE | SWP_SHOW
419 );
420 nXOffset += nNewWidth + nCx;
421 }
422 ::WinSetWindowPos( (HWND)m_hStaticMin
423 ,HWND_TOP
424 ,(LONG)nXOffset
425 ,(LONG)nYOffset - nCyf
426 ,(LONG)nMinLen
427 ,(LONG)nCy
428 ,SWP_ZORDER | SWP_SIZE | SWP_MOVE | SWP_SHOW
429 );
430 nXOffset += nMinLen + nCx;
431
432 int nSliderLength = nWidth1 - nXOffset - nMaxLen - nCx;
433 int nSliderHeight = nHeight1;
434
435 if (nSliderHeight < 0)
436 nSliderHeight = 20;
437
438 //
439 // Slider must have a minimum/default length/height
440 //
441 if (nSliderLength < 100)
442 nSliderLength = 100;
443
444 ::WinSetWindowPos( GetHwnd()
445 ,HWND_TOP
446 ,(LONG)nXOffset
447 ,(LONG)nYOffset
448 ,(LONG)nSliderLength
449 ,(LONG)nSliderHeight
450 ,SWP_ZORDER | SWP_SIZE | SWP_MOVE | SWP_SHOW
451 );
452 nXOffset += nSliderLength + nCx;
453
454 ::WinSetWindowPos( (HWND)m_hStaticMax
455 ,HWND_TOP
456 ,(LONG)nXOffset
457 ,(LONG)nYOffset - nCyf
458 ,(LONG)nMaxLen
459 ,(LONG)nCy
460 ,SWP_ZORDER | SWP_SIZE | SWP_MOVE | SWP_SHOW
461 );
462 }
463 else
464 {
465 //
466 // No labels
467 // If we're prepared to use the existing size, then...
468 //
469 if (nWidth == -1 && nHeight == -1 &&
470 ((nSizeFlags & wxSIZE_AUTO) != wxSIZE_AUTO))
471 {
472 GetSize( &nWidth1
473 ,&nHeight1
474 );
475 }
476 if (nWidth1 < 0)
477 nWidth1 = 200;
478 if (nHeight1 < 0)
479 nHeight1 = 20;
480 ::WinSetWindowPos( GetHwnd()
481 ,HWND_TOP
482 ,(LONG)nX1
483 ,(LONG)nY1
484 ,(LONG)nWidth1
485 ,(LONG)nHeight1
486 ,SWP_ZORDER | SWP_SIZE | SWP_MOVE | SWP_SHOW
487 );
488 }
409c9842
DW		 489 }
490
3c299c3a
DW		 491 //
492 // Now deal with a vertical slider
493 //
409c9842
DW		 494 else
495 {
3c299c3a 496 if (m_windowStyle & wxSL_LABELS )
409c9842 497 {
3c299c3a
DW		 498 int nMinLen;
499 int nMaxLen;
500
501 ::WinQueryWindowText((HWND)m_hStaticMin, 300, zBuf);
502 GetTextExtent(zBuf, &nMinLen, &nCyf, NULL, NULL, &this->GetFont());
503 ::WinQueryWindowText((HWND)m_hStaticMax, 300, zBuf);
504 GetTextExtent(zBuf, &nMaxLen, &nCyf, NULL, NULL, &this->GetFont());
505 if (m_hStaticValue)
506 {
507 int nNewWidth = wxMax(nMinLen, nMaxLen);
508 int nValueHeight = nCyf;
509
510 nNewWidth += nCx;
511
512 //
513 // The height needs to be a bit bigger under Win95 if using native
514 // 3D effects.
515 //
516 nValueHeight = (int)(nValueHeight * 1.5);
517 ::WinSetWindowPos( (HWND)m_hStaticValue
518 ,HWND_TOP
519 ,(LONG)nXOffset
520 ,(LONG)nYOffset
521 ,(LONG)nNewWidth
522 ,(LONG)nValueHeight
523 ,SWP_ZORDER | SWP_SIZE | SWP_MOVE | SWP_SHOW
524 );
525 nYOffset -= nValueHeight;
526 nUsedHeight += nValueHeight;
527 }
528 ::WinSetWindowPos( (HWND)m_hStaticMin
529 ,HWND_TOP
530 ,(LONG)nXOffset
531 ,(LONG)nYOffset
532 ,(LONG)nMinLen
533 ,(LONG)nCy
534 ,SWP_ZORDER | SWP_SIZE | SWP_MOVE | SWP_SHOW
535 );
536 nYOffset -= nCy;
537 nUsedHeight += nCy;
538
539 int nSliderLength = nHeight1 - (nUsedHeight + (2 * nCy));
540 int nSliderWidth = nWidth1;
541
542 if (nSliderWidth < 0)
543 nSliderWidth = 20;
544
545 //
546 // Slider must have a minimum/default length
547 //
548 if (nSliderLength < 100)
549 nSliderLength = 100;
550
551 ::WinSetWindowPos( (HWND)m_hStaticMin
552 ,HWND_TOP
553 ,(LONG)nXOffset
554 ,(LONG)nYOffset
555 ,(LONG)nSliderWidth
556 ,(LONG)nSliderLength
557 ,SWP_ZORDER | SWP_SIZE | SWP_MOVE | SWP_SHOW
558 );
559 nYOffset -= nSliderLength;
560 nUsedHeight += nSliderLength;
561 ::WinSetWindowPos( (HWND)m_hStaticMax
562 ,HWND_TOP
563 ,(LONG)nXOffset
564 ,(LONG)nYOffset
565 ,(LONG)nMaxLen
566 ,(LONG)nCy
567 ,SWP_ZORDER | SWP_SIZE | SWP_MOVE | SWP_SHOW
568 );
569 }
570 else
571 {
572 //
573 // No labels
574 // If we're prepared to use the existing size, then...
575 //
576 if (nWidth == -1 && nHeight == -1 &&
577 ((nSizeFlags & wxSIZE_AUTO) != wxSIZE_AUTO))
578 {
579 GetSize( &nWidth1
580 ,&nHeight1
581 );
582 }
583 if (nWidth1 < 0)
584 nWidth1 = 20;
585 if (nHeight1 < 0)
586 nHeight1 = 200;
587 ::WinSetWindowPos( GetHwnd()
588 ,HWND_TOP
589 ,(LONG)nX1
590 ,(LONG)nY1
591 ,(LONG)nWidth1
592 ,(LONG)nHeight1
593 ,SWP_ZORDER | SWP_SIZE | SWP_MOVE | SWP_SHOW
594 );
409c9842 595 }
409c9842 596 }
3c299c3a 597} // end of void wxSlider::DoSetSize
0e320a79 598
3c299c3a 599int wxSlider::GetLineSize() const
0e320a79 600{
3c299c3a
DW		 601 return 1;
602} // end of wxSlider::GetLineSize
0e320a79 603
3c299c3a
DW		 604int wxSlider::GetPageSize() const
605{
606 return m_nPageSize;
607} // end of wxSlider::GetPageSize
0e320a79 608
3c299c3a
DW		 609void wxSlider::GetPosition(
610 int* pnX
611, int* pnY
612) const
409c9842 613{
3c299c3a
DW		 614 wxWindowOS2* pParent = GetParent();
615 RECTL vRect;
616
617 vRect.xLeft = -1;
618 vRect.xRight = -1;
619 vRect.yTop = -1;
620 vRect.yBottom = -1;
621 wxFindMaxSize( GetHWND()
622 ,&vRect
623 );
624
625 if (m_hStaticMin)
626 wxFindMaxSize( m_hStaticMin
627 ,&vRect
628 );
629 if (m_hStaticMax)
630 wxFindMaxSize( m_hStaticMax
631 ,&vRect
632 );
633 if (m_hStaticValue)
634 wxFindMaxSize( m_hStaticValue
635 ,&vRect
636 );
637
638 //
639 // Since we now have the absolute screen coords,
640 // if there's a parent we must subtract its top left corner
641 //
642 POINTL vPoint;
643
644 vPoint.x = vRect.xLeft;
645 vPoint.y = vRect.yTop;
646
647 if (pParent)
648 {
649 SWP vSwp;
409c9842 650
3c299c3a
DW		 651 ::WinQueryWindowPos((HWND)pParent->GetHWND(), &vSwp);
652 vPoint.x = vSwp.x;
653 vPoint.y = vSwp.y;
654 }
409c9842 655
3c299c3a
DW		 656 //
657 // We may be faking the client origin.
658 // So a window that's really at (0, 30) may appear
659 // (to wxWin apps) to be at (0, 0).
660 //
661 if (GetParent())
662 {
663 wxPoint vPt(GetParent()->GetClientAreaOrigin());
409c9842 664
3c299c3a
DW		 665 vPoint.x -= vPt.x;
666 vPoint.y -= vPt.y;
667 }
668 *pnX = vPoint.x;
669 *pnY = vPoint.y;
670} // end of wxSlider::GetPosition
409c9842 671
3c299c3a 672int wxSlider::GetSelEnd() const
0e320a79 673{
3c299c3a
DW		 674 return 0;
675} // end of wxSlider::GetSelEnd
0e320a79 676
3c299c3a 677int wxSlider::GetSelStart() const
0e320a79 678{
3c299c3a
DW		 679 return 0;
680} // end of wxSlider::GetSelStart
0e320a79 681
3c299c3a
DW		 682void wxSlider::GetSize(
683 int* pnWidth
684, int* pnHeight
685) const
0e320a79 686{
3c299c3a
DW		 687 RECTL vRect;
688
689 vRect.xLeft = -1;
690 vRect.xRight = -1;
691 vRect.yTop = -1;
692 vRect.yBottom = -1;
693
694 wxFindMaxSize( GetHWND()
695 ,&vRect
696 );
697
698 if (m_hStaticMin)
699 wxFindMaxSize( m_hStaticMin
700 ,&vRect
701 );
702 if (m_hStaticMax)
703 wxFindMaxSize( m_hStaticMax
704 ,&vRect
705 );
706 if (m_hStaticValue)
707 wxFindMaxSize( m_hStaticValue
708 ,&vRect
709 );
710 *pnWidth = vRect.xRight - vRect.xLeft;
711 *pnHeight = vRect.yBottom - vRect.yTop;
712} // end of wxSlider::GetSize
0e320a79 713
3c299c3a 714int wxSlider::GetThumbLength() const
0e320a79 715{
3c299c3a
DW		 716 return m_nThumbLength;
717} // end of wxSlider::GetThumbLength
0e320a79 718
3c299c3a 719int wxSlider::GetValue() const
0e320a79 720{
3c299c3a
DW		 721 int nPixelRange = SHORT1FROMMR(::WinSendMsg( GetHwnd()
722 ,SLM_QUERYSLIDERINFO
723 ,MPFROM2SHORT( SMA_SHAFTDIMENSIONS
724 ,SMA_RANGEVALUE
725 )
726 ,(MPARAM)0
727 )
728 );
729 double dPixelToRange = (double)(nPixelRange - m_nThumbLength)/(double)(m_nRangeMax - m_nRangeMin);
730 int nNewPos = 0;
731 int nPixelPos = SHORT1FROMMR(::WinSendMsg( GetHwnd()
732 ,SLM_QUERYSLIDERINFO
733 ,MPFROM2SHORT( SMA_SLIDERARMPOSITION
734 ,SMA_RANGEVALUE
735 )
736 ,(MPARAM)0
737 )
738 );
739 nNewPos = (int)(nPixelPos/dPixelToRange);
740 if (nNewPos > (m_nRangeMax - m_nRangeMin)/2)
741 nNewPos++;
742 return nNewPos;
743} // end of wxSlider::GetValue
744
745WXHBRUSH wxSlider::OnCtlColor(
746 WXHDC hDC
747, WXHWND hWnd
748, WXUINT uCtlColor
749, WXUINT uMessage
750, WXWPARAM wParam
751, WXLPARAM lParam
752)
0e320a79 753{
3c299c3a
DW		 754 return (wxControl::OnCtlColor( hDC
755 ,hWnd
756 ,uCtlColor
757 ,uMessage
758 ,wParam
759 ,lParam
760 )
761 );
762} // end of wxSlider::OnCtlColor
763
764bool wxSlider::OS2OnScroll(
765 int WXUNUSED(nOrientation)
766, WXWORD wParam
767, WXWORD wPos
768, WXHWND hControl
769)
0e320a79 770{
3c299c3a 771 wxEventType eScrollEvent = wxEVT_NULL;
0e320a79 772
3c299c3a
DW		 773 switch (wParam)
774 {
775 case SLN_CHANGE:
776 if (m_windowStyle & wxSL_TOP)
777 eScrollEvent = wxEVT_SCROLL_TOP;
778 else if (m_windowStyle & wxSL_BOTTOM)
779 eScrollEvent = wxEVT_SCROLL_BOTTOM;
780 break;
0e320a79 781
3c299c3a
DW		 782 case SLN_SLIDERTRACK:
783 eScrollEvent = wxEVT_SCROLL_THUMBTRACK;
784 break;
785
786 default:
787 return FALSE;
788 }
789
790 int nPixelRange = SHORT1FROMMR(::WinSendMsg( GetHwnd()
791 ,SLM_QUERYSLIDERINFO
792 ,MPFROM2SHORT( SMA_SHAFTDIMENSIONS
793 ,SMA_RANGEVALUE
794 )
795 ,(MPARAM)0
796 )
797 );
798 m_dPixelToRange = (double)(nPixelRange - m_nThumbLength)/(double)(m_nRangeMax - m_nRangeMin);
799 int nNewPos = 0;
800 int nPixelPos = SHORT1FROMMR(::WinSendMsg( GetHwnd()
801 ,SLM_QUERYSLIDERINFO
802 ,MPFROM2SHORT( SMA_SLIDERARMPOSITION
803 ,SMA_RANGEVALUE
804 )
805 ,(MPARAM)0
806 )
807 );
808 nNewPos = (nPixelPos/m_dPixelToRange);
809 if (nNewPos > (m_nRangeMax - m_nRangeMin)/2)
810 nNewPos++;
811 if ((nNewPos < GetMin()) || (nNewPos > GetMax()))
812 {
813 //
814 // Out of range - but we did process it
815 //
816 return TRUE;
817 }
818 SetValue(nNewPos);
819
820 wxScrollEvent vEvent( eScrollEvent
821 ,m_windowId
822 );
823
824 vEvent.SetPosition(nNewPos);
825 vEvent.SetEventObject(this);
826 GetEventHandler()->ProcessEvent(vEvent);
827
828 wxCommandEvent vCevent( wxEVT_COMMAND_SLIDER_UPDATED
829 ,GetId()
830 );
831
832 vCevent.SetInt(nNewPos);
833 vCevent.SetEventObject(this);
834 return (GetEventHandler()->ProcessEvent(vCevent));
835} // end of wxSlider::OS2OnScroll
836
837void wxSlider::SetLineSize(
838 int nLineSize
839)
0e320a79 840{
3c299c3a
DW		 841 m_nLineSize = nLineSize;
842} // end of wxSlider::SetLineSize
843
0e320a79 844
3c299c3a
DW		 845void wxSlider::SetPageSize(
846 int nPageSize
847)
0e320a79 848{
3c299c3a
DW		 849 m_nPageSize = nPageSize;
850} // end of wxSlider::SetPageSize
0e320a79 851
3c299c3a
DW		 852void wxSlider::SetRange(
853 int nMinValue
854, int nMaxValue
855)
0e320a79 856{
3c299c3a
DW		 857 wxChar zBuf[10];
858
859 m_nRangeMin = nMinValue;
860 m_nRangeMax = nMaxValue;
861
862 int nPixelRange = SHORT1FROMMR(::WinSendMsg( GetHwnd()
863 ,SLM_QUERYSLIDERINFO
864 ,MPFROM2SHORT( SMA_SHAFTDIMENSIONS
865 ,SMA_RANGEVALUE
866 )
867 ,(MPARAM)0
868 )
869 );
870 m_dPixelToRange = (double)(nPixelRange - m_nThumbLength)/(double)(m_nRangeMax - m_nRangeMin);
871 if (m_hStaticMin)
872 {
873 wxSprintf(zBuf, wxT("%d"), m_nRangeMin);
874 ::WinSetWindowText((HWND)m_hStaticMin, zBuf);
875 }
0e320a79 876
3c299c3a
DW		 877 if (m_hStaticMax)
878 {
879 wxSprintf(zBuf, wxT("%d"), m_nRangeMax);
880 ::WinSetWindowText((HWND)m_hStaticMax, zBuf);
881 }
882} // end of wxSlider::SetRange
883
884void wxSlider::SetSelection(
885 int WXUNUSED(nMinPos)
886, int WXUNUSED(nMaxPos)
887)
0e320a79 888{
3c299c3a 889} // end of wxSlider::SetSelection
0e320a79 890
3c299c3a
DW		 891void wxSlider::SetThumbLength(
892 int nLen
893)
0e320a79 894{
3c299c3a
DW		 895 int nBreadth;
896
897 m_nThumbLength = SHORT1FROMMR(::WinSendMsg( GetHwnd()
898 ,SLM_QUERYSLIDERINFO
899 ,MPFROM2SHORT( SMA_SLIDERARMDIMENSIONS
900 ,SMA_RANGEVALUE
901 )
902 ,(MPARAM)0
903 )
904 ) + 4; // for bordersizes
905 nBreadth = SHORT2FROMMR(::WinSendMsg( GetHwnd()
906 ,SLM_QUERYSLIDERINFO
907 ,MPFROM2SHORT( SMA_SLIDERARMDIMENSIONS
908 ,SMA_RANGEVALUE
909 )
910 ,(MPARAM)0
911 )
912 );
913 ::WinSendMsg( GetHwnd()
914 ,SLM_SETSLIDERINFO
915 ,MPFROM2SHORT( SMA_SLIDERARMDIMENSIONS
916 ,SMA_RANGEVALUE
917 )
918 ,MPFROM2SHORT(nLen, nBreadth)
919 );
920 m_nThumbLength = nLen + 4; // Borders
921} // end of wxSlider::SetThumbLength
922
923void wxSlider::SetTick(
924 int nTickPos
925)
926{
927 nTickPos *= m_dPixelToRange;
928 ::WinSendMsg( GetHwnd()
929 ,SLM_ADDDETENT
930 ,MPFROMSHORT(nTickPos)
931 ,NULL
932 );
933} // end of wxSlider::SetTick
0e320a79 934
3c299c3a
DW		 935// For trackbars only
936void wxSlider::SetTickFreq(
937 int n
938, int nPos
939)
409c9842 940{
3c299c3a
DW		 941 SLDCDATA vSlData;
942 WNDPARAMS vWndParams;
943 int nPixelPos;
944 int i;
409c9842 945
3c299c3a
DW		 946 vSlData.cbSize = sizeof(SLDCDATA);
947 if (m_windowStyle & wxSL_AUTOTICKS)
948 {
949 vSlData.usScale1Spacing = 0;
950 vSlData.usScale2Spacing = 0;
951 }
952 vSlData.usScale1Increments = (m_nRangeMax - m_nRangeMin)/n;
953 vSlData.usScale2Increments = (m_nRangeMax - m_nRangeMin)/n;
954
955 vWndParams.fsStatus = WPM_CTLDATA;
956 vWndParams.cchText = 0L;
957 vWndParams.pszText = NULL;
958 vWndParams.cbPresParams = 0L;
959 vWndParams.pPresParams = NULL;
960 vWndParams.cbCtlData = vSlData.cbSize;
961 vWndParams.pCtlData = (PVOID)&vSlData;
962 ::WinSendMsg(GetHwnd(), WM_SETWINDOWPARAMS, (MPARAM)&vWndParams, (MPARAM)0);
963 for (i = 1; i < (m_nRangeMax - m_nRangeMin)/n; i++)
964 {
965 nPixelPos = i * n * m_dPixelToRange;
966 ::WinSendMsg( GetHwnd()
967 ,SLM_ADDDETENT
968 ,MPFROMSHORT(nPixelPos)
969 ,NULL
970 );
971 }
972} // end of wxSlider::SetTickFreq
973
974void wxSlider::SetValue(
975 int nValue
976)
0e320a79 977{
3c299c3a
DW		 978 int nPixelPos = SHORT1FROMMR(::WinSendMsg( GetHwnd()
979 ,SLM_QUERYSLIDERINFO
980 ,MPFROM2SHORT( SMA_SLIDERARMPOSITION
981 ,SMA_RANGEVALUE
982 )
983 ,(MPARAM)0
984 )
985 );
986 int nPixelRange = SHORT1FROMMR(::WinSendMsg( GetHwnd()
987 ,SLM_QUERYSLIDERINFO
988 ,MPFROM2SHORT( SMA_SHAFTDIMENSIONS
989 ,SMA_RANGEVALUE
990 )
991 ,(MPARAM)0
992 )
993 );
994 m_dPixelToRange = (double)(nPixelRange - m_nThumbLength)/(double)(m_nRangeMax - m_nRangeMin);
995 int nNewPos = (int)(nValue * m_dPixelToRange);
996
997 ::WinSendMsg( GetHwnd()
998 ,SLM_SETSLIDERINFO
999 ,MPFROM2SHORT( SMA_SLIDERARMPOSITION
1000 ,SMA_RANGEVALUE
1001 )
1002 ,(MPARAM)nNewPos
1003 );
1004 if (m_hStaticValue)
1005 {
1006 wxSprintf(wxBuffer, wxT("%d"), nValue);
1007 ::WinSetWindowText((HWND)m_hStaticValue, wxBuffer);
1008 }
1009} // end of wxSlider::SetValue
0e320a79 1010
3c299c3a
DW		 1011bool wxSlider::Show(
1012 bool bShow
1013)
0e320a79 1014{
3c299c3a
DW		 1015 wxWindowOS2::Show(bShow);
1016 if(m_hStaticValue)
1017 ::WinShowWindow((HWND)m_hStaticValue, bShow);
1018 if(m_hStaticMin)
1019 ::WinShowWindow((HWND)m_hStaticMin, bShow);
1020 if(m_hStaticMax)
1021 ::WinShowWindow((HWND)m_hStaticMax, bShow);
0e320a79 1022 return TRUE;
3c299c3a 1023} // end of wxSlider::Show
0e320a79 1024
wxWidgets (Impactor)