ScrollBar Control

For questions and postings not covered by the other forums
ConvertFromOldNGs
Posts: 5321
Joined: Wed Aug 05, 2009 5:19 pm

ScrollBar Control

Postby ConvertFromOldNGs » Fri Aug 07, 2009 12:07 pm

by MichaelHill >> Thu, 11 Apr 2002 1:54:51 GMT

Afternoon,

I have a problem with the first time I click the "UP" arrow of the scrollbar. It's returning the value of the text box as the value of the 'scroll.value' field, but everytime after that it is working fine. Has anyone seen this happen before?

I've included the scrolled method which is the one responsible for updating the text field.

vscrHour_scrolled(scroll: ScrollBar input; scrollBar: Integer) updating;

vars

tempValue : Integer;
begin



tempValue := txtHour.text.Integer;

if scroll.value > 1 then
if tempValue > 0 then
tempValue := txtHour.text.Integer - 1;
endif;
scroll.value := 1;
elseif scroll.value < 1 then
if tempValue.Integer < 23 then
tempValue := txtHour.text.Integer + 1;
endif;
scroll.value := 1;
endif;

if (tempValue < 10) then
txtHour.text := 0.String & tempValue.String;
else
txtHour.text := tempValue.String;
endif;

end;

The "down" is working fine.

Anyone have any ideas.

Cheers

Michael Hill
Gallagher Group Ltd

Return to “General Discussion”

Who is online

Users browsing this forum: No registered users and 27 guests