...ere nu se gasesc vor fi utilizate caracterele implicite chiar daca variabila font arata o alta valoare.Variabila dir de tip ord stabileste directia scrieri si poate sa ia urmatoarele valoriConst HorizDir0 VertDir1HorizDir stabileste scrierea de stanga la dreaptaVertDir stabileste scrierea de jos in sus.Valoare implicita este HorizDir.Variabila DimCar de tip ord fixeaza dimensiunea caracterelor valoarea n1 inseamna marimea normala implicita a caracterelor,valoarea n1 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 astfelProcedureSetUserCharSizemultx,divx,multy,div
yordLatimea normala este inmultita cu valoarea raportului MultxDivy,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 astfelProcedure SetTextJustifyoriz,vertordOriz stabileste alinierea orizontalaVert alinierea verticala.Penbtru stabilirea alinieri pot fi utilizate urmaatoarele constante predefiniteConst Ialinierea orizontalaS LeftText0IstangaS CenterText1 IcentruS RighText2 IdreaptaSIalinierea verticalaS BottmText0IjosSCenterText1IcentruSTopText2IsusSGet
TextSettingsProcedura GetTextSetting retuneaza numarul setului de caractere, directia de scriere dimensiunea caracterelor valoarea alinieri verticale si orizontale utilizate actual.Procedura este definita astfelProceduere GetTextSettingsvar infotextTextSetingsTypeInfotext este de tip predefinit TextSetingsType si va contine informatii referitoare la text.Tipul este definit astfelType TextSettingsTyperecordFontord Inumar set de caractereS Directionord Idirectia scrieriSCharsizeord IdimensiuneaSHorizord Ialinierea orizontalaSVertord Ialinierea verticalaS endTextHeightFunctia TextHeight returneaza inaltomea unui lant de caractere in puncte imagine pixeli.Functia este definita astfelFunction TextHeight lcstringordLc reprezinta lantul de caractere.TextidthFunctia Textidth returneaza latimea unui lant de caractere in pixeli.Functia este definita astfel Function Textidht lcstringordLc reprezinta lantul de caractere.OutTextProcedura OutText trimite un sir de caractere la dispozitivul standard de iesire cordonatele punctului de inceput al textului fiind determinata de pozitia pointerului actual.Textul scris va apare conform informatiilor stabilite de procedurile SetTextStyle,SetUserCharSize si SetTextJustify.Procedura este definita astfelProcedure OutText lcstringLc contine textul ce se va scrie.OutTextxyProcedura OutTextxy trimite un sir de caractere la dispozitivul standard de iesire, coordonatele punctului de inceput al textului sunt determinate de coordonatele x,y ale ecreanului si nu de pozitia pointer-ului actual.Textul scris va apare conform informatiilor stabilite de procedurile SetTextStyle, SetUserCharSize si SetTextJustify.Procedura este definita astfelProcedure OutTextxy x,yintegerlcstringLc contine textul ce se va scrie .9.2AplicatieProgramul texte arata modul de folosire a procedurilor si funtiilor de utilizare a caracterelor in modul grafic, setarile acestora, marimea de scriere a caracterelor si ditectia de scriere.Program texteUses CRT,GRAPHVar gd,gminteger Y,Size,linieintegerBegin GDdetectInitGraphgd,gm,actbptbgiaIf GraphResultgrOK then Halt1Y0For size1 to 4doBegin SetTextStyleDefaultFont,HorizDir,SizeOutTextXY0,y,
as...
Download