Hmm.. I just found this record definition in Font4.pas:
Code:
FontInfo = record
A, C: integer;
Wid, Hgt: cardinal;
char: WideChar;
x1,y1,x2,y2: double;
end;
Why is B missing? By looking at your source, my guess is that it's added to C.
Code:
procedure TFontObj.Draw(const X, Y: single; const Txt: widestring; Lev: single);
var CurX: single;
Ch: Widechar;
Chaar, I, Ind: integer;
begin
CurX := X;
for I := 1 to length(Txt) do
begin
Ch := Txt[I];
Chaar := integer(ch);
if Chaar = 32 then
begin
Ind := -1;
CurX := CurX + SpaceWidth;
end
else
begin
Ind := CharLookup[Chaar];
end;
if ind > -1 then
begin
CurX := CurX + F[Ind].A;
DrawQuadRT(CurX, Y, F[ind].Wid, F[ind].Hgt, lev, F[ind].x1,F[ind].x2,F[ind].y1,F[ind].y2);
CurX := CurX + F[Ind].C;
end;
end;
end;
Would be nice if you added some comments to make these things clear.
Bookmarks