SuperEly
18-03-2003, 06:10 PM
The routine involving fonts, they needed to be modified in GLXFont.pas:
//---------------------------------------------------------------------------
procedure TGLXFontItem.TextOut(X, Y, Z: Integer; Text: String);
var RenderState: TGLXRenderState;
begin
if (Text = '') then Exit;
SetCurrentColor;
IF FFontType = ftSystem then begin
RenderState:= GLXDraw.RenderState;
GLXDraw.RenderState:=rs2D;
TextOutSystem (Base, X,Y-Font.Height , Text);
GLXDraw.RenderState:=RenderState
end else
IF FFontType = ftOutline then begin
RenderState:= GLXDraw.RenderState;
GLXDraw.RenderState:=rs3D;
TextOutOutline(Base, X,Y ,Z, Text);
GLXDraw.RenderState:=RenderState
end;
glColor3f(1.0, 1.0, 1.0);
end;
Andreaz
25-03-2003, 10:02 AM
Okey, i'm however planning on rebuilding the font component so it uses bitmap fonts instead, the system fonts used now doesn't rezise properly when the surfacewidth and surfaceheight is changed.
Powered by vBulletin® Version 4.2.5 Copyright © 2024 vBulletin Solutions Inc. All rights reserved.