For Beginners & Professional Hackers

home *** CD-ROM | disk | FTP | other *** search

/ For Beginners & Professional Hackers / cd.iso / docum / gvision.doc / manual.doc next >

Wrap

Text File | 1995-02-13 | 192.5 KB | 4,829 lines

CÄäàÉåÇìêà ééàäàìêà................................................................ 1 I. æÅÉÇéÄùìÄà ÉôèÄéÄäæÆéÄ............................................... 2 1. C«ßΓáó »á¬ÑΓá GraphVision....................................... 2 î«ñπ½∞ Xms.................................................... 3 î«ñπ½∞ ExtObj................................................. 3 î«ñπ½∞ LowGraph............................................... 4 î«ñπ½∞ GrDriver............................................... 5 î«ñπ½∞ GFonts................................................. 6 î«ñπ½∞ Images................................................. 7 î«ñπ½∞ EventMan............................................... 7 î«ñπ½∞ Grav................................................... 8 î«ñπ½∞ Controls.............................................. 10 î«ñπ½∞ GrApp................................................. 10 î«ñπ½∞ GraMenu............................................... 11 î«ñπ½∞ GStdDlg............................................... 11 î«ñπ½∞ Geditors.............................................. 11 î«ñπ½∞ MsgBox................................................ 12 2. ÄíΩÑ¬Γδ........................................................ 13 GraphApplication............................................. 13 GraphBackground.............................................. 13 GraphBitmapButton............................................ 14 GraphButton.................................................. 16 GraphCheckBoxes.............................................. 16 GraphCluster................................................. 17 GraphDeskTop................................................. 20 GraphDialog.................................................. 20 GraphGrayGroup............................................... 21 GraphGroup................................................... 21 GraphHistoryViewer........................................... 22 GraphHistoryWindow........................................... 22 GraphHistory................................................. 23 GraphInputLine............................................... 23 GraphLabel................................................... 24 GraphListBox................................................. 24 GraphListViewer.............................................. 25 GraphParamText............................................... 26 GraphProgram................................................. 27 GraphRadioButtons............................................ 27 GraphStaticBitmap............................................ 28 GraphTextButton.............................................. 29 GraphTwoStateButton.......................................... 30 GraphScrollBar............................................... 32 GraphScroller................................................ 33 GraphStaticText.............................................. 34 GraphView.................................................... 35 GraphWindow.................................................. 39 T8x8BiosFont................................................. 41 TBGIFont..................................................... 42 TBiosFont.................................................... 43 TBmpFilter................................................... 44 TByteFlow.................................................... 46 TDefaultBGIFont.............................................. 47 TextListBox.................................................. 47 TFilter...................................................... 48 TFixedFont................................................... 49 TFont........................................................ 51 TImage....................................................... 52 TMouseCursor................................................. 53 TRasterFont.................................................. 54 TSharedResourceCollection.................................... 56 TSharedResource.............................................. 56 TXmsStream................................................... 57 3. ÄíΘ¿⌐ ß»αáó«τ¡¿¬............................................... 59 BiosFontParams............................................... 59 BitPerPlane.................................................. 59 bsXXXXXXX.................................................... 59 BytesPerLine................................................. 60 CanFillBackground............................................ 60 ConvertPixRow................................................ 60 CstrToStr.................................................... 60 CurrentFont.................................................. 60 CursorAreaSize............................................... 61 DoneFonts.................................................... 61 DoneVideo.................................................... 61 DrawChar..................................................... 61 DrawImage.................................................... 61 DrawMouseShape............................................... 62 DriverMode................................................... 62 DriverPaths.................................................. 62 DriverType................................................... 63 EmulateMouseCursor........................................... 63 ExtractImage................................................. 64 FillBackGround............................................... 64 Fonts........................................................ 64 GetNearestColor.............................................. 65 Hot.......................................................... 65 InitEvents................................................... 65 InitFonts.................................................... 65 InitVideo.................................................... 66 LockMouseCursor.............................................. 66 MinWinSize................................................... 66 MouseInRect.................................................. 67 MouseOwner................................................... 67 MouseShape................................................... 67 MoveBlock.................................................... 67 MovePixels................................................... 68 ofXXXXXX..................................................... 68 OutText...................................................... 68 OutTextXY.................................................... 68 Planes....................................................... 69 RegisterProc................................................. 69 ScreenHeight................................................. 69 ScreenWidth.................................................. 69 SelectFont................................................... 70 SetExclusiveArea............................................. 70 SetMouseCursor............................................... 70 SetTextStyle................................................. 70 SetupMethods16............................................... 71 SetupMethods256.............................................. 71 SetWriteMode................................................. 71 StdResource.................................................. 71 StdSharedResource............................................ 71 SwitchBank................................................... 71 SystemFont................................................... 72 TextHeight................................................... 72 TextWidth.................................................... 72 TPaletteType................................................. 72 Vesa16Modes.................................................. 73 Vesa256Modes................................................. 73 VesaDriverNames.............................................. 73 wfXXXXXX..................................................... 74 Xms_Addr..................................................... 74 Xms_FreeMem.................................................. 74 Xms_GetMem................................................... 74 Xms_Init..................................................... 75 Xms_Initialized.............................................. 75 Xms_MaxAvail................................................. 75 Xms_MemAvali................................................. 75 Xms_MoveMem.................................................. 76 Xms_ResizeMem................................................ 76 Xms_Status................................................... 76 II. ÉàæôÉæ¢............................................................ 77 1. ùΓ« ¡áσ«ñ¿Γß∩ ó Σá⌐½Ñ Standard.rsc............................. 77 2. èá¬ ºáúαπº¿Γ∞ αÑßπαß........................................... 78 3. èá¬ σαá¡∩Γß∩ αÑßπαßδ........................................... 78 4. èá¬ ñ«íáó¿Γ∞ αÑßπαß............................................ 78 III. æÄéàÆ¢............................................................ 80 1. ôßΓá¡«ó¬á ó¿ñÑ«αÑª¿¼«ó......................................... 80 2. é¬½ετÑ¡¿Ñ BGI ñαá⌐óÑα«ó ó ß«ßΓáó ¿ß»«½¡∩Ñ¼«ú« ¼«ñπ½∩........... 82 3. êß»«½∞º«óá¡¿Ñ BGI ñαá⌐óÑα«ó ó »α«úαá¼¼áσ ºáΘ¿ΘÑ¡¡«ú« αÑª¿¼á ... 82 4. îδΦ¿¡δ⌐ ¬παß«α ó VESA αÑª¿¼áσ.................................. 83 1 é é à ä à ì ê à ----------------------------------------------------------------------------- GraphVision - φΓ« ¡áí«α «íΩÑ¬Γ«ó, »αÑñ¡áº¡áτÑ¡¡δ⌐ ñ½∩ ß«ºñá¡¿∩ úαáΣ¿τÑß¬«ú« »«½∞º«óáΓÑ½∞ß¬«ú« ¿¡ΓÑαΣÑ⌐ßá ñ½∩ ∩ºδ¬á »α«úαá¼¼¿α«óá¡¿∩ Turbo Pascal ¿ αáºαáí«Γá¡¡δ⌐ ß ¿ß»«½∞º«óá¡¿Ñ¼ ßΓá¡ñáαΓ¡δσ ßαÑñßΓó úαáΣ¿¬¿ ∩ºδ¬á. GraphVision - «íΩÑ¬Γ¡«-«α¿Ñ¡Γ¿α«óá¡¡á∩ í¿í½¿«ΓÑ¬á, «ß¡«óá¡¡á∩ ¡á »α¿¡µ¿»áσ, αÑá½¿º«óá¡¡δσ ó »á¬ÑΓÑ Turbo Vision. ä½∩ ÑÑ ¿ß»«½∞º«óá¡¿∩ ¡Ñ«íσ«ñ¿¼« ¡á½¿τ¿Ñ o»δΓá »α«úαá¼¼¿α«óá¡¿∩ ß ¿ß»«½∞º«óá¡¿Ñ¼ »á¬ÑΓá Turbo Vision. é ñá¡¡«¼ ñ«¬π¼Ñ¡ΓÑ «»¿ßδóáεΓß∩ Γ«½∞¬« ñ«»«½¡Ñ¡¿∩ ¿ ¿º¼Ñ¡Ñ¡¿∩ ó αÑá½¿ºáµ¿¿ «íΩÑ¬Γ«ó »« ßαáó¡Ñ¡¿ε ß Turbo Vision. ä½∩ ñÑΓá½∞¡«ú« «º¡á¬«¼½Ñ¡¿∩ ß »α¿¡µ¿»á¼¿ ¿ß»«½∞º«óá¡¿∩ »á¬ÑΓá GraphVision ß¼«Γα¿ ñ«¬π¼Ñ¡Γ "Turbo Vision Guide". 2 æ Å É Ç é Ä ù ì Ä à É ô è Ä é Ä ä æ Æ é Ä I ----------------------------------------------------------------------------- ¥Γ«Γ αáºñÑ½ ß«ßΓ«¿Γ ¿º ΓαÑσ τáßΓÑ⌐: ùáßΓ∞ 1, "æ«ßΓáó »á¬ÑΓá GraphVision", ß«ñÑαª¿Γ ¬αáΓ¬«Ñ «»¿ßá¡¿Ñ ¼«ñπ½Ñ⌐, óσ«ñ∩Θ¿σ ó ß«ßΓáó »á¬ÑΓá. æεñá óσ«ñ∩Γ ß»¿ß¬¿ Γ¿»«ó, ¬«¡ßΓá¡Γ, »ÑαÑ¼Ñ¡¡δσ, »α«µÑñπα ¿ Σπ¡¬µ¿⌐, «íΩ∩ó½Ñ¡¡δσ ó ¬áªñ«¼ ¼«ñπ½Ñ. ùáßΓ∞ 2, "ÄíΩÑ¬Γδ", ß«ñÑαª¿Γ «»¿ßá¡¿Ñ ßΓá¡ñáαΓ¡δσ «íΩÑ¬Γ«ó, óσ«ñ∩Θ¿σ ó ß«ßΓáó »á¬ÑΓá, ó á½Σáó¿Γ¡«¼ »«α∩ñ¬Ñ. ùáßΓ∞ 3, "ÄíΘ¿⌐ ß»αáó«τ¡¿¬", ß«ñÑαª¿Γ «»¿ßá¡¿Ñ óßÑσ ú½«íá½∞¡δσ »ÑαÑ¼Ñ¡¡δσ, ¬«¡ßΓá¡Γ, »α«µÑñπα ¿ Σπ¡¬µ¿⌐ ó á½Σáó¿Γ¡«¼ »«α∩ñ¬Ñ. C«ßΓáó »á¬ÑΓá GraphVision 1 ---------------------------------------------------------------------------- é ß«ßΓáó »á¬ÑΓá óσ«ñ∩Γ ß½ÑñπεΘ¿Ñ ¼«ñπ½¿: --------------------------------------------------------- î«ñπ½∞ ìáº¡áτÑ¡¿Ñ --------------------------------------------------------- Controls Éáº½¿τ¡δÑ «íΩÑ¬Γδ, ¿ß»«½∞ºπÑ¼δÑ ñ½∩ »«ßΓα«Ñ¡¿∩ ñ¿á½«ú«ó. Ç¡á½«ú ¼«ñπ½∩ Dialogs ExtObj ÉáßΦ¿αÑ¡¿Ñ «íΩÑ¬Γ«ó «íΘÑú« ¡áº¡áτÑ¡¿∩ EventMan äαá⌐óÑαδ ¼δΦ¿, ¬½áó¿áΓπαδ, ¼Ñ¡ÑñªÑα ß«íδΓ¿⌐. Ç¡á½«ú ¼«ñπ½∩ Drivers GrDriver ä«»«½¡¿ΓÑ½∞¡δÑ úαáΣ¿τÑß¬¿Ñ »α«µÑñπαδ óδß«¬«ú« πα«ó¡∩ GFonts Å«ññÑαª¬á αáº½¿τ¡δσ ó¿ñ«ó Σ«¡Γ«ó Grav üáº«óδÑ «íΩÑ¬Γδ, ¿ß»«½∞ºπÑ¼δÑ ñ½∩ »«ßΓα«Ñ¡¿∩ »«½∞º«óáΓÑ½∞ß¬«ú« ¿¡ΓÑαΣÑ⌐ßá. Ç¡á½«ú ¼«ñπ½∩ Views GraMenu ÄíΩÑ¬Γδ, αÑá½¿ºπεΘ¿Ñ ¼Ñ¡ε ¿ ßΓα«¬π ß«ßΓ«∩¡¿∩. Ç¡á½«ú ¼«ñπ½∩ Menus GrApp ÄíΩÑ¬Γδ ñ½∩ »«ßΓα«Ñ¡¿∩ »α¿½«ªÑ¡¿⌐. Ç¡á½«ú ¼«ñπ½∩ App GEditors ÉÑñá¬Γ«αδ ΓÑ¬ßΓá. Ç¡á½«ú ¼«ñπ½∩ Editors GStdDlg ÄíΩÑ¬Γδ ñ½∩ αáí«Γδ ß Σá⌐½á¼¿ ¿ ¬áΓá½«úá¼¿. Ç¡á½«ú ¼«ñπ½∩ StdDlg Images ÄíΩÑ¬Γδ ¿ »α«µÑñπαδ ñ½∩ αáí«Γδ ß «íαáºá¼¿ LowGraph âαáΣ¿τÑß¬¿Ñ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿ ¡¿º¬«ú« πα«ó¡∩ MsgBox ä¿á½«ú«ó«Ñ «¬¡« ñ½∩ αáº½¿τ¡δσ ß««íΘÑ¡¿⌐ Xms Åα«µÑñπαδ ¿ Σπ¡¬µ¿¿ ñ½∩ αáí«Γδ ß αáßΦ¿αÑ¡¡«⌐ »á¼∩Γ∞ε. ---------------------------------------------------------- 3 î«ñπ½∞ Xms ============================================================================= î«ñπ½∞ Xms ß«ñÑαª¿Γ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿ ñ½∩ αáí«Γδ ß αáßΦ¿αÑ¡¡«⌐ »á¼∩Γ∞ε. ------------------------------------------------------------- èÄìæÆÇìÆ¢ ê¼∩ ç¡áτÑ¡¿Ñ æ¼δß½ ------------------------------------------------------------- Xms_BlockSize 1024 Éáº¼Ñα ¼¿¡¿¼á½∞¡«ú« í½«¬á αáßΦ¿αÑ¡¡«⌐ »á¼∩Γ¿ ------------------------------------------------------------- ------------------------------------------------------------- ÅàÉàîàìì¢à ê¼∩ Æ¿» ìáτ.º¡. æ¼δß½ ------------------------------------------------------------- Xms_Initialized boolean false ö½áú ñ«ßΓπ»¡«ßΓ¿ XMS Xms_Addr pointer ÇñαÑß Γ«τ¬¿ óσ«ñá Xms_Status byte æΓáΓπß ºáóÑαΦÑ¡¿∩ «»Ñαáµ¿¿ ------------------------------------------------------------- ÅÉÄûàäôÉ¢ ê ------------------------------------------------------------- öôìèûêê Åα«µÑñπαá ìáº¡áτÑ¡¿Ñ ------------------------------------------------------------- Xms_FreeMem Äßó«í«ªñáÑΓ αáßΦ¿αÑ¡¡πε »á¼∩Γ∞ Xms_MoveMem ÅÑαÑßδ½¬á ñá¡¡δσ ¿º/ó αáßΦ¿αÑ¡¡πε »á¼∩Γ∞ Xms_ResizeMem êº¼Ñ¡∩ÑΓ αáº¼Ñα óδñÑ½Ñ¡¡«ú« í½«¬á αáßΦ¿αÑ¡¡«⌐ »á¼∩Γ¿ ============================================================= öπ¡¬µ¿∩ ìáº¡áτÑ¡¿Ñ ------------------------------------------------------------- Xms_Init Ä»αÑñÑ½∩ÑΓ ¡á½¿τ¿Ñ ñαá⌐óÑαá XMS Xms_MemAvali Éáº¼Ñα ßó«í«ñ¡«⌐ αáßΦ¿αÑ¡¡«⌐ »á¼∩Γ¿ Xms_MaxAvail Éáº¼Ñα ¼á¬ß¿¼á½∞¡«ú« ßó«í«ñ¡«ú« í½«¬á Xms_GetMem éδñÑ½∩ÑΓ í½«¬ αáßΦ¿αÑ¡¡«⌐ »á¼∩Γ¿ ------------------------------------------------------------- î«ñπ½∞ ExtObj. ============================================================================= î«ñπ½∞ ExtObj ß«ñÑαª¿Γ «»αÑñÑ½Ñ¡¿∩ «íΩÑ¬Γ«ó, ∩ó½∩εΘ¿σß∩ αáßΦ¿αÑ¡¿Ñ¼ ¡áí«αá «íΩÑ¬Γ«ó «íΘÑú« ¡áº¡áτÑ¡¿∩. ÆêÅ¢ ------------------------------------------------------------- Æ¿» ìáº¡áτÑ¡¿Ñ ------------------------------------------------------------- TByteFlow òαá¡Ñ¡¿Ñ »α«¿ºó«½∞¡δσ ñá¡¡δσ ó ó¿ñÑ »«Γ«¬á íá⌐Γ«ó TMouseCursor Éáí«Γá ß ¼δΦ¿¡δ¼¿ ¬παß«αá¼¿ TSharedResourceCollection êß»«½∞ºπÑΓß∩ ó TSharedResource TSharedResource ÉáºñÑ½∩Ñ¼δÑ αÑßπαßδ TXmsStream Å«Γ«¬ ó αáßΦ¿αÑ¡¡«⌐ »á¼∩Γ¿ ------------------------------------------------------------- ------------------------------------------------------------- ÅàÉàîàìì¢à ê¼∩ Æ¿» ìáτ.º¡. æ¼δß½ ------------------------------------------------------------- StdResource PResourceFile nil ô¬áºáΓÑ½∞ ¡á Σá⌐½ ßΓá¡ñáαΓ¡δσ αÑßπαß«ó StdSharedResource PSharedResource nil ô¬áºáΓÑ½∞ ¡á ¬«½½Ñ¬µ¿ε αáºñÑ½∩Ñ¼δσ αÑßπαß«ó ------------------------------------------------------------- 4 î«ñπ½∞ LowGraph ============================================================================ î«ñπ½∞ LowGraph ß«ñÑαª¿Γ úαáΣ¿τÑß¬¿Ñ »«ñ»α«úαá¼¼δ ¡¿º¬«ú« πα«ó¡∩, αáí«ΓáεΘ¿Ñ ß ó¿ñÑ«»á¼∩Γ∞ε ¿ αÑú¿ßΓαá¼¿ ó¿ñÑ«¬áαΓδ. ÆêÅ¢ ------------------------------------------------------------- Æ¿» ìáº¡áτÑ¡¿Ñ ------------------------------------------------------------- TPaletteType Åá½¿Γαá ------------------------------------------------------------- ------------------------------------------------------------- ÅàÉàîàìì¢à ê¼∩ Æ¿» ìáτ.º¡. æ¼δß½ ------------------------------------------------------------- Mode byte 0 ÉÑª¿¼ ºá»¿ß¿ ó ó¿ñÑ«»á¼∩Γ∞ SwitchBank boolean false ÆαÑíπÑΓß∩ »ÑαÑ¬½ετÑ¡¿Ñ íá¡¬«ó ó¿ñÑ«»á¼∩Γ¿ EmulateMouseCursor boolean false ¥¼π½∩µ¿∩ ¼δΦ¿¡«ú« ¬παß«αá ScreenWidth integer ÿ¿α¿¡á φ¬αá¡á ó »¿¬ßÑ½∩σ ScreenHeight integer éδß«Γá φ¬αá¡á ó »¿¬ßÑ½∩σ Planes integer è«½¿τÑßΓó« í¿Γ«óδσ ¬áαΓ BitPerPlane integer ü¿Γ/»¿¬ßÑ½ ó «ñ¡«⌐ ¬áαΓÑ BytesPerLine integer ä½¿¡á ß¬á¡-½¿¡¿¿ ó «ñ¡«⌐ í¿Γ«ó«⌐ ¬áαΓÑ FalseMode êß»«½∞ºπÑΓ∩ ñ½∩ «í¼á¡á ñαá⌐óÑαá ¼δΦ¿ CursorAreaSize word Éáº¼Ñα »á¼∩Γ¿ ñ½∩ ß«σαá- ¡Ñ¡¿∩ «í½áßΓ¿ φ¬αá¡á »«ñ ¼δΦ¿¡δ¼ ¬παß«α«¼ -------------------------------------------------------------- 5 ÅÉÄûàäôÉ¢ ê ------------------------------------------------------------- öôìèûêê Åα«µÑñπαá ìáº¡áτÑ¡¿Ñ ------------------------------------------------------------- ConvertPixRow ÅαÑ«íαáº«óá¡¿Ñ ßΓα«¬¿ »¿¬ßÑ½«ó ¿º «ñ¡«⌐ »á½¿Γαδ ó ñαπúπε DrawChar É¿ßπÑΓ ß¿¼ó«½ ExtractImage è«»¿απÑΓ τáßΓ∞ «íαáºá,σαá¡∩ΘÑú«ß∩ ó »á¼∩Γ¿, ó ñαπú«⌐ íπΣÑα MovePixels è«»¿απÑΓ í½«¬ »¿¬ßÑ½«ó DrawMouseShape É¿ßπÑΓ ¼δΦ¿¡δ⌐ ¬παß«α SetupMethods16 ôßΓá¡«ó¬á 16-µóÑΓ¡δσ αÑª¿¼«ó SetupMethods256 ôßΓá¡«ó¬á 256-µóÑΓ¡δσ αÑª¿¼«ó ============================================================= öπ¡¬µ¿∩ ìáº¡áτÑ¡¿Ñ ------------------------------------------------------------- GetNearestColor Å« ºáñá¡¡δ«¼π rgb-º¡áτÑ¡¿ε µóÑΓá ¡áσ«ñ¿Γ ¡á¿í«½ÑÑ »«ñσ«ñ∩Θ¿⌐ ¿º ßΓá¡ñáαΓ¡«⌐ »á½¿Γαδ BIOS. î«ñπ½∞ GrDriver ============================================================================ î«ñπ½∞ GrDriver ß«ñÑαª¿Γ ¬«¡ßΓá¡Γδ, »ÑαÑ¼Ñ¡¡δÑ, »α«µÑñπαδ ¿ Σπ¡¬µ¿¿, ¬«Γ«αδÑ »αÑñ«ßΓáó½∩εΓ ñ«»«½¡¿ΓÑ½∞¡δÑ ó«º¼«ª¡«ßΓ¿ »α¿ αáí«ΓÑ ó úαáΣ¿τÑß¬«¼ αÑª¿¼Ñ. ------------------------------------------------------------- èÄìæÆÇìÆ¢ ê¼∩ ç¡áτÑ¡¿Ñ æ¼δß½ ------------------------------------------------------------- StandardVGA 0 äαá⌐óÑα ßΓá¡ñáαΓ¡«ú« VGA Vesa16 1 äαá⌐óÑα VESA 16 µóÑΓ«ó Vesa256 2 äαá⌐óÑα VESA 256 µóÑΓ«ó ------------------------------------------------------------- VGA640x480 VGAHI VESA16_800x600 0 ì«¼Ñαá 16-µóÑΓ¡δσ αÑª¿¼«ó VESA16_1024x768 1 VESA16_1240x1024 2 VESA256_640x400 0 VESA256_640x480 1 ì«¼Ñαá 256-µóÑΓ¡δσ αÑª¿¼«ó VESA256_800x600 2 VESA256_1024x768 3 VESA256_1280x1024 4 ------------------------------------------------------------- ------------------------------------------------------------- ÅàÉàîàìì¢à ê¼∩ Æ¿» ìáτ.º¡. æ¼δß½ ------------------------------------------------------------- Driver integer StandardVGA êß»«½∞ºπÑ¼δ⌐ ñαá⌐óÑα DriverMode integer VGA640x480 ÆÑ¬πΘ¿⌐ αÑª¿¼ VesaDriverNames array ê¼Ñ¡á ñαá⌐óÑα«ó DriverPaths array ÅπΓ¿ ¬ ñαá⌐óÑαá¼ VESA16Modes array ÉÑª¿¼δ Vesa16 VESA256Modes array ÉÑª¿¼δ Vesa256 RegisterProc procedure nil ô¬áºáΓÑ½∞ ¡á »α«µÑñπαπ αÑú¿ßΓαáµ¿¿ ñαá⌐óÑα«ó ------------------------------------------------------------- 6 ------------------------------------------------------------- ÅÉÄûàäôÉ¢ Åα«µÑñπαá ìáº¡áτÑ¡¿Ñ ------------------------------------------------------------- InitVideo ê¡¿µ¿á½¿º¿απÑΓ úαáΣ¿τÑß¬πε ß¿ßΓÑ¼π DoneVideo çáóÑαΦáÑΓ αáí«Γπ úαáΣ¿τÑß¬«⌐ ß¿ßΓÑ¼δ SetWriteMode ôßΓá¡áó½¿óáÑΓ αÑª¿¼ ºá»¿ß¿ ó ó¿ñÑ«»á¼∩Γ∞ DrawImage éδó«ñ¿Γ «íαáº ¡á φ¬αá¡ MoveBlock è«»¿απÑΓ í½«¬ »¿¬ßÑ½«ó ------------------------------------------------------------- î«ñπ½∞ GFonts ============================================================================ î«ñπ½∞ GFonts ß«ñÑαª¿Γ «»αÑñÑ½Ñ¡¿∩ Γ¿»«ó, «íΩÑ¬Γ«ó, »ÑαÑ¼Ñ¡¡δÑ ¿ »α«µÑñπαδ ñ½∩ αáí«Γδ ß αáº½¿τ¡δ¼¿ ó¿ñá¼¿ αáßΓα«óδσ ¿ óÑ¬Γ«α¡δσ Σ«¡Γ«ó. ÆêÅ¢ ------------------------------------------------------------- Æ¿» ìáº¡áτÑ¡¿Ñ ------------------------------------------------------------- BiosFontParams ê¡Σ«α¼áµ¿∩ « ó¡πΓαÑ¡¡¿σ Σ«¡Γáσ BIOS TFont üáº«óδ⌐ «íΩÑ¬Γ ñ½∩ αáí«Γδ ß Σ«¡Γá¼¿ TBGIFont üáº«óδ⌐ «íΩÑ¬Γ ñ½∩ αáí«Γδ ß BGI Σ«¡Γá¼¿ TDefaultBgiFont BGI DefaultFont Σ«¡Γ TRasterFont üáº«óδ⌐ «íΩÑ¬Γ ñ½∩ αáí«Γδ ß αáßΓα«óδ¼¿ Σ«¡Γá¼¿ TFixedFont ÉáßΓα«óδÑ Σ«¡Γδ ß Σ¿¬ß¿α«óá¡¡δ¼ αáº¼Ñα«¼ «íαáº«ó ß¿¼ó«½«ó TBiosFont é¡πΓαÑ¡¡¿Ñ Σ«¡Γδ BIOS T8x8BiosFont é¡πΓαÑ¡¡¿⌐ Σ«¡Γ BIOS 8x8 ------------------------------------------------------------- ------------------------------------------------------------- ÅàÉàîàìì¢à ê¼∩ Æ¿» ìáτ.º¡. æ¼δß½ ------------------------------------------------------------- Fonts PCollection nil ô¬áºáΓÑ½∞ ¡á ¬«½½Ñ¬µ¿ε Σ«¡Γ«ó SystemFont integer 0 ì«¼Ñα Σ«¡Γá,¿ß»«½∞ºπÑ¼«ú« ¬á¬ ß¿ßΓÑ¼¡δ⌐ CurrentFont integer 0 ì«¼Ñα ΓÑ¬πΘÑú« Σ«¡Γá FillBackground boolean true êº¼Ñ¡∩Γ∞ µóÑΓ Σ«¡á »α¿ óδó«ñÑ ΓÑ¬ßΓá ------------------------------------------------------------- 7 ÅÉÄûàäôÉ¢ ê ------------------------------------------------------------- öôìèûêê Åα«µÑñπαá ìáº¡áτÑ¡¿Ñ ------------------------------------------------------------- InitFonts ê¡¿µ¿á½¿º¿απÑΓ ¬«½½Ñ¬µ¿ε Σ«¡Γ«ó DoneFonts ô¡¿τΓ«ªáÑΓ ¬«½½Ñ¬µ¿ε Σ«¡Γ«ó SelectFont ôßΓá¡áó½¿óáÑΓ ΓÑ¬πΘ¿⌐ Σ«¡Γ CanFillBackground é«ºóαáΘáÑΓ true, Ñß½¿ ΓÑ¬πΘ¿⌐ Σ«¡Γ π¼ÑÑΓ ¿º¼Ñ¡∩Γ∞ µóÑΓ Σ«¡á OutText éδó«ñ¿Γ ßΓα«¬π ΓÑ¬ßΓá, ¡áτ¿¡á∩ ß ΓÑ¬πΘÑ⌐ »«º¿µ¿¿ OutTextXY éδó«ñ¿Γ ßΓα«¬π ΓÑ¬ßΓá ß ºáñá¡¡«⌐ »«º¿µ¿¿ SetTextStyle ôßΓá¡áó½¿óáÑΓ σáαá¬ΓÑα¿ßΓ¿¬¿ óδó«ñá ΓÑ¬ßΓá ============================================================= öπ¡¬µ¿∩ ìáº¡áτÑ¡¿Ñ ------------------------------------------------------------- TextHeight é«ºóαáΘáÑΓ óδß«Γπ ßΓα«¬¿ ß¿¼ó«½«ó TextWidth é«ºóαáΘáÑΓ Φ¿α¿¡π ßΓα«¬¿ ß¿¼ó«½«ó ------------------------------------------------------------- î«ñπ½∞ Images ============================================================================ î«ñπ½∞ Images ß«ñÑαª¿Γ «»αÑñÑ½Ñ¡¿∩ Γ¿»«ó ¿ «íΩÑ¬Γ«ó ñ½∩ αáí«Γδ ß ¿º«íαáªÑ¡¿∩¼¿ ¿ Σá⌐½á¼¿ úαáΣ¿τÑß¬¿σ Σ«α¼áΓ«ó. ÆêÅ¢ ------------------------------------------------------------- Æ¿» ìáº¡áτÑ¡¿Ñ ------------------------------------------------------------- TImage üáº«óδ⌐ «íΩÑ¬Γ ñ½∩ αáí«Γδ ß «íαáºá¼¿ TFilter üáº«óδ⌐ «íΩÑ¬Γ ñ½∩ αÑá½¿ºáµ¿¿ úαáΣ¿τÑß¬¿σ Σ¿½∞Γα«ó TBmpFilter ö¿½∞Γα ñ½∩ Σá⌐½«ó Σ«α¼áΓá Windows BMP TBGIFilter ö¿½∞Γα ñ½∩ Σá⌐½«ó Σ«α¼áΓá PutImage ------------------------------------------------------------- ------------------------------------------------------------- èÄìæÆÇìÆ¢ ê¼∩ ç¡áτÑ¡¿Ñ æ¼δß½ ------------------------------------------------------------- giError -1 «Φ¿í¬á »α¿ ¿¼»«αΓÑ úαáΣ¿τÑß¬«ú« Σá⌐½á giIOError -2 «Φ¿í¬á óó«ñá/óδó«ñá giInvalidFormat -3 ¡Ñ¿ºóÑßΓ¡δ⌐ Σ«α¼áΓ Σá⌐½á ------------------------------------------------------------- î«ñπ½∞ EventMan ============================================================================ î«ñπ½∞ EventMan ß«ñÑαª¿Γ ñαá⌐óÑαδ ¼δΦ¿ ¿ ¬½áó¿áΓπαδ, á Γá¬ªÑ ¼Ñ¡ÑñªÑα ß«íδΓ¿⌐. ¥Γ«Γ ¼«ñπ½∞ ∩ó½∩ÑΓß∩ á¡á½«ú«¼ ¼«ñπ½∩ Drivers ¿º »á¬ÑΓá TurboVision. Å«ñα«í¡«Ñ «»¿ßá¡¿Ñ Γ¿»«ó, ¬«¡ßΓá¡Γ, »ÑαÑ¼Ñ¡¡δσ, »α«µÑñπα ¿ Σπ¡¬µ¿⌐ ñá¡« ó ñ«¬π¼Ñ¡ΓÑ "Turbo Vision Guide". 8 Å« αáº¡δ¼ »α¿τ¿¡á¼ ¿ß¬½ετÑ¡δ ß½ÑñπεΘ¿Ñ »ÑαÑ¼Ñ¡¡δÑ: StartupMode, ScreenMode, CheckSnow, HiResScreen, ScreenBuffer, CursorLines á Γá¬ªÑ »α«µÑñπαδ: SetVideoMode ClearScreen, MoveBuf, MoveChar, MoveCStr, MoveStr ------------------------------------------------------------- ÅàÉàîàìì¢à ê¼∩ Æ¿» ìáτ.º¡. æ¼δß½ ------------------------------------------------------------- Hot TPoint (0,0) è««αñ¿¡áΓδ ú«α∩τÑú« »∩Γ¡á ¼δΦ¿¡«ú« ¬παß«αá ShapeSize TPoint (16,16) Éáº¼Ñαδ «íαáºá ¼δΦ¿¡«ú« ¬παß«αá MouseShape pointer nil ô¬áºáΓÑ½∞ ¡á «íαáº ¬παß«αá ------------------------------------------------------------- ÅÉÄûàäôÉ¢ ê ------------------------------------------------------------- öôìèûêê Åα«µÑñπαá ìáº¡áτÑ¡¿Ñ ------------------------------------------------------------- SetExclusiveArea SetMouseCursor çáñáÑΓ ¡«óδ⌐ «íαáº ¼δΦ¿¡«ú« ¬παß«αá ============================================================= öπ¡¬µ¿∩ ìáº¡áτÑ¡¿Ñ ------------------------------------------------------------- MouseInRect é«ºóαáΘáÑΓ true, Ñß½¿ ¼δΦ¿¡δ⌐ ¬παß«α ¡áσ«ñ¿Γß∩ ó ºáñá¡¡«¼ »α∩¼«πú«½∞¡¿¬Ñ ------------------------------------------------------------- î«ñπ½∞ Grav ============================================================================ î«ñπ½∞ Grav ∩ó½∩ÑΓ∩ á¡á½«ú«¼ ¼«ñπ½∩ Views ¿ ß«ñÑαª¿Γ «ß¡«ó¡δÑ «íΩÑ¬Γδ ñ½∩ »«ßΓα«Ñ¡¿∩ »«½∞º«óáΓÑ½∞ß¬«ú« úαáΣ¿τÑß¬«ú« ¿¡ΓÑαΣÑ⌐ßá: ó¿ñ¿¼δÑ φ½Ñ¼Ñ¡Γδ, «¬¡á, »«½«ßδ »α«¬απ¬Γ¬¿, ¿ Γ.ñ. Å«ñα«í¡«Ñ «»¿ßá¡¿Ñ Γ¿»«ó, ¬«¡ßΓá¡Γ ¿ »ÑαÑ¼Ñ¡¡δσ ñá¡« ó ß««ΓóÑΓßΓóπεΘÑ¼ αáºñÑ½Ñ ñ«¬π¼Ñ¡Γá "Turbo Vision Guide" ÆêÅ¢ ------------------------------------------------------------- Æ¿» ìáº¡áτÑ¡¿Ñ ------------------------------------------------------------- GraphView Åαáα«ñ¿ΓÑ½∞ óßÑσ ó¿ñ¿¼δσ φ½Ñ¼Ñ¡Γ«ó GraphGroup üáº«óδ⌐ «íΩÑ¬Γ ñ½∩ »«ßΓα«Ñ¡¿∩ ß½«ª¡δσ ó¿ñ¿¼δσ φ½Ñ¼Ñ¡Γ«ó 9 GraphBackGround ÄíΩÑ¬Γ, αÑá½¿ºπεΘ¿⌐ ºáñ¡¿⌐ »½á¡ (Σ«¡) GraphScrollBar Å«½«ßá »α«¬απΓ¬¿ GraphListViewer ÄíΩÑ¬Γ ñ½∩ »α«ß¼«Γαá ß»¿ß¬«ó GraphWindow üáº«óδ⌐ «íΩÑ¬Γ ñ½∩ αÑá½¿ºáµ¿¿ «¬«¡ GraphScroller üáº«óδ⌐ «íΩÑ¬Γ ñ½∩ αÑá½¿ºáµ¿¿ »α«¬απΓ¬¿ ß«ñÑαª¿¼«ú« «¬«¡ ------------------------------------------------------------- êß¬½ετÑ¡δ: TDrawBuffer TVideoBuf TFrame ------------------------------------------------------------- ------------------------------------------------------------- èÄìæÆÇìÆ¢ ê¼∩ ç¡áτÑ¡¿Ñ æ¼δß½ ------------------------------------------------------------- ofNoDrawSelect $40 é¿ñ¿¼δ⌐ φ½Ñ¼Ñ¡Γ ¡Ñ »ÑαÑα¿ß«- óδóáÑΓß∩ »α¿ óδí«αÑ ofResizeable $400 é¿ñ¿¼δ⌐ φ½Ñ¼Ñ¡Γ ¼«ªÑΓ ¿º¼Ñ¡∩Γ∞ αáº¼Ñα ofMoveable $800 é¿ñ¿¼δ⌐ φ½Ñ¼Ñ¡Γ ¼«ªÑΓ íδΓ∞ »ÑαÑ¼ÑΘÑ¡ ------------------------------------------------------------- wfThickFrame $10 Ä¬¡« ¿¼ÑÑΓ Φ¿α«¬πε αá¼¬π wfThinFrame $20 Ä¬¡« ¿¼ÑÑΓ Γ«¡¬πε αá¼¬π wfFramed $30 Ä¬¡« ¿¼ÑÑΓ αá¼¬π wfTitle $40 Ä¬¡« ¿¼ÑÑΓ ºáú«½«ó«¬ ------------------------------------------------------------- bsNone 0 ö«¡ α¿ßπÑΓß∩ íÑº úαá¡¿µδ bsBump 1 éδ»π¬½δ⌐ Σ«¡ bsDip 2 éñáó½Ñ¡¡δ⌐ Σ«¡ ------------------------------------------------------------- êß¬½ετÑ¡δ: MaxViewWidth wnNoNumber cmSelectWindowNum ofFramed ofBuffered sfShadow ------------------------------------------------------------- ------------------------------------------------------------- ÅàÉàîàìì¢à ê¼∩ Æ¿» ìáτ.º¡. æ¼δß½ ------------------------------------------------------------- MouseOwner PGraphView nil é¿ñ¿¼δ⌐ φ½Ñ¼Ñ¡Γ, ¿º¼Ñ¡¿óΦ¿⌐ Σ«α¼π ¬παß«αá ¼δΦ¿ StdMouseCursor PMouseCursor nil ô¬áºáΓÑ½∞ ¡á ßΓá¡ñáαΓ¡δ⌐ ¬παß«α ¼δΦ¿ (ßΓαÑ½¬á) LockMouseCursor integer 0 ö½áú ó«º¼«ª¡«ßΓ¿ ¿º¼Ñ¡Ñ¡¿∩ ß«ßΓ«∩¡¿∩ ¼δΦ¿¡«ú« ¬παß«αá MinWinSize TPoint (124,84) î¿¡¿¼á½∞¡δ⌐ αáº¼Ñα «¬¡á CaptionHeight integer 14 éδß«Γá ºáú«½«ó¬á «¬¡á ------------------------------------------------------------- êß¬½ετÑ¡δ: SadowAttr ShadowSize ------------------------------------------------------------- 10 î«ñπ½∞ Controls ============================================================================ î«ñπ½∞ Controls ∩ó½∩ÑΓß∩ á¡á½«ú«¼ ¼«ñπ½∩ Dialogs ó »á¬ÑΓÑ Turbo Vision. Ä¡ ß«ñÑαª¿Γ αÑá½¿ºáµ¿¿ «íΩÑ¬Γ«ó ñ½∩ αÑá½¿ºáµ¿¿ ñ¿á½«ú«óδσ «¬«¡ ¿ αáº½¿τ¡δσ π»αáó½∩εΘ¿σ φ½Ñ¼Ñ¡Γ«ó. ü«½∞Φ¿¡ßΓó« «íΩÑ¬Γ«ó, óσ«ñ∩Θ¿σ ó ß«ßΓáó φΓ«ú« ¼«ñπ½∩, ∩ó½∩εΓß∩ á¡á½«úá¼¿ ß««ΓóÑΓßΓóπεΘ¿σ «íΩÑ¬Γ«ó Turbo Vision. êσ »«ñα«í¡«Ñ «»¿ßá¡¿Ñ ñá¡« ó ß««ΓóÑΓßΓóπεΘÑ¼ αáºñÑ½Ñ ñ«¬π¼Ñ¡Γá "Turbo Vision Guide" ÆêÅ¢ ------------------------------------------------------------- Æ¿» ìáº¡áτÑ¡¿Ñ ------------------------------------------------------------- GraphDialog æ»Ñµ¿á½¿º¿α«óá¡¡«Ñ ñ¿á½«ú«ó«Ñ «¬¡« GraphButton ÇíßΓαá¬Γ¡δ⌐ «íΩÑ¬Γ ñ½∩ αÑá½¿ºáµ¿¿ αáº½¿τ¡δσ ó¿ñ«ó ¬¡«»«¬ GraphTextButton Åα«ßΓá∩ ΓÑ¬ßΓ«óá∩ ¬¡«»¬á GraphBitmapButton è¡«»¬á, ¿º«ñαáªáÑ¼á∩ ß »«¼«Θ∞ε ¡áí«αá «íαáº«ó GraphGrayGroup é¿ºπá½∞¡« «íΩÑñ¿¡∩ÑΓ ¡Ñß¬«½∞¬« ó¿ñ¿¼δσ φ½Ñ¼Ñ¡Γ«ó ó Ññ¿¡πε ½«ú¿τÑß¬πε úαπ»»π GraphListBox ÇíßΓαá¬Γ¡δ⌐ «íΩÑ¬Γ ñ½∩ »α«ß¼«Γαá ß»¿ß¬«ó TextListBox Åα«¬απτ¿óáÑ¼δ⌐ ΓÑ¬ßΓ«óδ⌐ ß»¿ß«¬ GraphStaticText Åα«ßΓÑ⌐Φ¿⌐ ó¿ñ¿¼δ⌐ φ½Ñ¼Ñ¡Γ, ßΓα«¬á ΓÑ¬ßΓá GraphParamText ö«α¼áΓ¿α«óá¡¡δ⌐ ¡Ñ¿º¼Ñ¡∩Ñ¼δ⌐ ΓÑ¬ßΓ GraphLabel ÄíΩÑ¬Γ - ¼ÑΓ¬á GraphInputLine æΓα«¬á óó«ñá GraphTwoStateButton K¡«»¬á ß ñóπ¼∩ Σ¿¬ß¿α«óá¡¡δ¼¿ ß«ßΓ«∩¡¿∩¼¿ GraphCluster ÇíßΓαá¬Γ¡δ⌐ «íΩÑ¬Γ ñ½∩ αÑá½¿ºáµ¿¿ ¡áí«α«ó ¬¡«»«¬ ß ºáó¿ß¿¼«⌐ ¿ ¡Ñºáó¿ß¿¼«⌐ Σ¿¬ßáµ¿Ñ⌐ GraphRadioButtons ìáí«α ¬¡«»«¬ ß ºáó¿ß¿¼«⌐ Σ¿¬ßáµ¿Ñ⌐ GraphCheckBoxes ìáí«α ¬¡«»«¬ ß ¡Ñºáó¿ß¿¼«⌐ Σ¿¬ßáµ¿Ñ⌐ GraphStaticBitmap æΓáΓ¿τÑß¬«Ñ ¿º«íαáªÑ¡¿Ñ GraphHistoryViewer Åα«ß¼«Γα ß»¿ß¬«ó ¿ßΓ«α¿¿ GraphHistoryWindow Ä¬¡« ñ½∩ »α«ß¼«Γαá ß»¿ß¬«ó ¿ßΓ«α¿¿ GraphHistory æ»¿ß«¬ ¿ßΓ«α¿¿ ñ½∩ ßΓα«¬¿ óó«ñá ------------------------------------------------------------- î«ñπ½∞ GrApp ============================================================================ î«ñπ½∞ Grapp ∩ó½∩ÑΓß∩ á¡á½«ú«¼ ¼«ñπ½∩ App ¿º »á¬ÑΓá Turbo Vision ¿ ß«ñÑαª¿Γ ¡áí«α «íΩÑ¬Γ«ó ñ½∩ »«ßΓ«Ñ¡¿∩ »α¿½«ªÑ¡¿⌐. Å«ñα«í¡«Ñ «»¿ßá¡¿Ñ Γ¿»«ó, ¬«¡ßΓá¡Γ ¿ »ÑαÑ¼Ñ¡¡δσ ñá¡« ó ß««ΓóÑΓßΓóπεΘÑ¼ αáºñÑ½Ñ ñ«¬π¼Ñ¡Γá "Turbo Vision Guide" 11 ÆêÅ¢ ------------------------------------------------------------- Æ¿» ìáº¡áτÑ¡¿Ñ ------------------------------------------------------------- GraphApplication ÄíΩÑ¬Γ-»α¿½«ªÑ¡¿Ñ GraphDesktop ÄíΩÑ¬Γ - úαπ»»á, ó ¬«Γ«απε »«¼ÑΘáεΓß∩ óßÑ «¬¡á ¿ ñ¿á½«ú«óδÑ «¬¡á GraphProgram ÇíßΓαá¬Γ¡δ⌐ «íΩÑ¬Γ-»α¿½«ªÑ¡¿Ñ ------------------------------------------------------------- ------------------------------------------------------------- ÅàÉàîàìì¢à ê¼∩ Æ¿» ìáτ.º¡. æ¼δß½ ------------------------------------------------------------- Application PGraphProgram nil ô¬áºáΓÑ½∞ ¡á ΓÑ¬πΘÑÑ »α¿½«ªÑ¡¿Ñ DeskTop PGraphDeskTop nil StatusLine PGraphStatusLine nil ô¬áºáΓÑ½∞ ¡á ßΓα«¬π ß«ßΓ«∩¡¿∩ MenuBar PGraphMenuView nil ô¬áºáΓÑ½∞ ¡á ßΓα«¬π ¼Ñ¡ε ------------------------------------------------------------- î«ñπ½∞ GraMenu ============================================================================ î«ñπ½∞ GraMenu ∩ó½∩ÑΓß∩ á¡á½«ú«¼ ¼«ñπ½∩ Menus ó Turbo Vision. ¥Γ«Γ ¼«ñπ½∞ «íÑß»Ñτ¿óáÑΓ ¿ß»«½∞º«óá¡¿Ñ óδ»áñáεΘ¿σ ¼Ñ¡ε ¿ ßΓα«¬ ß«ßΓ«∩¡¿∩. ÆêÅ¢ ------------------------------------------------------------- Æ¿» ìáº¡áτÑ¡¿Ñ ------------------------------------------------------------- GraphMenuView ÇíßΓαá¬Γ¡δ⌐ «íΩÑ¬Γ ñ½∩ αÑá½¿ºáµ¿¿ ¼Ñ¡ε αáº¡δσ ó¿ñ«ó GraphMenuBar â«α¿º«¡Γá½∞¡«Ñ ¼Ñ¡ε GraphMenuBox éδ»áñáεΘÑÑ ¼Ñ¡ε. GraphStatusLine æΓα«¬á ß«ßΓ«∩¡¿∩ ------------------------------------------------------------- î«ñπ½∞ GStdDlg ============================================================================ î«ñπ½∞ GStdDlg ∩ó½∩ÑΓß∩ á¡á½«ú«¼ ¼«ñπ½∩ StdDlg ó TurboVision, ¡« «íΩÑ¬Γ Γ¿»á TChDirDialog ¡Ñ αÑá½¿º«óá¡. î«ñπ½∞ Geditors ============================================================================ î«ñπ½∞ GEditors »« ßó«¿¼ Σπ¡¬µ¿∩¼ á¡á½«ú¿τÑ¡ ¼«ñπ½ε Editors ó Turbo Vision. é ¡Ñ¼ αÑá½¿º«óá¡δ «íΩÑ¬Γδ, »αÑñ¡áº¡áτÑ¡¡δÑ ñ½∩ αÑñá¬Γ¿α«óá¡¿∩ ΓÑ¬ßΓ«ó. 12 î«ñπ½∞ MsgBox ============================================================================ é φΓ«¼ ¼«ñπ½Ñ αÑá½¿º«óá¡á Σπ¡¬µ¿∩ MessgeBox, »« ßó«¿¼ Σπ¡¬µ¿∩¼ »«½¡«ßΓ∞ε á¡á½«ú¿τ¡á∩ ß««ΓóÑΓßΓóπεΘÑ⌐ Σπ¡¬µ¿¿ ¿º ¼«ñπ½∩ MsgBox »á¬ÑΓá Turbo Vision. Ä¡á ß«ºñáÑΓ ¿ ¿º«íαáªáÑΓ ¡á φ¬αá¡Ñ ñ¿á½«ú«ó«Ñ «¬¡«, »« ó¡ÑΦ¡Ñ¼π ó¿ñπ ßσ«ªÑÑ ß ñ¿á½«ú«óδ¼¿ «¬¡á¼¿, αÑá½¿º«óá¡¡δ¼¿ ó »α«ñπ¬Γáσ Σ¿α¼δ Borland ñ½∩ Microsoft Windows. ê¼∩ ¼«ñπ½∩ ß«ó»áñáÑΓ ß ¡áºóá¡¿Ñ¼ á¡á½«ú¿τ¡«ú« ¼«ñπ½∩ Turbo Vision, τΓ« «íÑß»Ñτ¿óáÑΓ ó«º¼«ª¡«ßΓ∞ ß«ó¼ÑßΓ¡«ú« ¿ß»«½∞º«óá¡¿∩ »á¬ÑΓá GraphVision ¿ ¼«ñπ½∩ Validate ¿º ß«ßΓáóá Turbo Vision. 13 ÄíΩÑ¬Γδ 2 ---------------------------------------------------------------------------- ¥Γá τáßΓ∞ ß«ñÑαª¿Γ ß»¿ß«¬ óßÑσ «íΩÑ¬Γ«ó »á¬ÑΓá GraphVision ó á½Σáó¿Γ¡«¼ »«α∩ñ¬Ñ, ¿σ ¡áº¡áτÑ¡¿Ñ, «»¿ßá¡¿Ñ »«½Ñ⌐ ¿ ¼ÑΓ«ñ«ó. GraphApplication GrApp ============================================================================ ---------------- | GraphProgram | ---------------- | | -------------------- | GraphApplication | -------------------- ÄíΩÑ¬Γ GraphApplication Σπ¡¬µ¿«¡á½∞¡« á¡á½«ú¿τÑ¡ «íΩÑ¬Γπ TApplication ó Turbo Vision. GraphApplication.Init ¿¡¿µ¿á½¿º¿απÑΓ óßÑ »«ñß¿ßΓÑ¼δ, ¿ß»«½∞ºπÑ¼δÑ GraphVision (π»αáó½Ñ¡¿Ñ ß«íδΓ¿∩¼¿, ó¿ñÑ«, »á¼∩Γ∞ε, Σ«¡Γá¼¿, ß»¿ß¬á¼¿ ¿ßΓ«α¿¿) ¿ óδºδóáÑΓ GraphProgram.Init. GraphApplication.Done ß¡áτá½á óδºδóáÑΓ GraphProgram.Done, ºáΓÑ¼ π¡¿τΓ«ªáÑΓ óßÑ »«ñß¿ßΓÑ¼δ GraphVision. GraphBackground Grav ============================================================================ ------------- | GraphView | ------------- | | ------------------- | GraphBackground | ------------------- ÄíΩÑ¬Γ Γ¿»á GraphBackground ∩ó½∩ÑΓß∩ á¡á½«ú«¼ «íΩÑ¬Γá TBackground ó Turbo Vision ¿ »αÑñßΓáó½∩ÑΓ ß«í«⌐ »α«ßΓÑ⌐Φ¿⌐ ó¿ñ¿¼δ⌐ φ½Ñ¼Ñ¡Γ ó Σ«α¼Ñ ºá¬αáΦÑ¡¡«ú« »α∩¼«πú«½∞¡¿¬á. ÅÄïƒ -------------------------------------------------------------- BorderStyle BorderStyle : integer; Ä»αÑñÑ½∩ÑΓ ßΓ¿½∞ »α«α¿ß«ó¬¿ úαá¡¿µ «íΩÑ¬Γá GraphBackground. ç¡áτÑ¡¿Ñ φΓ«ú« »«½∩ πßΓá¡áó½¿óáÑΓß∩ »α¿ ¿¡¿µ¿á½¿ºáµ¿¿ «íΩÑ¬Γá. 14 æ»Ñµá½∞¡« ñ½∩ φΓ«ú« ó ¼«ñπ½∞ Grav ñ«íáó½Ñ¡δ «»αÑñÑ½Ñ¡¿∩ ΓαÑσ ¬«¡ßΓá¡Γ: bsNone = 0; - úαá¡¿µá ¡Ñ »α«α¿ß«óδóáÑΓß∩ bsBump = 1; - ß«ºñáÑΓß∩ φΣΣÑ¬Γ ó«ºóδΦÑ¡¿∩ bsDeep = 2; - ß«ºñáÑΓß∩ φΣΣÑ¬Γ óñáó½Ñ¡¡«ßΓ¿. Pattern Pattern: word; Ä»αÑñÑ½∩ÑΓ Φáí½«¡ ºá¬αáß¬¿. î«úπΓ íδΓ∞ ¿ß»«½∞º«óá¡δ Γ«½∞¬« ßΓá¡ñáαΓ¡δÑ Φáí½«¡δ ºá¬αáß¬¿, «»αÑñÑ½Ñ¡¡δÑ ó ¼«ñπ½Ñ Graph. îàÆÄä¢ ------------------------------------------------------------- Init constructor Init(var Bounds: TRect; APattern: word; ABorderStyle : integer); éδºδóáÑΓ GraphView.Init, ºáΓÑ¼ »α¿ßóá¿óáÑΓ »«½ε Pattern º¡áτÑ¡¿Ñ »áαá¼ÑΓαá APattern, á »«½ε BorderStyle - º¡áτÑ¡¿Ñ »«½∩ ABorderStyle. ÅÇïêÆÉÇ ------------------------------------------------------------ CBackground = #01#02#03; | | | Σ«¡------------┘ | | ßóÑΓ½δ⌐-----------┘ | ΓÑ¼¡δ⌐---------------┘ GraphBitmapButton Controls =========================================================================== --------------- | GraphButton | --------------- | | --------------------- | GraphBitmapButton | --------------------- ¥Γ« ΓÑα¼¿¡á½∞¡δ⌐ «íΩÑ¬Γ, αÑá½¿ºπεΘ¿⌐ ¬¡«»¬¿, »α«α¿ß«óδóáÑ¼δÑ ß »«¼«Θ∞ε í¿Γ«óδσ ¿º«íαáªÑ¡¿⌐ ¿ »« ó¡ÑΦ¡Ñ¼π ó¿ñπ á¡á½«ú¿τ¡δÑ bitmap-¬¡«»¬á¼ Σ¿α¼δ Borland ó »α«ñπ¬Γáσ ñ½∩ Microsoft Windows. ÅÄïƒ ------------------------------------------------------------ Images Images : PCollection; òαá¡¿Γ π¬áºáΓÑ½∞ ¡á ¬«½½Ñ¬µ¿ε «íαáº«ó («íΩÑ¬Γ«ó Γ¿»á TImage), ¬«Γ«αδÑ ¿ß»«½∞ºπεΓß∩ »α¿ ¿º«íαáªÑ¡¿¿ αáº½¿τ¡δσ ß«ßΓ«∩¡¿⌐ ¬¡«»¬¿. 15 îàÆÄä¢ ------------------------------------------------------------ Init constructor Init(var Bounds : TRect; ATitle : TTitleStr; ACommand : word; AFlags : word); éδºδóáÑΓ GraphButton.Init; ºáΓÑ¼ ¿º Σá⌐½á ßΓá¡ñáαΓ¡δσ αÑßπαß«ó, áóΓ«¼áΓ¿τÑß¬¿ «Γ¬αδóáÑ¼«ú« ó« óαÑ¼∩ ¿¡¿µ¿á½¿ºáµ¿¿ »α¿½«ªÑ¡¿∩, ºáúαπªáÑΓ ¬«½½Ñ¬µ¿ε «íαáº«ó ß ¿¼Ñ¡Ñ¼ ATitle, ¿ »α¿ßóá¿óáÑΓ π¬áºáΓÑ½∞ ¡á ¡ÑÑ »«½ε Images: Load constructor Load(var S : TStream); éδºδóáÑΓ GraphButton.Load, ¬«Γ«αδ⌐ ºáúαπªáÑΓ »«½∩ Title, Command, Flags ¿ AmDefault, ºáΓÑ¼ ¿º Σá⌐½á ßΓá¡ñáαΓ¡δσ αÑßπαß«ó ºáúαπªáÑΓ ¬«½½Ñ¬µ¿ε «íαáº«ó ß ¿¼Ñ¡Ñ¼ Title^ ¿ ß«σαá¡∩ÑΓ π¬áºáΓÑ½∞ ¡á ¡ÑÑ ó »«½Ñ Images. Done destructor Done; virtual; ô¡¿τΓ«ªáÑΓ ¬«½½Ñ¬µ¿ε «íαáº«ó ¿ óδºδóáÑΓ GraphButton.Done. DrawState procedure DrawState(Pushed : boolean); virtual; É¿ßπÑΓ ¬¡«»¬π ¡á φ¬αá¡Ñ ó ºáó¿ß¿¼«ßΓ¿ «Γ ÑÑ ß«ßΓ«∩¡¿∩. è«½½Ñ¬µ¿¿ «íαáº«ó ñ½∩ ßΓá¡ñáαΓ¡δσ ¬¡«»«¬, σαá¡∩Θ¿Ñß∩ ó Σá⌐½Ñ ßΓá¡ñáαΓ¡δσ αÑßπαß«ó, ß«ñÑαªáΓ Γα¿ «íαáºá: ê¡ñÑ¬ß ìáº¡áτÑ¡¿Ñ ------ ---------- 0 ¡Ñá¬Γ¿ó¡á∩ ¬¡«»¬á (State and sfFocused = 0) (ñ½∩ αáºαÑΦÑ¡¡δσ ¿ ºá»αÑΘÑ¡¡δσ ¬¡«»«¬) 1 ¡áªáΓá∩ á¬Γ¿ó¡á∩ ¬¡«»¬á 2 ¡«α¼á½∞¡á∩ á¬Γ¿ó¡á∩ ¬¡«»¬á (State and sfFocused <> 0) ìá»α¿¼Ñα, »«ß½Ññ«óáΓÑ½∞¡«ßΓ∞: GetExtent(R); P := Images^.At(1); DrawImg(R.A,PImage(P),NormalPut); α¿ßπÑΓ ¡á φ¬αá¡Ñ á¬Γ¿ó¡πε ¬¡«»¬π ó ¡áªáΓ«¼ ß«ßΓ«∩¡¿¿. ¥Γ«Γ ¼ÑΓ«ñ ¼«ªÑΓ íδΓ∞ »ÑαÑ«»αÑñÑ½Ñ¡. 16 GraphButton Controls =========================================================================== ------------- | GraphView | ------------- | | --------------- | GraphButton | --------------- é «Γ½¿τ¿Ñ «Γ «íΩÑ¬Γá TButton, «íΩÑ¬Γ GhaphButton ∩ó½∩ÑΓß∩ áíßΓαá¬Γ¡δ¼ «íΩÑ¬Γ«¼, ¡á «ß¡«óÑ ¬«Γ«α«ú« ß«ºñáεΓß∩ αáº½¿τ¡δÑ ó¿ñδ ¬¡«»«¬. ÄíΩÑ¬Γ GraphButton ß«ñÑαª¿Γ ΓÑ ªÑ »«½∩, τΓ« ¿ TButton. êσ «»¿ßá¡¿Ñ ß¼. ó "Turbo Vision Guide". îàÆÄä¢ ------------------------------------------------------------ DrawState procedure DrawState(Pushed : boolean); virtual; ÇíßΓαá¬Γ¡δ⌐ ¼ÑΓ«ñ, óδ»«½¡∩εΘ⌐ »α«α¿ß«ó¬π ¬¡«»¬¿ ó ºáó¿ß¿¼«ßΓ¿ «Γ ÑÑ ΓÑ¬πΘÑú« ß«ßΓ«∩¡¿∩. ä«½ªÑ¡ íδΓ∞ »ÑαÑ«»αÑñÑ½Ñ¡ ñ½∩ »«Γ«¼¬«ó «íΩÑ¬Γá GraphButton. GraphCheckBoxes Controls ============================================================================ ---------------- | GraphCluster | ---------------- | | ------------------- | GraphCheckBoxes | ------------------- ÄíΩÑ¬Γ Graphæheckboxes óδ»«½¡∩ÑΓ ΓÑ ªÑ Σπ¡¬µ¿¿, τΓ« ¿ TCheckBoxes ó Turbo Vision. ¥Γ« ¡áí«α ¬¡«»«¬ ß ¡Ñºáó¿ß¿¼«⌐ Σ¿¬ßáµ¿Ñ⌐, Γ.Ñ. ó ½εí«⌐ ¼«¼Ñ¡Γ óαÑ¼Ñ¡¿ ¼«úπΓ íδΓ∞ óδíαá¡δ ¡Ñß¬«½∞¬« ¬¡«»«¬. Å«½Ñ Value ¿¡ΓÑα»αÑΓ¿απÑΓß∩ ¬á¬ ¡áí«α ¿º 16 í¿Γ («Γ 1 ñ« 16), úñÑ 1 ó í¿ΓÑ »«º¿µ¿¿ «º¡áτáÑΓ, τΓ« φ½Ñ¼Ñ¡Γ »«¼ÑτÑ¡. îàÆÄä¢ ------------------------------------------------------------- Init constructor Init(var Bounds : TRect; AStrings : PSItem); C«ºñáÑΓ ¡áí«α ¬¡«»«¬ ß ¡Ñºáó¿ß¿¼«⌐ Σ¿¬ßáµ¿Ñ⌐. Load constructor Load(var S : TStream); çáúαπªáÑΓ ¿º »«Γ«¬á S ¡áí«α ¬¡«»«¬ ß ¡Ñºáó¿ß¿¼«⌐ Σ¿¬ßáµ¿Ñ⌐. Done destructor Done; virtual; ô¡¿τΓ«ªáÑΓ ¡áí«α ¬¡«»«¬ ß ¡Ñºáó¿ß¿¼«⌐ Σ¿¬ßáµ¿Ñ⌐. 17 GetItemSize procedure GetItemSize(var ItemSize : TPoint); virtual; é«ºóαáΘáÑΓ ó »ÑαÑ¼Ñ¡¡«⌐ ItemSize αáº¼Ñαδ «í½áßΓ¿, ºá¡¿¼áÑ¼«⌐ «ñ¡¿¼ φ½Ñ¼Ñ¡Γ«¼ π»αáó½Ñ¡¿∩. HandleEvent procedure HandleEvent(var Event : TEvent); virtual; ÄíαáíáΓδóáÑΓ ß«íδΓ¿∩ «Γ ¼δΦ¿ ¿ ¬½áó¿áΓπαδ ñ½∩ «»αÑñÑ½Ñ¡¿∩ ¿ ¿º¼Ñ¡Ñ¡¿∩ ß«ßΓ«∩¡¿∩ ΓÑ¬πΘÑ⌐ ¬¡«»¬¿. NewControl function NewControl(Bounds : TRect; AId : integer): PGraphView; virtual; ä«íáó½∩ÑΓ ¡«óπε ¬¡«»¬π ó úαπ»»π ¬¡«»«¬ ß ¡Ñºáó¿ß¿¼«⌐ Σ¿¬ßáµ¿Ñ⌐. ì¿¬«úñá ¡Ñ óδºδóáÑΓß∩ ¡Ñ»«ßαÑñßΓóÑ¡¡«. Mark function Mark(Item : Integer): boolean; virtual; é«ºóαáΘáÑΓ true, Ñß½¿ í¿Γ φ½Ñ¼Ñ¡Γá ó Value πßΓá¡«ó½Ñ¡ ó 1, Γ.Ñ. ñá¡¡á∩ ¬¡«»¬á «Γ¼ÑτÑ¡á. Press procedure Press(Control : PGraphView); virtual; éδºδóáÑΓß∩ ¿º HandleEvent, ¬«úñá ¡áªáΓá ¬¡«»¬á ß ¡Ñºáó¿ß¿¼«⌐ Σ¿¬ßáµ¿Ñ⌐. êº¼Ñ¡Ñ¡∩ÑΓ º¡áτÑ¡¿Ñ »«½∩ Value. ì¿¬«úñá ¡Ñ óδºδóáÑΓß∩ ¡Ñ»«ßαÑñßΓóÑ¡¡«. GraphCluster Controls ============================================================================ -------------- | GraphGroup | -------------- | | ---------------- | GraphCluster | ---------------- ÄíΩÑ¬Γ GraphCluster »αÑñßΓáó½∩ÑΓ ß«í«⌐ Σπ¡¬µ¿«¡á½∞¡δ⌐ á¡á½«ú «íΩÑ¬Γá TCluster, ¡«, ó «Γ½¿τ¿Ñ «Γ ¡Ñú«, ∩ó½∩ÑΓß∩ »«Γ«¼¬«¼ úαπ»»δ. GraphCluster - áíßΓαá¬Γ¡δ⌐ «íΩÑ¬Γ, ¡á «ß¡«óÑ ¬«Γ«α«ú« αÑá½¿ºπεΓß∩ «íΩÑ¬Γδ ºáó¿ß¿¼δσ ¿ ¡Ñºáó¿ß¿¼δσ ¬¡«»«¬. ÅÄïƒ ------------------------------------------------------------- Value Value: Word; ÆÑ¬πΘÑÑ º¡áτÑ¡¿Ñ φ½Ñ¼Ñ¡Γá π»αáó½Ñ¡¿∩. è«¡¬αÑΓ¡δ⌐ ß¼δß½ φΓ«ú« »«½∩ «»αÑñÑ½∩ÑΓß∩ Γ¿»«¼ «íΩÑ¬Γá, »«α«ªñÑ¡¡«ú« «Γ GraphCluster. 18 Sel Sel: Integer; ÆÑ¬πΘ¿⌐ óδíαá¡¡δ⌐ φ½Ñ¼Ñ¡Γ ¬½áßΓÑαá. îàÆÄä¢ ------------------------------------------------------------- Init constructor Init(var Bounds: TRect; AStrings: PSItem); éδºδóáÑΓ GraphGroup.Init, ñ«íáó½∩ÑΓ ó ¡ÑÑ φ½Ñ¼Ñ¡Γδ π»αáó½Ñ¡¿∩, óδºδóá∩ ¼ÑΓ«ñ InsertItem ñ½∩ ¬áªñ«⌐ ßΓα«¬¿ ß»¿ß¬á AStrings. Load constructor Load(var S: TStream); éδºδóáÑΓ GraphGroup.Load, ºáΓÑ¼ τ¿ΓáÑΓ ¿º »«Γ«¬á S »«½∩ Value ¿ Sel. DataSize function DataSize: Word; virtual; é«ºóαáΘáÑΓ αáº¼Ñα »«½∩ Val. ä«½ªÑ¡ »ÑαÑ¬αδóáΓ∞ß∩ ó »«α«ªñÑ¡¡δσ Γ¿»áσ, ¬«Γ«αδÑ ñ«íáó½∩εΓ ñαπú¿Ñ »«½∩ ñá¡¡δσ. GetData procedure GetData(var Rec); virtual; çá»¿ßδóáÑΓ º¡áτÑ¡¿Ñ »«½∩ Value ó ºá»¿ß∞ Rec. ä«½ªÑ¡ »ÑαÑ¬αδóáΓ∞ß∩ ó »«α«ªñÑ¡¡δσ Γ¿»áσ, ¬«Γ«αδÑ ñ«íáó½∩εΓ ñαπú¿Ñ »«½∩ ñá¡¡δσ. GetItemSize procedure GetItemSize(var ItemSize : TPoint); virtual; é«ºóαáΘáÑΓ ó »ÑαÑ¼Ñ¡¡«⌐ ItemSize αáº¼Ñαδ «í½áßΓ¿, ºá¡¿¼áÑ¼«⌐ «ñ¡¿¼ φ½Ñ¼Ñ¡Γ«¼ π»αáó½Ñ¡¿∩. ¥Γ« áíßΓαá¬Γ¡δ⌐ ¼ÑΓ«ñ, ¬«Γ«αδ⌐ ñ«½ªÑ¡ íδΓ∞ »ÑαÑ«»αÑñÑ½Ñ¡ ñ½∩ »«Γ«¼¬«ó «íΩÑ¬Γá GraphCluster. GetHelpCtx function GetHelpCtx: Word; virtual; é«ºóαáΘáÑΓ º¡áτÑ¡¿Ñ HelpCtx + Sel, τΓ« »«ºó«½∩ÑΓ ºáñáΓ∞ ¬«¡ΓÑ¬ßΓ¡πε ß»αáó¬π ñ½∩ ¬áªñ«ú« φ½Ñ¼Ñ¡Γá ¬½áßΓÑαá. GetPalette function GetPalette : PPalette; virtual; é«ºóαáΘáÑΓ π¬áºáΓÑ½∞ ¡á »á½¿Γαπ »« π¼«½τá¡¿ε. NewControl function NewControl(Bounds : TRect; AId : integer): PGraphView; virtual; ÇíßΓαá¬Γ¡δ⌐ ¼ÑΓ«ñ, óδ»«½¡∩εΘ¿⌐ ñ«íáó½Ñ¡¿Ñ ó ¬½áßΓÑα φ½Ñ¼Ñ¡Γá π»αáó½Ñ¡¿∩. AID - ¿ñÑ¡Γ¿Σ¿¬áΓ«α φ½Ñ¼Ñ¡Γá ó úαπ»»Ñ. ä«½ªÑ¡ íδΓ∞ »ÑαÑ«»αÑñÑ½Ñ¡ ñ½∩ »«Γ«¼¬«ó «íΩÑ¬Γá GraphCluster. ì¿¬«úñá ¡Ñ óδºδóáÑΓß∩ ¡Ñ»«ßαÑñßΓóÑ¡¡«. 19 Mark function Mark(Item: Integer): Boolean; virtual; êß»«½∞ºπÑΓß∩ ñ½∩ «»αÑñÑ½Ñ¡¿∩, ¬á¬¿Ñ φ½Ñ¼Ñ¡Γδ ¬½áßΓÑαá «Γ¼ÑτÑ¡δ Å« π¼«½τá¡¿ε óßÑúñá ó«ºóαáΘáÑΓ false, Γ.Ñ. φΓ«Γ ¼ÑΓ«ñ ñ«½ªÑ¡ íδΓ∞ »ÑαÑ«»αÑñÑ½Ñ¡ ñ½∩ »«Γ«¼¬«ó «íΩÑ¬Γá GraphCluster. Press procedure Press(Control : PGraphView); virtual; éδºδóáÑΓß∩ ¿º HandleEvent, ¬«úñá φ½Ñ¼Ñ¡Γ ó ¬½áßΓÑαÑ ¡áªáΓ ½¿í« «Γ¼ÑΓ¬«⌐ ¼δΦ¬¿, ½¿í« ß«íδΓ¿Ñ¼ «Γ ¬½áó¿áΓπαδ. ¥Γ« áíßΓαá¬Γ¡δ⌐ ¼ÑΓ«ñ ñ«½ªÑ¡ íδΓ∞ »ÑαÑ¬αδΓ. SetData procedure SetData(var Rec); virtual; ù¿ΓáÑΓ »«½Ñ Value ¿º ºá»¿ß¿ Rec ¿ ñáÑΓ ¬«¼á¡ñπ φ½Ñ¼Ñ¡Γá¼ ¬½áßΓÑαá »ÑαÑα¿ß«óáΓ∞ ßÑí∩ ó ß««ΓóÑΓßΓó¿¿ ß φΓ¿¼ º¡áτÑ¡¿Ñ¼. ä«½ªÑ¡ íδΓ∞ »ÑαÑ¬αδΓ, Ñß½¿ »«α«ªñÑ¡¡δÑ Γ¿»δ ¿ß»«½∞ºπεΓ ñ«»«½¡¿ΓÑ½∞¡δÑ »«½∩ ñá¡¡δσ. ìáα¿¼Ñα: procedure NewType.SetData(var Rec); begin GraphCluster.SetData(Rec); .... {ñαπú¿Ñ ñÑ⌐ßΓó¿∩} .... end; Store procedure Store(var S: TStream); æ«σαá¡∩ÑΓ «íΩÑ¬Γ GraphCluster ó »«Γ«¬Ñ, óδºδóá∩ GraphView.Store, ºá»¿ßδóáÑΓ Valuse ¿ Sel ó »«Γ«¬ S. ÅÇïêÆÉÇ -------------------------------------------------------------- CCluster = #47#48#49#50#51#52#53; | | | | | | | Σ«¡ -------------┘ | | | | | | ΓÑ¬ßΓ ºá»αÑΘÑ¡¡δ⌐---┘ | | | | | ΓÑ¬ßΓ ¡«α¼á½∞¡δ⌐-------┘ | | | | ΓÑ¬ßΓ óδíαá¡¡δ⌐-----------┘ | | | ß¿¼ó«½ ¬«α«Γ¬«ú« ¡áí«αá------┘ | | ¬¡«»¬á ¡«α¼á½∞¡á∩---------------┘ | ¬¡«»¬á ºá»αÑΘÑ¡¡á∩-----------------┘ 20 GraphDeskTop GrApp ============================================================================ -------------- | GraphGroup | -------------- | | ---------------- | GraphDesktop | ---------------- ÄíΩÑ¬Γ GraphDesktop á¡á½«ú¿τÑ¡ «íΩÑ¬Γπ TDeskTop, ºá ¿ß¬½ετÑ¡¿Ñ¼ Γ«ú«, τΓ« ó¼ÑßΓ« ¼ÑΓ«ñá NewBackground ¿ß»«∞ºπÑΓß∩ ¼ÑΓ«ñ InitBackground. îàÆÄä¢ ------------------------------------------------------------- InitBackground procedure InitBackground; virtual; æ«ºñáÑΓ «íΩÑ¬Γ Σ«¡á, ¿ß»«½∞ºπÑ¼δ⌐ ó »á¡Ñ½¿ φ¬αá¡á. éδºδóáÑΓß∩ ó ¼ÑΓ«ñÑ GraphDesktop.Init. î«ªÑΓ íδΓ∞ »ÑαÑ¬αδΓ. GraphDialog Controls =========================================================================== ----------------- | GraphWindow | ----------------- | | --------------- | GraphDialog | --------------- ¥Γ«Γ «íΩÑ¬Γ ∩ó½∩ÑΓß∩ á¡á½«ú«¼ «íΩÑ¬Γá TDialog. Ä»¿ßá¡¿Ñ »«½Ñ⌐ ¿ ¼ÑΓ«ñ«ó ß¼. ó "Turbo Vision Guide". ÅÇïêÆÉÇ ----------------------------------------------------------- CDialog = #94#95#96#97#98#99#100#101#102#103#104#105#106+ #107#108#109#110#111#112#113#114#115#116#117+ #118#119#120#121#122#123#124#125#126#127#128+ #129#130#131#132#133#134#135#136#137#138#139+ #140#141#142#143#144#145#146#147#148#149#150+ #151#152#153#154#155#156#157#158; éσ«ñδ ß 1 »« 23 - ß«ó»áñáεΓ »« ¡áº¡áτÑ¡¿ε ß ß««ΓóÑΓßΓóπεΘ¿¼¿ óσ«ñá¼¿ ó »á½¿ΓαÑ «¬¡á. ß 24 »« 25 - µóÑΓá ñ½∩ GraphStaticText c 26 »« 30 - µóÑΓá ñ½∩ GraphLabel ß 31 »« 46 - µóÑΓá ñ½∩ ΓÑ¬ßΓ«óδσ ¬¡«»«¬ ß 47 »« 53 - µóÑΓá ñ½∩ ¬½áßΓÑαá ß 54 »« 57 - µóÑΓá ßΓα«¬¿ óó«ñá ß 58 »« 61 - ¿ß»«½∞ºπεΓß∩ «¬¡á¼¿ ¿ßΓ«α¿⌐ ß 62 »« 64 - µóÑΓá ñ½∩ »«Γ«¼¬«ó GraphListViewer 21 GraphGrayGroup Controls ============================================================================ ------------------- | GraphBackground | ------------------- | | ------------------ | GraphGrayGroup | ------------------ ¥Γ«Γ »α«ßΓ«⌐ «íΩÑ¬Γ »αÑñ¡áº¡áτÑ¡ ñ½∩ ó¿ºπá½∞¡«ú« «íΩÑñ¿¡Ñ¡¿∩ ¡Ñß¬«½∞¬¿σ π»αáó½∩εΘ¿σ φ½Ñ¼Ñ¡Γ«ó ó Ññ¿¡πε úαπ»»π. Åα¿¼Ñα ¿ß»«½∞º«óá¡¿∩ : ¼«ñπ½∞ Calc ó ñÑ¼«¡ßΓαáµ¿«¡¡«⌐ »α«úαá¼¼Ñ. îàÆÄä¢ ------------------------------------------------------------- Init constructor Init(var Bounds : TRect); éδºδóáÑΓ GraphBackground.Init ¿ πßΓá¡áó½¿óáÑΓ GrowMode = 0; GraphGroup Grav ============================================================================ ------------- | GraphView | ------------- | | ---------------- | GraphGroup | ---------------- GraphGroup - á¡á½«ú «íΩÑ¬Γá TGroup ó Turbo Vision ¿ »αÑñ«ßΓáó½∩ÑΓ ΓÑ ªÑ ßá¼δÑ ßαÑñßΓóá ñ½∩ π»αáó½Ñ¡¿∩ ß»¿ß¬á¼¿ ó¿ñ¿¼δσ φ½Ñ¼Ñ¡Γ«ó. ÅÄïƒ ------------------------------------------------------------- êß¬½ετÑ¡« »«½Ñ Buffer, Γá¬ ¬á¬ óßÑ «»Ñαáµ¿¿ α¿ß«óá¡¿∩ αáí«ΓáεΓ ¡Ñ»«ßαÑñßΓóÑ¡¡« ß ó¿ñÑ«»á¼∩Γ∞ε. îàÆÄä¢ ------------------------------------------------------------- ChangeClipRect procedure ChangeClipRect; virtual; êº¼Ñ¡∩ÑΓ αáº¼Ñα ¼¿¡¿¼á½∞¡«ú« »α∩¼«πú«½∞¡¿¬á, ¬«Γ«αδ⌐ ΓαÑíπÑΓß∩ »ÑαÑα¿ß«óáΓ∞ ó »α«µÑßßÑ «»Ñαáµ¿¿ Draw. ä½∩ ¬áªñ«ú« ó¿ñ¿¼«ú« φ½Ñ¼Ñ¡Γá, ó¬½ετÑ¡¡«ú« ó úαπ»»π, Γá¬ªÑ óδºδóáÑΓß∩ ¼ÑΓ«ñ ChangeClipRect; ì¿¬«úñá ¡Ñ »ÑαÑ¬αδóáÑΓß∩ ¿ ¡Ñ óδºδóáÑΓß∩ ¡Ñ»«ßαÑñßΓóÑ¡¡«. 22 ResetCliprect procedure ResetClipRect; virtual; é«ßßΓá¡áó½¿óáÑΓ αáº¼Ñα ¼¿¡¿¼á½∞¡«ú« »α∩¼«πú«½∞¡¿¬á. ä½∩ ¬áªñ«ú« ó¿ñ¿¼«ú« φ½Ñ¼Ñ¡Γá, ó¬½ετÑ¡¡«ú« ó úαπ»»π, Γá¬ªÑ óδºδóáÑΓß∩ ¼ÑΓ«ñ ResetClipRect. ì¿¬«úñá ¡Ñ »ÑαÑ¬αδóáÑΓß∩ ¿ ¡Ñ óδºδóáÑΓß∩ ¡Ñ»«ßαÑñßΓóÑ¡¡«. GraphHistoryViewer Controls ============================================================================ ------------------- | GraphListViewer | ------------------- | | ---------------------- | GraphHistoryViewer | ---------------------- ÄíΩÑ¬Γ GraphHistoryViewer óδ»«½¡∩ÑΓ ΓÑ ªÑ Σπ¡¬µ¿¿, τΓ« ¿ THistoryViewer. Å«ñα«í¡«Ñ «»¿ßá¡¿Ñ ß¼. ó απ¬«ó«ñßΓóÑ »« Turbo Vision. ÅÇïêÆÉÇ ------------------------------------------------------------- CHistoryViewer = #28#29#30#31; | | | | Σ«¡ ¡«α¼á½∞¡δ⌐----┘ | | | ΓÑ¬ßΓ ¡«α¼á½∞¡δ⌐-----┘ | | Σ«¡ óδíαá¡¡δ⌐-----------┘ | ΓÑ¬ßΓ óδíαá¡¡δ⌐------------┘ GraphHistoryWindow Controls ============================================================================ --------------- | GraphWindow | --------------- | | ---------------------- | GraphHistoryWindow | ---------------------- ÄíΩÑ¬Γ GraphHistoryWindow »«½¡«ßΓ∞ε á¡á½«ú¿τÑ¡ «íΩÑ¬Γπ THistoryWindow ó Turbo Vision. 23 ÅÇïêÆÉÇ ------------------------------------------------------------- CHistoryWindow = #1#2#3#4#5#6#7#8#9#10#11#12#13#14#15#16#17 + #18#19#20#21#22#23#24#25#26#27#58#59#60#61 óσ«ñδ ß 1 »« 27 ß«ó»áñáεΓ »« ¡áº¡áτÑ¡¿ε ß ßß«ΓóÑΓßΓóπεΘ¿¼¿ óσ«ñá¼¿ «¬¡á, óσ«ñδ ß 28 »« 31 - µóÑΓá ñ½∩ GraphHistoryViewer. GraphHistory Controls ============================================================================ ------------- | GraphView | ------------- | | ---------------- | GraphHistory | ---------------- ÄíΩÑ¬Γ GraphHistory »«½¡«ßΓ∞ε á¡á½«ú¿τÑ¡ «íΩÑ¬Γπ THistory. Ä»¿ßá¡¿Ñ ¼ÑΓ«ñ«ó ¿ »«½Ñ⌐ ß¼«Γα¿ ó απ¬«ó«ñßΓóÑ »« Turbo Vision. ÅÇïêÆÉÇ ------------------------------------------------------------- CHistory = #04#05#06#07#08; | | | | | «ß¡«ó¡«⌐-----┘ | | | | ßóÑΓ½δ⌐ --------┘ | | | ΓÑ¼¡δ⌐ ------------┘ | | αáºαÑΦÑ¡¡δ⌐ ----------┘ | ºá»αÑΘÑ¡¡δ⌐ -------------┘ GraphInputLine Controls ============================================================================ ------------- | GraphView | ------------- | | ------------------ | GraphInputLine | ------------------ ÄíΩÑ¬Γ GraphInputLine »«½¡«ßΓ∞ε á¡á½«ú¿τÑ¡ «íΩÑ¬Γπ TInputLine ó Turbo Vision. 24 ÅÇïêÆÉÇ ------------------------------------------------------------- CInputLine = #54#55#56#57; | | | | Σ«¡ ¡«α¼á½∞¡---┘ | | | ΓÑ¬ßΓ ¡«α¼á½∞¡----┘ | | Σ«¡ óδñÑ½Ñ¡¡δ⌐-------┘ | ΓÑ¬ßΓ óδñÑ½Ñ¡¡δ⌐--------┘ GraphLabel Controls ============================================================================ ------------------- | GraphStaticText | ------------------- | | -------------- | GraphLabel | -------------- ÄíΩÑ¬Γ GraphLabel »«½¡«ßΓ∞ε á¡á½«ú¿τÑ¡ «íΩÑ¬Γπ TLabel ó Turbo Vision. ä½∩ ¿º«íαáªÑ¡¿∩ ßÑí∩ ¡á φ¬αá¡Ñ « íΩÑ¬Γ GraphLabel ¿ß»«½∞ºπÑΓ ß¿ßΓÑ¼¡δ⌐ Σ«¡Γ ¿ αáº¼Ñα ß¿¼ó«½á, αáó¡δ⌐ 1. ÅÇïêÆÉÇ ------------------------------------------------------------- CLabel = #26#27#28#29#30; | | | | | Σ«¡ -------------┘ | | | | ΓÑ¬ßΓ ºá»αÑΘÑ¡¡δ⌐---┘ | | | ΓÑ¬ßΓ ¡«α¼á½∞¡δ⌐-------┘ | | ΓÑ¬ßΓ óδíαá¡¡δ⌐-----------┘ | ß¿¼ó«½ ¬«α«Γ¬«ú« ¡áí«αá------┘ GraphListBox Controls ============================================================================ ------------------- | GraphListViewer | ------------------- | | ---------------- | GraphListBox | ---------------- é «Γ½¿τ¿Ñ «Γ «íΩÑ¬Γá TListBox ó Turbo Vision, «íΩÑ¬Γ GraphListBox ∩ó½∩ÑΓß∩ áíßΓαá¬Γ¡δ¼ «íΩÑ¬Γá¼. Ä¡ αÑá½¿ºπÑΓ ¼ÑΓ«ñδ ñ½∩ αáí«Γδ ß »α¿ß«Ññ¿¡Ñ¡¡«⌐ ¬«½½Ñ¬µ¿Ñ⌐, á¡á½«ú¿τ¡δÑ ¼ÑΓ«ñá¼ TListBox, ºá ¿ß¬½ετÑ¡¿Ñ¼ ¼ÑΓ«ñá GetText. é¼ÑßΓ« ¡Ñú« ¿ß»«½∞ºπÑΓß∩ ¼ÑΓ«ñ GetItem. 25 îàÆÄä¢ ------------------------------------------------------------- GetItem function GetItem(Item : integer): pointer; virtual; é«ºóαáΘáÑΓ ¡ÑΓ¿»¿º¿α«óá¡¡δ⌐ π¬áºáΓÑ½∞ ¡á φ½Ñ¼Ñ¡Γ ¬«½½Ñ¬µ¿¿ Item. Å«Γ«¼¬¿ «íΩÑ¬Γá GraphListBox ñ«½ª¡δ «»αÑñÑ½∩Γ∞ ¼ÑΓ«ñδ, ¬«Γ«αδÑ ¿¡ΓÑα»αÑΓ¿απεΓ ó«ºóαáΘáÑ¼δ⌐ π¬áºáΓÑ½∞ ¬á¬ π¬áºáΓÑ½∞ ¡á ¬«¡¬αÑΓ¡δ⌐ Γ¿». ä½∩ »α¿¼Ñαá ß¼. «íΩÑ¬Γ TextListBox. GraphListViewer Grav ============================================================================ ------------- | GraphView | ------------- | | ------------------- | GraphListViewer | ------------------- ÄíΩÑ¬Γ GraphListViewer ∩ó½∩ÑΓß∩ á¡á½«ú«¼ «íΩÑ¬Γá TListViewer. êº αÑá½¿ºáµ¿¿ ¿ß¬½ετÑ¡ ¼ÑΓ«ñ GetText. é¼ÑßΓ« ¡Ñú« ¿ß»«½∞ºπÑΓß∩ ¼ÑΓ«ñ GetItem. îàÆÄä¢ ------------------------------------------------------------- DrawItem procedure DrawItem(Item : integer); virtual; ÇíßΓαá¬Γ¡δ⌐ ¼ÑΓ«ñ, »αÑñ¡áº¡áτÑ¡¡δ⌐ ñ½∩ ¿º«íαáªÑ¡¿∩ ¡á φ¬αá¡Ñ φ½Ñ¼Ñ¡Γá ß ¡«¼Ñα«¼ Item. ä«½ªÑ¡ íδΓ∞ »ÑαÑ«»αÑñÑ½Ñ¡ ñ½∩ »«Γ«¼¬«ó «íΩÑ¬Γá GraphListViewer. DrawItems procedure DrawItems; êº«íαáªáÑΓ ¡á φ¬αá¡Ñ «Γ«íαáªáÑ¼δÑ φ½Ñ¼Ñ¡Γδ ß»¿ß¬á, óδºδóá∩ ñ½∩ ¬áªñ«ú« ¿º ¡¿σ ¼ÑΓ«ñ DrawItem. GetItem function GetItem(Item: Integer): pointer; virtual; ÇíßΓαá¬Γ¡δ⌐ ¼ÑΓ«ñ. é«ºóαáΘáÑΓ π¬áºáΓÑ½∞ ¡á φ½Ñ¼Ñ¡Γ Item. ä«½ªÑ¡ íδΓ∞ »ÑαÑ«»αÑñÑ½Ñ¡ ñ½∩ »«Γ«¼¬«ó «íΩÑ¬Γá GraphListViewer. 26 GetItemRect procedure GetItemRect(Item : integer; var Bounds : TRect); é«ºóαáΘáÑΓ ó »ÑαÑ¼Ñ¡¡«⌐ Bounds ¬««αñ¿¡áΓδ «í½áßΓ¿, ºá¡¿¼áÑ¼«⌐ ¿º«íαáªÑ¡¿Ñ¼ φ½Ñ¼Ñ¡Γá Item. GetItemSize procedure GetItemSize(var ItemSize : TPoint); virtual; ÇíßΓαá¬Γ¡δ⌐ ¼ÑΓ«ñ. é«ºóαáΘáÑΓ ó »ÑαÑ¼Ñ¡¡«⌐ ItemSize αáº¼Ñαδ ¿º«íαáªÑ¡¿∩ φ½Ñ¼Ñ¡Γá ß»¿ß¬á. éßÑ φ½Ñ¼Ñ¡Γδ ß»¿ß¬á ñ«½ª¡δ ¿¼ÑΓ∞ ¿º«íαáªÑ¡¿Ñ «ñ¿¡á¬«ó«ú« αáº¼Ñαá. ¥Γ«Γ ¼ÑΓ«ñ ñ«½ªÑ¡ íδΓ∞ »ÑαÑ«»αÑñÑ½Ñ¡ ñ½∩ »«Γ«¼¬«ó «íΩÑ¬Γá GraphListViewer. ÅÇïêÆÉÇ ------------------------------------------------------------- CListViewer =#62#63#64#65; | | | | Σ«¡ ¡«α¼á½∞¡δ⌐--------┘ | | | ΓÑ¬ßΓ -"- ---------------┘ | | Σ«¡ »«ñßóÑτÑ¡¡δ⌐-------------┘ | ΓÑ¬ßΓ -"- ----------------------┘ GraphParamText Controls ============================================================================ ------------------- | GraphStatictext | ------------------- | | ------------------ | GraphParamText | ------------------ ÄíΩÑ¬Γ GraphParamText »«½¡«ßΓ∞ε á¡á½«ú¿τÑ¡ «íΩÑ¬Γπ TParamText ó Turbo Vision. ä½∩ ¿º«íαáªÑ¡¿∩ ßÑí∩ ¡á φ¬αá¡Ñ «íΩÑ¬Γ GraphParamText ¿ß»«½∞ºπÑΓ ß¿ßΓÑ¼¡δ⌐ Σ«¡Γ ¿ αáº¼Ñα ß¿¼ó«½á, αáó¡δ⌐ 1. 27 GraphProgram Grapp ============================================================================ -------------- | GraphGroup | -------------- | | ---------------- | GraphProgram | ---------------- ÄíΩÑ¬Γ GraphProgram, á¡á½«ú¿τ¡« TProgram ó Turbo Vision, ∩ó½∩ÑΓß∩ íáº«⌐ ñ½∩ óßÑσ ßΓá¡ñáαΓ¡δσ »α«úαá¼ ¡á GraphVision. Å«ñα«í¡«Ñ «»¿ßá¡¿Ñ ¼ÑΓ«ñ«ó ß¼. ó απ¬«ó«ñßΓóÑ »« Turbo Vision. Åα¿ ¿¡¿µ¿á½¿ºáµ¿¿ «íΩÑ¬Γ GraphProgram »δΓáÑΓß∩ «Γ¬αδΓ∞ »«Γ«¬, ó ¬«Γ«α«¼ σαá¡∩Γß∩ ßΓá¡ñáαΓ¡δÑ αÑßπαßδ, ¿ß»«½∞ºπÑ¼δÑ αáº½¿τ¡δ¼¿ «íΩÑ¬Γá¼¿ Graph Vision. æ¡áτá½á »α«¿ºó«ñ¿Γß∩ »«¿ß¬ ó Σá⌐½Ñ óδ»«½¡∩Ñ¼«⌐ »α«úαá¼¼δ. àß½¿ αÑßπαßδ ¡Ñ ¡á⌐ñÑ¡δ, »α«¿ºó«ñ¿Γß∩ »«»δΓ¬á «Γ¬αδΓ∞ Σá⌐½ Standard.rsc, ¬«Γ«αδ⌐ »«ßΓáó½∩ÑΓß∩ ó¼ÑßΓÑ ß »á¬ÑΓ«¼ Graph Vision ¿ ó ¬«Γ«α«¼ σαá¡¿Γß∩ ¡áí«α ßΓá¡ñáαΓ¡δσ αÑßπαß«ó («íαáºδ bitmap-¬¡«»«¬ ¿ Γ.ñ.). àß½¿ Σá⌐½ αÑßπαß«ó ¡á⌐ñÑ¡, ú½«íá½∞¡«⌐ »ÑαÑ¼Ñ¡¡«⌐ StdResource »α¿ßóá¿óáÑΓß∩ π¬áºáΓÑ½∞ ¡á «íΩÑ¬Γ Γ¿»á TResourceFile, ßó∩º∩¡¡δ⌐ ß Σá⌐½«¼ αÑßπαß«ó. èα«¼Ñ Γ«ú«, ß«ºñáÑΓß∩ «íΩÑ¬Γ Γ¿»á TSharedResource, ¬«Γ«α«¼π »α¿ ¿¡¿µ¿á½¿ºáµ¿¿ »ÑαÑñáÑΓß∩ π¬áºáΓÑ½∞, σαá¡∩Θ¿⌐ß∩ ó »ÑαÑ¼Ñ¡¡«⌐ StdResource. îàÆÄä¢ ------------------------------------------------------------ RefreshRect procedure RefreshRect(Bounds : TRect); virtual; êß»«½∞ºπÑΓß∩ ñ½∩ »ÑαÑα¿ß«ó¬¿ »α∩¼«πú«½∞¡¿¬á Bounds, ºáñá¡¡«ú« ó ½«¬á½∞¡δσ ¬««αñ¿¡áΓáσ «íΩÑ¬Γá GraphProgram. ì¿¬«úñá ¡Ñ »ÑαÑ¬αδóáÑΓß∩ ¿ ¡Ñ óδºδóáÑΓß∩ ¡Ñ»«ßαÑñßΓóÑ¡¡«. GraphRadioButtons Controls ============================================================================ ---------------- | GraphCluster | ---------------- | | --------------------- | GraphRadioButtons | --------------------- ÄíΩÑ¬Γ GraphRadioButtons óδ»«½¡∩ÑΓ ΓÑ ªÑ Σπ¡¬µ¿¿, τΓ« ¿ TRadioButtons ó Turbo Vision. ¥Γ« ¡áí«α ¬¡«»«¬ ß ºáó¿ß¿¼«⌐ Σ¿¬ßáµ¿Ñ⌐, Γ.Ñ. ó ½εí«⌐ ¼«¼Ñ¡Γ óαÑ¼Ñ¡¿ ¼«ªÑΓ íδΓ∞ óδíαá¡á Γ«½∞¬« «ñ¡á ¬¡«»¬á. Å«½Ñ Value ¿¡ΓÑα»αÑΓ¿απÑΓß∩ ¬á¬ ¡«¼Ñα óδíαá¡¡«⌐ ¬¡«»¬¿: 0 - ¡ÑΓ óδíαá¡¡δσ ¬¡«»«¬,1 - óδíαá¡á »Ñαóá∩ ¬¡«»¬á ¿ Γ.ñ. îàÆÄä¢ ------------------------------------------------------------ Init constructor Init(var Bounds : TRect; AStrings : PSItem); æ«ºñáÑΓ ¡áí«α ¬¡«»«¬ ß ºáó¿ß¿¼«⌐ Σ¿¬ßáµ¿Ñ⌐. 28 Load constructor Load(var S : TStream); çáúαπªáÑΓ ¿º »«Γ«¬á S ¡áí«α ¬¡«»«¬ ß ºáó¿ß¿¼«⌐ Σ¿¬ßáµ¿Ñ⌐. Done destructor Done; virtual; ô¡¿τΓ«ªáÑΓ ¡áí«α ¬¡«»«¬ ß ºáó¿ß¿¼«⌐ Σ¿¬ßáµ¿Ñ⌐. GetItemSize procedure GetItemSize(var ItemSize : TPoint); virtual; é«ºóαáΘáÑΓ ó »ÑαÑ¼Ñ¡¡«⌐ ItemSize αáº¼Ñαδ «í½áßΓ¿, ºá¡¿¼áÑ¼«⌐ «ñ¡¿¼ φ½Ñ¼Ñ¡Γ«¼ π»αáó½Ñ¡¿∩. HandleEvent procedure HandleEvent(var Event : TEvent); virtual; ÄíαáíáΓδóáÑΓ ß«íδΓ¿∩ «Γ ¼δΦ¿ ¿ ¬½áó¿áΓπαδ ñ½∩ «»αÑñÑ½Ñ¡¿∩ ¿ ¿º¼Ñ¡Ñ¡¿∩ ΓÑ¬πΘÑ⌐ ¬¡«»¬¿. NewControl function NewControl(Bounds : TRect; AId : integer): PGraphView; virtual; ä«íáó½∩ÑΓ ¡«óπε ¬¡«»¬π ó úαπ»»π ¬¡«»«¬ ß ºáó¿ß¿¼«⌐ Σ¿¬ßáµ¿Ñ⌐. ì¿¬«úñá ¡Ñ óδºδóáÑΓß∩ ¡Ñ»«ßαÑñßΓóÑ¡¡«. Mark function Mark(Item : Integer): boolean; virtual; é«ºóαáΘ∩ÑΓ true, Ñß½¿ Item = Value, Γ.Ñ. ¬¡«»¬á ß ¡«¼Ñα«¼ Item ∩ó½∩ÑΓß∩ ΓÑ¬πΘÑ⌐. Press procedure Press(Control : PGraphView); virtual; éδºδóáÑΓß∩ ¿º HandleEvent, ¬«úñá ¡áªáΓá ¬¡«»¬á ß ºáó¿ß¿¼«⌐ Σ¿¬ßáµ¿Ñ⌐. êº¼Ñ¡Ñ¡∩ÑΓ º¡áτÑ¡¿Ñ »«½∩ Value ¿ ß«ßΓ«∩¡¿∩ ºáó¿ß¿¼δσ ¬¡«»«¬, óσ«ñ∩Θ¿σ ó úαπ»»π. ì¿¬«úñá ¡Ñ óδºδóáÑΓß∩ ¡Ñ»«ßαÑñßΓóÑ¡¡«. GraphStaticBitmap Controls ============================================================================ ------------- | GraphView | ------------- | | --------------------- | GraphStaticBitmap | --------------------- 29 ¥Γ« »α«ßΓ«⌐ «íΩÑ¬Γ, »αÑñ¡áº¡áτÑ¡¡δ⌐ ñ½∩ «Γ«íαáªÑ¡Ñ¿∩ ¡á φ¬αá¡Ñ ßΓáΓ¿τÑß¬¿σ ¿º«íαáªÑ¡¿⌐. GraphStaticBitmap ¿ú¡«α¿απÑΓ óßÑ ß«íδΓ¿∩, »ÑαÑñá¡¡δÑ Ñ¼π. êß»«½∞ºπÑΓß∩ ¬á¬ »áßß¿ó¡á∩ ¿¬«¡¬á ¿½¿ ¼ÑΓ¬á. ÅÄïƒ ----------------------------------------------------------- Image Image : PImage; ô¬áºáΓÑ½∞ ¡á «íΩÑ¬Γ Γ¿»á TImage, ó ¬«Γ«α«¼ σαá¡¿Γß∩ «íαáº ¬áαΓ¿¡¬¿. îàÆÄä¢ ----------------------------------------------------------- Init constructor Init(var Bounds : TRect; AName : String); éδºδóáÑΓ GraphView.Init, ºáúαπªáÑΓ ¿º Σá⌐½á ßΓá¡ñáαΓ¡δσ αÑßπαß«ó «íαáº ß ¿¼Ñ¡Ñ¼ AName ¿ »α¿ßóá¿óáÑΓ »«½ε Image π¬áºáΓÑ½∞ ¡á ºáúαπªÑ¡¡δ⌐ «íΩÑ¬Γ Γ¿»á TImage. Load constructor Load(var S : TStream); éδºδóáÑΓ GraphView.Load ¿ ºáúαπªáÑΓ ¿º »«Γ«¬á S ßΓα«¬π c ß ¿¼Ñ¡Ñ¼ «íαáºá, ¿ ºáΓÑ¼ ºáúαπªáÑΓ ¿º Σá⌐½á ßΓá¡ñáαΓ¡δσ αÑßπαß«ó «íαáº ß ñá¡¡δ¼ ¿¼Ñ¡Ñ¼. Done destructor Done; virtual; ô¡¿τΓ«ªáÑΓ «íΩÑ¬Γ, σαá¡∩Θ¿⌐ «íαáº ¬áαΓ¿¡¬¿ ¿ óδºδóáÑΓ GraphView.Done. Draw procedure Draw; virtual; éδó«ñ¿Γ ¡á φ¬αá¡ ¿º«íαáªÑ¡¿Ñ, ¿ß»«½∞ºπ∩ ¼ÑΓ«ñ DrawImg: GetExtent(R); DrawImg(R.A,Image,NormalPut); Store procedure Store(var S : TStream); virtual; éδºδóáÑΓ GraphView.Store ¿ ß«σαá¡∩ÑΓ ó »«Γ«¬Ñ S ¿¼∩ «íαáºá. GraphTextButton Controls =========================================================================== --------------- | GraphButton | --------------- | | ------------------- | GraphTextButton | ------------------- 30 GraphTextButton - φΓ« ΓÑα¼¿¡á½∞¡δ⌐ «íΩÑ¬Γ, »αÑñßΓáó½∩εΘ¿⌐ ß«í«⌐ «íΩÑ¼¡δ⌐ »α∩¼«πú«½∞¡¿¬ ß ºáú«½«ó¬«¼, »« ó¡ÑΦ¡Ñ¼π ó¿ñπ »«σ«ª¿⌐ ¡á ßΓá¡ñáαΓ¡δÑ ¬¡«»¬¿ ó Microsoft Windows. ìáß½ÑñπÑΓ óßÑ ¼ÑΓ«ñδ, ¬α«¼Ñ π¬áºá¡¡δσ ¡¿ªÑ, «Γ «íΩÑ¬Γá GraphButton. îàÆÄä¢ ------------------------------------------------------------ DrawState procedure DrawState(Pushed : boolean); virtual; éδ»«½¡∩ÑΓ »α«α¿ß«ó¬π ¬¡«¡«»¬¿ ¡á φ¬αá¡Ñ. éδºδóáÑΓß∩ τÑαÑº ¼ÑΓ«ñ Draw ¿ ¡¿¬«úñá ¡Ñ óδºδóáÑΓß∩ ¡Ñ»«ßαÑñßΓóÑ¡¡«. Åα¿ ªÑ½á¡¿¿ ¼«ªÑΓ íδΓ∞ »ÑαÑ¬αδΓ. GetPalette procedure GetPalette : PPalette; virtual; é«ºóαáΘáÑΓ π¬áºáΓÑ½∞ ¡á »á½¿Γαπ ΓÑ¬ßΓ«ó«⌐ ¬¡«»¬¿ CButton. ÅÇïêÆÉÇ ------------------------------------------------------------ CButton = #31#32#33#34#31#32#33#34#35#36#37#38#43#44#45#46; | | | | | | | | | | | | | | | | αáºαÑΦÑ¡¡á∩ ¡Ñá¬Γ¿ó¡á∩ | | | | | | | | | | | | | | | | Σ«¡ -----------┘ | | | | | | | | | | | | | | | ßóÑΓ½δ⌐ ----------┘ | | | | | | | | | | | | | | ΓÑ¼¡δ⌐ --------------┘ | | | | | | | | | | | | | ΓÑ¬ßΓ ------------------┘ | | | | | | | | | | | | »« π¼«½τá¡¿ε (amDefault=true) | | | | | | | | | | | | Σ«¡ -----------------------┘ | | | | | | | | | | | ßóÑΓ½δ⌐ ----------------------┘ | | | | | | | | | | ΓÑ¼¡δ⌐ --------------------------┘ | | | | | | | | | ΓÑ¬ßΓ ------------------------------┘ | | | | | | | | ΓÑ¬πΘá∩ | | | | | | | | Σ«¡------------------------------------┘ | | | | | | | ßóÑΓ½δ⌐ ----------------------------------┘ | | | | | | ΓÑ¼¡δ⌐ --------------------------------------┘ | | | | | ΓÑ¬ßΓ ------------------------------------------┘ | | | | ºá»αÑΘÑ¡¡á∩ | | | | Σ«¡ -----------------------------------------------┘ | | | ßóÑΓ½δ⌐ ----------------------------------------------┘ | | ΓÑ¼¡δ⌐ --------------------------------------------------┘ | ΓÑ¬ßΓ ------------------------------------------------------┘ GraphTwoStateButton Controls ============================================================================ ------------- | GraphView | ------------- | | ----------------------- | GraphTwoStateButton | ----------------------- ¥Γ« áíßΓαá¬Γ¡δ⌐ «íΩÑ¬Γ, ß«ñÑαªáΘ¿⌐ «ß¡«ó¡δÑ ¼ÑΓ«ñδ ñ½∩ ß«ºñá¡¿∩ ¬¡«»«¬ ß ñóπ¼∩ Σ¿¬ß¿απεΘ¿¼¿ß∩ ß«ßΓ«∩¡¿∩¼¿. 31 ÅÄïƒ ------------------------------------------------------------- Checked Checked : boolean; ¥Γ« »«½Ñ σαá¡¿Γ ΓÑ¬πΘÑÑ ß«ßΓ«∩¡¿Ñ ¬¡«»¬¿ (Ñß½¿ false - ¬¡«»¬á ºáΣ¿¬ß¿α«óá¡á ó óÑασ¡Ñ¼ »«½«ªÑ¡¿¿). îàÆÄä¢ -------------------------------------------------------------- Load constructor Load(var S : TStream); éδºδóáÑΓ GraphView.Load ¿ ºá»απªáÑΓ ¿º »«Γ«¬á S º¡áτÑ¡¿Ñ »«½∩ Checked. Check procedure Check; ôßΓá¡áó½¿óáÑΓ º¡áτÑ¡¿Ñ »«½∩ Checked ó true. GetData procedure GetData(var Rec); virtual; é«ºóαáΘáÑΓ ó »ÑαÑ¼Ñ¡¡«⌐ Rec º¡áτÑ¡¿Ñ »«½∩ Checked. î«ªÑΓ íδΓ∞ »ÑαÑ«»αÑñÑ½Ñ¡ ñ½∩ »«Γ«¼¬«ó. DataSize function DataSize : word; virtual; é«ºóαáΘáÑΓ αáº¼Ñα ºá»¿ß¿ ñ½∩ GetData. Å« π¼«½τá¡¿ε ó«ºóαáΘáÑΓ SizeOf(Boolean). î«ªÑΓ íδΓ∞ »ÑαÑ«»αÑñÑ½Ñ¡ ñ½∩ »«Γ«¼¬«ó. Draw procedure Draw; virtual; Åα«α¿ß«óδóáÑΓ ¬¡«»¬π ¡á φ¬αá¡Ñ ó ß««ΓóÑΓßΓó¿¿ ß« º¡áτÑ¡¿Ñ¼ »«½∩ Checked, óδºδóá∩ ¼ÑΓ«ñ DrawState. ìÑ ñ«½ªÑ¡ »ÑαÑ¬αδóáΓ∞ß∩. DrawState procedure DrawState(Pressed: Boolean); virtual; Åα«α¿ß«óδóáÑΓ ¬¡«»¬π ¡á φ¬αá¡Ñ ó ß««ΓóÑΓßΓó¿¿ ß« º¡áτÑ¡¿Ñ¼ »áαá¼ÑΓαá Pressed. ä«½ªÑ¡ íδΓ∞ »ÑαÑ«»αÑñÑ½Ñ¡ ñ½∩ »«Γ«¼¬«ó «íΩÑ¬Γá GraphTwoStateButton. HandleEvent procedure HandleEvent(var Event: TEvent); virtual; ÄíαáíáΓδóáÑΓ ß«íδΓ¿∩, ¬«Γ«αδÑ ¼«úπΓ ó½¿∩Γ∞ ¡á ¿º¼Ñ¡Ñ¡¿Ñ ß«ßΓ«∩¡¿∩ ¬¡«»¬¿. æ«ßΓ«∩¡¿Ñ ¬¡«»¬¿ ¼«ªÑΓ íδΓ∞ ¿º¼Ñ¡Ñ¡«, ¬á¬ ¿ π GraphButton, ΘÑ½τ¬«¼ ¼δΦ¬¿ ¿½¿ ¡áªáΓ¿Ñ¼ ¬½áó¿Φ¿ »α«íÑ½á (Ñß½¿ State and sfFocused <> 0). SetData procedure SetData(var Rec); virtual; Å« π¼«½τá¡¿ε τ¿ΓáÑΓ SizeOf(Boolean) íá⌐Γ ¿º ºá»¿ß¿ Rec. î«ªÑΓ íδΓ∞ »ÑαÑ«»αÑñÑ½Ñ¡ ñ½∩ »«Γ«¼¬«ó. 32 Press procedure Press; virtual; éδºδóáÑΓß∩ »α«µÑñπα«⌐ HandleEvent »áα¿ ¡áªáΓ¿¿ ¡á ¬¡«»¬π. êº¼Ñ¡∩ÑΓ ß«ßΓ«∩¡¿Ñ »«½∩ Checked, óδºδóá∩ ¼ÑΓ«ñ Toggle. î«ªÑΓ íδΓ∞ »ÑαÑ«»αÑñÑ½Ñ¡ ñ½∩ »«Γ«¼¬«ó. SetCheck procedure SetCheck(CheckState : boolean); ôßΓá¡áó½¿óáÑΓ »«½Ñ Checked ó ß«ßΓ«∩¡¿Ñ CheckState. Store procedure Store(var S : TStream); éδºδóáÑΓ GraphView.Store ¿ ºá»¿ßδóáÑΓ ó »«Γ«¬ S »«½Ñ Checked. Toggle procedure Toggle; êº¼Ñ¡∩ÑΓ º¡áτÑ¡¿Ñ »«½∩ Checked ¡á »α«Γ¿ó«»«½«ª¡«Ñ. Uncheck procedure UnCheck; ôßΓá¡áó½¿óáÑΓ º¡áτÑ¡¿Ñ »«½∩ Checked ó false. GraphScrollBar Grav ============================================================================ -------------- | GraphGroup | -------------- | | ------------------ | GraphScrollBar | ------------------ êº¼Ñ¡Ñ¡á αÑá½¿ºáµ¿∩ «íΩÑ¬Γá »«½«ßδ »α«¬απΓ¬¿. é «Γ½¿τ¿Ñ «Γ «íΩÑ¬Γá TScrollBar, ¬«Γ«αδ⌐ ∩ó½∩ÑΓß∩ »«Γ«¼¬«¼ TView, GraphScrollBar ∩ó½∩ÑΓß∩ »«Γ«¼¬«¼ GraphGroup. Åα«úαá¼¼¡δ⌐ ¿¡ΓÑαΣÑ⌐ß, «ñ¡á¬«, ¡Ñ ¿º¼Ñ¡¿½ß∩. éßÑ »«½∩ ¿ ¼ÑΓ«ñδ, αÑá½¿º«óá¡¡δÑ ñ½∩ TScrollBar, αÑá½¿º«óá¡δ ¿ ñ½∩ GraphScrollBar. Å«ñα«í¡«Ñ «»¿ßá¡¿Ñ »«½Ñ⌐ ¿ ¼ÑΓ«ñ«ó ß¼«Γα¿ ó "Turbo Vision Guide". ÅÇïêÆÉÇ ------------------------------------------------------------ CScrollBar = #19#20#21#22#23; | | | | | «ß¡«ó¡«⌐ ------┘ | | | | ßóÑΓ½δ⌐ ----------┘ | | | ΓÑ¼¡δ⌐ --------------┘ | | αÑºÑαó------------------┘--┘ 33 GraphScroller Grav ============================================================================ ------------- | GraphView | ------------- | | ----------------- | GraphScroller | ----------------- ÄíΩÑ¬Γ GraphScroller ∩ó½∩ÑΓß∩ á¡á½«ú«¼ «íΩÑ¬Γá TScroller. Å«ñα«í¡«Ñ «»¿ßá¡¿Ñ »«½Ñ⌐ ¿ ¼ÑΓ«ñ«ó ß¼. ó "Turbo Vision Guide". ÅÄïƒ ----------------------------------------------------------- Step Step : TPoint òαá¡¿Γ αáº¼Ñαδ ½«ú¿τÑß¬«ú« φ½Ñ¼Ñ¡Γá ß¬α«½½Ñαá. îàÆÄä¢ ----------------------------------------------------------- GetDelta procedure GetDelta(var Delta : TPoint); é«ºóαáΘáÑΓ αáº¼Ñαδ ß¬α«½½Ñαá ó ½«ú¿τÑß¬¿σ φ½Ñ¼Ñ¡Γáσ. éδºδóáÑΓß∩ ó ¼ÑΓ«ñe SetLimit. Å«½πτÑ¡¡δÑ º¡áτÑ¡¿∩ Delta.X ¿ Delta.Y ¿ß»«½∞ºπεΓß∩ ñ½∩ πßΓá¡«ó¬¿ ¬«ααÑ¬Γ¡δσ »áαá¼ÑΓα«ó »«½«ß »α«¬απΓ¬¿, ßó∩ºá¡¡δσ ß« ß¬α«½½Ñα«¼. ç¡áτÑ¡¿Ñ Delta óδτ¿ß½∩ÑΓß∩ ß½ÑñπεΘ¿¼ «íαáº«¼: with ADelta do begin X := Size.X div Step.X; Y := Size.Y div Step.Y; end; ÅÇïêÆÉÇ ----------------------------------------------------------- CScroller = #24#25#26#27; | | | | ¡«α¼á½∞¡δ⌐ Σ«¡ --┘ | | | ¡«α¼á½∞¡δ⌐ ΓÑ¬ßΓ----┘ | | »«ñßóÑτÑ¡¡δ⌐ Σ«¡-------┘ | »«ñßóÑτÑ¡¡δ⌐ ΓÑ¬ßΓ--------┘ 34 GraphStaticText Controls ============================================================================ ------------- | GraphView | ------------- | | ------------------- | GraphStaticText | ------------------- ÄíΩÑ¬Γ GraphStaticText, á¡á½«ú¿τ¡« «íΩÑ¬Γπ TStaticText ó Turbo Vision, »αÑñßΓáó½∩ÑΓ ß«í«⌐ »α«ßΓÑ⌐Φ¿⌐ ó¿ñ¿¼δ⌐ φ½Ñ¼Ñ¡Γ. Ä¡ ß«ñÑαª¿Γ Σ¿¬ß¿α«óá¡¡δ⌐ ΓÑ¬ßΓ ¿ ¿ú¡«α¿απÑΓ ½εíδÑ ß«íδΓ¿∩. ÅÄïƒ ------------------------------------------------------------ Font Font : word; Ä»αÑñÑ½∩ÑΓ ¡«¼Ñα Σ«¡Γá, ¿ß»«½∞ºπÑ¼«ú« ñ½∩ óδó«ñá ΓÑ¬ßΓá ¡á φ¬αá¡ (ß¼. ¼«ñπ½∞ GFonts). CharSize CharSize : word; Ä»αÑñÑ½∩ÑΓ αáº¼Ñα ß¿¼ó«½«ó »α¿ óδó«ñÑ ΓÑ¬ßΓá ¡á φ¬αá¡. îàÆÄä¢ ------------------------------------------------------------ Init constructor Init(var Bounds: TRect; AText: String; AFont,ACharSize : word); æ«ºñáÑΓ «íΩÑ¬Γ Γ¿»á GraphStaticText ºáñá¡¡«ú« αáº¼Ñαá, óδºδóá∩ GraphView.Init. æ«σαá¡∩ÑΓ ßΓα«¬π AText ¿ »α¿ßóá¿óáÑΓ »«½∩¼ Font ¿ CharSize º¡áτÑ¡¿∩ AFont ¿ ACharSize ß««ΓóÑΓßΓóÑ¡¡«. ÅÇïêÆÉÇ ------------------------------------------------------------ CStaticText = #24#25; | | Σ«¡-------------┘ | ΓÑ¬ßΓ--------------┘ 35 GraphView Grav ============================================================================ ----------- | TObject | ----------- | | --------------- | GraphView | --------------- ÄíΩÑ¬Γ Γ¿»á GraphView ∩ó½∩ÑΓß∩ á¡á½«ú«¼ «íΩÑ¬Γá TView ó Turbo Vision ¿ ∩ó½∩ÑΓß∩ »αáα«ñ¿ΓÑ½Ñ¼ óßÑσ ó¿ñ¿¼δσ φ½Ñ¼Ñ¡Γ«ó. ÅÄïƒ ------------------------------------------------------------- Cursor Cursor : TPoint; è««αñ¿¡áΓδ ΓÑ¬πΦÑú« π¬áºáΓÑ½∩ ó ó¿ñ¿¼«¼ φ½Ñ¼Ñ¡ΓÑ (á¡á½«ú ΓÑ¬πΘÑú« π¬áºáΓÑ½∩ ¼«ñπ½∩ Graph). ÄΓ«íαáªáÑΓß∩ ¡á φ¬αá¡Ñ ó ó¿ñÑ ¬παß«αá, Ñß½¿ ó¿ñ¿¼δ⌐ φ½Ñ¼Ñ¡Γ á¬Γ¿óÑ¡ (sfActive) ¿ ¬παß«α ó¬½ετÑ¡ (sfCursorVis). ö«α¼á ¬παß«αá ºáó¿ß¿Γ «Γ ß«ßΓ«∩¡¿∩ Σ½áúá sfCursorIns. ìÑ¬«Γ«αδÑ ¼ÑΓ«ñδ α¿ß«óá¡¿∩, «»αÑñÑ½Ñ¡¡δÑ ñ½∩ GraphView, ¿ß»«½∞ºπεΓ º¡áτÑ¡¿Ñ »«½∩ Cursor ñ½∩ «»αÑñÑ½Ñ¡¿∩ ¡áτá½∞¡«⌐ Γ«τ¬¿ «»Ñαáµ¿¿ (¡á»α¿¼Ñα WriteText). îàÆÄä¢ ------------------------------------------------------------- ChangeClipRect procedure ChangeClipRect; virtual; êº¼Ñ¡∩ÑΓ αáº¼Ñα ¼¿¡¿¼á½∞¡«ú« »α∩¼«πú«½∞¡¿¬á, ¬«Γ«αδ⌐ ΓαÑíπÑΓß∩ »ÑαÑα¿ß«óáΓ∞ ó »α«µÑßßÑ «»Ñαáµ¿¿ Draw. ì¿¬«úñá ¡Ñ »ÑαÑ¬αδóáÑΓß∩ ¿ ¡Ñ óδºδóáÑΓß∩ ¡Ñ»«ßαÑñßΓóÑ¡¡«. ChangeMouseCursor procedure ChangeMouseCursor; virtual; êº¼Ñ¡∩ÑΓ ¼δΦ¿¡δ⌐ ¬παß«α ¡á ßó∩ºá¡¡δ⌐ ß ñá¡¡δ¼ ó¿ñ¿¼δ¼ φ½Ñ¼Ñ¡Γ«¼, óδºδóá∩ ¼ÑΓ«ñ MakeActive ß««ΓóÑΓßΓóπεΘÑú« «íΩÑ¬Γá Γ¿»á TMouseCursor. GraphView.ChangeMouseCursor óßÑúñá ¿ß»«½∞ºπÑΓ «íΩÑ¬Γ Γ¿»á TMouseCursor, ¡á ¬«Γ«αδ⌐ π¬áºδóáÑΓ ú½«íá½∞¡á∩ »ÑαÑ¼Ñ¡¡á∩ StdMouseCursor. ¥Γ«Γ ¼ÑΓ«ñ ¼«ªÑΓ íδΓ∞ »ÑαÑ¬αδΓ ñ½∩ πßΓá¡«ó¬¿ ß««ΓóÑΓßΓó¿∩ ¼Ñªñπ ó¿ñ¿¼δ¼ φ½Ñ¼Ñ¡Γ«¼ ¿ Σ«α¼«⌐ ¼δΦ¿¡«ú« ¬παß«αá. DragView procedure DragView(Event: TEvent; Mode: Byte; var Limits: TRect; MinSize, MaxSize: TPoint; RealMove : boolean); virtual; éδ»«½¡∩ÑΓ ΓÑ ªÑ Σπ¡¬µ¿¿, τΓ« ¿ á¡á½«ú¿τ¡δ⌐ ¼ÑΓ«ñ TView. ÄΓ½¿τ¿Ñ ó Γ«¼, τΓ« ñ«íáó½Ñ¡ ÑΘÑ «ñ¿¡ »áαá¼ÑΓα RealMove, ¬«Γ«αδ⌐ «»αÑñÑ½∩ÑΓ, ¬á¬¿¼ «íαáº«¼ íπñÑΓ »ÑαÑ¼ÑΘáΓ∞ß∩ ó¿ñ¿¼δ⌐ φ½Ñ¼Ñ¡Γ. àß½¿ RealMove = true, Γ« »ÑαÑ¼ÑΘáÑΓß∩ ¡Ñ»«ßαÑñßΓóÑ¡¡« ó¿ñ¿¼δ⌐ φ½Ñ¼Ñ¡Γ. é »α«Γ¿ó¡«¼ ß½πτáÑ »« φ¬αá¡π »ÑαÑ¼ÑΘáÑΓß∩ Γ«½∞¬« Γ«¡¬á∩ αá¼¬á, á ßá¼ ó¿ñ¿¼δ⌐ φ½Ñ¼Ñ¡Γ «ßΓáÑΓß∩ ¡á ¼ÑßΓÑ, »«¬á ¡Ñ íπñÑΓ «Γ»πΘÑ¡á ¬½áó¿Φá ¼δΦ¬¿, »«ß½Ñ τÑú« «¡ »ÑαÑ¼ÑΘáÑΓß∩ ¡á ¡«ó«Ñ ¼ÑßΓ«. ç¡áτÑ¡¿Ñ »áαá¼ÑΓαá RealMove = true αáºπ¼¡ÑÑ ¿ß»«½∞º«óáΓ∞ ñ½∩ »ÑαÑ¼ÑΘÑ¡¿∩ «íΩÑ¬Γ«ó ¡Ñí«½∞Φ«ú« αáº¼Ñαá ó« ¿ºíÑªá¡¿Ñ ¼Ñαµá¡¿∩ φ¬αá¡á. 36 GetColor function GetColor(Color: Word): Word; é «Γ½¿τ¿Ñ «Γ ¼ÑΓ«ñá TView.GetColor ó«ºóαáΘáÑΓ ¡Ñ º¡áτÑ¡¿∩ «ß¡«ó¡«ú« ¿ Σ«¡«ó«ú« µóÑΓ«ó ó ¼½áñΦÑ¼ ¿ ßΓáαΦÑ¼ íá⌐Γáσ ß««ΓóÑΓßΓóÑ¡¡«, á º¡áτÑ¡¿Ñ «ñ¡«ú« µóÑΓá, «»αÑñÑ½∩Ñ¼«ú« ¿¡ñÑ¬ß«¼ Color ó »á½¿ΓαÑ. ¥Γ« ßó∩ºá¡« ß ¿º¼Ñ¡Ñ¡¿Ñ¼ ó¡πΓαÑ¡¡Ñ⌐ ßΓαπ¬Γπαδ »á½¿Γα µóÑΓ«ó. RefreshRect procedure RefreshRect(Bounds : TRect); virtual; êß»«½∞ºπÑΓß∩ ñ½∩ »ÑαÑα¿ß«ó¬¿ »α∩¼«πú«½∞¡¿¬á Bounds, ºáñá¡¡«ú« ó ½«¬á½∞¡δσ ¬««αñ¿¡áΓáσ ó¿ñ¿¼«ú« φ½Ñ¼Ñ¡Γá. î«ªÑΓ íδΓ∞ ¿ß»«½∞º«óá¡ ñ½∩ ¿º¼Ñ¡Ñ¡¿∩ ó¿ñ¿¼«ú« φ½Ñ¼Ñ¡Γá, ñáªÑ Ñß½¿ «¡ ¡Ñ ∩ó½∩ÑΓß∩ á¬Γ¿ó¡δ¼ (State and sfFocused = 0). ì¿¬«úñá ¡Ñ »ÑαÑ¬αδóáÑΓß∩. ä½∩ »α¿¼Ñαá ß¼. ¼«ñπ½∞ Arty. ResetClipRect procedure ResetClipRect; virtual; é«ßßΓá¡áó½¿óáÑΓ αáº¼Ñα ¼¿¡¿¼á½∞¡«ú« »α∩¼«πú«½∞¡¿¬á. ì¿¬«úñá ¡Ñ »ÑαÑ¬αδóáÑΓß∩ ¿ ¡Ñ óδºδóáÑΓß∩ ¡Ñ»«ßαÑñßΓóÑ¡¡«. SetDrawPort procedure SetDrawPort(Bounds : TRect); êº¼Ñ¡∩ÑΓ αáº¼Ñα ¿ »«½«ªÑ¡¿Ñ ΓÑ¬πΘÑ⌐ «í½áßΓ¿ óδó«ñá úαáΣ¿τÑß¬«⌐ »«ñß¿ßΓÑ¼δ. ï«¬á½∞¡δÑ ¬««αñ¿¡áΓδ, »ÑαÑñá¡¡δÑ ó »áαá¼ÑΓαÑ Bounds, »αÑ«íαáºπεΓß∩ ó ú½«íá½∞¡δÑ, ºáΓÑ¼ óδºδóáÑΓß∩ »α«µÑñπαá SetViewPort ¼«ñπ½∩ Graph. êß»«½∞ºπÑΓß∩ ó ¼ÑΓ«ñÑ DrawView: .... GetClipRect(Bounds); SetDrawPort(Bounds); Draw; .... åÑ½áΓÑ½∞¡« ¡Ñ ¿ß»«½∞º«óáΓ∞ ó ñαπú¿σ ¼ÑΓ«ñáσ. Arc procedure Arc(Center : TPoint; StAngle, EndAngle, Radius: Word); É¿ßπÑΓ ñπúπ αáñπßá Radius «Γ StAngle ñ« EndAngle, ¿ß»«½∞ºπ∩ Center ¬á¬ µÑ¡Γαá½∞¡πε Γ«τ¬π. ç¡áτÑ¡¿Ñ æenter ºáñáÑΓß∩ ó ½«¬á½∞¡δσ ¬««αñ¿¡áΓáσ ó¿ñ¿¼«ú« φ½Ñ¼Ñ¡Γá. Bar procedure Bar(Bounds : TRect); É¿ßπÑΓ ºá¬αáΦÑ¡¡δ⌐ »α∩¼«πú«½∞¡¿¬,¿ß»«½∞ºπ∩ ΓÑ¬πΘ¿Ñ µóÑΓ ¿ ßΓ¿½∞ ºá¬αáß¬¿. âαá¡¿µδ »α∩¼«πú«½∞¡¿¬á ºáñáεΓß∩ ó ½«¬á½∞¡δσ ¬««αñ¿¡áσ ó¿ñ¿¼«ú« φ½Ñ¼Ñ¡Γá. 37 BicolorRectangle procedure BicolorRectangle(Bounds : TRect; Light,Dark : word; Down : boolean); É¿ßπÑΓ ¡Ñºá¬αáΦÑ¡¡δ⌐ »α∩¼«πú«½∞¡¿¬ ß αáº¼Ñαá¼¿, ºáñá¡¡δ¼¿ Bounds. äóÑ »α¿½ÑúáεΘ¿Ñ ßΓ«α«¡δ α¿ßπεΓß∩ µóÑΓ«¼ Light, ñóÑ ñαπú¿Ñ - µóÑΓ«¼ Dark. êß»«½∞ºπÑΓß∩ ñ½∩ ß«ºñá¡¿∩ φΣΣÑ¬Γá «íΩÑ¼¡«ßΓ¿. ìá»α¿¼Ñα, BicolorRectangle(R,White,DarkGray,false) ¡áα¿ßπÑΓ "óδ»π¬½πε" «í½áßΓ∞, ½Ñóá∩ ¿ óÑασ¡∩∩ ßΓ«α«¡δ íπñπΓ íÑ½δ¼¿(»«ñßóÑτÑ¡¡δ¼¿), á »αáóá∩ ¿ ¡¿ª¡∩∩ íπñπΓ ΓÑ¼¡«-ßÑαδ¼¿ (ºáΓÑ¼¡Ñ¡¡δ¼¿). æ««ΓóÑΓßΓóÑ¡¡«, BicolorRectangle(R,White,DarkGray,true) ¡áα¿ßπÑΓ "óñáó½Ñ¡¡πε" «í½áßΓ∞. Circle procedure Circle(Center : TPoint; Radius : word); É¿ßπÑΓ ¡Ñºá¬αáΦÑ¡¡δ⌐ ¬απú αáñπßá R ß µÑ¡Γα«¼ Center, ¿ß»«½∞ºπ∩ ΓÑ¬πΘ¿⌐ µóÑΓ. DrawImg procedure DrawImg(Location : TPoint; Image : PImage; BitBlt : word); éδó«ñ¿Γ ¡á φ¬αá¡ «íαáº, ºáñá¡¡δ⌐ »áαá¼ÑΓα«¼ Image. Location - ¬««αñ¿¡áΓá ½Ñó«ú« óÑασ¡Ñú« πú½á ó ½«¬á½∞¡δσ ¬««αñ¿¡áΓáσ. DrawPoly procedure DrawPoly(Number:Word; var PolyArray); É¿ßπÑΓ »«½¿ú«¡, ¿ß»«½∞ºπ∩ ΓÑ¬πΘ¿⌐ µóÑΓ ¿ ßΓ¿½∞ ½¿¡¿¿. Åáαá¼ÑΓα Number ºáñáÑΓ ¬«½¿τÑßΓó« óÑαΦ¿¡, »áαá¼ÑΓα PolyArray - ¼áßß¿ó ¬««αñ¿¡áΓ óÑαΦ¿¡, ºáñá¡¡δσ φ½Ñ¼Ñ¡Γá¼¿ Γ¿»á TPoint. EllipticArc procedure EllipticArc(Center : TPoint; StAngle,EndAngle, XRadius,YRadius : word); É¿ßπÑΓ φ½½¿»Γ¿τÑß¬πε ñπúπ ß αáñ¿πßá¼¿ XRadius ¿ YRadius, «Γ πú½á StAngle ñ« πú½á EndAngle, ¿ß»«½∞ºπ∩ Center ¬á¬ µÑ¡Γαá½∞¡πε Γ«τ¬π ¿ ¿ß»«½∞ºπ∩ ΓÑ¬πΘ¿⌐ µóÑΓ. Ellipse procedure Ellipse(Center : TPoint; XRadius,YRadius : word); É¿ßπÑΓ φ½½¿»ß ß αáñ¿πßá¼¿ XRadius ¿ YRadius, ¿ß»«½∞ºπ∩ Center ¬á¬ µÑ¡Γαá½∞¡πε Γ«τ¬π ¿ ¿ß»«½∞ºπ∩ ΓÑ¬πΘ¿⌐ µóÑΓ. FillEllipse procedure FillEllipse(Center : TPoint; XRadius,YRadius : word); É¿ßπÑΓ ºá¬αáΦÑ¡¡δ⌐ φ½½¿»ß ß αáñ¿πßá¼¿ XRadius ¿ YRadius, ¿ß»«½∞ºπ∩ Center ¬á¬ µÑ¡Γαá½∞¡πε Γ«τ¬π ¿ ¿ß»«½∞ºπ∩ ΓÑ¬πΘ¿⌐ µóÑΓ ¿ ßΓ¿½∞ ºá¬αáß¬¿. 38 FillPoly procedure FillPoly(Number:Word; var PolyArray); É¿ßπÑΓ ºá¬αáΦÑ¡¡δ⌐ »«½¿ú«¡, ¿ß»«½∞ºπ∩ ΓÑ¬πΘ¿⌐ ßΓ¿½∞ ºá¬αáß¬¿. Åáαá¼ÑΓα Number ºáñáÑΓ ¬«½¿τÑßΓó« óÑαΦ¿¡, »áαá¼ÑΓα PolyArray - ¼áßß¿ó ¬««αñ¿¡áΓ óÑαΦ¿¡, ºáñá¡¡δσ φ½Ñ¼Ñ¡Γá¼¿ Γ¿»á TPoint Line procedure Line(Start,Stop : TPoint); É¿ßπÑΓ ½¿¡¿ε ¿º Γ«τ¬¿ Start ó Γ«τ¬π Stop, ¿ß»«½∞ºπ∩ ΓÑ¬πΘ¿⌐ µóÑΓ ¿ ßΓ¿½∞ ½¿¡¿¿. LineTo procedure LineTo(Point : TPoint); É¿ßπÑΓ ½¿¡¿ε «Γ ΓÑ¬πΘÑ⌐ »«º¿µ¿¿, «»αÑñÑ½∩Ñ¼«⌐ º¡áτÑ¡¿Ñ¼ »«½∩ Cursor, ñ« Γ«τ¬¿ Point. MoveRect procedure MoveRect(Bounds : TRect; DeltaX,DeltaY : integer); ÅÑαÑ¼ÑΘáÑΓ í½«¬ »¿¬ßÑ½«ó, ºáñá¡¡δ⌐ »α∩¼«πú«½∞¡¿¬«¼ Bounds, ¡á αáßßΓ«∩¡¿Ñ (DeltaX,DeltaY) ó¡πΓα¿ úαá¡¿µ ó¿ñ¿¼«ú« φ½Ñ¼Ñ¡Γá. PieSlice procedure PieSlice(Center : TPoint; StAngle, EndAngle, Radius: Word); É¿ßπÑΓ ºá¬αáΦÑ¡¡δ⌐ ßÑ¬Γ«α ß αáñ¿πß«¼ Radius «Γ πú½á StAngle ñ« πú½á EndAngle, ¿ß»«½∞ºπ∩ Center ¬á¬ µÑ¡Γαá½∞¡πε Γ«τ¬π. PutBitmap procedure PutBitmap(Location : TPoint; var BitMap; BitBlt : word); Ç¡á½«ú Σπ¡¬µ¿¿ PutImage. éδó«ñ¿Γ ¡á φ¬αá¡ «íαáº BitMap. Location - ¬««αñ¿¡áΓá ½Ñó«ú« óÑασ¡Ñú« πú½á «íαáºá ó ½«¬á½∞¡δσ ¬««αñ¿¡áΓáσ ó¿ñ¿¼«ú« φ½Ñ¼Ñ¡Γá. éδ»«½¡∩ÑΓß∩ «ΓßÑτÑ¡¿Ñ »« úαá¡¿µÑ ΓÑ¬πΘÑ⌐ «í½áßΓ¿ »α«ß¼«Γαá. PutPixel procedure PutPixel(Location : TPoint; Color : word); Åα¿ßóá¿óáÑΓ »¿¬ßÑ½π, ºáñá¡¡«¼π Location, µóÑΓ Color. Rectangle procedure Rectangle(Bounds : TRect); É¿ßπÑΓ »α∩¼«πú«½∞¡¿¬ ß úαá¡¿µá¼¿ Bounds. êß»«½∞ºπÑΓ ΓÑ¬πΘ¿⌐ µóÑΓ ¿ ßΓ¿½∞ ½¿¡¿¿. WriteText procedure WriteText(S : String); óδó«ñ¿Γ ßΓα«¬π ΓÑ¬ßΓá, ¿ß»«½∞ºπ∩ ΓÑ¬πΘ¿⌐ Σ«¡Γ ¡áτ¿¡á∩ ß ΓÑ¬πΘÑ⌐ »«º¿µ¿¿ ó ó¿ñ¿¼«¼ φ½Ñ¼Ñ¡ΓÑ (ß¼. »«½Ñ Cursor). WriteTextXY procedure WriteTextXY(Point : TPoint; S : string); éδó«ñ¿Γ ßΓα«¬π S ¡áτ¿¡á∩ ß »«º¿µ¿¿ Point, ¿ß»«½∞ºπ∩ ΓÑ¬πΘ¿⌐ Σ«¡Γ. 39 WriteCtextXY procedure WriteCTextXY(Point : TPoint; S : string; TextColor,AccelColor : word); éδó«ñ¿Γ ßΓα«¬π S ¡áτ¿¡á∩ ß »«º¿µ¿¿ Point; æ¿¼ó«½δ, ºá¬½ετÑ¡¡δÑ ó º¡á¬¿ "~", óδó«ñ∩Γß∩ µóÑΓ«¼ AccelColor, «ßΓá½∞¡δÑ ß¿¼ó«½δ óδó«ñ∩Γß∩ µóÑΓ«¼ TextColor. GraphWindow Grav ============================================================================ -------------- | GraphGroup | -------------- | | --------------- | GraphWindow | --------------- ÄíΩÑ¬Γ GraphWindow ∩ó½∩ÑΓß∩ á¡á½«ú«¼ «íΩÑ¬Γá TWindow. é αÑá½¿ºáµ¿ε GraphWindow ó¡ÑßÑ¡δ ¡Ñí«½∞Φ¿Ñ ¿º¼Ñ¡Ñ¡¿∩. ìá»α¿¼Ñα, ¿ß¬½ετÑ¡« »«½Ñ Number, Γá¬ τΓ« «¬¡á ó GraphVision ¡Ñ ¿¼ÑεΓ ¡«¼Ñαá ¿ ¡Ñ ¼«úπΓ íδΓ∞ óδíαá¡δ ¬«¼í¿¡áµ¿Ñ⌐ ¬½áó¿Φ Alt-n (n «Γ 0 ñ« 9). é »«½Ñ Flags ñ«»«½¡¿ΓÑ½∞¡« ºáñÑ⌐ßΓó«óá¡δ Γα¿ í¿Γ«óδσ »«½∩. Ä»¿ßá¡¿Ñ ¼áß«¬ ß¼«Γα¿ ó αáºñÑ½Ñ "è«¡ßΓá¡Γδ" ¼«ñπ½∩ Grav. ç¡áτÑ¡¿Ñ »«½∩ Palette »« π¼«½τá¡¿ε αáó¡« wpGrayWindow. ÅÄïƒ ------------------------------------------------------------ Frame Frame: PGraphView; ô¬áºáΓÑ½∞ ¡á «íΩÑ¬Γ, αÑá½¿ºπεΘ¿⌐ αá¼¬π «¬¡á. èá¬ π¬áºδóá½«ß∞ óδΦÑ, «íΩÑ¬Γ Γ¿»á "αá¼¬á" ΓÑ»Ñα∞ ∩ó½∩ÑΓß∩ ó¡πΓαÑ¡¡¿¼ ñ½∩ ¼«ñπ½∩ Grav ¿ ¡Ññ«ßΓπ»Ñ¡ ¿º ñαπú¿σ ¼«ñπ½Ñ⌐. éδ»«½¡∩Γ∞ ¬á¬¿Ñ-½¿í« «»Ñαáµ¿¿ ¡áñ φΓ¿¼ »«½Ñ¼ ¡Ñ αÑ¬«¼Ñ¡ñπÑΓß∩. WorkSpace WorkSpace : PGraphView; ô¬áºáΓÑ½∞ ¡á «íΩÑ¬Γ "αáí«τÑÑ »α«ßΓαá¡ßΓó«" Γ¿»á GraphGroup. éßÑ ó¿ñ¿¼δÑ φ½Ñ¼Ñ¡Γδ, ñ«íáó½∩Ñ¼δÑ »«½∞º«óáΓÑ½Ñ¼ ¬ «íΩÑ¬Γπ GraphWindow, Σá¬Γ¿τÑß¬¿ ñ«íáó½∩εΓß∩ ó φΓπ úαπ»»π (ß¼. ¼ÑΓ«ñ GraphWindow.Insert). Caption Caption : PGraphView; ô¬áºáΓÑ½∞ ¡á «íΩÑ¬Γ "ºáú«½«ó«¬ «¬¡á". ìÑ αÑ¬«¼Ñ¡ñπÑΓß∩ óδ»«½¡∩Γ∞ ¬á¬¿Ñ-½¿í« «»Ñαáµ¿¿ ¡áñ φΓ¿¼ »«½Ñ¼. 40 îàÆÄä¢ ------------------------------------------------------------ Init constructor Init(var Bounds: TRect; ATitle : TTitleStr; AFlags : word); éδºδóáÑΓ GraphGroup.Init(Bounds), »α¿ßóá¿óáÑΓ »«½ε Flags º¡áτÑ¡¿Ñ »áαá¼ÑΓαá AFlags, »«½ε Palette - º¡áτÑ¡¿Ñ wpGrayWindow, ß«ºñáÑΓ ¿ ¿¡¿µ¿á½¿º¿απÑΓ úαπ»»π WorkSpace. é¿ñ ß«ºñáóáÑ¼«ú« «¬¡á ºáó¿ß¿Γ «Γ º¡áτÑ¡¿∩ »áαá¼ÑΓαá AFlags: Ñß½¿ πßΓá¡«ó½Ñ¡δ Σ½áú¿ wfThickFrame ¿½¿ wfThinFrame, «¬¡« íπñÑΓ ¿¼ÑΓ∞ αá¼¬π; Ñß½¿ πßΓá¡«ó½Ñ¡ Σ½áú wfTitle, «¬¡« íπñÑΓ ¿¼ÑΓ∞ ºáú«½«ó«¬. èα«¼Ñ Γ«ú«, »α¿ πßΓá¡«ó½Ñ¡¡δσ Σ½áúáσ wfClose ¿ wfZoom, ¬ ºáú«½«ó¬π íπñπΓ ñ«íáó½Ñ¡δ ¬¡«»¬¿ ºá¬αδΓ¿∩(Close) ¿ ¿ ¼áßΦΓáí¿α«óá¡¿∩ (Zoom). Insert procedure Insert(P: PGraphView); virtual; ä«íáó½∩ÑΓ ó¿ñ¿¼δ⌐ φ½Ñ¼Ñ¡Γ ó αáí«τπε «í½áßΓ∞. ¥¬ó¿óá½Ñ¡Γ¡« óδº«óπ WorkSpace^.Insert(P); ¥ß½¿ ªÑ ¡Ñ«íσ«ñ¿¼« ñ«íáó¿Γ∞ ó¿ñ¿¼δ⌐ φ½Ñ¼Ñ¡Γ ¬ ßá¼«¼π «¬¡π (¡á»α¿¼Ñα, »«½«ßπ »α«¬απΓ¬¿ ñ½∩ ß¬α«½½Ñαá), ¿ß»«½∞ºπ⌐ΓÑ óδº«ó GraphGroup.Insert(P); ÅÇïêÆÉÇ ------------------------------------------------------------ ÄíΩÑ¬Γδ «¬¡á ¿ß»«½∞ºπεΓ »« π¼«½τá¡¿ε »á½¿Γαπ CGrayWindow. æGrayWindow = #13#14#15#16#17#18#19#20#21#22#23#24#25 + #26#27#28#29#30#31#32#33#34#35#36#37#38#39; CBlueWindow = #40#41#42#43#44#45#46#47#48#49#50#51#52 + #53#54#55#56#57#58#59#60#61#62#63#64#65#66; CCyanWindow = #67#68#69#70#71#72#73#74#75#76#77#78#79 + #80#81#82#83#84#85#86#87#88#89#90#91#92#93; éσ«ñδ ß 1 »« 3 - µóÑΓá αáí«τÑ⌐ «í½áßΓ¿ (ß¼ »á½¿Γαπ ñ½∩ GraphBackground), c 4 »« 8 - µóÑΓá ñ½∩ ¬¡«»«¬: µóÑΓ Σ«¡á,ßóÑΓ½δ⌐, ΓÑ¼¡δ⌐,αáºαÑΦÑ¡¡δ⌐,ºá»αÑΘÑ¡¡δ⌐. ß 9 »« 14 - µóÑΓá αá¼¬¿: «ß¡«ó¡«⌐,ßóÑΓ½δ⌐, ΓÑ¼¡δ⌐ ñ½∩ á¬Γ¿ó¡«ú« «¬¡á, «ß¡«ó¡«⌐, ßóÑΓ½δ⌐,ΓÑ¼¡δ⌐ ñ½∩ ¡Ñá¬Γ¿ó¡«ú« «¬¡á. ß 15 »« 18 - µóÑΓá ºáú«½«ó¬á: Σ«¡,ΓÑ¬ßΓ ñ½∩ á¬Γ¿ó¡«ú« «¬¡á, Σ«¡,ΓÑ¬ßΓ ñ½∩ ¡Ñá¬Γ¿ó¡«ú« «¬¡á. ß 19 »« 23 - µóÑΓá »«½«ßδ »α«¬απΓ¬¿ (ß¼ CScrollBar) ß 24 »« 27 - µóÑΓá ß¬α«½½Ñαá (ß¼ CScroller) 41 T8x8BiosFont GFonts ============================================================================ ------------- | TBiosFont | ------------- | | ---------------- | T8x8BiosFont | ---------------- éßΓα«Ñ¡¡δ⌐ Σ«¡Γ 8σ8 ∩ó½∩ÑΓß∩ «ß«íδ¼ ß½πτáÑ¼, Γá¬ ¬á¬ ñ½∩ ¡Ñú« ßπΘÑßΓóπεΓ ñóÑ Γáí½¿µδ «íαáº«ó: «ñ¡á ñ½∩ ¬«ñ«ó 0 - 127, ñαπúá∩ ñ½∩ ¬«ñ«ó 128 - 256. ÄíΩÑ¬Γ T8x8BiosFont ¿ »αÑñ¡áº¡áτÑ¡ ñ½∩ αáí«Γδ ß Σ«¡Γ«¼ 8σ8. ÅÄïƒ ------------------------------------------------------------- Top Top : Pointer; òαá¡¿Γ π¬áºáΓÑ½∞ ¡á Γáí½¿µπ «íαáº«ó ñ½∩ ß¿¼ó«½«ó ß ¬«ñá¼¿ 128 - 255. îàÆÄä¢ ------------------------------------------------------------- Init constructor Init(AName : string; ABase,ATop : Pointer; ABytes : word); éδºδóáÑΓ TBiosFont.Init ¿ ß«σαá¡∩ÑΓ π¬áºáΓÑ½∞ ¡á óΓ«απε »«½«ó¿¡π Γáí½¿µδ «íαáº«ó ATop ó »«½Ñ Top. Åα¿¼Ñα: var Info : BiosFontParams; Font : PFixedFont; ... GetFontParams(i,Info); with Info do if TwoPart then Font := New(P8x8BiosFont, Init(GetFontName(i),Base,Top, BytesPerChar)) else Font := New(PBiosFont,Init(GetFontName(i), ImageTable, Width, Height, BytesPerChar)); ... 42 GetCharImage function GetCharImage(Ch : Char) : Pointer; virtual; ÅÑαÑ¬αδóáÑΓ TBiosFont.GetCharImage. àß½¿ ¬«ñ ß¿¼ó«½á Ch ¼Ñ¡∞ΦÑ 128, GetCharImage óδñáÑΓ π¬áºáΓÑ½∞ ¡á «íαáº ó »Ñαó«⌐ »«½«ó¿¡Ñ Γáí½¿µδ, ¡á ¬«Γ«απε π¬áºδóáÑΓ »«½Ñ ImageTable, ¡áß½ÑñπÑ¼«Ñ «Γ TBiosFont. é »α«Γ¿ó¡«¼ ß½πτáÑ GetCharImage óδñáÑΓ π¬áºáΓÑ½∞ ¡á «íαáº ¿º Γáí½¿µδ, ¡á ¬«Γ«απε π¬áºδóáÑΓ »«½Ñ Top. TBGIFont GFonts =========================================================================== --------- | TFont | --------- | | ------------ | TBGIFont | ------------ ÄíΩÑ¬Γ TBGIFont »αÑñ¡áº¡áτÑ¡ ñ½∩ αáí«Γδ ß« ßΓá¡ñáαΓ¡δ¼¿ BGI Σ«¡Γá¼¿. ÅÄïƒ ------------------------------------------------------------ ID ID : integer; æ«ñÑαª¿Γ ¬«ñ BGI Σ«¡Γá, »αÑñ«»αÑñÑ½Ñ¡¡δ⌐ ó ¼«ñπ½Ñ Graph ¿½¿ »α¿ßó«Ñ¡¡δ⌐ Σπ¡¬µ¿Ñ⌐ InstallUserFont. îàÆÄä¢ ------------------------------------------------------------ Init constructor Init(AName : String; AID : Integer); éδºδóáÑΓ TFont.Init ¿ »α¿ßóá¿óáÑΓ »«½ε ID º¡áτÑ¡¿Ñ »áαá¼ÑΓαá AID. Åα¿¼Ñα: var BGIFont : TBGIFont; begin ... BGIFont.Init('Triplex',TriplexFont); {ß«ºñáÑΓß∩ «íΩÑ¬Γ Γ¿»á TBGIFont ñ½∩ αáí«Γδ ß« ßΓá¡ñáαΓ¡δ¼ Σ«¡Γ«¼ TriplexFont} ... CanFillBackground function CanFillBackground : boolean; virtual; ÅÑαÑ¬αδóáÑΓ TFont.CanFillBackground. é«ºóαáΘáÑΓ false, Γá¬ ¬á¬ ßΓá¡ñáαΓ¡δÑ BGI Σ«¡Γδ ¡Ñ ¿º¼Ñ¡∩εΓ »¿¬ßÑ½δ Σ«¡á. 43 TextWidth function TextWidth(S : String) : integer; virtual; ÅÑαÑ¬αδóáÑΓ TFont.TextWidth. éδºδóáÑΓ Σπ¡¬µ¿ε TextWidth ¼«ñπ½∩ Graph. TextHeight function TextHeight(S : String) : integer; virtual; ÅÑαÑ¬αδóáÑΓ TFont.TextHeight. éδºδóáÑΓ Σπ¡¬µ¿ε TextHeight ¼«ñπ½∩ Graph. OutText procedure OutText(S : String); virtual; ÅÑαÑ¬αδóáÑΓ TFont.OutText. éδºδóáÑΓ Σπ¡¬µ¿ε OutText ¼«ñπ½∩ Graph. OutTextXY procedure OutTextXY(Location : TPoint; S : String); virtual; ÅÑαÑ¬αδóáÑΓ TFont.OutTextXY. éδºδóáÑΓ Σπ¡¬µ¿ε OutTextXY ¼«ñπ½∩ Graph. SetTextStyle procedure SetTextStyle(Direction,Size : word); virtual; ÅÑαÑ¬αδóáÑΓ TFont.SetTextStyle; éδºδóáÑΓ »α«µÑñπαπ SetTextStyle ¼«ñπ½∩ Graph: Graph.SetTextStyle(Id,Direction,Size); GetCharHeight function GetCharHeight(Ch : Char) : word; virtual; ÅÑαÑ¬αδóáÑΓ TFont.GetCharHeight. GetCharWidth function GetCharWidth(Ch : Char) : word; virtual; ÅÑαÑ¬αδóáÑΓ TFont.GetCharWidth. TBiosFont GFonts ============================================================================ -------------- | TFixedFont | -------------- | | ------------- | TBiosFont | ------------- ¥Γ«Γ «íΩÑ¬Γ »αÑñ¡áºá¡áτÑ¡ ñ½∩ αáí«Γδ ß« óßΓα«Ñ¡¡δ¼¿ Σ«¡Γá¼¿ ó¿ñÑ«áñá»ΓÑαá. Ä¡ ¡áß½ÑñπÑΓ óßÑ «ß¡«ó¡δÑ ¼ÑΓ«ñδ «íΩÑ¬Γá TFixedFont. 44 ÅÄïƒ ----------------------------------------------------------- Bytes Bytes : word òαá¡¿Γ αáº¼Ñα «íαáºá ß¿¼ó«½á (¥Γ« »«½Ñ ¡Ñ«íσ«ñ¿¼« »«Γ«¼π, τΓ« αáº¼Ñα «íαáºá ß¿¼ó«½á ñ½∩ óßΓα«Ñ¡¡δσ Σ«¡Γ«ó ¼«ªÑΓ «Γ½¿τáΓ∞ß∩ «Γ Γ«ú« º¡áτÑ¡¿∩, ¬«Γ«α«Ñ ¼«ªÑΓ íδΓ∞ αáßτ¿Γá¡« »α¿ »«¼«Θ¿ ¼ÑΓ«ñá TFixedFont.BytesPerChar). îàÆÄä¢ ---------------------------------------------------------- Init constructor Init(AName : String; AImageTable : Pointer; AWidth,AHeight,ABytes : word); éδºδóáÑΓ TFixedFont.Init, πßΓá¡«ó¿ó »áαá¼ÑΓαδ First ¿ Count αáó¡δ¼¿ 0 ¿ 255 ß««ΓóÑΓßΓóÑ¡¡«, ¿ ß«σαá¡∩ÑΓ º¡áτÑ¡¿Ñ »áαá¼ÑΓαá ABytes ó »«½Ñ Bytes. Åα¿¼Ñα var Info : BiosFontParams; Font : PFixedFont; ... begin ... for i = 1 to GetMaxFont do begin GetFontParams(i,Info); with Info do Font := New(PBiosFont,Init(GetFontName(i),ImageTable, Width, Height, BytesPerChar)); ... end; ... end. ß¼. «»¿ßá¡¿∩ Γ¿»á BiosFontParams, Σπ¡¬µ¿⌐ GetMaxFont ¿ GetFontName, »α«µÑñπαδ GetFontParams BytesPerChar function BytesPerChar(Ch : Char) : word; virtual; ÅÑαÑ¬αδóáÑΓ TFixedFont.BytesPerChar. é«ºóαáΘáÑΓ º¡áτÑ¡¿Ñ »«½∩ Bytes. TBmpFilter Images ============================================================================ ----------- | TFilter | ----------- | | -------------- | TBmpFilter | -------------- 45 æ»Ñµ¿á½¿º¿α«óá¡¡δ⌐ «íΩÑ¬Γ, αÑá½¿ºπεΘ¿⌐ Σ¿½∞Γα ñ½∩ Σá⌐½«ó Σ«α¼áΓá Windows ¿ OS/2 .BMP. é ñá¡¡«⌐ óÑαß¿¿ αÑá½¿º«óá¡ Γ«½∞¬« ¿¼»«αΓ .bmp Σá⌐½«ó. ÅÄïƒ ------------------------------------------------------------- Header Header : TBitmapInfoHeader; æ«ñÑαª¿Γ ñá¡¡δÑ ¿º ß½πªÑí¡«ú« ºáú«½«ó¬á úαáΣ¿τÑß¬«ú« Σá⌐½á Σ«α¼áΓá Windows ¿½¿ OS/2 bmp. Ä»¿ßá¡¿Ñ ßΓαπ¬Γπαδ TBitmapInfoHeader ¼«ª¡« ¡á⌐Γ¿ ó ß»αáó«τ¡«⌐ ß¿ßΓÑ¼Ñ Borland Pascal 7 îàÆÄä¢ ------------------------------------------------------------- Open procedure Open(AName : FNameStr); virtual; æ«ºñáÑΓ »«Γ«¬, ßó∩ºá¡¡δ⌐ ß Σá⌐½«¼ AName, ¿ ß«σαá¡∩ÑΓ π¬áºáΓÑ½∞ ¡á ¡Ñú« ó »«½Ñ Stream. çáΓÑ¼ óδºδóáÑΓ ¼ÑΓ«ñ GetHeader, ¬«Γ«αδ⌐ ßτ¿ΓδóáÑΓ ß½πªÑí¡δ⌐ ºáú«½«ó«¬ .bmp Σá⌐½á ¿ »«¼ÑΘáÑΓ Ñú« ó »«½Ñ Header. GetSize procedure GetSize(var ASize : TPoint); virtual; é«ºóαáΘáÑΓ αáº¼Ñαδ ºáúαπªáÑ¼«ú« ¿º«íαáªÑ¡¿∩: ASize.X := integer(Header.biWidth); ASize.Y := integer(Header.biHeight); GetHeader procedure GetHeader; virtual; æτ¿ΓδóáÑΓ ß½πªÑí¡δ⌐ ºáú«½«ó«¬ .bmp Σá⌐½á ¿ »«¼ÑΘáÑΓ Ñú« ó »«½Ñ Header. LoadImage procedure LoadImage(AImage : PImage); virtual; æτ¿ΓδóáÑΓ ñá¡¡δÑ ¿º »«Γ«¬á Stream^ ¿ ºá»«½¡∩ÑΓ ¿¼¿ «í½áßΓ∞ ñá¡¡δσ «íΩÑ¬Γá AImage^. Save procedure Save(AName : FNameStr; AImage : PImage); virtual; é ñá¡¡«⌐ óÑαß¿¿ ¡Ñ αÑá½¿º«óá¡. ÅπßΓ«⌐ ¼ÑΓ«ñ, ¬«Γ«αδ⌐ ¼«ªÑΓ íδΓ∞ »ÑαÑ«»αÑñÑ½Ñ¡. SaveImage procedure SaveImage(AImage : PImage); virtual; é ñá¡¡«⌐ óÑαß¿¿ ¡Ñ αÑá½¿º«óá¡. ÅπßΓ«⌐ ¼ÑΓ«ñ, ¬«Γ«αδ⌐ ¼«ªÑΓ íδΓ∞ »ÑαÑ«»αÑñÑ½Ñ¡. 46 TByteFlow ExtObj ============================================================================ ----------- | TObject | ----------- | | -------------- | TByteFlow | -------------- TByteFlow »αÑñ¡áº¡áτÑ¡ ñ½∩ σαá¡Ñ¡¿∩ »α«¿ºó«½∞¡δσ ñá¡¡δσ ó ó¿ñÑ »«Γ«¬á íá⌐Γ. ÅÄïƒ ------------------------------------------------------------- Size Size : word; Éáº¼Ñα ñá¡¡δσ ó íá⌐Γáσ; Data Data : pointer; ô¬áºáΓÑ½∞ ¡á ñá¡¡δÑ, áßß«µ¿¿α«óá¡¡δÑ ß «íΩÑ¬Γ«¼ îàÆÄä¢ ------------------------------------------------------------- Init constructor Init(ASize : word; AData : pointer); éδºδóáÑΓ ÆÄbject.Init; »α¿ßóá¿óáÑΓ »«½∩¼ Size ¿ Data º¡áτÑ¡¿∩ »áαá¼ÑΓα«ó ASize ¿ AData. Done destructor Done; virtual; àß½¿ Data <> nil, «ßó«í«ªñáÑΓ »á¼∩Γ∞, ºá¡∩Γπε ñá¡¡δ¼¿, ºáΓÑ¼ óδºδóáÑΓ TObject.Done; Load constructor Load(var S : TStream); æ«ºñáÑΓ «íΩÑ¬Γ TByteFlow, τ¿ΓáÑΓ ¿º »«Γ«¬á S »«½Ñ Size, αáß»αÑñÑ½∩ÑΓ »á¼∩Γ∞ ß««ΓóÑΓßΓóπεΘÑú« αáº¼Ñαá, τ¿ΓáÑΓ ñá¡¡δÑ ¿º »«Γ«¬á S ¿ ß«σαá¡∩ÑΓ π¬áºáΓÑ½∞ ¡á ¡¿σ ó »«½Ñ Data. Store procedure Store(var S : TStream); çá»¿ßδóáÑΓ ó »«Γ«¬ »«½Ñ Size ¿ ñá¡¡δÑ, ¡á ¬«Γ«αδÑ π¬áºδóáÑΓ »«½Ñ Data. 47 TDefaultBGIFont GFonts ============================================================================ ------------ | TBGIFont | ------------ | | ------------------- | TDefaultBGIFont | ------------------- Äß«íδ⌐ ß½πτá⌐ «íΩÑ¬Γá TBGIFont ñ½∩ Σ«¡Γá DefaultFont. Åα¿ ¿ß»«½∞º«óá¡¿¿ φΓ«ú« ßΓ¿½∩ ΓÑ¬ßΓá »α«µÑñπαδ OutText ¿ OuttextXY ¼«ñπ½∩ Graph ó««íΘÑ ¡Ñ óδó«ñ∩Γ ΓÑ¬ßΓ, Ñß½¿ Ñú« ½Ñóδ⌐ ¬αá⌐ óδσ«ñ¿Γ ºá úαá¡¿µπ «í½áßΓ¿ »α«ß¼«Γαá, »«φΓ«¼π ß«oΓóÑΓßΓóπεΘ¿Ñ ¼ÑΓ«ñδ ñ½∩ «íΩÑ¬Γá TDefaultBGIFont »ÑαÑ«»αÑñÑ½Ñ¡δ Γá¬¿¼ «íαáº«¼, τΓ«íδ φ¼π½¿α«óáΓ∞ «ΓßÑτÑ¡¿Ñ ΓÑ¬ßΓá. îàÆÄä¢ ------------------------------------------------------------ OutText procedure OutText(S : String); virtual; ÅÑαÑ¬αδóáÑΓ TBGIFont.OutText. ¥¼π½¿απÑΓ «ΓßÑτÑ¡¿Ñ ΓÑ¬ßΓá »« úαá¡¿µÑ «í½áßΓ¿ »α«ß¼«Γαá. OutTextXY procedure OutTextXY(Location : TPoint; S : String); virtual; ÅÑαÑ¬αδóáÑΓ TBGIFont.OutTextXY. ¥¼π½¿απÑΓ «ΓßÑτÑ¡¿Ñ ΓÑ¬ßΓá »« úαá¡¿µÑ «í½áßΓ¿ »α«ß¼«Γαá. TextListBox Controls ============================================================================ ---------------- | GraphListBox | ---------------- | | --------------- | TextListBox | --------------- ÉÑá½¿ºπÑΓ «íΩÑ¬Γ ñ½∩ αáí«Γδ ß ¬«½½Ñ¬µ¿Ñ⌐ ßΓα«¬, Γ.Ñ. Σπ¡¬µ¿«¡á½∞¡« á¡á½«ú¿τ¡δ⌐ «íΩÑ¬Γπ TListBox ó Turbo Vision. îÑΓ«ñδ ------------------------------------------------------------ DrawItem procedure DrawItem(Item : integer); virtual; êº«íαáªáÑΓ ¡á φ¬αá¡Ñ φ½Ñ¼Ñ¡Γ ¬«½½Ñ¬µ¿¿ Item ¬á¬ ßΓα«¬π ß¿¼ó«½«ó, ¿ß»«½∞ºπ∩ ß¿ßΓÑ¼¡δ⌐ Σ«¡Γ ¿ ΓÑ¬πΘ¿⌐ µóÑΓ. GetItemSize procedure GetItemSize(var ItemSize : TPoint); virtual; é«ºóαáΘáÑΓ ó »ÑαÑ¼Ñ¡¡«⌐ ItemSize αáº¼Ñαδ ¿º«íαáªÑ¡¿∩ φ½Ñ¼Ñ¡Γá ß»¿ß¬á. 48 GetText function GetText(Item: Integer; MaxLen: Integer): String; virtual; é«ºóαáΘáÑΓ ßΓα«¬π ñ½∩ φ½Ñ¼Ñ¡Γá Item. é «Γ½¿τ¿Ñ «Γ TListBox.GetText, »áαá¼ÑΓα MaxLen «»αÑñÑ½∩ÑΓ ¡Ñ ñ½¿¡π ßΓα«¬¿ ó ß¿¼ó«½áσ, á ÑÑ Φ¿α¿¡π ó »¿¬ßÑ½áσ ñ½∩ ΓÑ¬πΘÑú« ß¿ßΓÑ¼¡«ú« Σ«¡Γá. î«ªÑΓ íδΓ∞ »ÑαÑ«»αÑñÑ½Ñ¡. TFilter Images =========================================================================== ----------- | TObject | ----------- | | ----------- | TFilter | ----------- ÇíßΓαá¬Γ¡δ⌐ «íΩÑ¬Γ, »αÑñ¡áº¡áτÑ¡¡δ⌐ ñ½∩ »«ßΓα«Ñ¡¿∩ Σ¿½∞Γα«ó ñ½∩ ¿¼»«αΓá/φ¬ß»«αΓá Σá⌐½«ó αáº½¿τ¡δσ úαáΣ¿τÑß¬¿σ Σ«α¼áΓ«ó. ÅÄïƒ ------------------------------------------------------------ Stream Stream : PStream; ô¬áºáΓÑ½∞ ¡á »«Γ«¬, ßó∩ºá¡¡δ⌐ ß ΓÑ¬πΘ¿¼ «íαáíáΓδóáÑ¼δ¼ Σá⌐½«¼. ErrorCode ErrorCode : integer; òαá¡¿Γ ¬«ñ »«ß½Ññ¡Ñ⌐ «Φ¿í¬¿, »α«¿º«ΦÑñΦÑ⌐ ó« óαÑ¼∩ «íαáí«Γ¬¿ úαáΣ¿τÑß¬«ú« Σá⌐½á. îàÆÄä¢ ----------------------------------------------------------- Load constructor Load(var S : TStream); ìÑ óδ»«½¡∩ÑΓ ¡¿¬á¬¿σ ñÑ⌐ßΓó¿⌐, ¬α«¼Ñ óδº«óá TObject.Init. î«ªÑΓ íδΓ∞ »ÑαÑ«»αÑñÑ½Ñ¡ ñ½∩ »«Γ«¼¬«ó «íΩÑ¬Γá TFilter. Open procedure Open(AName : FNameStr); virtual; æ«ºñáÑΓ »«Γ«¬, ßó∩ºá¡¡δ⌐ ß Σá⌐½«¼ AName, ¿ »α¿ßóá¿óáÑΓ π¬áºáΓÑ½∞ ¡á ¡Ñú« »«½ε Stream. ÇíßΓαá¬Γ¡δ⌐ ¼ÑΓ«ñ, ¬«Γ«α«δ⌐ ñ«½ªÑ¡ íδΓ∞ »ÑαÑ«»αÑñÑ½Ñ¡ ñ½∩ »«αΓ«¼¬«ó «íΩÑ¬Γá TFilter. 49 GetHeader procedure GetHeader; virtual; çáúαπªáÑΓ ó »á¼∩Γ∞ ß½πªÑí¡δ⌐ ºáú«½«ó«¬ Σá⌐½á, ß«ñÑαªáΘÑú« úαáΣ¿τÑß¬¿Ñ ñá¡¡δÑ. ÇíßΓαá¬Γ¡δ⌐ ¼ÑΓ«ñ, ¬«Γ«αδ⌐ ñ«½ªÑ¡ íδΓ∞ »ÑαÑ«»αÑñÑ½Ñ¡ ñ½∩ »«Γ«¼¬«ó «íΩÑ¬Γá TFilter. GetSize procedure GetSize(var ASize : TPoint); virtual; é«ºóαáΘáÑΓ ó »áαá¼ÑΓαÑ ASize αáº¼Ñα ¿º«íαáªÑ¡¿∩ ó »¿¬ßÑ½áσ. ÇíßΓαá¬Γ¡δ⌐ ¼ÑΓ«ñ, ¬«Γ«αδ⌐ ñ«½ªÑ¡ íδΓ∞ »ÑαÑ«»αÑñÑ½Ñ¡ ñ½∩ »«Γ«¼¬«ó «íΩÑ¬Γá TFilter. LoadImage procedure LoadImage(AImage : PImage); virtual; æτ¿ΓδóáÑΓ ñá¡¡δÑ ¿º »«Γ«¬á Stream^, óδ»«½¡∩ÑΓ ¡Ñ«íσ«ñ¿¼δÑ »αÑ«íαáº«óá¡¿∩ ¿ ºá»¿ßδóáÑΓ ñá¡¡δÑ »«ßΓα«τ¡« ó «í½áßΓ∞ ñá¡¡δσ «íΩÑ¬Γá AImage. ÇíßΓαá¬Γ¡δ⌐ ¼ÑΓ«ñ, ¬«Γ«αδ⌐ ñ«½ªÑ¡ íδΓ∞ »ÑαÑ«»αÑñÑ½Ñ¡ ñ½∩ »«Γ«¼¬«ó «íΩÑ¬Γá TFilter. Save procedure Save(AName : FNameStr; AImage : PImage); virtual; æ«ºñáÑΓ Σá⌐½ ß««ΓóÑΓßΓóπεΘÑú« úαáΣ¿τÑß¬«ú« Σ«α¼áΓá ¿ ß«σαá¡∩ÑΓ ó ¡Ñ¼ ñá¡¡δÑ ¿º «íΩÑ¬Γá AImage. ÇíßΓαá¬Γ¡δ⌐ ¼ÑΓ«ñ, ¬«Γ«αδ⌐ ñ«½ªÑ¡ íδΓ∞ »ÑαÑ«»αÑñÑ½Ñ¡ ñ½∩ »«Γ«¼¬«ó «íΩÑ¬Γá TFilter. SaveImage procedure SaveImage(AImage : PImage); virtual; æ«σαá¡∩ÑΓ ó »«Γ«¬Ñ Stream^ ñá¡¡δÑ ¿º «íΩÑ¬Γá AImage^ ó ß««ΓóÑΓßΓóπεΘÑ¼ úαáΣ¿τÑß¬«¼ Σ«α¼áΓÑ. ÇíßΓαá¬Γ¡δ⌐ ¼ÑΓ«ñ, ¬«Γ«αδ⌐ ñ«½ªÑ¡ íδΓ∞ »ÑαÑ«»αÑñÑ½Ñ¡ ñ½∩ »«Γ«¼¬«ó «íΩÑ¬Γá TFilter. Store procedure Store(var S : TStream); æ«σαá¡∩ÑΓ «íΩÑ¬Γ Γ¿»á TFilter ó »«Γ«¬Ñ S; TFixedFont GFonts =========================================================================== --------------- | TRasterFont | --------------- | | -------------- | TFixedFont | -------------- é φΓ«¼ «íΩÑ¬ΓÑ αÑá½¿º«óá¡δ ¼ÑΓ«ñδ ñ½∩ αáí«Γδ ß Σ«¡Γá¼¿, ¿¼ÑεΘ¿¼¿ Σ¿¬ß¿α«óá¡¡δÑ αáº¼Ñαδ «íαáº«ó ß¿¼ó«½«ó. 50 ÅÄïƒ ------------------------------------------------------------ CharWidth CharWidth : word; ÿ¿α¿¡á ß¿¼ó«½«ó ó »¿¬ßÑ½áσ. îàÆÄä¢ ----------------------------------------------------------- Init constructor Init(AName : String; AImageTable : Pointer; First,Count : byte; AWidth,AHeight : word); éδºδóáÑΓ TRasterFont.Init ¿ »α¿ßóá¿óáÑΓ »«½∩¼ CharWidth ¿ CharHeight º¡áτÑ¡¿∩ »áαá¼ÑΓα«ó AWidth ¿ AHeight ß««ΓóÑΓßΓóÑ¡¡«. BytesPerChar function BytesPerChar(Ch : Char) : word; virtual; ÅÑαÑ¬αδóáÑΓ TRasterAFont.BytesPerChar. Éáº¼Ñα «íαáºá ß¿¼ó«½á αáßτ¿ΓδóáÑΓß∩ ß½ÑñπεΘ¿¼ «íαáº«¼: i := CharWidth div 8; if (CharWidth mod 8) <> 0 then inc(i); BytesPerChar := CharHeight * i; GetCharWidth function GetCharWidth(Ch : Char) : word; virtual; ÅÑαÑ¬αδóáÑΓ TRasterFont.GetCharWidth. é«ºóαáΘáÑΓ º¡áτÑ¡¿Ñ »«½∩ CharWidth. GetCharImage function GetCharImage(Ch : Char) : Pointer; virtual; ÅÑαÑ¬αδóáÑΓ TRasterFont.getCharImage. é«ºóαáΘáÑΓ π¬áºáΓÑ½∞ ¡á «íαáº ß¿¼ó«½á, Ñß½¿ FirstChar <= ¬«ñ ß¿¼ó«½á <= FirstChar + CharCount ¿ nil ó »α«Γ¿ó¡«¼ ß½πτáÑ. OutText procedure OutText(S : String); virtual; éδó«ñ¿Γ ßΓα«¬π S ¡á φ¬αá¡ ¡áτ¿¡á∩ ß ΓÑ¬πΘÑ⌐ »«º¿µ¿¿. OutTextXY procedure OutTextXY(Location : TPoint; S : String); virtual; éδó«ñ¿Γ ßΓα«¬π S ¡á φ¬αá¡ ¡áτ¿¡á∩ ß »«º¿µ¿¿ Location. 51 TFont GFonts =========================================================================== ----------- | TObject | ----------- | | --------- | TFont | --------- ÇíßΓαá¬Γ¡δ⌐ Γ¿» ñ½∩ αÑá½¿ºáµ¿⌐ ½εí«ú« Γ¿»á Σ«¡Γ«ó. ÅÄïƒ ------------------------------------------------------------- FontName FontName : String; æ«ñÑαª¿Γ ¿¼∩ Σ«¡Γá. îàÆÄä¢ ------------------------------------------------------------- Init constructor Init(AName : String); éδºδóáÑΓ TObject.Init ¿ »α¿ßóá¿óáÑΓ »«½ε FontName º¡áτÑ¡¿Ñ »áαá¼ÑΓαá. CanFillBackground function CanFillBackground : boolean; virtual; é«ºóαáΘáÑΓ true, Ñß½¿ Σ«¡Γ π¼ÑÑΓ ¿º¼Ñ¡∩Γ∞ µóÑΓ Σ«¡«óδσ »¿¬ßÑ½Ñ⌐. TFont.CanFillBackground »α«ßΓ« ó«ºóαáΘáÑΓ true. TextWidth function TextWidth(S : String) : integer; virtual; îÑΓ«ñ TextWidth ó«ºóαáΘáÑΓ ñ½¿¡π ßΓα«¬¿ S ó »¿¬ßÑ½áσ. ¥Γ« áíßΓαá¬Γ¡δ⌐ ¼ÑΓ«ñ, ¬«Γ«αδ⌐ ñ«½ªÑ¡ íδΓ∞ »ÑαÑ«»αÑñÑ½Ñ¡ π »«Γ«¼¬«ó «íΩÑ¬Γá TFont. TextHeight function TextHeight(S : String) : integer; virtual; îÑΓ«ñ TextHeight ó«ºóαáΘáÑΓ óδß«Γπ ßΓα«¬¿ S ó »¿¬ßÑ½áσ. ¥Γ« áíßΓαá¬Γ¡δ⌐ ¼ÑΓ«ñ, ¬«Γ«αδ⌐ ñ«½ªÑ¡ íδΓ∞ »ÑαÑ«»αÑñÑ½Ñ¡ π »«Γ«¼¬«ó «íΩÑ¬Γá TFont. OutText procedure OutText(S : String); virtual; îÑΓ«ñ OutText óδó«ñ¿Γ ßΓα«¬π S ¡áτ¿¡á∩ ß ΓÑ¬πΘÑ⌐ »«º¿µ¿¿ φ¬αá¡á. ¥Γ« áíßΓαá¬Γ¡δ⌐ ¼ÑΓ«ñ, ¬«Γ«αδ⌐ ñ«½ªÑ¡ íδΓ∞ »ÑαÑ«»αÑñÑ½Ñ¡. OutTextXY procedure OutTextXY(Location : TPoint; S : String); virtual; îÑΓ«ñ OutTextXY óδó«ñ¿Γ ßΓα«¬π S ¡áτ¿¡á∩ ß »«º¿µ¿¿, ºáñá¡¡«⌐ »áαá¼ÑΓα«¼ Location. ¥Γ« áíßΓαá¬Γ¡δ⌐ ¼ÑΓ«ñ, ¬«Γ«αδ⌐ ñ«½ªÑ¡ íδΓ∞ »ÑαÑ«»αÑñÑ½Ñ¡. SetTextStyle procedure SetTextStyle(Direction,Size : word); virtual; äÑ½áÑΓ Σ«¡Γ á¬Γ¿ó¡δ¼ ¿ πßΓá¡áó½¿óáÑΓ σáαá¬ΓÑα¿ßΓ¿¬¿ óδó«ñá ΓÑ¬ßΓá (¡á»αáó½Ñ¡¿Ñ, αáº¼Ñα). ÇíßΓαá¬Γ¡δ⌐ ¼ÑΓ«ñ. ìÑ ñ«½ªÑ¡ ¿ß»½∞º«óáΓ∞ß∩ ¡Ñ»«ßαÑñßΓóÑ¡¡«, á Γ«½∞¬« ¬«ßóÑ¡¡« τÑαÑº óδº«ó ú½«íá½∞¡«⌐ »α«µÑñπαδ SetTextStyle. 52 GetFontName function GetFontName : String; é«ºóαáΘáÑΓ ßΓα«¬π ß ¿¼Ñ¡Ñ¼ Σ«¡Γá. CetCharHeight function GetCharHeight(Ch : Char) : word; virtual; é«ºóαáΘáÑΓ óδß«Γπ ó »¿¬ßÑ½áσ ß¿¼ó«½á Ch. ÇíßΓαá¬Γ¡δ⌐ ¼ÑΓ«ñ, ñ«½ªÑ¡ íδΓ∞ »ÑαÑ«»αÑñÑ½Ñ¡. CetCharWidth function GetCharWidth(Ch : Char) : word; virtual; é«ºóαáΘáÑΓ Φ¿α¿¡π ó »¿¬ßÑ½áσ ß¿¼ó«½á Ch. ÇíßΓαá¬Γ¡δ⌐ ¼ÑΓ«ñ, ñ«½ªÑ¡ íδΓ∞ »ÑαÑ«»αÑñÑ½Ñ¡. TImage Images =========================================================================== ----------- | TObject | ----------- | | ---------- | TImage | ---------- TImage »αÑñ¡áº¡áτÑ¡ ñ½∩ σαá¡Ñ¡¿∩ ¿º«íαáªÑ¡¿⌐ »α«¿ºó«½∞¡δσ αáº¼Ñα«ó. ÅÄïƒ ----------------------------------------------------------- Size Size : TPoint; Éáº¼Ñαδ «íαáºá ó »¿¬ßÑ½áσ. Data Data : PStream; ô¬áºáΓÑ½∞ ¡á »«Γ«¬, ó ¬«Γ«α«¼ σαá¡¿Γß∩ ¿º«íαáªÑ¡¿Ñ. îàÆÄä¢ ------------------------------------------------------------- Init constructor Init(ASize : TPoint); Åα¿ßóá¿óáÑΓ »«½ε Size º¡áτÑ¡¿Ñ »áαá¼ÑΓαá ASize, ¿ ß«ºñáÑΓ »«Γ«¬, ó ¬«Γ«α«¼ íπñÑΓ σαá¡¿Γ∞ß∩ ¿º«íαáªÑ¡¿Ñ. Import constructor Import(AName : FNameStr; AFilter : PFilter); çáúαπªáÑΓ ¿º«íαáªÑ¡¿Ñ ¿º Σá⌐½á AName ¿ß»«½∞ºπ∩ Σ¿½∞Γα úαáΣ¿τÑß¬¿σ Σ«α¼áΓ«ó, ¡á ¬«Γ«αδ⌐ π¬áºδóáÑΓ »áαá¼ÑΓα AFilter. 53 Load constructor Load(var S : TStream); çáúαπªáÑΓ ¿º«íαáªÑ¡¿Ñ ¿º »«Γ«¬á S. æ¡áτá½á ºáúαπªáÑΓ ¿º »«Γ«¬á «íΩÑ¬Γ - úαáΣ¿τÑß¬¿⌐ Σ¿½∞Γα, ºáΓÑ¼, ß »«¼«Θ∞ε óδº«óá Filter^.LoadImage(@Self) ºáúαπªáÑΓ ¿º »«Γ«¬á S ¿º«íαáªÑ¡¿Ñ, σαá¡∩ΘÑÑß∩ ó ¬á¬«¼-½¿í« úαáΣ¿τÑß¬«¼ Σ«α¼áΓÑ. Done desctructor Done; virtual; ô¡¿τΓ«ªáÑΓ «íΩÑ¬Γ-»«Γ«¬, ó ¬«Γ«α«¼ σαá¡¿Γß∩ ¿º«íαáªÑ¡¿Ñ, ºáΓÑ¼ óδºδóáÑΓ TObject.Done. Export procedure Export(AName : FNameStr; AFilter : PFilter); æ«σαá¡∩ÑΓ «íαáº ó Σá⌐½Ñ AName ó úαáΣ¿τÑß¬«¼ Σ«α¼áΓÑ, «»αÑñÑ½∩Ñ¼δ¼ Γ¿»«¼ úαáΣ¿τÑß¬«ú« Σ¿½∞Γαá AFilter. GetBytesPerLine function GetBytesPerLine : integer; é«ºóαáΘáÑΓ ¬«½¿τÑßΓó« íá⌐Γ«ó, ¡Ñ«íσ«ñ¿¼δσ ñ½∩ σαá¡Ñ¡¿∩ «ñ¡«⌐ ßΓα«¬¿ »¿¬ßÑ½«ó «íαáºá. GetLine procedure GetLine(Line : integer; var Buffer); æτ¿ΓδóáÑΓ ßΓα«¬π «íαáºá ß ¡«¼Ñα«¼ Line ¿ »«¼ÑΘáÑΓ ÑÑ ó íπΣÑα Buffer. PutLine procedure PutLine(Line : integer; var Buffer); çá»¿ßδóáÑΓ ßΓα«¬π »¿¬ßÑ½«ó, ¡áσ«ñ∩Θπεß∩ ó íπΣÑαÑ Buffer, ó «íαáº ¡á ¼ÑßΓ« ßΓα«¬¿ Line. Draw procedure Draw(X,Y : integer; BitBlt : word); éδó«ñ¿Γ «íαáº ¡á φ¬αá¡. X,Y - ¬««αñ¿¡áΓδ ½Ñó«ú« óÑασ¡Ñú« πú½á ¿º«íαáªÑ¡¿∩ «Γ¡«ß¿ΓÑ½∞¡« ΓÑ¬πΘÑ⌐ «í½áßΓ¿ óδó«ñá. Åáαá¼ÑΓα BitBlt ºáñáÑΓ αÑª¿¼ ºá»¿ß¿ ó ó¿ñÑ«»á¼∩Γ∞. TMouseCursor ExtObj =========================================================================== ----------- | TObject | ----------- | | ---------------- | TMouseCursor | ---------------- TMouseCursor »αÑñ¡áº¡áτÑ¡ ñ½∩ ß«ºñá¡¿∩, σαá¡Ñ¡¿∩ ¿ π»αáó½Ñ¡¿∩ ¬παß«α«¼ ¼δΦ¿. 54 ÅÄïƒ ------------------------------------------------------------- Size Size : TPoint; òαá¡¿Γ αáº¼Ñαδ «íαáºá ¬παß«αá. HotSpot HotSpot : TPoint; è««αñ¿¡áΓδ "ú«α∩τÑú« »∩Γ¡á" Shape Shape : pointer; ô¬áºáΓÑ½∞ ¡á «íαáº ¬παß«αá îàÆÄä¢ ------------------------------------------------------------- Init constructor Init(ASize, AHotSpot : TPoint; AndPlane,XorPlane : Pointer); éδºδóáÑΓ TObject.Init; »α¿ßóá¿óáÑΓ »«½∩¼ Size ¿ HotSpot º¡áτÑ¡¿∩ »áαá¼ÑΓα«ó ASize ¿ AHotSpot; óδñÑ½∩ÑΓ »á¼∩Γ∞ ñ½∩ «íαáºá ¬παß«αá ¿ ß«σαá¡∩ÑΓ AND ¿ XOR ¼áß¬¿. Load constructor Load(var S : TStream); ù¿ΓáÑΓ ¿º »«Γ«¬á S »«½∩ Size ¿ HotSpot, á Γá¬ªÑ «íαáº ¬παß«αá. Done destructor Done; virtual; Äßó«í«ªñáÑΓ »á¼∩Γ∞, ºá¡∩Γπε »«ñ «íαáº ¬παß«αá, ¿ óδºδóáÑΓ TObject.Done. MakeActive procedure MakeActive; êº¼Ñ¡∩ÑΓ ó¿ñ ¬παß«αá ¼δΦ¿, óδºδóá∩ »α«µÑñπαπ SetMouseShape. Store procedure Store(var S : TStream); æ«σαá¡∩ÑΓ ¿¡Σ«α¼áµ¿ε « ¼δΦ¿¡«¼ ¬παß«αÑ ó »«Γ«¬Ñ S: ºá»¿ßδóáÑΓ º¡áτÑ¡¿∩ »«½Ñ⌐ Size ¿ HotSpot, á Γá¬ªÑ «íαáº ¬παß«αá. 55 TRasterFont GFonts =========================================================================== --------- | TFont | --------- | | --------------- | TRasterFont | --------------- ¥Γ« áíßΓαá¬Γ¡δ⌐ Γ¿», ∩ó½∩εΘ¿⌐ß∩ «ß¡«ó«⌐ ñ½∩ αÑá½¿ºáµ¿¿ αáº½¿τ¡δσ ó¿ñ«ó αáßΓα«óδσ Σ«¡Γ«ó, ó Γ«¼ τ¿ß½Ñ óßΓα«Ñ¡¡δσ Σ«¡Γ«ó ó¿ñÑ«áñá»ΓÑαá. ÅÄïƒ ------------------------------------------------------------ ImageTable ImageTable : pointer; ô¬áºáΓÑ½∞ ¡á Γáí½¿µπ «íαáº«ó ß¿¼ó«½«ó. FirstChar FirstChar : byte; è«ñ »Ñαó«ú« ß¿¼ó«½á, ñ½∩ ¬«Γ«α«ú« «»αÑñÑ½Ñ¡ «íαáº ó Γáí½¿µÑ «íαáº«ó. CharCount CharCount : byte; è«½¿τÑßΓó« «íαáº«ó ó Γáí½¿µÑ «íαáº«ó (¡á 1 ¼Ñ¡∞ΦÑ αÑá½∞¡«ú«). CharHeight CharHeight : word; éδß«Γá ß¿¼ó«½«ó ó »¿¬ßÑ½áσ. îàÆÄä¢ ------------------------------------------------------------ Init constructor Init(AName : String; AImageTable : Pointer; First,Count : byte); éδºδóáÑΓ TFont.Init, ß«σαá¡∩ÑΓ π¬áºáΓÑ½∞ ¡á Γáí½¿µπ «íαáº«ó ó »«½Ñ ImageTable, º¡áτÑ¡¿Ñ »áαá¼ÑΓαá First ó »«½Ñ FirstChar ¿ º¡áτÑ¡¿Ñ »áαá¼ÑΓαá Count ó »«½Ñ CharCount. BytesPerChar function BytesPerChar(Ch : Char) : word; virtual; é«ºóαáΘáÑΓ αáº¼Ñα «íαáºá ó íá⌐Γáσ ñ½∩ ß¿¼ó«½á Ch. ÇíßΓαá¬Γ¡δ⌐ ¼ÑΓ«ñ. ä«½ªÑ¡ íδΓ∞ »ÑαÑ«»αÑñÑ½Ñ¡ ó «íΩÑ¬Γáσ-»«Γ«¼¬áσ. TRasterFont.BytesPerChar »α«ßΓ« ó«ºóαáΘáÑΓ 0. GetCharImage function GetCharImage(Ch : Char) : Pointer; virtual; é«ºóαáΘáÑΓ π¬áºáΓÑ½∞ ¡á «íαáº ß¿¼ó«½á Ch. ÇíßΓαá¬Γ¡δ⌐ ¼ÑΓ«ñ. ä«½ªÑ¡ íδΓ∞ »ÑαÑ«»αÑñÑ½Ñ¡ ó «íΩÑ¬Γáσ-»«Γ«¼¬áσ. TRasterFont.GetCharImage »α«ßΓ« ó«ºóαáΘáÑΓ nil. GetCharHeight function GetCharHeight(Ch : Char) : word; virtual; ÅÑαÑ¬αδóáÑΓ TFont.GetCharHeight. 56 TextHeight function TextHeight(S : String) : integer; virtual; ÅÑαÑ¬αδóáÑΓ TFont.TextHeight. TextWidth function TextWidth(S : String) : integer; virtual; ÅÑαÑ¬αδóáÑΓ TFont.TextWidth. TSharedResourceCollection ExtObj =========================================================================== --------------------- | TStringCollection | --------------------- | | ----------------------------- | TSharedResourceCollection | ----------------------------- ¥Γ«Γ «íΩÑ¬Γ ¿ß»«½∞ºπÑΓß∩ «íΩÑ¬Γ«¼ TSharedResource. èáªñδ⌐ φ½Ñ¼Ñ¡Γ ¬«½½Ñ¬µ¿¿ ß«ñÑαª¿Γ »«½∩ Resource,Count ¿ Key, ¬«Γ«αδÑ ∩ó½∩εΓß∩ π¬áºáΓÑ½∩¼¿ ¡á «íΩÑ¬Γ-αÑßπαß, ßτÑΓτ¿¬«¼ ¿ß»«½∞º«óá¡¿∩ ¿ ¿¼Ñ¡Ñ¼ αÑßπαßá ß««ΓóÑΓßΓóÑ¡¡«. ÅÑαÑ«»αÑñÑ½∩ÑΓ ¼ÑΓ«ñδ FreeItem ¿ KeyOf TSharedResource ExtObj ============================================================================ ----------- | TObject | ----------- | | ------------------- | TSharedResource | ------------------- TSharedResource »αÑñ¡áº¡áτÑ¡ ñ½∩ π»αáó½Ñ¡¿∩ αáºñÑ½∩Ñ¼δ¼¿ αÑßπαßá¼¿, Γ.Ñ. αÑßπαßá¼¿, ¬«Γ«αδÑ ¼«úπΓ íδΓ∞ ¿ß»«½∞º«óá¡δ ¡Ñß¬«½∞¬¿¼¿ "¬½¿Ñ¡Γá¼¿" «ñ¡«óαÑ¼Ñ¡¡«. é »á¼∩Γ¿ »α¿ φΓ«¼ σαá¡¿Γß∩ Γ«½∞¬« «ñ¿¡ φ¬ºÑ¼»½∩α αÑßπαßá. ÅÄïƒ ------------------------------------------------------------- ResourceFile ResourceFile : PResourceFile; ô¬áºáΓÑ½∞ ¡á «íΩÑ¬Γ Γ¿»á TResourceFile, ó ¬«Γ«α«¼ σαá¡∩Γß∩ αÑßπαßδ. 57 îàÆÄä¢ ------------------------------------------------------------- Init constructor Init(AResourceFile : PresourceFile); éδºδóáÑΓ TObject.Init, ¿¡¿µ¿á½¿º¿απÑΓ ¬«½½Ñ¬µ¿ε αÑßπαß«ó, »α¿ßóá¿óáÑΓ »«½ε ResourceFile º¡áτÑ¡¿Ñ »ÑαÑñá¡¡«ú« »áαá¼ÑΓαá. Done destructor Done; virtual; éδúαπªáÑΓ óßÑ ºáúαπªÑ¡¡δÑ αÑßπαßδ, πñá½∩ÑΓ ¿¡ñÑ¬ß αÑßπαß«ó ¿ ºá¬αδóáÑΓ Σá⌐½ αÑßπαß«ó, ºáñá¡¡δ⌐ »«½Ñ¼ ResourceFile. Count function Count : integer; é«ºóαáΘáÑΓ ¬«½¿τÑßΓó« ºáúαπªÑ¡¡δσ αÑßπαß«ó. Free proceure Free(Key : String); àß½¿ αÑßπαß ß ¿¼Ñ¡Ñ¼ Key ºáúαπªÑ¡, Ñú« ßτÑΓτ¿¬ ¿ß»«½∞º«óá¡¿∩ π¼Ñ¡∞ΦáÑΓß∩ ¡á Ññ¿¡¿µπ. àß½¿ ßτÑΓτ¿¬ ßΓá¡«ó¿Γß∩ αáó¡δ¼ ¡π½ε, αÑßπαß πñá½∩ÑΓß∩ ¿º »á¼∩Γ¿. Get function Get(Key : String) : PObject; àß½¿ αÑßπαß ß ¿¼Ñ¡Ñ¼ Key πªÑ ºáúαπªÑ¡, Ñú« ßτÑΓτ¿¬ ¿ß»«½∞º«óá¡¿∩ πóÑ½¿τ¿óáÑΓß∩ ¡á Ññ¿¡¿µπ ¿ Σπ¡¬µ¿∩ Get ó«ºóαáΘáÑΓ π¬áºáΓÑ½∞ ¡á ¡Ñú«. é »α«Γ¿ó¡«¼ ß½πτáÑ αÑßπαß ºáúαπªáÑΓß∩ ¿º Σá⌐½á αÑßπαß«ó, ºáñá¡¡«ú« »«½Ñ¼ ResourceFile. àß½¿ αÑßπαß ß ¿¼Ñ¡Ñ¼ Key ¡Ñ ¡á⌐ñÑ¡ ó Σá⌐½Ñ αÑßπαß«ó, Σπ¡¬µ¿∩ Get ó«ºóαáΘáÑΓ nil. KeyAt function KeyAt(I : integer) : String; é«ºóαáΘáÑΓ ¿¼∩ αÑßπαßá ß ¡«¼Ñα«¼ I. TXmsStream ExtObj =========================================================================== ----------- | TObject | ----------- | | -------------- | TXmsStream | -------------- TXmsStream - φΓ« «íΩÑ¬Γ, αÑá½¿ºπεΘ¿⌐ »«Γ«¬¿ ó XMS »á¼∩Γ¿. äóá ñ«»«½¡¿ΓÑ½∞¡δσ »«½∩ »αÑñ¡áº¡áτÑ¡δ ñ½∩ σαá¡Ñ¡¿∩ αáº¼Ñαá »«Γ«¬á ¿ Ñú« ΓÑ¬πΘÑ⌐ »«º¿µ¿¿. ¥Γ«Γ Γ¿» «íΩÑ¬Γ«ó «»αÑñÑ½Ñ¡ Γ«½∞¬« ó óÑαß¿¿ ñ½∩ αÑá½∞¡«ú« αÑª¿¼á. 58 ÅÄïƒ ------------------------------------------------------------- Size Size : LongInt; Éáº¼Ñα »«Γ«¬á ó íá⌐Γáσ. Position Position : LongInt; ÆÑ¬πΘá∩ »«º¿µ¿∩ ó »«Γ«¬Ñ. ìáτá½∞¡á∩ »«º¿µ¿∩ αáó¡á 0. îàÆÄä¢ ------------------------------------------------------------- Init constructor Init(ALimit : LongInt); æ«ºñáÑΓ »«Γ«¬ ó XMS »á¼∩Γ¿ ß ºáñá¡¡δ¼ ¼¿¡¿¼á½∞¡δ¼ αáº¼Ñα«¼ ó íá⌐Γáσ. éδºδóáÑΓ TStream.Init, »α«óÑα∩ÑΓ ¡á½¿τ¿Ñ XMS »á¼∩Γ¿, ¿, Ñß½¿ «¡á ñ«ßΓπ»¡á, »δΓáÑΓß∩ αáß»αÑñÑ½¿Γ∞ í½«¬ XMS-»á¼∩Γ¿, ñ«ßΓáΓ«τ¡δ⌐ ñ½∩ αáº¼ÑΦÑ¡¿∩ ALimit íá⌐Γ«ó. àß½¿ XMS-»á¼∩Γ∞ «ΓßπΓßΓóπÑΓ, ¿½¿ »α«¿º«Φ½á «Φ¿í¬á »α¿ óδñÑ½Ñ¡¿¿ í½«¬á »á¼∩Γ¿, óδºδóáÑΓß∩ ¼ÑΓ«ñ Error c áαúπ¼Ñ¡Γ«¼ stInitError. Done destructor Done; virtual; Äßó«í«ªñáÑΓ ºá¡∩Γπε XMS »á¼∩Γ∞, ΓÑ¼ ßá¼δ¼ π¡¿τΓ«ªá∩ »«Γ«¬. ì¿¬«úñá ¡Ñ »ÑαÑ¬αδóáÑΓß∩. GetPos function GetPos : LongInt; virtual; é«ºóαáΦáÑΓ ΓÑ¬πΘπε »«º¿µ¿ε ó »«Γ«¬Ñ. ì¿¬«úñá ¡Ñ »ÑαÑ¬αδóáÑΓß∩. GetSize function GetSize : LongInt; virtual; é«ºóαáΘáÑΓ αáº¼Ñα »«Γ«¬á ó íá⌐Γáσ. ì¿¬«úñá ¡Ñ »ÑαÑ¬αδóáÑΓß∩. Seek procedure Seek(Pos : LongInt); virtual; ôßΓá¡áó½¿óáÑΓ ΓÑ¬πΘπε »«º¿µ¿ε »«Γ«¬á αáó¡«⌐ Pos. ì¿¬«úñá ¡Ñ »ÑαÑ¬αδóáÑΓß∩. Trunkate procedure Truncate; virtual; ôñá½∩ÑΓ óßÑ ñá¡¡δÑ , ¡áτ¿¡á∩ ß ΓÑ¬πΘÑ⌐ »«º¿µ¿¿ ñ« ¬«¡µá Σá⌐½á. ÆÑ¬πΘá∩ »«º¿µ¿∩ ßΓá¡«ó¿Γß∩ ¡«óδ¼ ¬«¡µ«¼ Σá⌐½á. ì¿¬«úñá ¡Ñ »ÑαÑ¬αδóáÑΓß∩. Read procedure Read(var Buf; Count : word); virtual; ù¿ΓáÑΓ Count íá⌐Γ«ó ó íπΣÑα Buf, ¡áτ¿¡á∩ ß ΓÑ¬πΘÑ⌐ »«º¿µ¿¿. ì¿¬«úñá ¡Ñ »ÑαÑ¬αδóáÑΓß∩. Write procedure Write(var Buf; Count : word); virtual; çá»¿ßδóáÑΓ Count íá⌐Γ«ó ¿º íπΣÑαá Buf, ¡áτ¿¡á∩ ß ΓÑ¬πΘÑ⌐ »«º¿µ¿¿. ì¿¬«úñá ¡Ñ »ÑαÑ¬αδóáÑΓß∩. 59 Ä ü Ö ê ë æ Å É Ç é Ä ù ì ê è 3 ---------------------------------------------------------------------------- BiosFontParams Γ¿» GFonts ============================================================================ ÄíΩ∩ó½Ñ¡¿Ñ BiosFontParams = record Width : word; Height : word; BytesPerChar : word; case TwoPart : boolean of false : (ImageTable : Pointer); true : (Base,Top : Pointer); end; öπ¡¬µ¿∩ çá»¿ß¿ Γ¿»á BiosFontParams ß½πªáΓ ñ½∩ »«½πτÑ¡¿∩ σáαá¬ΓÑα¿ßΓ¿¬ óßΓα«Ñ¡¡δσ φ¬αá¡¡δσ Σ«¡Γ«ó. é ¡¿σ »ÑαÑñáÑΓß∩ ¿¡Σ«α¼áµ¿∩ « óδß«ΓÑ ¿ Φ¿α¿¡Ñ ß¿¼ó«½á, ¬«½¿τÑßΓó« íá⌐Γ ó «íαáºÑ ß¿¼ó«½á, π¬áºáΓÑ½∞ ¡á Γáí½¿µπ «íαáº«ó (ó ß½πτáÑ Σ«¡Γá 8x8 »ÑαÑñáÑΓß∩ 2 π¬áºáΓÑ½∩: Base - π¬áºáΓÑ½∞ ¡á »Ñαóπε »«½«ó¿¡π Γáí½¿µδ (¬«ñδ 0-127), Top - π¬áºáΓÑ½∞ ¡á óΓ«απε »«½«ó¿¡π Γáí½¿µδ (¬«ñδ 128-255)). BitPerPlane »ÑαÑ¼Ñ¡¡á∩ LowGraph ============================================================================ ÄíΩ∩ó½Ñ¡¿Ñ BitPerPlane : integer; öπ¡¬µ¿∩ è«½¿τÑßΓó« í¿Γ«ó ó í¿Γ«ó«⌐ ¬áαΓÑ, ¡Ñ«íσ«ñ¿¼«Ñ ñ½∩ σαá¡Ñ¡¿∩ «ñ¡«ú« »¿¬ßÑ½á. bsXXXXXXX ¬«¡ßΓá¡Γδ Grav ============================================================================ öπ¡¬µ¿∩ è«¡ßΓá¡Γδ ßΓ¿½Ñ⌐ Σ«¡á ñ½∩ «íΩÑ¬Γá Γ¿»á GraphBackground ç¡áτÑ¡¿∩ ¬«¡ßΓá¡Γá º¡áτÑ¡¿Ñ ß¼δß½ -------------------------------------------------------------- bsNone 0 ö«¡ α¿ßπÑΓß∩ íÑº úαá¡¿µδ bsBump 1 éδ»π¬½δ⌐ Σ«¡ bsDip 2 éñáó½Ñ¡¡δ⌐ Σ«¡ 60 BytesPerLine »ÑαÑ¼Ñ¡¡á∩ LowGraph ============================================================================ ÄíΩ∩ó½Ñ¡¿Ñ BytesPerLine : integer; öπ¡¬µ¿∩ ä½¿¡á ß¬á¡-½¿¡¿¿ ó íá⌐Γáσ ñ½∩ ΓÑ¬πΘÑú« ó¿ñÑ«αÑª¿¼á. CanFillBackground Σπ¡¬µ¿∩ GFonts ============================================================================ ÄíΩ∩ó½Ñ¡¿Ñ function CanFillBackground : boolean; öπ¡¬µ¿∩ é«ºóαáΘáÑΓ true, Ñß½¿ ΓÑ¬πΘ¿⌐ Σ«¡Γ π¼ÑÑΓ ¿º¼Ñ¡∩Γ∞ µóÑΓ Σ«¡«óδσ »¿¬ßÑ½«ó. Ç¡á½«ú¿τ¡á óδº«óπ PFont(Fonts^.At(CurrentFont))^.CanFillBackground; ConvertPixRow »α«µÑñπαá LowGraph ============================================================================ ÄíΩ∩ó½Ñ¡¿Ñ procedure ConvertPixRow(var Source,Dest; Width : word; var Palette : TPaletteType); öπ¡¬µ¿∩ ÅαÑ«íαáºπÑΓ ßΓα«¬π »¿¬ßÑ½«ó. Source - ¿ßσ«ñ¡δ⌐ ¼áßß¿ó, ó ¬«Γ«α«¼ ¬áªñδ⌐ »¿¬ßÑ½ ºá¡¿¼áÑΓ «ñ¿¡ íá⌐Γ. Dest - ¼áßß¿ó, ó ¬«Γ«α«¼ ß«σαá¡∩ÑΓß∩ αÑºπ½∞ΓáΓ «»Ñαáµ¿¿. æΓαπ¬Γπαá ¼áßß¿óá Dest ºáó¿ß¿Γ «Γ ΓÑ¬πΘÑú« ó¿ñÑ«αÑª¿¼á ¿ ß««ΓóÑΓßΓóπÑΓ Σ«α¼áΓπ σαá¡Ñ¡¿∩ »¿¬ßÑ½«ó ó ó¿ñÑ«»á¼∩Γ¿. Åáαá¼ÑΓα Width ºáñáÑΓ ñ½¿¡π ßΓα«¬¿ »¿¬ßÑ½«ó. Palette - Γáí½¿µá »ÑαÑ¬«ñ¿α«ó¬¿ µóÑΓ«ó. Åα«µÑñπαá ConvertPixRow ¿ß»«½∞ºπÑΓß∩ ó ¼«ñπ½Ñ Images »α¿ ¿¼»«αΓÑ Σá⌐½«ó αáº½¿τ¡δσ úαáΣ¿τÑß¬¿σ Σ«α¼áΓ«ó. CstrToStr »α«µÑñπαá EventMan ============================================================================ ÄíΩ∩ó½Ñ¡¿Ñ procedure CStrToStr(Source : string; var Dest : string); öπ¡¬µ¿∩ è«»¿απÑΓ ßΓα«¬π Source ó ßΓα«¬π Dest, πñá½∩∩ »α¿ φΓ«¼ óßÑ Γ¿½∞ñδ ('~'). CurrentFont »ÑαÑ¼Ñ¡¡á∩ GFonts ============================================================================ ÄíΩ∩ó½Ñ¡¿Ñ CurrentFont : integer = 0; öπ¡¬µ¿∩ ì«¼Ñα ΓÑ¬πΘÑú« ¿ß»«½∞ºπÑ¼«ú« Σ«¡Γá. ì«¼Ñα ΓÑ¬πΘÑú« Σ«¡Γá ¼«ªÑΓ íδΓ∞ πßΓá¡«ó½Ñ¡ ß »«¼«Θ∞ε »α«µÑñπαδ SetTextStyle ¿º ¼«ñπ½∩ GFonts. ìÑ¬«Γ«αδÑ »α«µÑñπαδ, Γá¬¿Ñ ¬á¬ OutText, OutTextXY, TextWidth ¿ Γ.ñ., ¿ß»«½∞ºπεΓ ¡«¼Ñα ΓÑ¬πΘÑú« Σ«¡Γá. 61 CursorAreaSize »ÑαÑ¼Ñ¡¡á∩ LowGraph ============================================================================ ÄíΩ∩ó½Ñ¡¿Ñ CursorAreaSize : word; öπ¡¬µ¿∩ Éáº¼Ñα íπΣÑαá, ¡Ñ«íσ«ñ¿¼δ⌐ ñ½∩ ß«σαá¡Ñ¡¿∩ «í½áßΓ¿ φ¬αá¡á, »ÑαÑ¬αδóáÑ¼«⌐ ¬παß«α«¼ ¼δΦ¿. ôßΓá¡áó½¿óáÑΓß∩ »α¿ ¿¡¿µ¿á½¿ºáµ¿¿ ó¿ñÑ«αÑª¿¼á. êß»«½∞ºπÑΓß∩ ó αÑª¿¼Ñ φ¼π½∩µ¿¿ ¼δΦ¿¡«ú« ¬παß«αá. DoneFonts »α«µÑñπαá GFonts ============================================================================ Äí∩ó½Ñ¡¿Ñ procedure DoneFonts; öπ¡¬µ¿∩ ô¡¿τΓ«ªáÑΓ ¬«½½Ñ¬µ¿ε Σ«¡Γ«ó. DoneVideo »α«µÑñπαá GrDriver ============================================================================ ÄíΩ∩ó½Ñ¡¿Ñ procedure DoneVideo; öπ¡¬µ¿∩ çáóÑαΦáÑΓ αáí«Γπ ß úαáΣ¿τÑß¬«⌐ »«ñß¿ßΓÑ¼«⌐. DrawChar »α«µÑñπαá LowGraph ============================================================================ ÄíΩ∩ó½Ñ¡¿Ñ procedure DrawChar(X,Y : integer; Width,Height : word; Fore,Back : word; FillBackgr : boolean; Image : pointer); öπ¡¬µ¿∩ ìáτ¿¡á∩ ß »«º¿µ¿¿ (X,Y) α¿ßπÑΓ ¡á φ¬αá¡Ñ ß¿¼ó«½, ¡á «íαáº ¬«Γ«α«ú« π¬áºδóáÑΓ »áαá¼ÑΓα Image. ÿ¿α¿¡á ¿ óδß«Γá ß¿¼ó«½á ºáñáεΓß∩ »áαá¼ÑΓαá¼¿ Width ¿ Height ß««ΓóÑΓßΓóÑ¡¡«. æ¿¼ó«½ α¿ßπÑΓß∩ µóÑΓ«¼ Fore. àß½¿ »áαá¼ÑΓα FillBackground = true, Σ«¡ ºá»«½¡∩ÑΓß∩ µóÑΓ«¼ Back. ÅαÑñ»«½áúáÑΓß∩, τΓ« ß¿¼ó«½ ¡Ñ »ÑαÑßÑ¬áÑΓ úαá¡¿µ φ¬αá¡á. DrawImage »α«µÑñπαá GrDriver ============================================================================ ÄíΩ∩ó½Ñ¡¿Ñ procedure DrawImage(X,Y : integer; var Bitmap; BitBlt : word); öπ¡¬µ¿∩ éδó«ñ¿Γ ¡á φ¬αá¡ í¿Γ«óδ⌐ «íαáº. ô½πτΦÑ¡¡á∩ óÑαß¿∩ »α«µÑñπαδ PutImage ¿º ¼«ñπ½∩ Graph. éδ»«½¡∩ÑΓ «ΓßÑτÑ¡¿Ñ ¿º«íαáªÑ¡¿∩ ¡á úαá¡¿µÑ ΓÑ¬πΘÑ⌐ «í½áßΓ¿ óδó«ñá (viewport). 62 DrawMouseShape »α«µÑñπαá LowGraph ============================================================================ ÄíΩ∩ó½Ñ¡¿Ñ procedure DrawMouseShape(X,Y : integer; var Shape); öπ¡¬µ¿∩ É¿ßπÑΓ ¡á φ¬αá¡Ñ ¼δΦ¿¡δ⌐ ¬παß«α. Åáαá¼ÑΓαδ X ¿ Y ºáñáεΓ ¬««αñ¿¡áΓδ ½Ñó«ú« óÑασ¡Ñú« πú½á ¬παß«αá. üπΣÑα Shape ß«ñÑαª¿Γ ¼áß¬¿ «íαáºá ¬παß«αá. Åα«µÑñπαá DrawMouseShape óδ»«½¡∩ÑΓ «ΓßÑτÑ¡¿Ñ «íαáºá ¼δΦ¿¡«ú« ¬παß«αá ¡á úαá¡¿µÑ φ¬αá¡á. é ¡áßΓ«∩ΘÑ⌐ óÑαß¿¿ »«ññÑαª¿óáεΓß∩ Γ«½∞¬« ¬παß«αδ αáº¼Ñαá 16x16 Γ«τÑ¬. DriverMode »ÑαÑ¼Ñ¡¡á∩ GrDriver ============================================================================ ÄíΩ∩ó½Ñ¡¿Ñ DriverMode : integer = Vga640x480; öπ¡¬µ¿∩ æ««ó¼ÑßΓ¡« ß »ÑαÑ¼Ñ¡¡«⌐ DriverType «»αÑñÑ½∩ÑΓ ¿ß»«½∞ºπÑ¼δ⌐ ó¿ñÑ«αÑª¿¼. ä«»πßΓ¿¼δÑ º¡áτÑ¡¿∩ ó¿ñÑ«αÑª¿¼«ó ñ½∩ ¬áªñ«ú« ñαá⌐óÑαá »α¿óÑñÑ¡δ ó «»¿ßá¡¿¿ ¬«¡ßΓá¡Γ Vesa*. ä½∩ ¿¡¿µ¿á½¿ºáµ¿¿ ¡πª¡«ú« αÑª¿¼á ó¿ñÑ«ñαá⌐óÑαá ¡Ñ«íσ«ñ¿¼« »α¿ßó«¿Γ∞ »ÑαÑ¼Ñ¡¡«⌐ DriverMode ß««ΓóÑΓßΓóπεΘÑÑ º¡áτÑ¡¿Ñ »ÑαÑñ óδº«ó«¼ »α«µÑñπαδ InitVideo: DriverType := Vesa16; { ñαá⌐óÑα VESA 16 µóÑΓ«ó } DriverMode := Vesa16_1024x768; { αÑª¿¼ 1024 x 768 } InitVideo; æ¼«Γα¿ Γá¬ªÑ DriverType, InitVideo. DriverPaths »ÑαÑ¼Ñ¡¡á∩ GrDriver ============================================================================ ÄíΩ∩ó½Ñ¡¿Ñ DriverPaths : array[0..2] of string = ('','',''); öπ¡¬µ¿∩ êß»«½∞ºπÑΓß∩ »α«µÑñπα«⌐ InitVideo »α¿ ¿¡¿µ¿á½¿ºá⌐¿¿ úαáΣ¿τÑß¬«⌐ »α«ñß¿ßΓÑ¼δ. Å« º¡áτÑ¡¿ε »ÑαÑ¼Ñ¡¡«⌐ DriverType óδí¿αáÑΓß∩ ßΓα«¬á ß ¿¼Ñ¡Ñ¼ ¬áΓá½«úá, ó ¬«Γ«α«¼ ¡áσ«ñ¿Γß∩ ¿ß»«½∞ºπÑ¼δ⌐ ñαá⌐óÑα. Å« π¼«½τá¡¿ε ßτ¿ΓáÑΓß∩, τΓ« ñαá⌐óÑα ¡áσ«ñ¿Γß∩ ó ΓÑ¬πΘÑ¼ ¬áΓá½«úÑ. àß½¿ ñαá⌐óÑα ¡áσ«ñ¿Γß∩ úñÑ-Γ« ó ñαπú«¼ ¬áΓá½«úÑ, ¡Ñ«íσ«ñ¿¼« π¬áºáΓ∞ »πΓ∞ ¬ ¡Ñ¼π ñ« óδº«óá »α«µÑñπαδ InitVideo: DriverType := Vesa16; { ¿ß»«½∞ºπÑ¼ ñα⌐óÑα Vesa 16 µóÑΓ«ó} DriverMode := Vesa16_800x600; DriverPaths[DriverType] := 'c:\tp\bgi'; InitVideo; 63 DriverType »ÑαÑ¼Ñ¡¡á∩ GrDriver ============================================================================ ÄíΩ∩ó½Ñ¡¿Ñ DriverType : integer = StandardVga; öπ¡¬µ¿∩ Ä»αÑñÑ½∩ÑΓ Γ¿» ó¿ñÑ«ñαá⌐óÑαá, ¿ß»«½∞ºπÑ¼«ú« »α¿ óδ»«½¡Ñ¡¿¿ »α«úαá¼¼δ. ÅÑαÑ¼Ñ¡¡«⌐ DriverType ¼«ªÑΓ íδΓ∞ »α¿ßó«Ñ¡« «ñ¡« ¿º ß½ÑñπεΘ¿σ º¡áτÑ¡¿⌐: StandardVGA - ¿c»«½∞º«óáΓ∞ ñαá⌐óÑα ßΓá¡ñáαΓ¡«ú« VGA. Vesa16 - íπñÑΓ ¿ß»«½∞º«óáΓ∞ß∩ ñαá⌐óÑα VESA 16 µóÑΓ«ó. Vesa256 - íπñÑΓ ¿ß»«½∞º«óáΓ∞ß∩ ñαá⌐óÑα VESA 256 µóÑΓ«ó. Å« π¼«½τá¡¿ε ¿ß»«½∞ºπÑΓß∩ ñαá⌐óÑα ßΓá¡ñáαΓ¡«ú« VGA. ùΓ«íδ ¿ß»«½∞º«óáΓ∞ ¬á¬«⌐-½¿í« ñαπú«⌐ ñαá⌐óÑα, ¡Ñ«íσ«ñ¿¼« »α¿ßó«¿Γ∞ »ÑαÑ¼Ñ¡¡«⌐ DriverType ß««ΓóÑΓßΓóπεΘÑÑ º¡áτÑ¡¿Ñ »ÑαÑñ óδº«ó«¼ »α«µÑñπαδ InitVideo. æ¼«Γα¿ Γá¬ªÑ DriverMode, InitVideo. EmulateMouseCursor »ÑαÑ¼Ñ¡¡á∩ LowGraph ============================================================================ ÄíΩ∩ó½Ñ¡¿Ñ EmulateMouseCursor : boolean = false; öπ¡¬µ¿∩ ö½áú φ¼π½∩µ¿¿ ¬παß«αá ¼δΦ¿. Å« π¼«½τá¡¿ε φ¼π½∩µ¿∩ ¼δΦ¿¡«ú« ¬παß«αá «Γ¬½ετÑ¡á ¿ «Γ«íαáªÑ¡¿Ñ ¼δΦ¿¡«ú« ¬παß«αá óδ»«½¡∩ÑΓß∩ ß¿ßΓÑ¼¡δ¼ ñαá⌐óÑα«¼ ¼δΦ¿. Äñ¡á¬« ßΓá¡ñáαΓ¡δÑ ñαá⌐óÑαδ ¼δΦ¿ ¡Ñ »«ññÑαª¿óáεΓ αÑª¿¼δ Vesa, ¿ ¬παß«α ¡á φ¬αá¡Ñ ¡Ñ «Γ«íαáªáÑΓß∩. ä½∩ ó¬½ετÑ¡¿∩ φ¼π½∩µ¿¿ ¬παß«αá ¡Ñ«íσ«ñ¿¼« »α¿ßó«¿Γ∞ »ÑαÑ¼Ñ¡¡«⌐ EmulateMouseCursor º¡áτÑ¡¿Ñ true »ÑαÑñ ¿¡¿µ¿á½¿ºáµ¿Ñ⌐ ¼Ñ¡ÑñªÑαá ß«íδΓ¿⌐: EmulateMouseCursor := true; InitVideo; InitEvents; ..... æ¼«Γα¿ Γá¬ªÑ InitEvents. 64 ExtractImage »α«µÑñπαá LowGraph ============================================================================ ÄíΩ∩ó½Ñ¡¿Ñ procedure ExtractImage(X1,Y1,X2,Y2 : integer; var Source, Dest); öπ¡¬µ¿∩ è«»¿απÑΓ τáßΓ∞ «íαáºá ¿º íπΣÑαá Source ó íπΣÑα Dest. Åáαá¼ÑΓαδ X1,Y1,X2,Y2 π¬áºδóáεΓß∩ ó »¿¬ßÑ½áσ ¿ ºáñáεΓ ¬««αñ¿¡áΓδ ¬«»¿απÑ¼«⌐ τáßΓ¿ «íαáºá ó íπΣÑαÑ Source. Source ñ«½ªÑ¡ ß«ñÑαªáΓ∞ «íαáº ó Σ«α¼áΓÑ GetImage/PutImage. Äíαáº ó íπΣÑαÑ Dest Γá¬ªÑ íπñÑΓ ¿¼ÑΓ∞ Σ«α¼áΓ GetImage/PutImage. FalseMode »ÑαÑ¼Ñ¡¡á∩ LowGraph ============================================================================ ÄíΩ∩ó½Ñ¡¿Ñ FalseMode : byte; öπ¡¬µ¿∩ êß»«½∞ºπÑΓß∩ ñ½∩ «í¼á¡á ñαá⌐óÑαá ¼δΦ¿ ó« óαÑ¼∩ ¿¡¿µ¿á½¿ºáµ¿¿ ¼Ñ¡ÑñªÑαá ß«íδΓ¿⌐ ó Vesa ó¿ñÑ«αÑª¿¼áσ. ôßΓá¡áó½¿óáÑΓß∩ ó« óαÑ¼∩ ¿¡¿µ¿á½¿ºáµ¿¿ ó¿ñÑ«αÑª¿¼á. ä½∩ 16-µóÑΓ¡δσ αÑª¿¼«ó ¿ß»«½∞ºπÑΓß∩ º¡áτÑ¡¿Ñ $12, ñ½∩ 256-µóÑΓ¡δσ αÑª¿¼«ó ¿ß»«½∞ºπÑΓß∩ º¡áτÑ¡¿Ñ $13. è«ñ ßΓá¡ñáαΓ¡«ú« ó¿ñÑ«αÑª¿¼á, σαá¡∩Θ¿⌐ß∩ ó »ÑαÑ¼Ñ¡¡«⌐ FalseMode, ºá»¿ßδóáÑΓß∩ »ÑαÑñ ¿¡¿µ¿á½¿ºáµ¿Ñ⌐ ¼δΦ¿ »« áñαÑßπ $40:$49. é αÑºπ½∞ΓáΓÑ »α¿ óδº«óÑ Σπ¡¬µ¿¿ "mouse reset" (int $33, ax=0) ñαá⌐óÑα ¼δΦ¿ ó«ß»α¿¡¿¼áÑΓ ΓÑ¬πΘ¿⌐ ó¿ñÑ«αÑª¿¼ ¬á¬ ßΓá¡ñáαΓ¡δ⌐. FillBackGround »ÑαÑ¼Ñ¡¡á∩ GFonts ============================================================================ ÄíΩ∩ó½Ñ¡¿Ñ FillBackground : boolean = true; öπ¡¬µ¿∩ àß½¿ FillBackgrount = true, Γ« »α¿ óδó«ñÑ ΓÑ¬ßΓá Σ«¡«óδÑ »¿¬ßÑ½δ íπñπΓ ºá»«½¡∩Γ∞ß∩ µóÑΓ«¼, ºáñá¡¡δ¼ ó »«ß½Ññ¡Ñ¼ óδº«óÑ »α«µÑñπαδ SetFillStyle. FillBackground := true; SetFillStyle(SolidFill,Yellow); OutText('Text with yellow background'); ...... FillBackGround := false; OutText('Do not fill background'); Fonts »ÑαÑ¼Ñ¡¡á∩ GFonts ============================================================================ ÄíΩ∩ó½Ñ¡¿Ñ Fonts : PCollection; öπ¡¬µ¿∩ ô¬áºáΓÑ½∞ ¡á ¬«½½Ñ¬µ¿ε «íΩÑ¬Γ«ó Σ«¡Γ«ó. è«½½Ñ¬µ¿∩ ß«ºñáÑΓß∩ »α«µÑñπα«⌐ InitFonts. æ¼«Γα¿ Γá¬ªÑ TFont 65 GetNearestColor Σπ¡¬µ¿∩ LowGraph ============================================================================ ÄíΩ∩ó½Ñ¡¿Ñ function GetNearestColor(Count : Integer; rgbRed,rgbGreen,rgbBlue : byte) : byte; öπ¡¬µ¿∩ ä½∩ µóÑΓá, ºáñá¡¡«ú« »áαá¼ÑΓαá¼¿ rgbRed,rgbGreen ¿ rgbBlue, ó«ºóαáΘáÑΓ ¡«¼Ñα ¡á¿í«½ÑÑ »«ñσ«ñ∩ΘÑú« µóÑΓá ¿º ßΓá¡ñáαΓ¡«⌐ »á½¿Γαδ BIOS. Åáαá¼ÑΓα Count ºáñáÑΓ ¬«½¿τÑßΓó« φ½Ñ¼Ñ¡Γ«ó »á½¿Γαδ BIOS, ßαÑñ¿ ¬«Γ«αδσ »α«¿ºó«ñ¿Γß∩ »«¿ß¬. êß»«½∞ºπÑΓß∩ ó ¼«ñπ½Ñ Images ñ½∩ ß«ºñá¡¿∩ Γáí½¿µδ »ÑαÑ¬«ñ¿α«ó¬¿ µóÑΓ«ó ¿º ó¡πΓαÑ¡¡Ñ⌐ »á½¿Γαδ ¿¼»«αΓ¿απÑ¼«ú« úαáΣ¿τÑß¬«ú« Σá⌐½á ó ßΓá¡ñáαΓ¡πε »á½¿Γαπ BIOS. æ¼«Γα¿ Γá¬ªÑ TPaletteType, ConvertPixRow Hot »ÑαÑ¼Ñ¡¡á∩ Eventman ============================================================================ ÄíΩ∩ó½Ñ¡¿Ñ Hot : TPoint = (X : 0, Y :0 ); öπ¡¬µ¿∩ è««αñ¿¡áΓδ ú«α∩τÑú« »∩Γ¡á ¼δΦ¿¡«ú« ¬παß«αá. êß»«½∞ºπÑΓß∩ »α¿ φ¼π½∩µ¿¿ ¬παß«αá »α«µÑñπαá¼¿ «Γ«íαáªÑ¡¿∩ ¬παß«αá. InitEvents »α«µÑñπαá EventMan ============================================================================ ÄíΩ∩ó½Ñ¡¿Ñ procedure InitEvents; öπ¡¬µ¿∩ ê¡¿µ¿á½¿º¿απÑΓ ¼Ñ¡ÑñªÑα ß«íδΓ¿⌐ GraphVision. àß½¿ ñαá⌐óÑα ¼δΦ¿ πßΓá¡«ó½Ñ¡ ¿ EmulateMouseCursor = true, »ÑαÑσóáΓδóáÑΓ óÑ¬Γ«α »αÑαδóá¡¿∩ int $33 ¿ πßΓá¡áó½¿óáÑΓ ß«íßΓóÑ¡¡πε »«ñ»α«úαá¼¼π «íαáí«Γ¬¿ «íαáΘÑ¡¿⌐ ¬ Σπ¡¬µ¿∩¼ π»αáó½Ñ¡¿∩ ¼δΦ∞ε. æ¼«Γα¿ Γá¬ªÑ EmulateMouseCursor, FalseMode InitFonts »α«µÑñπαá GFonts ============================================================================ ÄíΩ∩ó½Ñ¡¿Ñ procedure InitFonts; öπ¡¬µ¿∩ ê¡µ¿á½¿º¿απÑΓ ¬«½½Ñ¬µ¿ε Σ«¡Γ«ó, ñ«íáó½∩ÑΓ ó ¡ÑÑ «íΩÑ¬Γ Γ¿»á TDefaultBGIFont (Γá¬ τΓ« Σ«¡Γ DefaultFont óßÑúñá »α¿ßπΓßΓóπÑΓ, ¿ ß««ΓóÑΓßóπεΘ¿⌐ Ñ¼π «íΩÑ¬Γ ó ¬«½½Ñ¬µ¿¿ Σ«¡Γ«ó ¿¼ÑÑΓ ¡«¼Ñα 0), «»αÑñÑ½∩ÑΓ ¬«½¿τÑßΓó« óßΓα«Ñ¡¡δσ Σ«¡Γ«ó,óδºδóá∩ Σπ¡¬µ¿ε GetMaxFont, ¿ ñ½∩ ¬áªñ«ú« ¿º φΓ¿σ Σ«¡Γ«ó óδºδóáÑΓ »α«µÑñπαπ GetFontParams, ß«ºñáÑΓ «íΩÑ¬Γ Γ¿»á TBiosFont (¿½¿ T8x8BiosFont ñ½∩ Σ«¡Γá 8σ8) ¿ ñ«íáó½∩ÑΓ φΓ«Γ «íΩÑ¬Γ ó ¬«½½Ñ¬µ¿ε Σ«¡Γ«ó. 66 InitVideo »α«µÑñπαá GrDriver ============================================================================ ÄíΩ∩ó½Ñ¡¿Ñ procedure InitVideo; öπ¡¬µ¿∩ ê¡¿µ¿á½¿º¿απÑΓ úαáΣ¿τÑß¬πε »«ñß¿ßΓÑ¼π ¿ πßΓá¡áó½¿óáÑΓ ΓαÑíπÑ¼δ⌐ ó¿ñÑ«αÑª¿¼. éδ»«½¡∩εΓß∩ ß½ÑñπεΘ¿Ñ ñÑ⌐ßΓó¿∩: 1. ôßΓá¡áó½¿óÑΓ ñαá⌐óÑαδ, ¿¼Ñ¡á ¬«Γ«αδσ π¬áºá¡δ ó ¼áßß¿óÑ VesaDriverNames; 2. éδºδóáÑΓß∩ »α«µÑñπαá αÑú¿ßΓαáµ¿¿ ñαá⌐óÑα«ó, Ñß½¿ «¡á «»αÑñÑ½Ñ¡á 3. éδºδóáÑΓß∩ »α«µÑñπαá InitGraph, ¬«Γ«αá∩ πßΓá¡áó½¿óáÑΓ ¡Ñ«íσ«ñ¿¼δ⌐ ó¿ñÑ«αÑª¿¼. 4. é ºáó¿ß¿¼«ßΓ¿ «Γ ¿ß»«½∞ºπÑ¼«ú« αÑª¿¼á πßΓá¡áó½¿óáεΓß∩ º¡áτÑ¡¿∩ ß½ÑñπεΘ¿σ »ÑαÑ¼Ñ¡¡δσ: SwitchBank, ScreenWidth, ScreenHeight, BitPerPlane, Planes BytesPerLine àß½¿ »α¿ ¿¡¿µ¿á½¿ºáµ¿¿ úαáΣ¿τÑß¬«⌐ »«ñß¿ßΓÑ¼δ »α«¿º«Φ½á «Φ¿í¬á, ¡á φ¬αá¡ óδó«ñ¿Γß∩ ß««ΓóÑΓßΓóπεΘÑÑ ß««íΘÑ¡¿Ñ ¿ »α«úαá¼¼á áóáα¿⌐¡« ºáóÑαΦáÑΓß∩. LockMouseCursor »ÑαÑ¼Ñ¡¡á∩ Grav ============================================================================ ÄíΩ∩ó½Ñ¡¿Ñ LockMouseCursor : word = 0; öπ¡¬µ¿∩ ö½áú ó«º¼«ª¡«ßΓ¿ ¿º¼Ñ¡Ñ¡¿∩ Σ«α¼δ ¼δΦ¿¡«ú« ¬παß«αá. àß½¿ LockMouseCursor = 0, Γ« ¿º¼Ñ¡Ñ¡¿Ñ Σ«α¼δ ¬παß«αá αáºαÑΦÑ¡«. MinWinSize »ÑαÑ¼Ñ¡¡á∩ Grav ============================================================================ ÄíΩ∩ó½Ñ¡¿Ñ MinWinSize: TPoint = (X: 124; Y: 84); öπ¡¬µ¿∩ Ä»αÑñÑ½∩ÑΓ ¼¿¡¿¼á½∞¡δ⌐ αáº¼Ñα «¬¡á. 67 MouseInRect Σπ¡¬µ¿∩ EventMan ============================================================================ ÄíΩ∩ó½Ñ¡¿Ñ function MouseInRect(Bounds : TRect) : boolean; öπ¡¬µ¿∩ é«ºóαáΘáÑΓ true, Ñß½¿ ¬παß«α ¼δΦ¿ »«½¡«ßΓ∞ε ¿½¿ τáßΓ¿τ¡« ¡áσ«ñ¿Γß∩ ó «í½áßΓ¿ Bounds. Åáαá¼ÑΓα Bounds ñ«½ªÑ¡ ß«ñÑαªáΓ∞ ú½«íá½∞¡δÑ (φ¬αá¡¡δÑ) ¬««αñ¿¡áΓδ. Åα¿¼Ñα ... GetExtent(R); with R do begin MakeGlobal(A,A); MakeGlobal(B,B); end; if MouseInRect(R) then HideMouse; ... MouseOwner »ÑαÑ¼Ñ¡¡á∩ Grav ============================================================================ ÄíΩ∩ó½Ñ¡¿Ñ MouseOwner : PGraphView = nil; öπ¡¬µ¿∩ ô¬áºáΓÑ½∞ ¡á ó¿ñ¿¼δ⌐ φ½Ñ¼Ñ¡Γ, ó úαá¡¿µáσ ¬«Γ«α«ú« ó ñá¡¡δ⌐ ¼«¼Ñ¡Γ ¡áσ«ñ¿Γß∩ ¼δΦ∞. MouseShape »ÑαÑ¼Ñ¡¡á∩ EventMan ============================================================================ ÄíΩ∩ó½Ñ¡¿Ñ MouseShape : pointer = nil; öπ¡¬µ¿∩ ô¬áºáΓÑ½∞ ¡á ΓÑ¬πΘ¿⌐ «íαáº ¼δΦ¿¡«ú« ¬παß«αá. MoveBlock »α«µÑñπαá GrDriver ============================================================================ ÄíΩ∩ó½Ñ¡¿Ñ procedure MoveBlock(X1,Y1,X2,Y2 : integer; DeltaX,DeltaY : integer); öπ¡¬µ¿∩ è«»¿απÑΓ í½«¬ »¿¬ßÑ½«ó, úαá¡¿µδ ¬«Γ«α«ú« ºáñá¡δ »áαá¼ÑΓαá¼¿ X1,Y1,X2 ¿ Y2. è«ααñ¿¡áΓδ ºáñáεΓß∩ «Γ¡«ß¿ΓÑ½∞¡« ΓÑ¬πΘÑ⌐ «í½áßΓ¿ óδó«ñá. Åáαá¼ÑΓαδ DeltaX ¿ DeltaY ºáñáεΓ αáßßΓ«∩¡¿Ñ ¿ ¡á»αáó½Ñ¡¿Ñ »ÑαÑ¡«ßá. éδ»«½¡∩ÑΓß∩ «ΓßÑτÑ¡¿Ñ ¡á úαá¡¿µÑ ΓÑ¬πΘÑ⌐ «í½áßΓ¿ óδó«ñá. æ¼«Γα¿ Γá¬ªÑ MovePixels 68 MovePixels »α«µÑñπαá LowGraph ============================================================================ ÄíΩ∩ó½Ñ¡¿Ñ procedure MovePixels(X1,Y1,X2,Y2 : integer; DeltaX,DeltaY : integer); öπ¡¬µ¿∩ è«»¿απÑΓ í½«¬ »¿¬ßÑ½«ó, úαá¡¿µδ ¬«Γ«α«ú« ºáñá¡δ »áαá¼ÑΓαá¼¿ X1,Y1,X2 ¿ Y2. è««αñ¿¡áΓδ ºáñáεΓß∩ «Γ¡«ß¿ΓÑ½∞¡« úαá¡¿µ φ¬αá¡á. Åáαá¼ÑΓαδ DeltaX ¿ DeltaY ºáñáεΓ αáßßΓ«∩¡¿Ñ ¿ ¡á»αáó½Ñ¡¿Ñ »ÑαÑ¡«ßá. ÅαÑñ»«½áúáÑΓß∩, τΓ« ¬á¬ ¿ßσ«ñ¡δÑ, Γá¬ ¿ ¡«óδÑ ¬««αñ¿¡áΓδ ¡áσ«ñ∩Γß∩ ó úαá¡¿µáσ φ¬αá¡á. ofXXXXXX ¬«¡ßΓá¡Γδ Grav ============================================================================ öπ¡¬µ¿∩ ì«óδÑ Σ½áú¿ ñ½∩ »«½∩ GraphView.Options ç¡áτÑ¡¿∩ è«¡ßΓá¡Γá ìáº¡áτÑ¡¿Ñ -------------------------------------------------------------- ofNoDrawSelect é¿ñ¿¼δ⌐ φ½Ñ¼Ñ¡Γ ¡Ñ »ÑαÑα¿ß«óδóáÑΓß∩ »α¿ óδí«αÑ ofResizeable é¿ñ¿¼δ⌐ φ½Ñ¼Ñ¡Γ ¼«ªÑΓ ¿º¼Ñ¡∩Γ∞ αáº¼Ñα ofMoveable é¿ñ¿¼δ⌐ φ½Ñ¼Ñ¡Γ ¼«ªÑΓ íδΓ∞ »ÑαÑ¼ÑΘÑ¡ OutText »α«µÑñπαá GFonts ============================================================================ ÄíΩ∩ó½Ñ¡¿Ñ procedure OutText(S : String); öπ¡¬µ¿∩ éδó«ñ¿Γ ¡á φ¬αá¡ ßΓα«¬π ΓÑ¬ßΓá ¡áτ¿¡á∩ ß ΓÑ¬πΘÑ⌐ »«º¿µ¿¿ ¡á φ¬αá¡Ñ ¿ ¿ß»«½∞ºπ∩ ΓÑ¬πΘ¿⌐ Σ«¡Γ ¿º ¬«½½Ñ¬µ¿¿ Σ«¡Γ«ó. Ç¡á½«ú¿τ¡á óδº«óπ PFont(Fonts^.At(CurrentFont))^.OutText(S); æ¼«Γα¿ Γá¬ªÑ TFont.OutText, CurrentFont, Fonts OutTextXY »α«µÑñπαá GFonts ============================================================================ ÄíΩ∩ó½Ñ¡¿Ñ procedure OutTextXY(Location : TPoint; S : String); öπ¡¬µ¿∩ éδó«ñ¿Γ ¡á φ¬αá¡ ßΓα«¬π ΓÑ¬ßΓá, ¡áτ¿¡á∩ ß »«º¿µ¿¿ Location ¿ ¿ß»«½∞ºπ∩ ΓÑ¬πΘ¿⌐ Σ«¡Γ ¿º ¬«½½Ñ¬µ¿¿ Σ«¡Γ«ó. Ç¡á½«ú¿τ¡á óδº«óπ PFont(Fonts^.At(CurrentFont))^.OutTextXY(Location,S); æ¼«Γα¿ Γá¬ªÑ TFont.OutText, CurrentFont, Fonts 69 Planes »ÑαÑ¼Ñ¡¡á∩ LowGraph ============================================================================ ÄíΩ∩ó½Ñ¡¿Ñ Planes : integer; öπ¡¬µ¿∩ è«½¿τÑßΓó« í¿Γ«óδσ ¬áαΓ ó ó¿ñÑ«»á¼∩Γ¿ ñ½∩ ΓÑ¬πΘÑú« αÑª¿¼á. ôßΓá¡áó½¿óáÑΓß∩ ó« óαÑ¼∩ ¿¡¿µ¿á½¿ºáµ¿¿ ó¿ñÑ«αÑª¿¼á. RegisterProc »ÑαÑ¼Ñ¡¡á∩ GrDriver ============================================================================ ÄíΩ∩ó½Ñ¡¿Ñ RegisterProc : procedure = nil; öπ¡¬µ¿∩ ô¬áºáΓÑ½∞ ¡á »α«µÑñπαπ αÑú¿ßΓαáµ¿¿ BGI ñαá⌐óÑα«ó. Åα«µÑñπαá InitVideo »α«óÑα∩ÑΓ º¡áτÑ¡¿Ñ φΓ«⌐ »α«µÑñπα¡«⌐ »ÑαÑ¼Ñ¡¡«⌐, ¿ Ñß½¿ º¡áτÑ¡¿Ñ ¡Ñ αáó¡« nil, óδºδóáÑΓß∩ ßó∩ºá¡¡á∩ ß »ÑαÑ¼Ñ¡¡«⌐ »α«µÑñπαá αÑú¿ßΓαáµ¿¿. procedure MyRegisterProc; begin ... end; begin RegisterProc := MyRegisterProc; ... InitVideo; ... end; æ¼«Γα¿ «»¿ßá¡¿Ñ »α«µÑñπαδ InitVideo. ScreenHeight »ÑαÑ¼Ñ¡¡á∩ LowGraph ============================================================================ ÄíΩ∩ó½Ñ¡¿Ñ ScreenHeight : integer; öπ¡¬µ¿∩ òαá¡¿Γ óδß«Γπ φ¬αá¡á ó »¿¬ßÑ½áσ. ôßΓá¡áó½¿óáÑΓß∩ ó« óαÑ¼∩ ¿¡¿µ¿á½¿ºáµ¿¿ ó¿ñÑ«αÑª¿¼á. ScreenWidth »ÑαÑ¼Ñ¡¡á∩ LowGraph ============================================================================ ÄíΩ∩ó½Ñ¡¿Ñ ScreenWidth : integer; öπ¡¬µ¿∩ òαá¡¿Γ Φ¿α¿¡π φ¬αá¡á ó »¿¬ßÑ½áσ. ç¡áτÑ¡¿Ñ »α¿ßóá¿óáÑΓß∩ ó« óαÑ¼∩ ¿¡¿µ¿á½¿ºáµ¿¿ ó¿ñÑ«αÑª¿¼á. 70 SelectFont »α«µÑñπαá GFonts ============================================================================ ÄíΩ∩ó½Ñ¡¿Ñ procedure SelectFont(Font : integer); öπ¡¬µ¿∩ àß½¿ Σ«¡Γ ß ¡«¼Ñα«¼ Font »α¿ßπΓßΓóπÑΓ ó ¬«½½Ñ¬µ¿¿ Σ«¡Γ«ó, Γ« «¡ ßΓá¡«ó¿Γß∩ ΓÑ¬πΘ¿¼ (»ÑαÑ¼Ñ¡¡«⌐ CurrentFont »α¿ßóá¿óáÑΓß∩ º¡áτÑ¡¿Ñ Font). àß½¿ óδ ¿ß»«½∞ºπÑΓÑ BGI Σ«¡Γδ, Γ« φΓ«⌐ »α«µÑñπα«⌐ ½πτΦÑ ¡Ñ »«½∞º«óáΓ∞ß∩. é¼ÑßΓ« ¡ÑÑ ¡πª¡« ¿ß»«½∞º«óáΓ∞ »α«µÑñπαπ SetTextStyle(ß¼. ¡¿ªÑ) SetExclusiveArea »α«µÑñπαá EventMan ============================================================================ ÄíΩ∩ó½Ñ¡¿Ñ procedure SetExclusiveArea(Bounds : TRect); öπ¡¬µ¿∩ ôßΓá¡áó½¿óáÑΓ ¬««αñ¿¡áΓδ «í½áßΓ¿ φ¬αá¡á, ó ¬«Γ«α«⌐ ºá»αÑΘÑ¡« »«∩ó½Ñ¡¿Ñ ¼δΦ¿¡«ú« ¬παß«αá. Åα¿ »«»áñá¡¿¿ ó φΓπ «í½áßΓ∞ ¬παß«α íπñÑΓ »«úáΦÑ¡. SetMouseCursor »α«µÑñπαá EventMan ============================================================================ ÄíΩ∩ó½Ñ¡¿Ñ procedure SetMouseShape(HotSpot,Size : TPoint; Shape : pointer); öπ¡¬µ¿∩ êº¼Ñ¡∩ÑΓ Σ«α¼π ¼δΦ¿¡«ú« ¬παß«αá. Åáαá¼ÑΓα Shape ∩ó½∩ÑΓß∩ π¬áºáΓÑ½Ñ¼ ¡á «íαáº ¡«ó«ú« ¬παß«αá. Åáαá¼ÑΓα HotSpot ºáñáÑΓ ¬««αñ¿¡áΓδ "ú«α∩τÑú« »∩Γ¡á" ó «íαáºÑ ¬παß«αá. Åáαá¼ÑΓα Size óßÑúñá ñ«½ªÑ¡ ß«ñÑαªáΓ∞ º¡áτÑ¡¿Ñ (16,16), »«ß¬«½∞¬π ó ñá¡¡«⌐ óÑαß¿¿ GraphVision »«ññÑαª¿óáεΓß∩ Γ«½∞¬« ¬παß«αδ αáº¼Ñαá 16x16. SetTextStyle »α«µÑñπαá GFonts ============================================================================ ÄíΩ∩ó½Ñ¡¿Ñ procedure SetTextStyle(Font,Direction : word; CharSize : word); öπ¡¬µ¿∩ äÑ½áÑΓ Σ«¡Γ Font ΓÑ¬πΘ¿¼, óδºδóá∩ »α«µÑñπαπ SelectFont, ºáΓÑ¼ óδºδóáÑΓ ¼ÑΓ«ñ SetTextStyle ΓÑ¬πΘÑú« Σ«¡Γá: PFont(Fonts^.At(CurrentFont))^.SetTextStyle(Direction,CharSize); æ¼«Γα¿ Γá¬ªÑ TFont.SetTextStyle, CurrentFont, Fonts 71 SetupMethods16 »α«µÑñπαá LowGraph ============================================================================ ÄíΩ∩ó½Ñ¡¿Ñ procedure SetupMethods16 öπ¡¬µ¿∩ æ½πªÑí¡á∩ »α«µÑñπαá, óδºδóáÑΓß∩ »α«µÑñπα«⌐ InitVideo »α¿ ¿¡¿µ¿á½¿ºáµ¿¿ 16-µóÑΓ¡δσ αÑª¿¼«ó. SetupMethods256 »α«µÑñπαá LowGraph ============================================================================ ÄíΩ∩ó½Ñ¡¿Ñ procedure SetupMethods256 öπ¡¬µ¿∩ æ½πªÑí¡á∩ »α«µÑñπαá, óδºδóáÑΓß∩ »α«µÑñπα«⌐ InitVideo »α¿ ¿¡¿µ¿á½¿ºáµ¿¿ 256-µóÑΓ¡δσ αÑª¿¼«ó. SetWriteMode »α«µÑñπαá GrDriver ============================================================================ ÄíΩ∩ó½Ñ¡¿Ñ procedure SetWriteMode(WriteMode : integer); öπ¡¬µ¿∩ ôßΓá¡áó½¿óáÑΓ αÑª¿¼ ºá»¿ß¿ ó ó¿ñÑ«»á¼∩Γ∞ ñ½∩ «»Ñαáµ¿⌐ α¿ß«óá¡¿∩. Ç¡á½«ú »α«µÑñπαδ SetWriteMode ¿º ¼«ñπ½∩ Graph, ¡« ñ«»«½¡¿ΓÑ½∞¡« ß«σαá¡∩ÑΓ ¬«ñ αÑª¿¼á ºá»¿ß¿ ó »ÑαÑ¼Ñ¡¡«⌐ Mode, ¬«Γ«αá∩ ¿ß»«½∞ºπÑΓß∩ ¡Ñ¬«Γ«αδ¼¿ »α«µÑñπαá¼¿ ¿º ¼«ñπ½∩ LowGraph. StdResource »ÑαÑ¼Ñ¡¡á∩ ExtObj ============================================================================ ÄíΩ∩ó½Ñ¡¿Ñ StdResource : PResourceFile = nil; ô¬áºáΓÑ½∞ ¡á Σá⌐½ ßΓá¡ñáαΓ¡δσ αÑßπαß«ó. StdSharedResource »ÑαÑ¼Ñ¡¡á∩ ExtObj ============================================================================ ÄíΩ∩ó½Ñ¡¿Ñ StdSharedResource : PSharedResource = nil; ô¬áºáΓÑ½∞ ¡á ¬«½½Ñ¬µ¿ε αáºñÑ½∩Ñ¼δσ αÑßπαß«ó. SwitchBank »ÑαÑ¼Ñ¡¡á∩ LowGraph ============================================================================ ÄíΩ∩ó½Ñ¡¿Ñ SwitchBank : boolean = false; öπ¡¬µ¿∩ ôßΓá¡áó½¿óáÑΓß∩ ó« óαÑ¼∩ ¿¡¿µ¿á½¿ºáµ¿¿ ó¿ñÑ«αÑª¿¼á. àß½¿ SwitchBank = true, Γ« ΓαÑíπÑΓß∩ »ÑαÑ¬½ετÑ¡¿Ñ íá¡¬«ó ó¿ñÑ«»á¼∩Γ¿ »α¿ «»Ñαáµ¿∩σ α¿ß«óá¡¿∩. 72 SystemFont »ÑαÑ¼Ñ¡¡á∩ GFonts ============================================================================ ÄíΩ∩ó½Ñ¡¿Ñ SystemFont : integer = 0; öπ¡¬µ¿∩ ì«¼Ñα Σ«¡Γá ó ¬«½½Ñ¬µ¿¿ Σ«¡Γ«ó, ¿ß»«½∞ºπÑ¼«ú« ¬á¬ ß¿ßΓÑ¼¡δ⌐ Σ«¡Γ. æ¿ßΓÑ¼¡δ⌐ Σ«¡Γ ¿ß»«½∞ºπÑΓß∩ ñ½∩ óδó«ñá ΓÑ¬ßΓá ó ¼Ñ¡ε, ßΓα«¬Ñ ß«ßΓ«∩¡¿∩ ¿ ñ¿á½«úáσ. TextHeight Σπ¡¬µ¿∩ GFonts ============================================================================ ÄíΩ∩ó½Ñ¡¿Ñ function TextHeight(S : string) : integer; öπ¡¬µ¿∩ ä½∩ ΓÑ¬πΘÑú« Σ«¡Γá ó«ºóαáΘáÑΓ óδß«Γπ ΓÑ¬ßΓá. Ç¡á½«ú¿τ¡á óδº«óπ PFont(Fonts^.At(CurrentFont))^.TextHeight(S); æ¼«Γα¿ Γá¬ªÑ TFont.TextHeight, Fonts, CurrentFont TextWidth Σπ¡¬µ¿∩ GFonts ============================================================================ ÄíΩ∩ó½Ñ¡¿Ñ function TextWidth(S : String) : integer; öπ¡¬µ¿∩ ä½∩ ΓÑ¬πΘÑú« Σ«¡Γá ó«ºóαáΘáÑΓ Φ¿α¿¡π ΓÑ¬ßΓá ó »¿¬ßÑ½áσ. Ç¡á½«ú¿τ¡á óδº«óπ PFont(Fonts^.At(CurrentFont))^.TextWidth(S); æ¼«Γα¿ Γá¬ªÑ TFont.TextWidth, Fonts, CurrentFont TPaletteType Γ¿» LowGraph ============================================================================ ÄíΩ∩ó½Ñ¡¿Ñ TPaletteType = record Size : word; Colors : array[0..255] of byte; end; öπ¡¬µ¿∩ çá»¿ß¿ Γ¿»á TPaletteType ¿ß»«½∞ºπεΓß∩ ó «ß¡«ó¡«¼ ¬á¬ Γáí½¿µδ »ÑαÑ¬«ñ¿α«ó¬¿ ñ½∩ »αÑ«íαáº«óá¡¿∩ »á½¿Γα ¿¼»«αΓ¿απÑ¼δσ «íαáº«ó ó ßΓá¡ñáαΓ¡πε »á½¿Γαπ BIOS. æ¼«Γα¿ Γá¬ªÑ «»¿ßá¡¿∩ Σπ¡¬µ¿¿ GetNearestColor ¿ »α«µÑñπαδ ConvertPixRow. 73 Vesa16Modes ¼áßß¿ó GrDriver ============================================================================ ÄíΩ∩ó½Ñ¡¿Ñ Vesa16Modes : array[0..2] of integer = (Vesa16_800x600,Vesa16_1024x768,Vesa16_1280x1024); öπ¡¬µ¿∩ ì«¼Ñαá αÑª¿¼«ó Vesa 16 µóÑΓ«ó ñ½∩ ¿ß»«½∞ºπÑ¼«ú« ñαá⌐óÑαá. Å«ß¬«½∞¬π «ñ¡¿ ¿ ΓÑ ªÑ αÑª¿¼δ ó αáº¡δσ ñαá⌐óÑαáσ ¼«úπΓ ¿¼ÑΓ∞ αáº¡δÑ ¡«¼Ñαá, ¼áßß¿ó Vesa16Modes ¿ß»«½∞ºπÑΓß∩ ñ½∩ »ÑαÑ¬«ñ¿α«ó¬¿ ¡«¼Ñαá αÑª¿¼á GraphVision ó ß««ΓóÑΓßΓóπεΘ¿⌐ ¡«¼Ñα αÑª¿¼á ¿ß»«½∞ºπÑ¼«ú« ñαá⌐óÑαá. îáßß¿ó αÑª¿¼«ó ¿ß»«½∞ºπÑΓß∩ »α«µÑñπα«⌐ InitVideo »α¿ ¿¡¿¿µ¿á½¿ºáµ¿¿ úαáΣ¿τÑß¬«⌐ »«ñß¿ßΓÑ¼δ. ç¡áτÑ¡¿∩ φ½Ñ¼Ñ¡Γá¼ ¼áßß¿óá ñ«½ª¡δ íδΓ∞ »α¿ßó«Ñ¡δ ñ« óδº«óá »α«µÑñπαδ InitVideo: Vesa16Modes[0] := 16; Vesa16Modes[1] := 17; Vesa16Modes[2] := 18; ..... InitVideo; Vesa256Modes ¼áßß¿ó GrDriver ============================================================================ ÄíΩ∩ó½Ñ¡¿Ñ Vesa256Modes : array[0..4] of integer = (Vesa256_640x400, Vesa256_640x480, Vesa256_800x600, Vesa256_1024x768,Vesa256_1280x1024); öπ¡¬µ¿∩ ì«¼Ñαá αÑª¿¼«ó Vesa 256 µóÑΓ«ó ñ½∩ ¿ß»«½∞ºπÑ¼«ú« ñαá⌐óÑαá. Å«ß¬«½∞¬π «ñ¡¿ ¿ ΓÑ ªÑ αÑª¿¼δ ó αáº¡δσ ñαá⌐óÑαáσ ¼«úπΓ ¿¼ÑΓ∞ αáº¡δÑ ¡«¼Ñαá, ¼áßß¿ó Vesa256Modes ¿ß»«½∞ºπÑΓß∩ ñ½∩ »ÑαÑ¬«ñ¿α«ó¬¿ ¡«¼Ñαá αÑª¿¼á GraphVision ó ß««ΓóÑΓßΓóπεΘ¿⌐ ¡«¼Ñα αÑª¿¼á ¿ß»«½∞ºπÑ¼«ú« ñαá⌐óÑαá. îáßß¿ó αÑª¿¼«ó ¿ß»«½∞ºπÑΓß∩ »α«µÑñπα«⌐ InitVideo »α¿ ¿¡¿¿µ¿á½¿ºáµ¿¿ úαáΣ¿τÑß¬«⌐ »«ñß¿ßΓÑ¼δ. ç¡áτÑ¡¿∩ φ½Ñ¼Ñ¡Γá¼ ¼áßß¿óá ñ«½ª¡δ íδΓ∞ »α¿ßó«Ñ¡δ ñ« óδº«óá »α«µÑñπαδ InitVideo: Vesa256Modes[0] := 21; Vesa256Modes[1] := 22; ..... InitVideo; VesaDriverNames ¼áßß¿ó GrDriver ============================================================================ ÄíΩ∩ó½Ñ¡¿Ñ VesaDriverNames : array[1..2] of string[20] = ('Vesa16',''); öπ¡¬µ¿∩ îáßß¿ó ¿¼Ñ¡ ñαá⌐óÑα«ó ñ½∩ αÑª¿¼«ó VESA 16 ¿ 256 µóÑΓ«ó. êß»«½∞ºπÑΓß∩ »α«µÑñπα«⌐ InitVideo »α¿ πßΓá¡«ó¬Ñ ¿ αÑú¿ßΓαáµ¿¿ ñαá⌐óÑα«ó ó úαáΣ¿τÑß¬«⌐ »α«ñß¿ßΓÑ¼Ñ. Å« º¡áτÑ¡¿ε »ÑαÑ¼Ñ¡¡«⌐ DriverType «»αÑñÑ½∩ÑΓß∩ ¿¼∩ ¿ß»«½∞ºπÑ¼«ú« ñαá⌐óÑαá, ¬«Γ«α«Ñ »ÑαÑñáÑΓß∩ »α«µÑñπαÑ InstallUserDriver ¬á¬ »áαá¼ÑΓα. 74 Å« π¼«½τá¡¿ε ßτ¿ΓáÑΓß∩, τΓ« ñ½∩ αÑª¿¼«ó Vesa 16 µóÑΓ«ó ¿ß»«½∞ºπÑΓß∩ ñαá⌐óÑα Vesa16.bgi, óσ«ñ∩Θ¿⌐ ó ß«ßΓáó Turbo Pascal, á ¿¼∩ ñαá⌐óÑαá ñ½∩ αÑª¿¼«ó Vesa 256 µóÑΓ«ó ¡Ñ «»αÑñÑ½Ñ¡«. Äñ¡á¬« óδ ¼«ªÑΓÑ ¿ß»«½∞º«óáΓ∞ ½εíδÑ ñ«ßΓπ»¡δÑ ñαá⌐óÑαδ, »«ññÑαª¿óáεΘ¿Ñ αÑª¿¼δ Vesa 16 ¿ 256 µóÑΓ«ó. Åα«ßΓ« »ÑαÑ«»αÑñÑ½¿ΓÑ ¿¼∩ ¿ß»«½∞ºπÑ¼«ú« ñαá⌐óÑαá: VesaDriverNames[Vesa16] := 'MyVesa16'; VesaDriverNames[Vesa256] := 'Svga'; wfXXXXXX ¬«¡ßΓá¡Γδ Grav ============================================================================ öπ¡¬µ¿∩ ì«óδÑ ¼áß¬¿ ñ½∩ »«½∩ GraphWindow.Flags ç¡áτÑ¡¿∩ ¬«¡ßΓá¡Γá ß¼δß½ -------------------------------------------------------------- wfThickFrame Ä¬¡« ¿¼ÑÑΓ Φ¿α«¬πε αá¼¬π wfThinFrame Ä¬¡« ¿¼ÑÑΓ Γ«¡¬πε αá¼¬π wfFramed Ä¬¡« ¿¼ÑÑΓ αá¼¬π wfTitle Ä¬¡« ¿¼ÑÑΓ ºáú«½«ó«¬ Xms_Addr »ÑαÑ¼Ñ¡¡á∩ Xms ============================================================================ ÄíΩ∩ó½Ñ¡¿Ñ Xms_Addr : pointer = nil; öπ¡¬µ¿∩ æ«ñÑαª¿Γ áñαÑß Γ«τ¬¿ óσ«ñá ñ¿ß»ÑΓτÑαá XMS »á¼∩Γ¿. àß½¿ Xms_Addr = nil, φΓ« «º¡áτáÑΓ, τΓ« XMS »á¼∩Γ∞ «ΓßπΓßΓóπÑΓ ¿½¿ ¡Ñ íδ½á ¿¡¿µ¿á½¿º¿α«óá¡á. Xms_FreeMem »α«µÑñπαá Xms ============================================================================ ÄíΩ∩ó½Ñ¡¿Ñ procedure Xms_FreeMem(Handle : word); öπ¡¬µ¿∩ Äßó«í«ªñáÑΓ í½«¬ αáßΦ¿αÑ¡¡«⌐ »á¼∩Γ¿, αáß»αÑñÑ½Ñ¡¡δ⌐ αá¡ÑÑ Σπ¡¬µ¿Ñ⌐ Xms_GetMem ¿ ßó∩ºá¡¡δ⌐ ß ñÑß¬α¿»Γ«α«¼ Handle. è«ñ ºáóÑαΦÑ¡¿∩ «»Ñαáµ¿¿ ß«σαá¡∩ÑΓß∩ ó »ÑαÑ¼Ñ¡¡«⌐ Xms_Status. Xms_GetMem Σπ¡¬µ¿∩ Xms =========================================================================== ÄíΩ∩ó½Ñ¡¿Ñ function Xms_GetMem(Size : word) : word; öπ¡¬µ¿∩ éδñÑ½∩ÑΓ í½«¬ αáßΦ¿αÑ¡¡«⌐ »á¼∩Γ¿. Éáº¼Ñα í½«¬á Size ºáñáÑΓß∩ í½«¬áσ »« 1024 íá⌐Γ. é«ºóαáΘáÑΓ ñÑß¬α¿»Γ«α í½«¬á, Ñß½¿ í½«¬ πß»ÑΦ¡« óδñÑ½Ñ¡, ¿½¿ 0 ó »α«Γ¿ó¡«¼ ß½πτáÑ. è«ñ ºáóÑαΦÑ¡¿∩ «»Ñαáµ¿¿ ß«σαá¡∩ÑΓß∩ ó »«½Ñ Xms_Status. 75 Xms_Init Σπ¡¬µ¿∩ Xms ============================================================================ ÄíΩ∩ó½Ñ¡¿Ñ function Xms_Init : boolean; öπ¡¬µ¿∩ Ä»αÑñÑ½∩ÑΓ ¡á½¿τ¿Ñ ñαá⌐óÑαá XMS »á¼∩Γ¿. é«ºóαáΘáÑΓ True, Ñß½¿ ñαá⌐óÑα ¡áσ«ñ¿Γß∩ ó »á¼∩Γ¿, á Γá¬ªÑ ß«σαá¡∩ÑΓ ó »ÑαÑ¼Ñ¡¡«⌐ Xms_Addr áñαÑß ñ¿ß»ÑΓτÑαá αáßΦ¿αÑ¡¡«⌐ »á¼∩Γ¿. Xms_Initialized »ÑαÑ¼Ñ¡¡á∩ Xms ============================================================================ ÄíΩ∩ó½Ñ¡¿Ñ Xms_Initialized : boolean = false; öπ¡¬µ¿∩ ö½áú ¡á½¿τ¿∩ XMS »á¼∩Γ¿. àß½¿ Xms_Initialized = false, φΓ« «º¡áτáÑΓ, τΓ« XMS »á¼∩Γ∞ «ΓßπΓßΓóπÑΓ ¿½¿ ¡Ñ íδ½á ¿¡¿µ¿á½¿º¿α«óá¡á. Xms_MaxAvail Σπ¡¬µ¿∩ Xms ============================================================================ ÄíΩ∩ó½Ñ¡¿Ñ function Xms_MaxAvail : word; öπ¡¬µ¿∩ é«ºóαáΘáÑΓ αáº¼Ñα ¼á¬ß¿¼á½∞¡«ú« ßó«í«ñ¡«ú« í½«¬á ó ¬¿½«íá⌐Γáσ. è«ñ ºáóÑαΦÑ¡¿∩ «»Ñαáµ¿¿ ß«σαá¡∩ÑΓß∩ ó »«½Ñ Xms_Status. Xms_MemAvali Σπ¡¬µ¿∩ Xms ============================================================================ ÄíΩ∩ó½Ñ¡¿Ñ function Xms_MemAvali : word; öπ¡¬µ¿∩ é«ºóαáΘáÑΓ αáº¼Ñα ßó«í«ñ¡«⌐ αáßΦ¿αÑ¡¡«⌐ »á¼∩Γ¿ ó ¬¿½«íá⌐Γáσ. è«ñ ºáóÑαΦÑ¡¿∩ «»Ñαáµ¿¿ ß«σαá¡∩ÑΓß∩ ó »«½Ñ Xms_Status. 76 Xms_MoveMem »α«µÑñπαá Xms ============================================================================ ÄíΩ∩ó½Ñ¡¿Ñ procedure Xms_MoveMem(Source : pointer; SHandle : word; Dest : pointer; DHandle : word; Count : LongInt); öπ¡¬µ¿∩ ÅÑαÑßδ½¬á ñá¡¡δσ ¿º/ó αáßΦ¿αÑ¡¡πε »á¼∩Γ∞. Åáαá¼ÑαΓδ: SHandle - ñÑß¬α¿»Γ«α í½«¬á-¿ßΓ«τ¡¿¬á; DHandle - ñÑß¬α¿»Γ«α í½«¬á-»α¿Ñ¼¡¿¬á; Source - 32-αáºα∩ñ¡«Ñ ß¼ÑΘÑ¡¿Ñ ó¡πΓα¿ í½«¬á-¿ßΓ«τ¡¿¬á ñ« »Ñαó«ú« »ÑαÑßδ½áÑ¼«ú« íá⌐Γá. Dest - 32-αáºα∩ñ¡«Ñ ß¼ÑΘÑ¡¿Ñ ó¡πΓα¿ í½«¬á-»α¿Ñ¼¡¿¬á. Count - ¬«½¿τÑßΓó« »ÑαÑßδ½áÑ¼δσ íá⌐Γ«ó. àß½¿ SHandle = 0, Γ« Source ¿¡ΓÑα»αÑΓ¿απÑΓß∩ ¬á¬ π¬áºáΓÑ½∞ ó ßΓá¡ñáαΓ¡«⌐ »á¼∩Γ¿. Æ« ªÑ ßá¼«Ñ óÑα¡« ñ½∩ DHandle ¿ Dest. è«½¿τÑßΓó« »ÑαÑßδ½áÑ¼δσ íá⌐Γ ñ«½ª¡« íδΓ∞ τÑΓ¡δ¼. Xms_ResizeMem »α«µÑñπαá Xms ============================================================================ ÄíΩ∩ó½Ñ¡¿Ñ procedure Xms_ResizeMem(Handle,Size : word); öπ¡¬µ¿∩ êº¼Ñ¡∩ÑΓ αáº¼Ñα í½«¬á αáßΦ¿αÑ¡¡«⌐ »á¼∩Γ¿, ßó∩ºá¡¡«ú« ß ñÑß¬α¿»Γ«α«¼ Handle. Åáαá¼ÑΓα Size ºáñáÑΓ ¡«óδ⌐ αáº¼Ñα í½«¬á. è«ñ ºáóÑαΦÑ¡¿∩ «»Ñαáµ¿¿ ß«σαá¡∩ÑΓß∩ ó »«½Ñ Xms_Status. Xms_Status »ÑαÑ¼Ñ¡¡á∩ Xms ============================================================================ ÄíΩ∩ó½Ñ¡¿Ñ Xms_Status : byte æΓáΓπß ºáóÑαΦÑ¡¿∩ «»Ñαáµ¿¿ ß XMS »á¼∩Γ∞ε. ç¡áτÑ¡¿Ñ Xms_Status, «Γ½¿τ¡«Ñ «Γ ¡π½∩, «º¡áτáÑΓ, τΓ« »«ß½Ññ¡∩∩ «»Ñαáµ¿∩ ß XMS »á¼∩Γ∞ε ºáóÑαΦ¿½áß∞ áóáα¿⌐¡«. Å«ñα«í¡«Ñ «»¿ßá¡¿Ñ ó«º¼«ª¡δσ ¬«ñ«ó ºáóÑαΦÑ¡¿∩ ñá¡« ó ß»Ñµ¿Σ¿¬áµ¿¿ XMS. 77 É à æ ô É æ ¢ II --------------------------------------------------------------------------- GraphVision »α«úαá¼¼δ ó« óαÑ¼∩ αáí«Γδ ¿ß»«½∞ºπεΓ ó¡ÑΦ¡¿Ñ αÑßπαßδ, Γá¬¿Ñ ¬á¬ «íαáºδ ¼δΦ¿¡δσ ¬παß«α«ó, ¿¬«¡¬¿ ¿ ¡áí«αδ «íαáº«ó ñ½∩ αáº½¿τ¡«ú« ó¿ñá ¬¡«»«¬. éßÑ φΓ¿ αÑßπαßδ σαá¡∩Γß∩ ó Σá⌐½Ñ Standard.rsc, óσ«ñ∩ΘÑ¼ ó ß«ßΓáó »á¬ÑΓá. ùΓ« ¡áσ«ñ¿Γß∩ ó Σá⌐½Ñ Standard.rsc 1 --------------------------------------------------------------------------- 1. ìáí«α «íαáº«ó ¼δΦ¿¡«ú« ¬παß«αá: "IBEAM" - ¿ß»«½∞ºπÑΓß∩ »α¿ αáí«ΓÑ ß ΓÑ¬ßΓá¼¿; "MOVE" - »ÑαÑ¼ÑΘÑ¡¿Ñ «¬¡á; "POINTINGHAND" - ¿ß»«½∞ºπÑΓß∩ »α¿ αáí«ΓÑ ß ¼Ñ¡ε; "RESIZEHOR" - ¿º¼Ñ¡Ñ¡¿Ñ αáº¼Ñαá «¬¡á »« ú«α¿º«¡Γá½¿; "RESIZEVERT" - ¿º¼Ñ¡Ñ¡¿Ñ αáº¼Ñαá «¬¡á »« óÑαΓ¿¬á½¿; "STANDARD" - ßΓá¡ñáαΓ¡δ⌐ ¬παß«α (ßΓαÑ½¬á); "WAIT" - ¿ß»«½∞ºπÑΓß∩ »α¿ óδ»«½¡Ñ¡¿¿ ñ½¿ΓÑ½∞¡δσ «»Ñαáµ¿⌐. 2. è«½½Ñ¬µ¿¿ «íαáº«ó ñ½∩ ¬¡«»«¬, ¬«Γ«αδÑ ¡á¿í«½ÑÑ τáßΓ« ¿ß»«½∞ºπεΓß∩ »α¿ «αúá¡¿ºáµ¿¿ ñ¿á½«úá ß »«½∞º«óáΓÑ½Ñ¼: "ABORT" - »αÑαóáΓ∞; "CANCEL" - «Γ¬áºáΓ∞ß∩; "CLEAR" - «τ¿ßΓ¿Γ∞; "HELP" - »«¼«Θ∞; "IGNORE" - ¿ú¡«α¿α«óáΓ∞; "NO" - "¡ÑΓ"; "OK" - "ß«ú½áßÑ¡"; "OPEN" - «Γ¬αδΓ∞; "REPLACE" - ºá¼Ñ¡¿Γ∞; "RETRY" - »«óΓ«α¿Γ∞; "SETUP" - πßΓá¡«ó¬á; "YES" - "ñá"; 3. è«½½Ñ¬µ¿¿ «íαáº«ó ñ½∩ ¬¡«»«¬, ¿ß»«½∞ºπÑ¼δσ «íΩÑ¬Γá¼¿ GraphVision: "CHECKBOX" - ¬¡«»¬á ß ¡Ñºáó¿ß¿¼«⌐ Σ¿¬ßáµ¿Ñ⌐; "RADIOBUTTON" - ¬¡«»¬á ß ºáó¿ß¿¼«⌐ Σ¿¬ßáµ¿Ñ⌐; "DOWN" - ßΓαÑ½¬á ó¡¿º; \ "LEFT" - ßΓαÑ½¬á ó½Ñó«; \ ¿ß»«½∞ºπεΓß∩ »«½«ßá¼¿ »α«¬απΓ¬¿; "RIGHT" - ßΓαÑ½¬á ó»αáó«; / "UP" - ßΓαÑ½¬á óóÑασ; / "ZOOM" - ¬¡«»¬á ¼áßΦΓáí¿α«óá¡¿∩ «¬¡á. 4. èáαΓ¿¡¬¿, ¿ß»«½∞ºπÑ¼δÑ ó «¬¡áσ ß««íΘÑ¡¿⌐ (MessageBox): "CONFIRM" - ó«»α«ß¿ΓÑ½∞¡δ⌐ º¡á¬ - ó ºá»α«ßáσ »«ñΓóÑαªñÑ¡¿∩; "ERROR" - «ßΓá¡áó½¿óáεΘá∩ απ¬á - ó ß««íΘÑ¡¿∩σ «í «Φ¿í¬áσ; "INFORMATION" - íπ¬óá "i" - ó ¿¡Σ«α¼áµ¿«¡¡δσ ß««íΘÑ¡¿∩σ; "WARNING" - ó«ß¬½¿µáΓÑ½∞¡δ⌐ º¡á¬ - ó ß««íΘÑ¡¿∩σ-»αÑñπ»αÑªñÑ¡¿∩σ. 78 èá¬ ºáúαπº¿Γ∞ αÑßπαß 2 --------------------------------------------------------------------------- é« óαÑ¼∩ αáí«Γδ GraphVision-»α¿½«ªÑ¡¿Ñ ß«ºñáÑΓ «íΩÑ¬Γ Γ¿»á TResourceFile, ßó∩ºá¡¡δ⌐ ß Σá⌐½«¼ αÑßπαß«ó, ¿ ß«σαá¡∩ÑΓ π¬áºáΓÑ½∞ ¡á ¡Ñú« ó »ÑαÑ¼Ñ¡¡«⌐ StdResource. Å«ß¬«½∞¬π ¬áªñδ⌐ αÑßπαß ∩ó½∩ÑΓß∩ «íΩÑ¬Γ«¼ ¿ ¿¼ÑÑΓ π¡¿¬á½∞¡«Ñ ¿¼∩, «¡ ¼«ªÑΓ íδΓ∞ ºáúαπªÑ¡ ó »á¼∩Γ∞ ß »«¼«Θ∞ε óδº«óá Stdresource^.Get. ìá»α¿¼Ñα, óδº«ó StdResource^.Get('HELP'); ó«ºóαáΘáÑΓ π¬áºáΓÑ½∞ ¡á ¬«½½Ñ¬µ¿ε «íαáº«ó ñ½∩ ¬¡«»¬¿ Help. èá¬ σαá¡∩Γß∩ αÑßπαßδ 3 --------------------------------------------------------------------------- Äíαáºδ ¼δΦ¿¡δσ ¬παß«α«ó σαá¡∩Γß∩ ¬á¬ «íΩÑ¬Γδ Γ¿»á TMouseCursor. Å«ñα«í¡«Ñ «»¿ßá¡¿Ñ φΓ«ú« Γ¿»á «íΩÑ¬Γá ñá¡« ó ß»αáó«τ¡¿¬Ñ «íΩÑ¬Γ«ó. ìáí«αδ «íαáº«ó ñ½∩ αáº½¿τ¡«ú« ó¿ñá ¬¡«»«¬ σαá¡∩Γß∩ ¬á¬ ¬«½½Ñ¬µ¿¿ «íΩÑ¬Γ«ó Γ¿»á TImage. Ä»¿ßá¡¿Ñ φΓ«ú« Γ¿»á Γá¬ªÑ ñá¡« ó ß»αáó«τ¡¿¬Ñ «íΩÑ¬Γ«ó. èáαΓ¿¡¬¿ σαá¡∩Γß∩ ¬á¬ «íΩÑ¬Γδ Γ¿»á TImage. èá¬ ñ«íáó¿Γ∞ αÑßπαß 4 --------------------------------------------------------------------------- é ß«ßΓáó »á¬ÑΓá óσ«ñ¿Γ ¡Ñí«½∞Φá∩ »α«úαá¼¼á, AddResrc.exe, »«ºó«½∩εΘá∩ ñ«íáó½∩Γ∞ ¡«óδÑ αÑßπαßδ ó Σá⌐½ Standard.rsc. ¥Γá »α«úαá¼¼á óδ»«½¡∩ÑΓ Γ«½∞¬« ¿¼»«αΓ αÑßπαß«ó, ¿ ¡Ñ ß«ñÑαª¿Γ ¡¿¬á¬¿σ ßαÑñßΓó ñ½∩ ¿σ ß«ºñá¡¿∩. ì« »α«í½Ñ¼á ó»«½¡Ñ αáºαÑΦ¿¼á. Å«ß¬«½∞¬π óßÑ ¬áαΓ¿¡¬¿ ó Σá⌐½Ñ αÑßπαß«ó σαá¡∩Γß∩ ó Σ«α¼áΓÑ Windows bitmap, ¿σ ¼«ª¡« ß«ºñáΓ∞ ß »«¼«Θ∞ε ½εí«ú« úαáΣ¿τÑß¬«ú« αÑñá¬Γ«αá, »«ññÑαª¿óáεΘÑú« φΓ«Γ Σ«α¼áΓ. ÅαÑñ»«τΓ¿ΓÑ½∞¡ÑÑ ¿ß»«½∞º«óáΓ∞ 16-µóÑΓ¡δÑ «íαáºδ, »«ß¬«½∞¬π «¡¿ ¼«úπΓ íδΓ∞ ¿ß»«½∞º«óá¡δ ¬á¬ ó 16, Γá¬ ¿ ó 256-µóÑΓ¡δσ αÑª¿¼áσ. Æá¬ªÑ ªÑ½áΓÑ½∞¡« »α¿ ¿σ ß«ºñá¡¿¿ ¿ß»«½∞º«óáΓ∞ ¼ÑΓ«ñ ßªáΓ¿∩ RLE4, »«ß¬«½∞¬π Γá¬¿Ñ «íαáºδ ºá¡¿¼áεΓ ¼Ñ¡∞ΦÑ ¼ÑßΓá ¡á ñ¿ß¬Ñ ¿ íδßΓαÑÑ ºáúαπªáεΓß∩ ó »á¼∩Γ∞. Äñ¡« ¡Ñí«½∞Φ«Ñ ºá¼Ñτá¡¿Ñ: σ«Γ∩ GraphVision ß«ñÑαª¿Γ ¡Ñ¬«Γ«αδÑ ßαÑñßΓóá ñ½∩ »αÑ«íαáº«óá¡¿∩ ó¡πΓαÑ¡¡Ñ⌐ »á½¿Γαδ ¿¼»«αΓ¿απÑ¼δσ «íαáº«ó ó ßΓá¡ñáαΓ¡πε »á½¿Γαπ BIOS, αÑºπ½∞ΓáΓδ ¡Ñ óßÑúñá ¼«úπΓ íδΓ∞ πñ«ó½ÑΓó«α¿ΓÑ½∞¡δ¼¿. Å«φΓ«¼π αÑ¬«¼Ñ¡ñπÑΓß∩ »α¿ ß«ºñá¡¿¿ 16-µóÑΓ¡δσ «íαáº«ó ¿ß»«½∞º«óáΓ∞ RGB-º¡áτÑ¡¿∩ µóÑΓ«ó, í½¿º¬¿Ñ ¬ RGB-º¡áτÑ¡¿∩¼ µóÑΓ«ó »á½¿Γαδ BIOS. 79 ùΓ«íδ ñ«íáó¿Γ∞ ¡«óδ⌐ ¬παß«α ¼δΦ¿, ¡Ñ«íσ«ñ¿¼« ß«ºñáΓ∞ ¡á ñ¿ß¬Ñ Σá⌐½ ß ñá¡¡δ¼¿ ß½ÑñπεΘÑ⌐ ßΓαπ¬Γπαδ: MouseData = record SizeX : word; { Φ¿α¿¡á } SizeY : word; { óδß«Γá } HotX : word; { X-¬««αñ¿¡áΓá ú«α∩τÑú« »∩Γ¡á} HotY : word; { Y-¬««αñ¿¡áΓá ú«α∩τÑú« »∩Γ¡á} AndMask : array[0..15] of word; { AND ¼áß¬á } XorMask : array[0..15] of word; { XOR ¼áß¬á } end; ¿ ºáΓÑ¼ óδ»«½¡¿Γ∞ ¿¼»«αΓ φΓ«ú« Σá⌐½á ß »«¼«Θ∞ε »α«úαá¼¼δ AddResrc.exe. (é ñá¡¡«⌐ óÑαß¿¿ »«ññÑαª¿óáεΓß∩ ¼δΦ¿¡δÑ ¬παß«αδ Γ«½∞¬« ß αáº¼Ñαá¼¿ 16x16). 80 æ Ä é à Æ ¢ III --------------------------------------------------------------------------- ôßΓá¡«ó¬á ó¿ñÑ«αÑª¿¼«ó 1 --------------------------------------------------------------------------- ä½∩ πßΓá¡«ó¬¿ ΓαÑíπÑ¼«ú« ó¿ñÑ«αÑª¿¼á ¡Ñ«íσ«ñ¿¼« »ÑαÑñ ¿¡¿µ¿á½¿ºáµ¿Ñ⌐ »α¿½«ªÑ¡¿∩ πßΓá¡«ó¿Γ∞ ß««ΓóÑΓóπεΘ¿Ñ º¡áτÑ¡¿∩ »ÑαÑ¼Ñ¡¡δσ DriverType ¿ DriverMode. ÅÑαÑ¼Ñ¡¡á∩ DriverType «»αÑñÑ½∩ÑΓ ¡«¼Ñα ½«ú¿τÑß¬«ú« ñαá⌐óÑαá ó¿ñÑ«αÑª¿¼«ó. ï«ú¿τÑß¬¿⌐ ñαá⌐óÑα - φΓ« »«¡∩Γ¿Ñ, ¬«Γ«αδ¼ «»Ñα¿απÑΓ GraphVision. ìáí«α ½«ú¿τÑß¬¿σ ñαá⌐óÑα«ó ó GraphVision Σ¿¬ß¿α«óá¡ ¿ ¡Ñ¿º¼Ñ¡∩Ñ¼. èáªñδ⌐ ½«ú¿τÑß¬¿⌐ ñαá⌐óÑα ¿ß»«½∞ºπÑΓ αÑá½∞¡δ⌐ BGI ñαá⌐óÑα, ¡áí«α ¬«Γ«αδσ ¼«ªÑΓ ¼Ñ¡∩Γ∞ß∩. ÅÑαÑ¼Ñ¡¡á∩ DriverMode «»αÑñÑ½∩ÑΓ ¡«¼Ñα ¿ß»«½∞ºπÑ¼«ú« ó¿ñÑ«αÑª¿¼á ñ½∩ ½«ú¿τÑß¬«ú« ñαá⌐óÑαá. é »á¬ÑΓÑ GraphVision «»αÑñÑ½Ñ¡δ ß½ÑñπεΘ¿Ñ ¬«¡ßΓá¡Γδ ñ½∩ «í«º¡áτÑ¡¿∩ ½«ú¿τÑß¬¿σ ñαá⌐óÑα«ó: StandardVGA = 0 - ñαá⌐óÑα ßΓá¡ñáαΓ¡«ú« VGA; Vesa16 = 1 - ñαá⌐óÑα VESA 16 µóÑΓ«ó; Vesa256 = 2 - ñαá⌐óÑα VESA 256 µóÑΓ«ó. è«¡ßΓá¡Γδ, «»αÑñÑ½∩εΘ¿Ñ ¡«¼Ñαá αÑª¿¼«ó ñ½∩ ¬áªñ«ú« ñαá⌐óÑαá, »α¿óÑñÑ¡δ ó ß½ÑñπεΘÑ⌐ Γáí½¿µÑ: ------------------------------------------------------------ ¬«¡ßΓá¡Γá | º¡áτÑ¡¿Ñ | αÑª¿¼ ------------------------------------------------------------ VGA640x480 | VGAHI | 640 x 480 x 16 VESA16_800x600 | 0 | 800 x 600 x 16 VESA16_1024x768 | 1 | 1024 x 768 x 16 VESA16_1280x1024 | 2 | 1280 x 1024 x 16 VESA256_640x400 | 0 | 640 x 400 x 256 VESA256_640x480 | 1 | 640 x 480 x 256 VESA256_800x600 | 2 | 800 x 600 x 256 VESA256_1024x768 | 3 | 1024 x 768 x 256 VESA256+1280x1024 | 4 | 1280 x 1024 x 256 ------------------------------------------------------------- Å« π¼«½τá¡¿ε ¿ß»«½∞ºπεΓß∩ ñαá⌐óÑα ßΓá¡ñáαΓ¡«ú« VGA ¿ αÑª¿¼ 640 x 480 : DriverType := StandardVga; DriverMode := VGA640x480; ÅαÑñ»«½«ª¿¼, ¡á¼ ¡Ñ«íσ«ñ¿¼ αÑª¿¼ 256 µóÑΓ«ó ¿ αáºαÑΦÑ¡¿Ñ 800 x 600 Γ«τÑ¬. ä½∩ ¿ß»«½∞º«óá¡¿∩ φΓ«ú« αÑª¿¼á ¡Ñ«íσ«ñ¿¼« πßΓá¡«ó¿Γ∞ ß½ÑñπεΘ¿Ñ º¡áτÑ¡¿∩: DriverType := Vesa256; DriverMode := VESA256_800x600; 81 Åα«µÑñπαá InitVideo, óδºδóáÑ¼á∩ ¿º GraphApplication.Init, ¿ß»«½∞ºπ∩ º¡áτÑ¡¿∩ φΓ¿σ »ÑαÑ¼Ñ¡¡δσ, πßΓá¡«ó¿Γ ΓαÑíπÑ¼δ⌐ ó¿ñÑ«αÑª¿¼. ì« ΓπΓ ó«º¡¿¬áÑΓ ó«»α«ß - ¬á¬«⌐ BGI ñαá⌐óÑα íπñÑΓ »α¿ φΓ«¼ ¿ß»«½∞º«óáΓ∞ß∩? æ ñαá⌐óÑα«¼ ñ½∩ StandardVGA óßÑ ∩ß¡« - φΓ« EGAVGA.BGI Ç ñ½∩ πßΓá¡«ó½Ñ¡¿∩ ßó∩º¿ ¼Ñªñπ ½«ú¿τÑß¬¿¼¿ ñαá⌐óÑαá¼¿ Vesa16 ¿ Vesa256 ¿ αÑá½∞¡δ¼¿ BGI ñαá⌐óÑαá¼¿ ¿ß»«½∞ºπÑΓß∩ «»αÑñÑ½Ñ¡¡δ⌐ ó ¼«ñπ½Ñ GrDriver ¼áßß¿ó VesaDriverNames. Å« π¼«½τá¡¿ε ó φΓ«¼ ¼áßß¿óÑ ºáñá¡δ ß½ÑñπεΘ¿Ñ º¡áτÑ¡¿∩: VesaDriverNames[Vesa16] := 'vesa16'; VesaDriverNames[Vesa256] := ''; èá¬ ó¿ñ¡«, »« π¼«½τá¡¿ε ½«ú¿τÑß¬¿⌐ ñαá⌐óÑα Vesa16 ßó∩ºá¡ ß ñαá⌐óÑα«¼ Vesa16.bgi, á ñ½∩ ½«ú¿τÑß¬«ú« ñαá⌐óÑαá Vesa256 ¿¼∩ BGI ñαá⌐óÑαá ¡Ñ «»αÑñÑ½Ñ¡«. ÅαÑñ»«½«ª¿¼, ¼δ σ«Γ¿¼ ßó∩ºáΓ∞ ½«ú¿τÑß¬¿⌐ ñαá⌐óÑα Vesa16 c ñαá⌐óÑα«¼ MyVesa16.bgi, á ½«ú¿τÑß¬¿⌐ ñαá⌐óÑα Vesa256 - c ñαá⌐óÑα«¼ Svga256.bgi. ä½∩ φΓ«ú« ¡Ñ«íσ«ñ¿¼« »ÑαÑñ ¿¡¿µ¿á½¿ºáµ¿Ñ⌐ »α¿½«ªÑ¡¿∩ »α¿ßó«¿Γ∞ ß««ΓóÑΓßΓóπεΘ¿Ñ º¡áτÑ¡¿∩ φ½Ñ¼Ñ¡Γá¼ ¼áßß¿óá VesaDriverNames: VesaDriverNames[Vesa16] := 'myvesa16'; VesaDriverNames[Vesa256] := 'svga256'; èá¬ ¿ºóÑßΓ¡«, úαáΣ¿τÑß¬á∩ »«ñß¿ßΓÑ¼á Turbo Pascal »α¿ ¿¡¿µ¿á½¿ºáµ¿¿ »« π¼«½τá¡¿ε »δΓáÑΓß∩ ¡á⌐Γ¿ ΓαÑíπÑ¼δ⌐ ñαá⌐óÑα ó ΓÑ¬πΘÑ¼ ¬áΓá½«úÑ. àß½¿ ñαá⌐óÑα ¡áσ«ñ¿Γß∩ úñÑ-Γ« ó ñαπú«¼ ¬áΓá½«úÑ, ¡Ñ«íσ«ñ¿¼« π¬áºáΓ∞ »πΓ∞ ¬ ¡Ñ¼π. ä½∩ φΓ«⌐ µÑ½¿ ó ¼«ñπ½Ñ GrDriver «»αÑñÑ½Ñ¡ ¼áßß¿ó DriverPaths: DriverPaths : array[0..2] of string = ('','',''); ùΓ«íδ π¬áºáΓ∞ »πΓ∞ ¬ ¬«¡¬αÑΓ¡«¼π ñαá⌐óÑαπ, »α«ßΓ« »α¿ßó«⌐ΓÑ ¡πª¡«Ñ º¡áτÑ¡¿Ñ ß««ΓóÑΓßΓóπεΘÑ¼π φ½Ñ¼Ñ¡Γπ ¼áßß¿óá: DriverPaths[StandardVga] := 'c:/tp/oldbgi'; DriverPaths[Vesa256] := 'c:/tp/newbgi'; ìÑ«íσ«ñ¿¼« αÑΦ¿Γ∞ ÑΘÑ «ñ¡π »α«í½Ñ¼π. é «ß¡«ó¡«¼ φΓ« «Γ¡«ß¿Γß∩ ¬ BGI ñαá⌐óÑαá¼ ñ½∩ 256-µóÑΓ¡δσ αÑª¿¼«ó. é GraphVision ¡«¼Ñαá ó¿ñÑ«αÑª¿¼«ó ¿¼ÑεΓ Σ¿¬ß¿α«óá¡¡δÑ º¡áτÑ¡¿∩, ¡« áóΓ«αδ αáº½¿τ¡δσ BGI ñαá⌐óÑα«ó ¬á¬-Γ« ¡Ñ »α¿¡∩½¿ φΓ« ó« ó¡¿¼á¡¿Ñ, ¿ »«φΓ«¼π «ñ¡«¼π ¿ Γ«¼π ªÑ ó¿ñÑ«αÑª¿¼π ó αáº¡δσ ñαá⌐óÑαáσ ¼«úπΓ íδΓ∞ ¡áº¡áτÑ¡δ αáº½¿τ¡δÑ ¡«¼Ñαá. é αÑΦÑ¡¿¿ φΓ«⌐ »α«í½Ñ¼δ ¡á¼ »«¼«úπΓ ¼áßß¿óδ Vesa16Modes ¿ Vesa256Modes, «»αÑñÑ½Ñ¡¡δÑ ó ¼«ñπ½Ñ GrDriver. ¥Γ¿ ¼áßß¿óδ ºáñáεΓ ßó∩º∞ ¼Ñªñπ ¡«¼Ñαá¼¿ ó¿ñÑ«αÑª¿¼«ó ½«ú¿τÑß¬¿σ ñαá⌐óÑα«ó ¿ ¡«¼Ñαá¼¿ ó¿ñÑ«αÑª¿¼«ó αÑá½∞¡δσ BGI ñαá⌐óÑα«ó. 82 ÅαÑñ»«½«ª¿¼, τΓ« ó ñαá⌐óÑαÑ Svga256.bgi ó¿ñÑ«αÑª¿¼á¼ VESA »α¿ßó«Ñ¡δ ¡«¼Ñαá ß 31 »« 35. æ½Ññ«óáΓÑ½∞¡«, ¡Ñ«íσ«ñ¿¼« »α¿ßó«¿Γ∞ φΓ¿ º¡áτÑ¡¿∩ ß««ΓóÑΓßΓóπεΘ¿¼ φ½Ñ¼Ñ¡Γá¼ ¼áßß¿óá Vesa256Modes: Vesa256Modes[Vesa256_640x400] := 31; Vesa256Modes[Vesa256_640x480] := 32; Vesa256Modes[Vesa256_800x600] := 33; ¿ Γá¬ ñá½ÑÑ. é¬½ετÑ¡¿Ñ BGI ñαá⌐óÑα«ó ó ß«ßΓáó ¿ß»«½¡∩Ñ¼«ú« ¼«ñπ½∩ 2 ---------------------------------------------------------------------------- Åα¿ ó¬½ετÑ¡¿¿ BGI ñαá⌐óÑα«ó ó ß«ßΓáó ¿ß»«½¡∩Ñ¼«ú« ¼«ñπ½∩ ¡Ñ«íσ«ñ¿¼« óδ»«½¡¿Γ∞ αÑú¿ßΓαáµ¿ε ñαá⌐óÑαá ó úαáΣ¿τÑß¬«⌐ »«ñß¿ßΓÑ¼Ñ. é ¼«ñπ½Ñ GrDriver «»αÑñÑ½Ñ¡á »α«µÑñπα¡á∩ »ÑαÑ¼Ñ¡¡á∩ RegisterProc, ¬«Γ«αá∩ »« ßπΓ¿ ∩ó½∩ÑΓ¼ß∩ π¬áºáΓÑ½Ñ¼ ¡á »α«µÑñπαπ αÑú¿Γαáµ¿¿ ñαá⌐óÑα«ó. Å« π¼«½τá¡¿ε »α«µÑñπαá αÑú¿ßΓαáµ¿¿ ¡Ñ «»αÑñÑ½Ñ¡á: RegisterProc : procedure = nil; ä½∩ αÑú¿ßΓαáµ¿¿ BGI ñαá⌐óÑα«ó ¡á»¿Φ¿ΓÑ »α«µÑñπαπ, óδ»«½¡∩εΘπε ¡Ñ«íσ«ñ¿¼δÑ ñÑ⌐ßΓó¿∩, ¿ »α¿ßó«⌐ΓÑ »ÑαÑ¼Ñ¡¡«⌐ RegisterProc π¬áºáΓÑ½∞ ¡á ¡ÑÑ: procedure MyRegisterProc; begin ... end; RegisterProc := MyRegisterProc; êß»«½∞º«óá¡¿Ñ BGI ñαá⌐óÑα«ó ó »α«úαá¼¼áσ ºáΘ¿ΘÑ¡¡«ú« αÑª¿¼á 3 ---------------------------------------------------------------------------- äαá⌐óÑαδ EgaVga.bgi ¿ Vesa16.bgi, óσ«ñ∩Θ¿Ñ ó ¬«¼»½Ñ¬Γ »«ßΓáó¬¿ Turbo/Borland Pascal 7, »«ññÑαª¿óáεΓ ºáΘ¿ΘÑ¡¡δ⌐ αÑª¿¼ ¿ ¿σ ¿ß»«½∞º«óá¡¿Ñ ¡Ñ óδºδóáÑΓ »α«í½Ñ¼. æ½«ª¡ÑÑ ñÑ½« «íßΓ«¿Γ ß ñαá⌐óÑαá¼¿ ñ½∩ 256-µóÑΓ¡δσ αÑª¿¼«ó. Åαá¬Γ¿τÑß¬¿ óßÑ «¡¿ ¼«úπΓ íδΓ∞ ¿ß»«½∞º«óá¡δ Γ«½∞¬« ó αÑá½∞¡«¼ αÑª¿¼Ñ »α«µÑßß«αá. ÇóΓ«απ ¿ºóÑßΓÑ¡ Γ«½∞¬« «ñ¿¡ BGI ñαá⌐óÑα 256-µóÑΓ¡δσ αÑª¿¼«ó, »«ññÑαª¿óáεΘ¿⌐ ¬á¬ αÑá½∞¡δ⌐, Γá¬ ¿ ºáΘ¿ΘÑ¡¡δ⌐ αÑª¿¼ αáí«Γδ »α«µÑßß«αá. ¥Γ« ñαá⌐óÑα, óσ«ñ∩Θ¿⌐ ó ß«ßΓáó »á¬ÑΓá Svga333b.zip (áóΓ«α - Ullrich von Bassewitz, email: uz@wuschel.sunflower.sub.org). öá⌐½ Svga333b.zip ¼«ª¡« ¡á⌐Γ¿ ¡á⌐Γ¿ ¡á αáº½¿τ¡δσ Σá⌐½«óδσ ßÑαóÑαáσ. 83 îδΦ¿¡δ⌐ ¬παß«α ó VESA αÑª¿¼áσ 4 ---------------------------------------------------------------------------- Åαá¬Γ¿τÑß¬¿ ¡¿ «ñ¿¡ ßΓá¡ñáαΓ¡δ⌐ ñαá⌐óÑα ¼δΦ¿ ¡Ñ »«ññÑαª¿óáÑΓ SVGA αÑª¿¼δ ó««íΘÑ ¿ VESA αÑª¿¼δ ó τáßΓ¡«ßΓ¿. Å«φΓ«¼π ó GraphVision íδ½á ñ«íáó½Ñ¡á »«ññÑαª¬á ¼δΦ¿ ñ½∩ αÑª¿¼«ó VESA, ó τáßΓ¡«ßΓ¿, ó«º¼«ª¡«ßΓ∞ φ¼π½∩µ¿¿ ¬παß«αá ¼δΦ¿. é ¼«ñπ½Ñ LowGraph «»αÑñÑ½Ñ¡á »ÑαÑ¼Ñ¡¡á∩ EmulateMouseCursor, ¬«Γ«αá∩ ºáñáÑΓ αÑª¿¼ φ¼π½∩µ¿¿ ¼δΦ¿¡«ú« ¬παß«αá: EmulateMouseCursor : boolean = false; Å« π¼«½τá¡¿ε αÑª¿¼ φ¼π½∩µ¿¿ ¼δΦ¿¡«ú« ¬παß«αá «Γ¬½ετÑ¡. ùΓ«íδ ó¬½ετ¿Γ∞ Ñú«, »α¿ßó«⌐ΓÑ »ÑαÑ¼Ñ¡¡«⌐ EmulateMouseCursor º¡áτÑ¡¿Ñ true »ÑαÑñ ¿¡¿µ¿á½¿ºáµ¿Ñ⌐ »α¿½«ªÑ¡¿∩: EmulateMouseCursor := true; .... MyApp.Init; ìÑ ¿º¼Ñ¡∩⌐ΓÑ º¡áτÑ¡¿Ñ φΓ«⌐ »ÑαÑ¼Ñ¡¡«⌐ ó« óαÑ¼∩ αáí«Γδ »α«úαá¼¼δ! ¥Γ« ¼«ªÑΓ »α¿óÑßΓ¿ ¬ ¡Ñ»αÑñß¬áºπÑ¼δ¼ »«ß½ÑñßΓó¿∩¼.