Class TUHWstrukt (unit Uhwfont)

Inherits from

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;

-----------------------------------------------------------------------------} {--------------------- 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;



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;