Implement Fl_Packscroller, an alternative to Fl_Scroll better suited to containing vertical Fl_Packs.
This commit is contained in:
Jonathan Moore Liles
parent
22f5b51706
commit
c789f75c73
|
|
@ -0,0 +1,195 @@
|
|||
|
||||
/*******************************************************************************/
|
||||
/* Copyright (C) 2010 Jonathan Moore Liles */
|
||||
/* */
|
||||
/* 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; see the file COPYING. If not,write to the Free Software */
|
||||
/* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
|
||||
/*******************************************************************************/
|
||||
|
||||
/* Scrolling group suitable for containing a single child (a
|
||||
* pack). When the Fl_Packscroller is resized, the child will be resized
|
||||
* too. No scrollbars are displayed, but the widget responds to
|
||||
* FL_MOUSEWHEEL events. */
|
||||
|
||||
#pragma once
|
||||
|
||||
#include <FL/Fl_Group.H>
|
||||
#include <FL/fl_draw.H>
|
||||
#include <FL/Fl.H>
|
||||
|
||||
/* FIXME: Optimize scroll */
|
||||
|
||||
class Fl_Packscroller : public Fl_Group
|
||||
{
|
||||
|
||||
int _increment;
|
||||
int _yposition;
|
||||
static const int sbh = 15; /* scroll button height */
|
||||
|
||||
public:
|
||||
|
||||
Fl_Packscroller ( int X, int Y, int W, int H, const char *L = 0 ) : Fl_Group( X, Y, W, H, L )
|
||||
{
|
||||
clip_children( 1 );
|
||||
|
||||
_increment = 30;
|
||||
_yposition = 0;
|
||||
|
||||
// color( FL_WHITE );
|
||||
}
|
||||
|
||||
int increment ( void ) const { return _increment; }
|
||||
void increment ( int v ) { _increment = v; }
|
||||
|
||||
void yposition ( int v )
|
||||
{
|
||||
if ( ! children() )
|
||||
return;
|
||||
|
||||
int Y = v;
|
||||
|
||||
if ( Y > 0 )
|
||||
Y = 0;
|
||||
|
||||
const int H = h() - (sbh * 2);
|
||||
|
||||
Fl_Widget *o = child( 0 );
|
||||
|
||||
if ( o->h() > H &&
|
||||
Y + o->h() < H )
|
||||
Y = H - o->h();
|
||||
else if ( o->h() < H )
|
||||
Y = 0;
|
||||
|
||||
if ( _yposition != Y )
|
||||
{
|
||||
_yposition = Y;
|
||||
|
||||
damage( FL_DAMAGE_SCROLL );
|
||||
}
|
||||
}
|
||||
|
||||
int yposition ( void ) const
|
||||
{
|
||||
if ( children() )
|
||||
return child( 0 )->y() - (y() + sbh);
|
||||
|
||||
return 0;
|
||||
}
|
||||
|
||||
void bbox ( int &X, int &Y, int &W, int &H )
|
||||
{
|
||||
X = x();
|
||||
Y = y() + sbh;
|
||||
W = w();
|
||||
H = h() - (sbh * 2);
|
||||
}
|
||||
|
||||
virtual void
|
||||
draw ( void )
|
||||
{
|
||||
if ( ! children() )
|
||||
return;
|
||||
|
||||
if ( ! fl_not_clipped( x(), y(), w(), h() ) )
|
||||
return;
|
||||
|
||||
// draw_box();
|
||||
|
||||
Fl_Widget *o = child( 0 );
|
||||
|
||||
o->position( x(), y() + sbh + _yposition );
|
||||
|
||||
if ( damage() != FL_DAMAGE_CHILD )
|
||||
{
|
||||
fl_rectf( x(), y(), w(), h(), color() );
|
||||
|
||||
fl_font( FL_HELVETICA, 12 );
|
||||
|
||||
if ( o->y() != y() + sbh )
|
||||
{
|
||||
fl_draw_box( box(), x(), y(), w(), sbh, color() );
|
||||
fl_color( FL_BLACK );
|
||||
fl_draw( "@2<", x(), y(), w(), sbh, FL_ALIGN_CENTER );
|
||||
}
|
||||
|
||||
if ( o->h() > h() - (sbh * 2) && o->y() + o->h() != y() + h() - sbh )
|
||||
{
|
||||
fl_draw_box( box(), x(), y() + h() - sbh, w(), sbh, color() );
|
||||
fl_color( FL_BLACK );
|
||||
fl_draw( "@2>", x(), y() + h() - sbh, w(), sbh, FL_ALIGN_CENTER );
|
||||
}
|
||||
|
||||
}
|
||||
|
||||
fl_push_clip( x(), y() + sbh, w(), h() - (sbh * 2 ) );
|
||||
|
||||
draw_children();
|
||||
|
||||
fl_pop_clip();
|
||||
}
|
||||
|
||||
virtual int
|
||||
handle ( int m )
|
||||
{
|
||||
switch ( m )
|
||||
{
|
||||
case FL_PUSH:
|
||||
{
|
||||
if ( Fl::event_button1() )
|
||||
{
|
||||
if ( Fl::event_inside( x(), y(), w(), sbh ) )
|
||||
{
|
||||
yposition( yposition() + ( h() / 4 ) );
|
||||
return 1;
|
||||
}
|
||||
else if ( Fl::event_inside( x(), y() + h() - sbh, w(), sbh ) )
|
||||
{
|
||||
yposition( yposition() - (h() / 4 ) );
|
||||
return 1;
|
||||
}
|
||||
|
||||
return Fl_Group::handle( m );
|
||||
}
|
||||
}
|
||||
case FL_ENTER:
|
||||
case FL_LEAVE:
|
||||
return 1;
|
||||
case FL_FOCUS:
|
||||
return 1;
|
||||
case FL_KEYBOARD:
|
||||
{
|
||||
if ( Fl::event_key() == FL_Up )
|
||||
{
|
||||
yposition( yposition() + ( h() / 4 ) );
|
||||
return 1;
|
||||
}
|
||||
else if ( Fl::event_key() == FL_Down )
|
||||
{
|
||||
yposition( yposition() - (h() / 4 ) );
|
||||
return 1;
|
||||
}
|
||||
return Fl_Group::handle( m );
|
||||
}
|
||||
case FL_MOUSEWHEEL:
|
||||
{
|
||||
yposition( yposition() - ( Fl::event_dy() * _increment ) );
|
||||
|
||||
return 1;
|
||||
}
|
||||
}
|
||||
|
||||
return Fl_Group::handle( m );
|
||||
}
|
||||
};
|
||||
Loading…
Reference in New Issue