| Class TUHWstrukt (unit Uhwfont) |
TPersistent
| Constructors |
| Functions |
procedure Assign(source:TUhwStrukt);
function CharOut (canvas:TCanvas;X,Y:integer; const Znak: char; ramka:boolean):integer;
function FontHeight : Integer;
procedure FreeTab;
procedure InitTab;
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);-----------------------------------------------------------------------------
procedure TextOut2 (canvas0:TCanvas;X,Y:integer; const Text: string);
function TextWidth(const Text: string): Integer;
procedure DefineProperties(Filer: TFiler);| Properties |
| Events |
| Variables |
font : obrwsk;
parent : TUhwFont;
tab : array[0..255] of ^tuhwchar;| Constructors |
| Functions |
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);-----------------------------------------------------------------------------
| Properties |
| Events |
| Variables |
font : obrwsk;
parent : TUhwFont;
tab : array[0..255] of ^tuhwchar;