2 THE COMPUTER CODE CONTAINED HEREIN IS THE SOLE PROPERTY OF PARALLAX
3 SOFTWARE CORPORATION ("PARALLAX"). PARALLAX, IN DISTRIBUTING THE CODE TO
4 END-USERS, AND SUBJECT TO ALL OF THE TERMS AND CONDITIONS HEREIN, GRANTS A
5 ROYALTY-FREE, PERPETUAL LICENSE TO SUCH END-USERS FOR USE BY SUCH END-USERS
6 IN USING, DISPLAYING, AND CREATING DERIVATIVE WORKS THEREOF, SO LONG AS
7 SUCH USE, DISPLAY OR CREATION IS FOR NON-COMMERCIAL, ROYALTY OR REVENUE
8 FREE PURPOSES. IN NO EVENT SHALL THE END-USER USE THE COMPUTER CODE
9 CONTAINED HEREIN FOR REVENUE-BEARING PURPOSES. THE END-USER UNDERSTANDS
10 AND AGREES TO THE TERMS HEREIN AND ACCEPTS THE SAME BY USE OF THIS FILE.
11 COPYRIGHT 1993-1999 PARALLAX SOFTWARE CORPORATION. ALL RIGHTS RESERVED.
14 #pragma off (unreferenced)
15 static char rcsid[] = "$Id: scroll.c,v 1.1.1.1 2001-01-19 03:30:14 bradleyb Exp $";
16 #pragma on (unreferenced)
25 #define TICKER (*(volatile int *)0x46C)
27 void ui_draw_scrollbar( UI_GADGET_SCROLLBAR * scrollbar )
31 if (scrollbar->status==0)
34 scrollbar->status = 0;
37 gr_set_current_canvas( scrollbar->canvas );
39 if (CurWindow->keyboard_focus_gadget == (UI_GADGET *)scrollbar)
44 gr_rect( 0, 0, scrollbar->width-1, scrollbar->fake_position-1 );
45 gr_rect( 0, scrollbar->fake_position+scrollbar->fake_size, scrollbar->width-1, scrollbar->height-1);
47 ui_draw_box_out(0, scrollbar->fake_position, scrollbar->width-1, scrollbar->fake_position+scrollbar->fake_size-1 );
53 UI_GADGET_SCROLLBAR * ui_add_gadget_scrollbar( UI_WINDOW * wnd, short x, short y, short w, short h, int start, int stop, int position, int window_size )
57 UI_GADGET_SCROLLBAR * scrollbar;
60 up[0] = 30; up[1] = 0;
61 down[0] = 31; down[1] = 0;
63 gr_get_string_size( up, &tw, &th, &taw );
67 if (stop < start ) stop = start;
69 scrollbar = (UI_GADGET_SCROLLBAR *)ui_gadget_add( wnd, 3, x, y+w, x+w-1, y+h-w-1 );
71 scrollbar->up_button = ui_add_gadget_button( wnd, x, y, w, w, up, NULL );
72 scrollbar->up_button->parent = (UI_GADGET *)scrollbar;
74 scrollbar->down_button =ui_add_gadget_button( wnd, x, y+h-w, w, w, down, NULL );
75 scrollbar->down_button->parent = (UI_GADGET *)scrollbar;
78 scrollbar->width = scrollbar->x2-scrollbar->x1+1;
79 scrollbar->height = scrollbar->y2-scrollbar->y1+1;
80 scrollbar->start = start;
81 scrollbar->stop = stop;
82 scrollbar->position = position;
83 scrollbar->window_size = window_size;
84 scrollbar->fake_length = scrollbar->height;
85 scrollbar->fake_position = 0;
87 scrollbar->fake_size = (window_size * scrollbar->height)/(stop-start+1+window_size);
89 scrollbar->fake_size = scrollbar->height;
91 if (scrollbar->fake_size < 7) scrollbar->fake_size = 7;
92 scrollbar->dragging = 0;
94 scrollbar->last_scrolled = 0;
99 void ui_scrollbar_do( UI_GADGET_SCROLLBAR * scrollbar, int keypress )
101 int OnMe, OnSlider, keyfocus;
108 if (CurWindow->keyboard_focus_gadget==(UI_GADGET *)scrollbar)
111 if (scrollbar->start==scrollbar->stop)
113 scrollbar->position = 0;
114 scrollbar->fake_position = 0;
115 ui_draw_scrollbar( scrollbar );
119 op = scrollbar->position;
121 oldpos = scrollbar->fake_position;
123 scrollbar->moved = 0;
126 if ( (scrollbar->up_button->position!=0) || (keyfocus && keyd_pressed[KEY_UP]) )
128 if (TICKER > scrollbar->last_scrolled+1)
130 scrollbar->last_scrolled = TICKER;
131 scrollbar->position--;
132 if (scrollbar->position < scrollbar->start )
133 scrollbar->position = scrollbar->start;
134 scrollbar->fake_position = scrollbar->position-scrollbar->start;
135 scrollbar->fake_position *= scrollbar->height-scrollbar->fake_size;
136 scrollbar->fake_position /= (scrollbar->stop-scrollbar->start);
140 if ( (scrollbar->down_button->position!=0) || (keyfocus && keyd_pressed[KEY_DOWN]) )
142 if (TICKER > scrollbar->last_scrolled+1)
144 scrollbar->last_scrolled = TICKER;
145 scrollbar->position++;
146 if (scrollbar->position > scrollbar->stop )
147 scrollbar->position = scrollbar->stop;
148 scrollbar->fake_position = scrollbar->position-scrollbar->start;
149 scrollbar->fake_position *= scrollbar->height-scrollbar->fake_size;
150 scrollbar->fake_position /= (scrollbar->stop-scrollbar->start);
154 OnMe = ui_mouse_on_gadget( (UI_GADGET *)scrollbar );
156 //gr_ubox(0, scrollbar->fake_position, scrollbar->width-1, scrollbar->fake_position+scrollbar->fake_size-1 );
159 scrollbar->dragging = 0;
161 //if (B1_PRESSED && OnMe )
162 // listbox->dragging = 1;
166 if ((Mouse.y >= scrollbar->fake_position+scrollbar->y1) && \
167 (Mouse.y < scrollbar->fake_position+scrollbar->y1+scrollbar->fake_size) && OnMe )
170 if (B1_JUST_PRESSED && OnSlider )
172 scrollbar->dragging = 1;
173 scrollbar->drag_x = Mouse.x;
174 scrollbar->drag_y = Mouse.y;
175 scrollbar->drag_starting = scrollbar->fake_position;
178 if ( B1_PRESSED && OnMe && !OnSlider && (TICKER > scrollbar->last_scrolled+4) )
180 scrollbar->last_scrolled = TICKER;
182 if ( Mouse.y < scrollbar->fake_position+scrollbar->y1 )
185 scrollbar->position -= scrollbar->window_size;
186 if (scrollbar->position < scrollbar->start )
187 scrollbar->position = scrollbar->start;
191 scrollbar->position += scrollbar->window_size;
192 if (scrollbar->position > scrollbar->stop )
193 scrollbar->position = scrollbar->stop;
195 scrollbar->fake_position = scrollbar->position-scrollbar->start;
196 scrollbar->fake_position *= scrollbar->height-scrollbar->fake_size;
197 scrollbar->fake_position /= (scrollbar->stop-scrollbar->start);
200 if ((selected_gadget==(UI_GADGET *)scrollbar) && B1_PRESSED && scrollbar->dragging )
202 //Mouse.x = scrollbar->drag_x;
203 scrollbar->fake_position = scrollbar->drag_starting + (Mouse.y - scrollbar->drag_y );
204 if (scrollbar->fake_position<0)
206 scrollbar->fake_position = 0;
207 //Mouse.y = scrollbar->fake_position + scrollbar->drag_y - scrollbar->drag_starting;
209 if (scrollbar->fake_position > (scrollbar->height-scrollbar->fake_size))
211 scrollbar->fake_position = (scrollbar->height-scrollbar->fake_size);
212 //Mouse.y = scrollbar->fake_position + scrollbar->drag_y - scrollbar->drag_starting;
215 //mouse_set_pos( Mouse.x, Mouse.y );
217 scrollbar->position = scrollbar->fake_position;
218 scrollbar->position *= (scrollbar->stop-scrollbar->start);
219 scrollbar->position /= ( scrollbar->height-scrollbar->fake_size ) ;
220 scrollbar->position += scrollbar->start;
222 if (scrollbar->position > scrollbar->stop )
223 scrollbar->position = scrollbar->stop;
225 if (scrollbar->position < scrollbar->start )
226 scrollbar->position = scrollbar->start;
228 //scrollbar->fake_position = scrollbar->position-scrollbar->start;
229 //scrollbar->fake_position *= scrollbar->height-scrollbar->fake_size;
230 //scrollbar->fake_position /= (scrollbar->stop-scrollbar->start);
234 if (op != scrollbar->position )
235 scrollbar->moved = 1;
237 if (oldpos != scrollbar->fake_position)
238 scrollbar->status = 1;
239 ui_draw_scrollbar( scrollbar );