Class TUHWstrukt (unit Uhwfont) |
Inherits from
TPersistent
procedure Assign(source:TUhwStrukt);
-----------------------------------------------------------------------------
function CharOut (canvas:TCanvas;X,Y:integer; const Znak: char; ramka:boolean):integer;
-----------------------------------------------------------------------------
function FontHeight : Integer;
-----------------------------------------------------------------------------
procedure FreeTab;
-----------------------------------------------------------------------------
procedure InitTab;
-----------------------------------------------------------------------------} {--------------------- TUHWSTRUKT -------------------------------------------} {-----------------------------------------------------------------------------
function Load(s:string):boolean;
-----------------------------------------------------------------------------
procedure LoadFromStream(Stream: TStream);
-----------------------------------------------------------------------------
function save(s:string):boolean;
-----------------------------------------------------------------------------
procedure SaveToStream(Stream: TStream);
-----------------------------------------------------------------------------
procedure TextOut1 (canvas0:TCanvas;X,Y:integer; const Text: string);
result=width-----------------------------------------------------------------------------
procedure TextOut2 (canvas0:TCanvas;X,Y:integer; const Text: string);
-----------------------------------------------------------------------------
function TextWidth(const Text: string): Integer;
-----------------------------------------------------------------------------
procedure DefineProperties(Filer: TFiler);
-----------------------------------------------------------------------------
font : obrwsk;
parent : TUhwFont;
tab : array[0..255] of ^tuhwchar;
procedure Assign(source:TUhwStrukt);
-----------------------------------------------------------------------------
function CharOut (canvas:TCanvas;X,Y:integer; const Znak: char; ramka:boolean):integer;
-----------------------------------------------------------------------------
function FontHeight : Integer;
-----------------------------------------------------------------------------
procedure FreeTab;
-----------------------------------------------------------------------------
procedure InitTab;
-----------------------------------------------------------------------------} {--------------------- TUHWSTRUKT -------------------------------------------} {-----------------------------------------------------------------------------
function Load(s:string):boolean;
-----------------------------------------------------------------------------
procedure LoadFromStream(Stream: TStream);
-----------------------------------------------------------------------------
function save(s:string):boolean;
-----------------------------------------------------------------------------
procedure SaveToStream(Stream: TStream);
-----------------------------------------------------------------------------
procedure TextOut1 (canvas0:TCanvas;X,Y:integer; const Text: string);
result=width
-----------------------------------------------------------------------------
procedure TextOut2 (canvas0:TCanvas;X,Y:integer; const Text: string);
-----------------------------------------------------------------------------
function TextWidth(const Text: string): Integer;
-----------------------------------------------------------------------------
procedure DefineProperties(Filer: TFiler);
-----------------------------------------------------------------------------
font : obrwsk;
parent : TUhwFont;
tab : array[0..255] of ^tuhwchar;