Unit q_uhf

Classes

Functions

ixUHF - robi w kolorach oryg.
iyUHF -
LOAD_UHF - ------------------------------------------------------------------------
MAKE_UHF - ------------------------------------------------------------------------
MAKE_UHF_FULL - ------------------------------------------------------------------------

------------------------------------------------------
WRITE_UHF - laduje fonta do pamieci/przydziela pamiec!} {------------------------------------------------------------------------

with
WRITE_UHF_FULL - pisze tekst na ekranie x,y w kolorze kolor} {------------------------------------------------------------------------

Types

uhf_char_type
uhf_set
uhf_tab
UHF_type

Constants

Variables

fsys


Functions


FUNCTION ixUHF(s:string;foncik:uhf_type):word;

robi w kolorach oryg.w pudle xx/yy o y1 w dol} {------------------------------------------------------------------------

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


FUNCTION iyUHF(s:string;foncik:uhf_type):byte;


PROCEDURE LOAD_UHF (name:string; var foncik:uhf_type);

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

PROCEDURE MAKE_UHF(s:string;var dane:obrwsk;var foncik:uhf_type;k,x1,x2,y1,y2:word);

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

PROCEDURE MAKE_UHF_FULL(s:string;var dane:obrwsk;var foncik:uhf_type; xx,yy,y1:word);

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

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


PROCEDURE WRITE_UHF(x1,y1,kolor:word;s:string;var foncik:uhf_type);

laduje fonta do pamieci/przydziela pamiec!} {------------------------------------------------------------------------

with


PROCEDURE WRITE_UHF_FULL(x1,y1:word;s:string;var foncik:uhf_type;k:integer);

pisze tekst na ekranie x,y w kolorze kolor} {------------------------------------------------------------------------

Types


uhf_char_type = record
x : byte;
y : byte;
ydown : byte;
end;
uzywanie fontow typu UHF, kazdy font opisuja wartosci: zmodyfikowane
uhf_set=set of byte

uhf_tab=array[0..255] of ^uhf_char_type;

UHF_type = record
font : obrwsk;
spacja : byte;
odstep : byte;
wsk : array[0..255] of word;
tablica : uhf_tab;
end;

Constants


Variables

fsys : uhf_type