Class TUhwFont (unit Uhwfont) |
Inherits from
tcomponent
----------------------------------------------------------------------------
constructor Create(AOwner: TComponent);
- -----------------------------------------------------------------------------
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);
-----------------------------------------------------------------------------
property CharSpace : shortint
property SpaceLength : shortint
property UhwStrukt : TUhwStrukt
property Palette : TPal768
fInterSpace : shortint;
fpalname : string;
fSpaceLength : shortint;
fuhwstrukt : TUhwStrukt;
constructor Create(AOwner: TComponent);
-----------------------------------------------------------------------------
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);
-----------------------------------------------------------------------------
property CharSpace : shortint
property SpaceLength : shortint
property UhwStrukt : TUhwStrukt
property Palette : TPal768
fInterSpace : shortint;
fpalname : string;
fSpaceLength : shortint;
fuhwstrukt : TUhwStrukt;