- if tsInit(TS_INIT_TEXTSUITE) = TS_FALSE then
- showmessage('Error: Initialization of TS_INIT_TEXTSUITE failed.');
- if tsInit(TS_INIT_OPENGL) = TS_FALSE then
- showmessage('Error: Initialization of TS_INIT_OPENGL failed.');
- if tsInit(TS_INIT_GDI) = TS_FALSE then
- showmessage('Error: Initialization of TS_INIT_GDI failed.');
- tsContextCreate(@ContextID);
- tsSetParameteri(TS_RENDERER, TS_RENDERER_OPENGL);
- tsSetParameteri(TS_CREATOR, TS_CREATOR_GDI);
- tsFontCreateCreatorA('BORG9.ttf', 400, TS_STYLE_NORMAL, TS_DEFAULT, TS_DEFAULT, @FontID);