RE: TEXTOUT_P: export graphic?
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;
TW
Although I work for HP, the views and opinions I post here are my own.
|