Subprograme orientate spre texte aplicație problemă rezolvată

Procedura SetTextStyle defineste foma caracterelor textului ce se vor utiliza la scrierea textelor, directia de scriere precum si dimensiunea caracterelor.

Font defineste numarul seturilor de caractere, dir stabileste directia de scriere, iar dimcar dimensiunea caracterelor.

TriplexFont=1; SmallFont=2; SansserifFont=3; GothicFont=4; Caracterele implicite sunt desemnate de constanta Default-Font. Celelate tipuri de caractere sunt depuse in fisiere de tip *. CHR. In cazul in care aceste fisiere nu se gasesc vor fi utilizate caracterele implicite chiar daca variabila font arata o alta valoare.

Variabila dir de tip word stabileste directia scrieri si poate sa ia urmatoarele valori: Const HorizDir=0; VertDir=1; HorizDir stabileste scrierea de stanga la dreapta; VertDir stabileste scrierea de jos in sus.

Valoare implicita este HorizDir.

Variabila DimCar de tip word fixeaza dimensiunea caracterelor: valoarea n=1 inseamna marimea normala (implicita) a caracterelor, valoarea n>1 inseamna marirea de n ori a dimensiunii implicite.

Aceasta variabila poate sa ia si valoarea predefinita UserCharSize, caz in care dimensiunea implicita poate fi modoficata de procedura SetUserCharSize.

SetUserCharSize Procedura SetUserCharSize este definita astfel: ProcedureSetUserCharSize (multx, divx, multy, divy: word); Latimea normala este inmultita cu valoarea raportului Multx: Divy, iar inaltimea noramala este imultita cu valoarea raportului MultyDivy. Prin fixarea acestore parametri utilizatorul poate sa defineasca inaltimea si latimea proprie a caracterelor speciale. SetTextJustify Procedura SetTextJustify fixeaza valorile de aliniere ale textului. Aceste valori sunt utilizate de procedurile de editare propriuzise. Procedura este definita astfel: Procedure SetTextJustify (oriz, vert: word); Oriz stabileste alinierea orizontala; Vert alinierea verticala.

Penbtru stabilirea alinieri pot fi utilizate urmaatoarele constante predefinite: Const {alinierea orizontala} LeftText=0; {stanga} CenterText=1; {centru} RighText=2; {dreapta} {alinierea verticala} BottmText=0; {jos} CenterText=1; {centru} TopText=2; {sus} GetTextSettings Procedura GetTextSetting retuneaza numarul setului de caractere, directia de scriere dimensiunea caracterelor valoarea alinieri verticale si orizontale utilizate actual.

Procedura este definita astfel: Proceduere GetTextSettings (var infotext: TextSetingsType); Infotext este de tip predefinit TextSetingsType si va contine informatii referitoare la text.

Tipul este definit astfel: Type TextSettingsType=record Font: word; {numar set de caractere} Direction: word; {directia scrieri} Charsize: word; {dimensiunea} Horiz: word; {alinierea orizontala} Vert: word; {alinierea verticala} end; TextHeight Functia TextHeight returneaza inaltomea unui lant de caractere in puncte imagine (pixeli). Functia este definita ...