summaryrefslogtreecommitdiffstats
path: root/kalarm/lib/slider.cpp
blob: 5ee7a65a0a6d7734bff45662f42111440c057411 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
/*
 *  slider.cpp  -  slider control with read-only option
 *  Program:  kalarm
 *  Copyright (c) 2004 by David Jarvie <software@astrojar.org.uk>
 *
 *  This program is free software; you can redistribute it and/or modify
 *  it under the terms of the GNU General Public License as published by
 *  the Free Software Foundation; either version 2 of the License, or
 *  (at your option) any later version.
 *
 *  This program is distributed in the hope that it will be useful,
 *  but WITHOUT ANY WARRANTY; without even the implied warranty of
 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
 *  GNU General Public License for more details.
 *
 *  You should have received a copy of the GNU General Public License along
 *  with this program; if not, write to the Free Software Foundation, Inc.,
 *  51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
 */

#include "slider.moc"


Slider::Slider(TQWidget* parent, const char* name)
	: TQSlider(parent, name),
	  mReadOnly(false)
{ }

Slider::Slider(TQt::Orientation o, TQWidget* parent, const char* name)
	: TQSlider(o, parent, name),
	  mReadOnly(false)
{ }

Slider::Slider(int minval, int maxval, int pageStep, int value, TQt::Orientation o, TQWidget* parent, const char* name)
	: TQSlider(minval, maxval, pageStep, value, o, parent, name),
	  mReadOnly(false)
{ }

/******************************************************************************
*  Set the read-only status. If read-only, the slider can be moved by the
*  application, but not by the user.
*/
void Slider::setReadOnly(bool ro)
{
	mReadOnly = ro;
}

/******************************************************************************
*  Event handlers to intercept events if in read-only mode.
*  Any events which could change the slider value are discarded.
*/
void Slider::mousePressEvent(TQMouseEvent* e)
{
	if (mReadOnly)
	{
		// Swallow up the event if it's the left button
		if (e->button() == TQt::LeftButton)
			return;
	}
	TQSlider::mousePressEvent(e);
}

void Slider::mouseReleaseEvent(TQMouseEvent* e)
{
	if (!mReadOnly)
		TQSlider::mouseReleaseEvent(e);
}

void Slider::mouseMoveEvent(TQMouseEvent* e)
{
	if (!mReadOnly)
		TQSlider::mouseMoveEvent(e);
}

void Slider::keyPressEvent(TQKeyEvent* e)
{
	if (!mReadOnly  ||  e->key() == TQt::Key_Escape)
		TQSlider::keyPressEvent(e);
}

void Slider::keyReleaseEvent(TQKeyEvent* e)
{
	if (!mReadOnly)
		TQSlider::keyReleaseEvent(e);
}