Noch eine frage bzgl. TextBlock
Delphi-Quellcode:
//** HELP SCREEN
procedure GLHelpScreen();
begin
glTranslatef(0, 0, -100);
glScalef(1, -1, 1);
glScalef(0.1, 0.1, 0.1);
glTranslatef(-520, -400, 0);
// set align to center
tsTextColor3f(1, 1, 1);
tsSetParameteri(TS_ALIGN, TS_ALIGN_BLOCK);
tsSetParameteri(TS_VALIGN, TS_VALIGN_TOP);
glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
glEnable(GL_BLEND);
tsTextBeginBlock(20, 20, 760, 560, TS_BLOCKFLAG_WORD_WRAP);
tsFontBind(fHelpFontID);
tsTextOutA('KEY - COMMAND'#13#10);
tsTextOutA('--------------------------------------- '#13#10);
tsTextOutA('F1 : This Helpscreen'#13#10);
tsTextOutA('ESC : Exit FullScreen'#13#10);
tsTextOutA('Space : Colorswitch on/off '#13#10);
tsTextOutA('+ : Set Color'#13#10);
tsTextOutA('P : Polygone on/off'#13#10);
tsTextOutA('Left : Previous Title'#13#10);
tsTextOutA('Right : Next Title'#13#10);
tsTextOutA('Up : Decrease Volume'#13#10);
tsTextOutA('Down : Increase Volume');
tsTextEndBlock;
glDisable(GL_BLEND);
end;
Hier ist alles schön aufgeräumt
Beim rendern wird jedoch alles vor dem Doppelpunkt verschoben
Wie kann ich das verhindern ?
Wieder ein Pic zur vorschau des Fehlers
gruss Emil