Afişarea textelor
Biblioteca unit-ului Graph pune la dispoziţia utilizatorului un număr însemnat de subprograme orientate spre editări de texte pe ecran. Aceste subprograme permit utilizarea mai multor tipuri de caractere, dimensionarea şi alinierea caracterelor, precum şi direcţia textului putând fi selecţionate.
Procedura SetTextStyle defineşte forma caracterelor textului ce se vor utiliza la scrierea textelor, direcţia de scriere, precum şi dimensiunea caracterelor.
Sintaxă: Procedure SetTextStyle(Stil_caracter, Direcţie, Dimensiune : Word);
Stil_caracter – variabilă care defineşte numărul setului de caractere
DefaultFont = 0;
TriplexFont = 1;
SmallFont = 2;
SansSerifFont = 3;
GothicFont = 4;
ScriptFont = 5;
SimplexFont = 6;
TriplexScript = 7;
ComplexFont = 8;
EuropeanFont = 9;
BoldFont = 10;
Direcţie – stabileşte direcţia de scriere
HorizDir = 0 – stabileşte scrierea de la stânga la dreapta;
VertDir = 1 – stabileşte scrierea de jos în sus;
Dimensiune – dimensiunea caracterelor;
Procedura SetColor stabileşte culoarea de afişare.
Sintaxa: Procedure SetColor(Culoare : Word);
Culoare – Valori intre 0 şi 15 sau constantele folosite si cu TextColor (White,
Red, Black etc.) sau constantele definite în unit-ul Util (Alb, Rosu, Negru etc.);
Procedura SetTextJustify fixează valorile de aliniere ale textului. Aceste
Valori sunt utilizate de procedurile de editare propriu zise.
Sintaxa: Procedure SetTextJustify(Oriz,Vert : Word);
Oriz – Stabileşte alinierea orizontală;
LeftText = 0 – stânga;
CenterText = 1 – centru;
RightText = 2 – dreapta;
Vert – Stabileşte alinierea verticală;
BottomText = 0 – jos;
CenterText = 1 – centru;
TopText = 2 – sus;
Procedura OutText trimite un şir de caractere la dispozitivul standard de ieşire, coordonatele punctului de început al textului fiind determinate de poziţia pointerului actual ( MoveTo(x,y); ). Textul scris va apare conform informaţiilor stabilite de procedurile SetTextStyle şi SetTextJustify.
Sintaxa: Procedure OutText(St : String);
St – textul care se va scrie;
Procedura OutTextXY funcţionează similar procedurii OutText, cu deosebirea că începutul textului este definit de coordonatele x şi y ale ecranului (şi nu de pointerul actual).
Sintaxa: Procedure OutTextXY(x,y : Integer; St : String);
X – coordonata orizontală a ecranului;
Y – coordonata verticală a ecranului;
St – textul care se va scrie;
|