User manual

520
mikoPascal PRO for PIC32
MikroElektronika
else
if(RB12_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
{*
* If RB13 is pressed, perform the “Partial image” demonstration
*}
else
{$IFDEF PARTIAL_IMAGE_DEMO}
if( RB13_bit = 1) then
begin
T6963C_setGrPanel(0);
T6963C_setTxtPanel(0);
T6963C_txtFill(0);
T6963C_setGrPanel(1);
T6963C_setTxtPanel(0);
T6963C_graphics(1);
T6963C_text(1);
T6963C_displayGrPanel(1);
T6963C_write_text(txt2, 5, 15, T6963C_ROM_MODE_XOR);
Delay_1sec();
T6963C_grFill(0);
T6963C_PartialImage(0, 0, 64, 64, 240, 128, @mikroE_240x128_bmp);
Delay_ms(1500);
T6963C_PartialImage(0, 0, 128, 128, 240, 128, @mikroE_240x128_bmp);
Delay_ms(1500);
T6963C_PartialImage(0, 0, 240, 128, 240, 128, @mikroE_240x128_bmp);
Delay_ms(1500);