Оқулық Қазақстан Республикасы Білім жəне ғылым министрлігі бекіткен Алматы, 2011 1
жүктеу/скачать 4,42 Mb.
|
| SetTextJustlfy процедурасы енгізілетін мəтінді курсордың ағымдағы орнына қарай немесе берілген координаталарға байла-нысты туралануды тағайындайды. Тақырыбы: Procedure SetTextJustify(Huri2,Vert: Word);
мұндағы Horiz – көлденең туралау; Vert – тігінен туралау. Туралау мəтіннің қалай орналасатындығын – көрсетілген орыннан солға немесе оңға қарай, жоғары, төмен не ортаға ту-раланатындығын анықтайды. Мұнда келесі тұрақтыларды қол-дануға болады: const LeftText = 0; {Көрсеткіш мəтіннің сол жағында } CenterText= 1; { Симметриялы солға жəне оңға, жоғары жəне төмен} RightText = 2; { Көрсеткіш мəтіннің оң жағында } BottomText= 0; { Көрсеткіш мəтіннің төменгі жағында } 224 TopText = 2; { Көрсеткіш мəтіннің жоғарғы жағында } Келесі программа мəтінді графикалық экранның центріне бай- ланысты əртүрлі орналастыру тəсілдерін бейнелейді (7.12-сурет). uses Graph, CRT; var d,r,e: Integer; begin {Графиканы іске қосамыз} d:=Detect; InitGraph(d,, r, ' '); 7.12-сурет. e:=GraphResult; if e <> grOk then WriteLn(GraphErrorMsg(e)) else begin {Экран ортасында қилысқан сызықтар саламыз} Line(0,GetMaxY div 2,GetMaxX,GetMaxY div 2); Line(GetMaxX div 2,0,GetMaxX div 2,GetMaxY); Мəтінді центрдің оң жəне жоғарғы жағына орна-ластырамыз} SetTextStyle(TriplexFont,HorizDir,3); SetTextJustify(LeftText,BottomText); OutTextXY (GetMaxX div 2, GetMaxY div 2, 'LeftText,BottomText'); {Мəтінді сол жəне төменгі бөлікке орналастыра-мыз} SetTextJustify (RightText, TopText); OutTextXY (GetMaxX div 2, GetMaxY div 2, 'RightText, TopText'); if ReadKey=#0 then d := ord(ReadKey); 225 CloseGraph end end. жүктеу/скачать 4,42 Mb. Достарыңызбен бөлісу:
|