Threaded Mode | Linear Mode

Tim Wessman · (This post was last modified: 05-27-2015 10:03 PM by Tim Wessman.)

Either do all your drawing on G1, and then display it at the end on G0 (your screen), or else draw to G0, and copy into G1 if you plan on keeping it around. You will need to size your G1 before you use it!

Code:

EXPORT labelmat()

BEGIN

  DIMGROB_P(G1,320,240); //or whatever you want the size to be

  RECT_P(G1);

  TEXTOUT_P(G1,"Labels of the tables", 85, 10, 5, RGB(255, 0, 0));

  LINE_P(G1,10,35,300,35, RGB(0,0,255));

  TEXTOUT_P(G1,"SL: Straight Line method", 10, 45, 3, RGB(0,0,0),210, RGB(0,255,0));

  TEXTOUT_P(G1,"| Depr. expence | Accumul. dep. at year-end |", 5, 65);

  TEXTOUT_P(G1,"| Book value at year-end | Remaining value    |", 5, 80);

  TEXTOUT_P(G1,"DB: Declining Balance method", 10, 100, 3, RGB(0,0,0),210, RGB(0,255,0));

  TEXTOUT_P(G1,"| Dep. rate | D. expence | Accum. d. y-end |", 5, 115);

  TEXTOUT_P(G1,"| Book value at year-end | Remaining value |", 5, 130);

  TEXTOUT_P(G1,"SOYD: Sum of the Years Digits method", 10, 150, 3, RGB(0,0,0),250, RGB(0,255,0));

  TEXTOUT_P(G1,"| Depreciation Base | Dep. rate | D. expence |", 5, 165);

  TEXTOUT_P(G1,"| Accumulated dep. y-end | Book val y-end   |", 5, 180);

  TEXTOUT_P(G1,"| Remaining value |", 5, 195);

  BLIT_P(G0, G1);

  WAIT;

END;

Or copy into G1 at the end.

Code:

EXPORT labelmat()

BEGIN

  RECT_P();

  TEXTOUT_P("Labels of the tables", 85, 10, 5, RGB(255, 0, 0));

  LINE_P(10,35,300,35, RGB(0,0,255));

  TEXTOUT_P("SL: Straight Line method", 10, 45, 3, RGB(0,0,0),210, RGB(0,255,0));

  TEXTOUT_P("| Depr. expence | Accumul. dep. at year-end |", 5, 65);

  TEXTOUT_P("| Book value at year-end | Remaining value    |", 5, 80);

  TEXTOUT_P("DB: Declining Balance method", 10, 100, 3, RGB(0,0,0),210, RGB(0,255,0));

  TEXTOUT_P("| Dep. rate | D. expence | Accum. d. y-end |", 5, 115);

  TEXTOUT_P("| Book value at year-end | Remaining value |", 5, 130);

  TEXTOUT_P("SOYD: Sum of the Years Digits method", 10, 150, 3, RGB(0,0,0),250, RGB(0,255,0));

  TEXTOUT_P("| Depreciation Base | Dep. rate | D. expence |", 5, 165);

  TEXTOUT_P("| Accumulated dep. y-end | Book val y-end   |", 5, 180);

  TEXTOUT_P("| Remaining value |", 5, 195);

  DIMGROB_P(G1,320,240);

  BLIT(G1,G0);

  WAIT;

END;