tailieunhanh - Lý thuyết và bài tập Pascal nâng cao part 10

Tham khảo tài liệu 'lý thuyết và bài tập pascal nâng cao part 10', tài liệu phổ thông, tin học phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả | 396 Lỷ thuyết và Bàì tệp Pascal writexy x2 y2 border 5 END PROCEDURE Box a b c d fg byte VAR olckbyte BEGIN old TextAttr TextAttr fg Frame a b c d 1 Window a 1 b 1 c l d-1 clrscr Windowd 1 80 25 TextAttr Old END PROCEDURE BoxShadow a b c d fg bg byte BEGIN SetAttr c l b 1 c 2 d l bg SetAttr a 2 d 1 c 2 d l bg Box a b c d fg END Function Offset x y byte word Begin Offset pred x 2 pred y 160 End Chuang 10 Bài tập và cỗu hỏi õn 397 Procedure SaveBoxfxl ỵl x2 y2 byte Var ScrBox BoxPtr Var Num BufSeg BuíOfs Word dongíbyte Begin With ScrBoxA do Begin Ngang x2-x1 1 Doc y2-y1 1 Num Ngang 2 BufSeg Seg BufA BufOfs Ofs BufA For dong y1 to y2 do Begin Move PtrtVídSeg Oífset x1 dong A PtdBưfSeg BuíOfs A Num inc BufOfs num End End End Procedure RestoreBoxfxl y1 byte Var ScrBox BoxPtr Var Num BufSeg BufOfs Word dongibyte Begin With ScrBoxA do Begin num Ngang 2 BufSeg Seg BufA 398 Lý thuyết và Bàt tập Pascal BufOfs Ofs BufA For dong y1 to y1 pred doc do Begin Move Ptr BufSeg BufOfs A Ptr VidSeg Offset xl dong A Num inc BufOfs num End End End Procedure Shadow a b c d byte attr byte Begin SetAttr c l b 1 c 2 d 1 attr SetAttr a 2 d 1 c 2 d 1 attr End Procedure MoveBox direction byte shade boolean Var ngang doc byte Procedure SetBox Begin SaveBox x y x ngang y doc Back RestoreBox x y Save Shadow x y x dx y dy 7 End Begin f Shade .