User manual

496
mikoPascal PRO for PIC32
MikroElektronika
else
if (RB11_bit <> 0) then
begin
SPI_T6963C_graphics(1);
SPI_T6963C_text(1);
Delay_ms(300);
end
{*
* If RB12 is pressed, change cursor
*}
else
if(RB12_bit <> 0) then
begin
Inc(curs);
if (curs = 3) then
curs := 0;
case curs of
0:
// no cursor
SPI_T6963C_cursor(0);
1: begin
// blinking cursor
SPI_T6963C_cursor(1);
SPI_T6963C_cursor_blink(1);
end;
2: begin
// non blinking cursor
SPI_T6963C_cursor(1);
SPI_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
SPI_T6963C_setGrPanel(0);
SPI_T6963C_setTxtPanel(0);
SPI_T6963C_txtFill(0);
SPI_T6963C_setGrPanel(1);
SPI_T6963C_setTxtPanel(0);
SPI_T6963C_graphics(1);
SPI_T6963C_text(1);
SPI_T6963C_displayGrPanel(1);
SPI_T6963C_write_text(txt2, 5, 15, SPI_T6963C_ROM_MODE_XOR);
Delay_1sec();
SPI_T6963C_grFill(0);
SPI_T6963C_PartialImage(0, 0, 64, 64, 240, 128, @mikroE_240x128_bmp);
Delay_ms(1500);