During the developement of some new helpful procedures i couldnt find a previous procedure to scroll the bank down a line. So do this would the simple example below surfice.
SCAR Code:
procedure ScrollBank(Direction : string; Rows : integer);
var Uarrow, Darrow, bx, by : integer;
begin
Darrow := BitmapFromString(10, 2, 'z78DA333000024303306' +
'9E26262646C0C210D8810C72471E9C5540900911D1767');
Uarrow := BitmapFromString(10, 2, 'z78DA33300002430324D' +
'2C4C5C4C8D818BF88010E5DB8F4628A030080B51767');
case Lowercase(Direction) of
'up':begin
if (FindBitMapToleranceIn(Uarrow, bx, by, MSX1, MSY1, MSX2, MSY2, 20)) then
begin
MMouse(bx,by,0,0);
HoldMouse(bx,by, True);
Wait(150 * Rows);
ReleaseMouse(bx,by, True);
end;
end;
'down':begin
if (FindBitMapToleranceIn(Darrow, bx, by, MSX1, MSY1, MSX2, MSY2, 20)) then
begin
MMouse(bx,by,0,0);
HoldMouse(bx,by, True);
Wait(150 * Rows);
ReleaseMouse(bx,by, True);
end;
end;
end;
end;