Оқулық Қазақстан Республикасы Білім жəне ғылым министрлігі бекіткен Алматы, 2011 1
жүктеу/скачать 4,42 Mb.
|
| 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. жүктеу/скачать 4,42 Mb. Достарыңызбен бөлісу:
|