Chip 2001 July/Chip_2001-07_cd1.bin/ctenari/Cerny/INSTALLF.EXE/rar/FREETFB/ADD/INSFONT.ADD

Text File | 2001-04-28 | 720b | 26 lines

{ instalace noveho vektoroveho fontu .CHR    }
{ vyzaduje jednotku Graph.fbl a pokud bude   }
{ soucasti zdr.textu v TFBPro musi byt       }
{ uvedena direktiva #NoTranslation na zacatku}
{ a #Translation na konci                    }
function InstallFont(Name:string) : Boolean;
begin
  TFBFont := InstallUserFont(Name);
  if GraphResult <> grOk then InstallFont := FALSE
    else
  InstallFont := TRUE;
end;

procedure FBFontXY(FX,FY:integer;FnName:string;Vel,HoVe:integer; BRet:string; BF:byte);
var GTC : word;
begin
  if InstallFont(FnName) then
  begin
    GTC := GetColor;
    SetColor(BF);
    SetTextStyle(TFBFont, HoVe, Vel);
    OutTextXY(FX,FY,BRet);
    SetColor(GTC);
  end;
end;