Class TUhwFont (unit Uhwfont)

Inherits from

tcomponent

----------------------------------------------------------------------------

Constructors


constructor Create(AOwner: TComponent);

-----------------------------------------------------------------------------


Functions

function CharOut (canvas:TCanvas;X,Y:integer; const ch: char; frame:boolean):integer;

-----------------------------------------------------------------------------

destructor Destroy;

-----------------------------------------------------------------------------

function FontHeight : Integer;

-----------------------------------------------------------------------------

procedure GetTextOutBoxDCoord(var r:trect;myLeft,myWidth, XX,YY:integer;Text:obrwsk;falignx:Talignment;faligny:TalignmentY);

-----------------------------------------------------------------------------

function isCharInSet(ch:char):boolean;

result=width

-----------------------------------------------------------------------------


procedure LoadFromFile(const Text: string);

-----------------------------------------------------------------------------

procedure SaveToFile(const Text: string);

-----------------------------------------------------------------------------

function TextBoxHeight(canvas0:TCanvas;XX:integer;const Text:string):integer;

-----------------------------------------------------------------------------

procedure TextOut (canvas0:TCanvas;X,Y:integer; const Text: string);

--- i've written 2 writeout procs but the speed is unfortunately the same textout uses textout2 ---

-----------------------------------------------------------------------------} {-----------------------------------------------------------------------------} {function Tuhwfont.


procedure TextOut1 (canvas0:TCanvas;X,Y:integer; const Text: string);

-----------------------------------------------------------------------------

procedure TextOut2 (canvas0:TCanvas;X,Y:integer; const Text: string);

-----------------------------------------------------------------------------

procedure TextOutBox(canvas0:TCanvas;X,Y,XX,YY:integer;Text:string; falignx:Talignment;faligny:TalignmentY);

-----------------------------------------------------------------------------

procedure TextOutBoxD(canvas0:TCanvas;X,Y,XX,YY:integer;text:obrwsk; falignx:Talignment;faligny:TalignmentY);

-----------------------------------------------------------------------------

procedure TextOutBoxSolid(canvas0:TCanvas;X,Y,XX,YY:integer;Text:string; falignx:Talignment;faligny:TalignmentY;backcolor:TColor);

-----------------------------------------------------------------------------

function TextWidth(const Text: string): Integer;

-----------------------------------------------------------------------------

function CopyToFit (xx:word;text:string) : string;

-----------------------------------------------------------------------------

function GetPal:TPal768;

-----------------------------------------------------------------------------

procedure SetInterSpace(value:shortint);

-----------------------------------------------------------------------------

procedure SetPal(value:TPal768);

-----------------------------------------------------------------------------

procedure SetSpaceLength(value:shortint);

-----------------------------------------------------------------------------

procedure SetUhwStrukt(value:TUhwStrukt);

-----------------------------------------------------------------------------

Properties

property CharSpace : shortint


property SpaceLength : shortint


property UhwStrukt : TUhwStrukt


property Palette : TPal768


Events

Variables

fInterSpace : shortint;


fpalname : string;


fSpaceLength : shortint;


fuhwstrukt : TUhwStrukt;



Constructors


constructor Create(AOwner: TComponent);

-----------------------------------------------------------------------------


Functions


function CharOut (canvas:TCanvas;X,Y:integer; const ch: char; frame:boolean):integer;

-----------------------------------------------------------------------------


destructor Destroy;

-----------------------------------------------------------------------------


function FontHeight : Integer;

-----------------------------------------------------------------------------


procedure GetTextOutBoxDCoord(var r:trect;myLeft,myWidth, XX,YY:integer;Text:obrwsk;falignx:Talignment;faligny:TalignmentY);

-----------------------------------------------------------------------------


function isCharInSet(ch:char):boolean;

result=width

-----------------------------------------------------------------------------


procedure LoadFromFile(const Text: string);

-----------------------------------------------------------------------------


procedure SaveToFile(const Text: string);

-----------------------------------------------------------------------------


function TextBoxHeight(canvas0:TCanvas;XX:integer;const Text:string):integer;

-----------------------------------------------------------------------------


procedure TextOut (canvas0:TCanvas;X,Y:integer; const Text: string);

--- i've written 2 writeout procs but the speed is unfortunately the same textout uses textout2 ---

-----------------------------------------------------------------------------} {-----------------------------------------------------------------------------} {function Tuhwfont.CharOut (canvas:TCanvas;X,Y:integer; const Znak: char):integer; var x0,y0:integer; begin if data.tab[ord(znak)]=nil then begin if znak=' ' then result:=data.spacja else result:=0; end else with data.tab[ord(znak)]^ do begin for y0:=0 to yy-1 do for x0:=0 to xx-1 do if data.font^[wsk+x0+y0*xx]<>data.cTlo then bitmap.canvas.pixels[x0,y0+ydown]:=data.paleta[data.font^[wsk+x0+y0*xx]] else bitmap.canvas.pixels[x0,y0+ydown]:=clBlack; canvas.draw(x,y,bitmap); result:=xx; end; end;} {-----------------------------------------------------------------------------


procedure TextOut1 (canvas0:TCanvas;X,Y:integer; const Text: string);

-----------------------------------------------------------------------------


procedure TextOut2 (canvas0:TCanvas;X,Y:integer; const Text: string);

-----------------------------------------------------------------------------


procedure TextOutBox(canvas0:TCanvas;X,Y,XX,YY:integer;Text:string; falignx:Talignment;faligny:TalignmentY);

-----------------------------------------------------------------------------


procedure TextOutBoxD(canvas0:TCanvas;X,Y,XX,YY:integer;text:obrwsk; falignx:Talignment;faligny:TalignmentY);

-----------------------------------------------------------------------------


procedure TextOutBoxSolid(canvas0:TCanvas;X,Y,XX,YY:integer;Text:string; falignx:Talignment;faligny:TalignmentY;backcolor:TColor);

-----------------------------------------------------------------------------


function TextWidth(const Text: string): Integer;

-----------------------------------------------------------------------------


function CopyToFit (xx:word;text:string) : string;

-----------------------------------------------------------------------------


function GetPal:TPal768;

-----------------------------------------------------------------------------


procedure SetInterSpace(value:shortint);

-----------------------------------------------------------------------------


procedure SetPal(value:TPal768);

-----------------------------------------------------------------------------


procedure SetSpaceLength(value:shortint);

-----------------------------------------------------------------------------


procedure SetUhwStrukt(value:TUhwStrukt);

-----------------------------------------------------------------------------


Properties


property CharSpace : shortint


property SpaceLength : shortint


property UhwStrukt : TUhwStrukt


property Palette : TPal768


Events


Variables


fInterSpace : shortint;


fpalname : string;


fSpaceLength : shortint;


fuhwstrukt : TUhwStrukt;