Robisz tak:
func void DIA_Questob_ST_Wybor1_1_1()
{
a = ConcatStrings(a, "A");
};
func void DIA_Questob_ST_Wybor3_1()
{
a = ConcatStrings(a, "B");
};
func void DIA_Questob_ST_Wybor3_4 ()
{
a = ConcatStrings(a, "C");
};
func void DIA_Questob_ST_Wybor3_5 ()
{
a = ConcatStrings(a, "D");
};
func void DIA_Questob_ST_Wybor1_1_2()
{
Info_ClearChoices (DIA_Questob_ST);
};
FUNC VOID UseCzystaKsiega()
{
tab = ConcatStrings(tab, a);
var int nDocID;
nDocID = Doc_Create () ; // DocManager
Doc_SetPages ( nDocID, 2 ); //wieviel Pages
Doc_SetPage ( nDocID, 0, "Book_Mage_L.tga", 0 );
Doc_SetPage ( nDocID, 1, "Book_Mage_R.tga", 0 );
//1.Seite
Doc_SetFont ( nDocID, -1, "font_15_book.tga" ); // -1 -> all pages
Doc_PrintLine ( nDocID, 0, "");
Doc_PrintLine ( nDocID, 0, "");
Doc_SetMargins ( nDocID, 0, 275, 20, 30, 20, 1 ); // 0 -> margins are in pixels
Doc_PrintLine ( nDocID, 0, " " );
Doc_SetFont ( nDocID, -1, "font_10_book.TGA" ); // -1 -> all pages
Doc_PrintLine ( nDocID, 0, "");
Doc_PrintLine ( nDocID, 0, "");
Doc_PrintLines ( nDocID, 0, tab);
Doc_PrintLines ( nDocID, 0, "");
//2.Seite
Doc_SetMargins ( nDocID, -1, 30, 20, 275, 20, 1 ); // 0 -> margins are in pixels (Position des Textes von den Ränder des TGAs aus, links,oben,rechts,unten)
Doc_PrintLine ( nDocID, 1,"");
Doc_PrintLine ( nDocID, 1, "");
Doc_PrintLine ( nDocID, 1, "");
Doc_PrintLine ( nDocID, 1, "");
Doc_PrintLines ( nDocID, 1, "");
Doc_PrintLine ( nDocID, 1, "");
Doc_PrintLine ( nDocID, 1, "");
Doc_PrintLine ( nDocID, 1, "");
Doc_Show ( nDocID );
};
o to ci chodziło?