Datasheet

else
if( PINA4_bit = 0) then
begin
Inc(curs);
if (curs = 3) then
curs := 0;
case curs of
0:
// no cursor
T6963C_cursor(0) ;
1: begin
// blinking cursor
T6963C_cursor(1) ;
T6963C_cursor_blink(1) ;
end;
2: begin
// non blinking cursor
T6963C_cursor(1) ;
T6963C_cursor_blink(0) ;
end;
end;
Delay_ms(300) ;
end;
{*
* Move cursor, even if not visible
*}
Inc(cposx);
if (cposx = T6963C_txtCols) then
begin
cposx := 0 ;
Inc(cposy);
if (cposy = T6963C_grHeight / T6963C_CHARACTER_HEIGHT) then
cposy := 0 ;
end;
T6963C_set_cursor(cposx, cposy) ;
Delay_ms(100) ;
end;
end.
471
MIKROELEKTRONIKA - SOFTWARE AND HARDWARE SOLUTIONS FOR EMBEDDED WORLD
Libraries
mikroPASCAL PRO for AVR
CHAPTER 6