SetUserCharSize процедурасы берілген пропорциялар бойын-ша енгізілетін символдар мөлшерін өзгертеді. Тақырыбы:
Procedure SetUserCharSize(XI,X2,Y1,Y2: Word);
мұндағы XI...Y2 – көлденең жəне тік пропорцияларды анықтайтын Word типті өрнек.
Процедура тек векторлық қаріптерге қолданылады. Про-порциялар қаріптің ені мен биіктігінің стандартты мəннен неше есе өсетіндігін көрсететін масштабтық коэффициентті бе-реді. Көлденең коэффициент X1-дің Х2-ге қатынасы ретінде беріледі, тігінен –Y1-дің Y2-ге қатынасы ретінде беріледі. Мы-салы, символдардың енін екі есе өсіру үшін Х1=2 жəне Х2=1 деп беру керек. Символдардың стандартты мөлшері SetUserCharSize процедурасының алдыңғы параметрлерін алып тастайтын SetTextStyle процедурасы арқылы беріледі.
Келесі мысалда кішірейтілген қаріптің пропорцияларының өзгеруін көреміз.
uses Graph, CRT;
var
d, r, e: Integer;
begin
{Графиканы іске қосамыз} d:=Detect; .InitGraph (d, r, ''); e:=GraphResult;
if e <> grOk then WriteLn(GraphErrorMsg(e))
else
begin
MoveTo (0, GetMaxY div 2); SetTextStyle (SmallFont, HorizDir, 5);
SetTextJustify (LeftText, BottomText);
{Стандартты 5 биіктікпен мəлімет шығарамыз} OutText ('Normal Width,'); {Қаріптің енін екі еселейміз}
226
SetUserCharSize (2, 1, 1, 1);
OutText (' Double Width, '); {Биіктігін екі есе өсіріп, стандартты енді береміз}
SetUserCharSize (I, 1, 2, 1); OutText ('Double Height,'); SetUserCharSize (2, 1, 2, 1);
OutText (' Double Width and Height'); if ReadKey=#0 then d := ord(ReadKey); CloseGraph
end
end.
