home *** CD-ROM | disk | FTP | other *** search
/ BBS 1 / BBS#1.iso / document / pas60tvg.lzh / TV10.OLD < prev    next >
Encoding:
Text File  |  1991-02-12  |  13.6 KB  |  319 lines
  1.                              âïÇéÇ 10.
  2.  
  3.                               æÄéàÆ¢.
  4.  
  5.      ¥Γá ú½áóá ß«ñÑαª¿Γ ¡Ñ߬«½∞¬« ñ«»«½¡¿Γѽ∞¡δσ »αÑñ½«ªÑ¡¿⌐ « Γ«¼,
  6. ¬á¬ ¿ß»«½∞º«óáΓ∞   Turbo   Vision   í«½ÑÑ   φΣΣÑ¬Γ¿ó¡«.   Å«ß¬«½∞¬π
  7. «íΩÑ¬Γ¡«-«α¿Ñ¡Γ¿α«óá¡¡«Ñ »α«úαá¼¼¿α«óá¡¿Ñ    ¿    »α«úαá¼¼¿α«óá¡¿Ñ,
  8. π»αáó½∩Ѽ«Ñ  ß«íδΓ¿∩¼¿  -  φΓ«  ¡«óá∩  ¬«¡µÑ»µ¿∩  ñáªÑ  ñ½∩ «»δΓ¡δσ
  9. »α«úαá¼¼¿ßΓ«ó,  ¼δ  »«»α«íπѼ  »αÑñ«ßΓáó¿Γ∞  ¡Ñ¬«Γ«αδÑ  ß«óÑΓδ   »«
  10. ¿ß»«½∞º«óá¡¿ε ¡«óδσ »áαáñ¿ú¼.
  11.  
  12.  
  13.                  ÄΓ½áñ¬á »α«úαá¼¼ ¡á Turbo Vision.
  14.  
  15.      àß½¿ éδ  »«»δΓáÑΓÑß∞  Γαáßß¿α«óáΓ∞  ¬á¬«⌐-¡¿íπñ∞  ¿º  »α¿¼Ñα«ó
  16. φΓ«ú« απ¬«ó«ñßΓóá,   éδ,  óÑα«∩Γ¡«,  ºá¼ÑΓ¿ΓÑ,  τΓ«  éδ  ¡Ñ  ¼«ªÑΓÑ
  17. ºá⌐Γ¿ «τÑ¡∞ ñá½Ñ¬«. Å«ß¬«½∞¬π »α«úαá¼¼δ ¡á Turbo Vision π»αáó½∩εΓß∩
  18. ß«íδΓ¿∩¼¿, í«½∞Φá∩  τáßΓ∞  »α«úαá¼¼¡«ú«  óαѼѡ¿ ΓαáΓ¿Γß∩ ¡á µ¿¬½ ó
  19. TGroup.Execute «ª¿ñá∩  ¬«úñá  »α«¿º«⌐ñÑΓ  ¬á¬«Ñ-½¿í«   ß«íδΓ¿Ñ.   é
  20. αѺπ½∞ΓáΓÑ Γαáßß¿α«ó¬á φΓ«⌐ Γ«τ¬¿ ¿¼ÑÑΓ ¼á½« ß¼δß½á.
  21.  
  22.      Åα¿¼Ñτá¡¿Ñ: è½ετѼ ¬ «Γ½áñ¬Ñ »α«úαá¼¼ ¡á Turbo Vision ∩ó½∩εΓß∩
  23. Γ«τ¬¿ »αÑαδóá¡¿∩ ¿ Γ«½∞¬« Γ«τ¬¿ »αÑαδóá¡¿∩.
  24.  
  25.      äáóá⌐ΓÑ »«ß¼«Γα¿¼ ¬á¬ ½πτΦÑ αẼÑßΓ¿Γ∞ Γ«τ¬¿ »αÑαδóá¡¿∩, τΓ«íδ
  26. «í¡áαπª¿Γ∞ »α«í½Ñ¼δ ó »α«úαἼѠ¡á Turbo Vision.
  27.  
  28.  
  29.                       ¥Γ« ºñÑß∞ ¡Ñ »«½πτ¿Γ∞.
  30.  
  31.      Äñ¡á ¿º »α«í½Ñ¼ »α¿ «Γ½áñ¬Ñ éáΦÑ⌐ »α«úαá¼¼δ  ¼«ªÑΓ ºá¬½ετáΓ∞ß∩
  32. ó Γ«¼,  τΓ«  ¬á¬á∩-Γ«  τáßΓ∞  éáΦÑú«  ¬«ñá  ¡Ñ  íπñÑΓ  óδ»«½¡∩Γ∞ß∩.
  33. ìá»α¿¼Ñα, éδ ¼«ªÑΓÑ «Γ¼ÑΓ¿Γ∞ φ½Ñ¼Ñ¡Γ  ßΓ᫬¿  ßΓáΓπßá  ¿½¿  óδíαáΓ∞
  34. «»µ¿ε ¼Ñ¡ε, ¬«Γ«αá∩ ñ«½ª¡á óδºóáΓ∞ «¬¡«, ¡« φΓ«ú« ¡Ñ »α«¿ßσ«ñ¿Γ.
  35.      Äíδτ¡« éδ »«Φáú«ó« »α«σ«ñ¿ΓÑ »α«úαá¼¼π ñ«  ΓÑσ  »«α,  »«¬á  ¡Ñ
  36. ñ«⌐ñÑΓÑ ñ«  φΓ«⌐  ¬«¼á¡ñδ,  á  ºáΓѼ ß¼«Γα¿ΓÑ τΓ« »α«¿ßσ«ñ¿Γ ó¼ÑßΓ«
  37. Γ«ú« τΓ« ñ«½ª¡« »α«¿ßσ«ñ¿Γ∞. ì« Ñß½¿ éδ »«»α«íπÑΓÑ ßñѽáΓ∞ φΓ«, φΓ«
  38. éá¼ ¡Ñ  »«¼«ªÑΓ.  è«úñá  éδ  ßñѽáÑΓÑ  ß½ÑñπεΘ¿⌐ Φáú,  éδ óÑα¡ÑΓÑß∞
  39. «íαáΓ¡« ó Γ« ¼ÑßΓ«, úñÑ éδ í뫨.
  40.      ïπτΦ¿⌐ »«ñσ«ñ  ó φΓ«⌐ ß¿Γπᵿ¿ - πßΓá¡«ó¿Γ∞ Γ«τ¬π »αÑαδóá¡¿∩ ó
  41. ¼ÑΓ«ñ HandleEvent,  ¬«Γ«αδ⌐  ñ«½ªÑ¡  óδºδóáΓ∞  ¬«ñ  ¡Ñ   »«½πτáεΘ¿⌐
  42. π»αáó½Ñ¡¿∩. ôßΓá¡«ó¿ΓÑ Γ«τ¬π »αÑαδóá¡¿∩ ó ¡áτá½Ñ ¼ÑΓ«ñá HandleEvent
  43. ¿ ¬«úñá »α«úαἼᠫßΓá¡«ó¿Γß∩  ó  ¡Ñ¼,  »α«óÑα∞ΓÑ  ºá»¿ß∞  ß«íδΓ¿∩,
  44. τΓ«íδ πíÑñ¿Γ∞ß∩,  τΓ« φΓ« ¿¼Ñ¡¡« Γ« ß«íδΓ¿Ñ, ¬«Γ«α«Ñ éδ «ª¿ñ὿. éδ
  45. ΓᬠªÑ  ¼«ªÑΓÑ  óδ»«½¡¿Γ∞  Γαáßß¿α«ó¬π  ß  φΓ«⌐  Γ«τ¬¿,   »«ß¬«½∞¬π
  46. HandleEvent ¿  ¬«ñ,  «Γ¬½¿¬áεΘ¿⌐ß∩ ¡á éáΦ¿ ¬«¼á¡ñδ,  - φΓ« Γ«Γ ¬«ñ,
  47. ¬«Γ«αδ⌐ éδ ¡á»¿ß὿,  ¿ ß½Ññ«óáΓѽ∞¡« éδ ¼«ªÑΓÑ Ñú« «ΓΓαáßß¿α«óáΓ∞.
  48.  
  49.  
  50.                          Åα«óÑα∞ΓÑ ¼á߬π.
  51.  
  52.      çừ¼¡¿ΓÑ, τΓ« ßπΘÑßΓóπεΓ »α¿τ¿¡δ, »« ¬«Γ«αδ¼ éáΦ «íΩÑ¬Γ ¼«ªÑΓ
  53. ¡¿¬«úñá ¡Ñ πó¿ñÑΓ∞ ß«íδΓ¿Ñ,  ¬«Γ«α«Ñ éδ σ«Γ¿ΓѠѼπ »ÑαÑñáΓ∞. ÅÑαóá∩
  54. ¿ »α«ßΓÑ⌐Φá∩  «Φ¿í¬á  -  φΓ«  ¡ÑπßΓá¡«ó½Ñ¡¡δ⌐  Γ¿»  ß«íδΓ¿∩ ó ¼á߬Ñ
  55. ß«íδΓ¿⌐ éáΦÑú« «íΩѬΓá.  àß½¿ éδ ¡Ñ ß¬áºá½¿ ßó«Ñ¼π «íΩѬΓπ, τΓ« Ñ¼π
  56. αáºαÑΦÑ¡«  «íαáí«ΓáΓ∞  «»αÑñѽѡ¡δ⌐ ó¿ñ ß«íδΓ¿∩,  «¡ ñáªÑ ¡Ñ πó¿ñ¿Γ
  57. φΓ¿σ ß«íδΓ¿⌐!
  58.  
  59.  
  60.                         ô¬αáñÑ¡¡δÑ ß«íδΓ¿∩.
  61.  
  62.      éΓ«αá∩ ó«º¼«ª¡«ßΓ∞,  ¬«Γ«απε  ¡Ñ«íσ«ñ¿¼« αáßß¼«ΓαÑΓ∞ - φΓ« Γ«,
  63. τΓ« ñαπú«⌐ «íΩÑ¬Γ ¼«ú "π¬αáßΓ∞" ß«íδΓ¿Ñ.  Æ.Ñ. ß«íδΓ¿Ñ «íαáí«Γá¡« ¿
  64. «τ¿ΘÑ¡« ¡Ñ ΓѼ «íΩÑ¬Γ«¼, ¬«Γ«α«¼π éδ ¡á¼ÑαÑó὿ß∞ »ÑαÑñáΓ∞ ß«íδΓ¿Ñ.
  65.      ¥Γ« ¼«ªÑΓ »α«¿ßσ«ñ¿Γ∞ »« ¡Ñ߬«½∞¬¿¼  »α¿τ¿¡á¼.  ÅÑαóá∩  -  φΓ«
  66. ñπí½¿α«óá¡¿Ñ «íΩ∩ó½Ñ¡¿⌐  ¬«¼á¡ñ:  Ñß½¿ ñóÑ ¬«¼á¡ñδ ¡áº¡áτÑ¡δ «ñ¡«¼π
  67. ¬«¡ßΓá¡Γ¡«¼π º¡áτÑ¡¿ε,  «¡¿ ¼«úπΓ  «íαáíáΓδóáΓ∞ß∩  óºá¿¼«ºá¼Ñ¡∩Ѽ«.
  68. é«Γ »«τÑ¼π  ¡Ñ«íσ«ñ¿¼«  «Γß½Ññ¿óáΓ∞,  ¬á¬¿¼  ¬«¡ßΓá¡Γá¼ ¡áº¡áτáεΓß∩
  69. ¬á¬¿Ñ º¡áτÑ¡¿∩,  «ß«íÑ¡¡« ó ß¿Γπᵿ¿, ¬«úñá éδ »«óΓ«α¡« ¿ß»«½∞ºπÑΓÑ
  70. ¬«ñ ¼«ñπ½Ñ⌐.
  71.      éΓ«αá∩ ó«º¼«ª¡á∩ »α¿τ¿¡á ó ñπí½¿α«óá¡¿¿ ¼ÑΓ«¬ ¬«¼á¡ñ, «ß«íÑ¡¡«
  72. »α¿ »«óΓ«α¡«¼ ¿ß»«½∞º«óá¡¿¿ ¬«ñá.  Æá¬,  Ñß½¿ éδ ¡áº¡áτáÑΓÑ ¬«¼á¡ñπ
  73. cmJump ¿ ßπΘÑßΓóπÑΓ ¼ÑΓ«ñ HandleEvent ó  ¬á¬«¼-Γ«  ñαπú«¼  «íΩѬΓÑ,
  74. ¬«Γ«αδ⌐ πªÑ  «Γ¬½¿¬áÑΓß∩  ¡á  ¬«¼á¡ñπ cmJump ¿ « ¬«Γ«α«¼ éδ ºáí뫨,
  75. φΓ« ¼«ªÑΓ  »α¿óÑßΓ¿  ¬   ¬«¡Σ½¿¬Γá¼.   éßÑúñá   »α«ß¼áΓα¿óá⌐ΓÑ   ¡Ñ
  76. ¿ß»«½∞ºπεΓ ½¿    ñαπú¿Ñ    «íΩѬΓδ    ß«íδΓ¿∩,    ¬«Γ«αδÑ   ¬áªπΓß∩
  77. "»«ΓÑα∩¡¡δ¼¿".
  78.  
  79.  
  80.                         é¿¡á éáΦ¿σ »αÑñ¬«ó.
  81.  
  82.      ìᬫ¡Ñµ πíÑñ¿ΓÑß∞,  τΓ«  ß«íδΓ¿Ñ  ¡Ñ  í佫 «íαáí«Γá¡« ó ó맮óÑ
  83. »αÑñ¬á «íΩѬΓá.  ùáßΓ« ¼ÑΓ«ñ HandleEvent »«α«ªñÑ¡¡«ú« Γ¿»á óδºδóáÑΓ
  84. «íαáí«Γτ¿¬ ß«íδΓ¿⌐  Ñú«  »αÑñ¬á  ñ½∩ «íαáí«Γ¬¿ í«½∞Φ¿¡ßΓóá ß«íδΓ¿⌐,
  85. ¬«Γ«αδ⌐ ¼«ªÑΓ ¡Ñ«ª¿ñá¡¡« «íαáí«ΓáΓ∞ «ñ¡«  ¿º  ß«íδΓ¿⌐.  Å«»δΓá⌐ΓÑß∞
  86. »ÑαÑσóáΓ¿Γ∞ ß«íδΓ¿Ñ ñ« ó맮óá HandleEvent »αÑñ¬á.
  87.  
  88.  
  89.                   äѽáÑΓß∩ ¡Ñ Γ«, τΓ« «ª¿ñὫß∞.
  90.  
  91.      ÅαÑñ»«½«ª¿¼, éáΦÑ «¬¡« «Γ«íαáªáÑΓß∩, ¡« óδó«ñ¿Γ úα∩º∞ ¿½¿ τΓ«-
  92. Γ« «Γ½¿τ¡«Ñ  «Γ  Γ«ú«,  τΓ«  éδ «ª¿ñ὿.  ¥Γ« π¬áºδóáÑΓ ¡á Γ«,  τΓ«
  93. ß«íδΓ¿Ñ  «íαáí«Γá¡«  »αáó¿½∞¡«,  ¡«  ¬«ñ,  ¬«Γ«αδ⌐  «Γ¬½¿¬áÑΓß∩  ¡á
  94. ß«íδΓ¿Ñ  ¡Ñ¬«ααѬΓÑ¡  ¿½¿  »ÑαѬαδΓ.  é  φΓ«¼  ß½πτáÑ  ½πτΦÑ  óßÑú«
  95. πßΓá¡«ó¿Γ∞ Γ«τ¬π »αÑαδóá¡¿∩ ó  »α«úαá¼¼Ñ,  ¬«Γ«αá∩  óδºδóáÑΓß∩  »α¿
  96. φΓ«¼ ß«íδΓ¿¿.  Å«ß½Ñ  »αÑαδóá¡¿∩  óδ»«½¡Ñ¡¿∩ éδ ¼«ªÑΓÑ Γαáßß¿α«óáΓ∞
  97. éáΦ ¬«ñ.
  98.  
  99.  
  100.                             çáó¿ßá¡¿∩.
  101.  
  102.      ÄΦ¿í¬¿, »α¿ó«ñ∩Θ¿Ñ ¬ ºáó¿ßá¡¿∩¼,  ¡á¿í«½ÑÑ Γαπñ¡« «Γ߽Ѫ¿óáΓ∞,
  103. ¡« «¡¿  ¼«úπΓ  íδΓ∞  ¡á⌐ñÑ¡δ.  ä½∩  ¡áτá½á  éδ  ¼«ªÑΓÑ  »«»α«í«óáΓ∞
  104. ¬«¼í¿¡áµ¿ε Γ«τѬ  »αÑαδóá¡¿∩,  »αÑñ½«ªÑ¡¡πε  αá¡ÑÑ  ñ½∩ ½«¬á½¿ºáµ¿¿
  105. ¼ÑßΓá, ó  ¬«Γ«α«¼  »α«¿ßσ«ñ¿Γ  ºáó¿ßá¡¿Ñ.  çáΓѼ   »«ß¼«Γα¿ΓÑ,   ¡Ñ
  106. «ßó«í«ªñáεΓß∩ ½¿   π¬áºáΓѽ¿  ñóáªñδ.  ¥Γ«  ¼«ªÑΓ  »α«¿º«⌐Γ¿  ¬«úñá
  107. ó¿ñ¿¼δ⌐  φ½Ñ¼Ñ¡Γ  «ßó«í«ªñáÑΓß∩  ßó«¿¼  ó½áñѽ∞µÑ¼,  á   ºáΓѼ   éδ
  108. »δΓáÑΓÑß∞ «ßó«í«ñ¿Γ∞ Ñú« ¡á»α∩¼πε. ìá»α¿¼Ñα:
  109.  
  110.      { ¥Γ«Γ ¬«ñ »α¿ó«ñ¿Γ ¬ ºáó¿ßá¡¿ε ß¿ßΓѼδ }
  111.      var
  112.        Bruce, Pizza: PGroup;
  113.        R: TRect;
  114.      begin
  115.        R.Assign(5, 5, 10, 20);
  116.        Pizza := New(PGroup, Init(R));
  117.        R.Assign(10, 10, 20, 20);
  118.        Bruce := New(PGroup, Init(R));
  119.        Bruce^.Insert(Pizza);
  120.        Dispose(Bruce, Done);
  121.        Dispose(Pizza, Done);
  122.      end;
  123.  
  124.      Äßó«í«ªñÑ¡¿Ñ úαπ»»δ   Bruce  Γᬠ ªÑ  «ßó«í«ªñáÑΓ  »«ñφ½Ñ¼Ñ¡Γδ
  125. Pizza. àß½¿  éδ  »«»δΓáÑΓÑß∞  «ßó«í«ñ¿Γ∞  Pizza,   éáΦá   »α«úαá¼¼á
  126. ºáó¿ß¡ÑΓ.
  127.      è ºáó¿ßá¡¿ε ¼«ªÑΓ ΓᬠªÑ  »α¿ó«ñ¿Γ∞  τΓÑ¡¿Ñ  ñá¡¡δσ  »«Γ«¬á  ó
  128. «Φ¿í«τ¡δ⌐ Γ¿»  «íΩѬΓá  ¿  ¡Ñ¬«ααÑ¬Γ¡«Ñ  »α¿óÑñÑ¡¿Ñ  Γ¿»á ñá¡¡δσ ¿º
  129. ¬«½½Ñ¬µ¿⌐.
  130.  
  131.  
  132.                éßΓαá¿óá¡¿Ñ »α«úαá¼¼ ó Turbo Vision.
  133.  
  134.      àß½¿ éδ σ«Γ¿ΓÑ óßΓα«¿Γ∞ ßπΘÑßΓóπεΘπε »α«úαá¼¼π ó Turbo Vision,
  135. éδ ¼«ªÑΓÑ »«»δΓáΓ∞ß∩ óßΓα«¿Γ∞ ¿¡ΓÑαΣÑ⌐ß Turbo  Vision  ó  »α«úαá¼¼π
  136. ¿½¿ »«¼ÑßΓ¿Γ∞  ß½«⌐  Turbo  Vision ¡áñ éáΦÑ⌐ »α«úαá¼¼«⌐.  ¥Γ« íπñÑΓ
  137. ¡Ñπñáτ¡á∩ »«»δΓ¬á.  Åα«úαá¼¼δ Turbo Vision π»αáó½∩εΓß∩ ß«íδΓ¿∩¼¿  ¿
  138. í«½∞Φ¿¡ßΓó« ßπΘÑßΓóπεΘ¿σ  »α«úαá¼¼  íπñÑΓ  ¡Ñ  »α«ßΓ«  (Ñß½¿ ó««íΘÑ
  139. 󫺼«ª¡«) »αÑ«íαẫóáΓ∞ ¬ φΓ«⌐ »áαáñ¿ú¼Ñ.
  140.  
  141.  
  142.                 ôñá½Ñ¡¿Ñ "¼πß«αá" ¿º ßΓáα«ú« ¬«ñá.
  143.  
  144.      àßΓ∞ »α«ßΓ«⌐    »πΓ∞.   æÑ⌐τáß   éδ   º¡áÑΓÑ,   τΓ«   ßπΘ¡«ßΓ∞
  145. »α«úαá¼¼¿α«óá¡¿∩ «Γñѽ∞¡«⌐    »α«úαá¼¼δ     ¡á     Turbo     Vision
  146. ߬«¡µÑ¡Γα¿α«óá¡á ó  ¼ÑΓ«ñáσ  Init,  Draw  ¿  HandleEvent »α«úαá¼¼δ.
  147. ì´πτΦ¿⌐ »«ñσ«ñ ¬ óßΓαá¿óá¡¿ε ßπΘÑßΓóπεΘÑ⌐ »α«úαá¼¼δ - φΓ« ó¡áτá½Ñ
  148. ¡á»¿ßáΓ∞ ¿¡ΓÑαΣÑ⌐ß  Turbo Vision,  ¬«Γ«αδ⌐ ºá¼Ñ¡¿Γ ßπΘÑßΓóπεΘ¿⌐,  á
  149. ºáΓѼ óδíαáΓ∞ ¡Ñ«íσ«ñ¿¼δ⌐  ¬«ñ  ¿º  ßΓáα«⌐  »α«úαá¼¼δ.  ü«½∞Φ¿¡ßΓó«
  150. φΓ«ú« ¬«ñá »«»áñÑΓ ó ¼ÑΓ«ñδ Init,  Draw ¿ HandleEvent ¡«óδσ ó¿ñ¿¼δσ
  151. φ½Ñ¼Ñ¡Γ«ó.
  152.      éá¼ »«ΓαÑíπÑΓß∩  «»αÑñѽѡ¡«Ñ óαѼ∩,  τΓ«íδ «ß¼δß½¿Γ∞ ßπΘ¡«ßΓ∞
  153. éáΦÑ⌐ »α«úαá¼¼δ Γá¬,  τΓ«íδ éδ ¼«ú½¿  «Γñѽ¿Γ∞  ¬«ñ  ¿¡ΓÑαΣÑ⌐ßá  «Γ
  154. ¬«ñá, óδ»«½¡∩εΘÑú« αáí«Γπ éáΦÑ⌐ »α«úαá¼¼δ. ¥Γ« ¼«ªÑΓ íδΓ∞ ¡Ñ»α«ßΓ«,
  155. »«ß¬«½∞¬π éδ »α¿ó䬽¿ »αÑñßΓáó½∩Γ∞ »α«úαá¼¼π »«-ñαπú«¼π.
  156.      Éáí«Γá »«  »ÑαÑ¡«ßπ  íπñÑΓ ó¬½ετáΓ∞ «»αÑñѽѡ¡«Ñ »ÑαÑ»¿ßδóá¡¿Ñ
  157. ñ½∩ Γ«ú«,  τΓ«íδ ¡áπτ¿Γ∞ ¡«óδÑ «íΩѬΓδ »αÑñßΓáó½∩Γ∞ ßἿσ  ßÑí∩,  á
  158. ΓᬠªÑ   »α¿óÑñÑΓ   ¬   «Γíαáßδóá¡¿ε  í«½∞Φ«ú«  ¬«½¿τÑßΓóá  ßΓáα«ú«
  159. ¿¡ΓÑαΣÑ⌐ß¡«ú« ¬«ñá.  ¥Γ« ¡Ñ ñ«½ª¡« »α¿ó«ñ¿Γ∞ ¬ ¡«óδ¼ «Φ¿í¬á¼  ¿  éδ
  160. íπñÑΓÑ ñѽáΓ∞ φΓ« ß πñ«ó«½∞ßΓó¿Ñ¼.
  161.      àß½¿ éδ »ÑαÑ¡«ß¿ΓÑ »α«úαá¼¼π,  éδ íπñÑΓÑ  πñ¿ó½Ñ¡δ,  «í¡áαπª¿ó
  162. ¬á¬ ¼¡«ú«   ¬«ñá   »αÑñ¡áº¡áτÑ¡«  ñ½∩  π»αáó½Ñ¡¿∩  »«½∞º«óáΓѽ∞߬¿¼
  163. ¿¡ΓÑαΣÑ⌐ß«¼. è«úñá éδ  »«ºó«½¿ΓÑ  Turbo  Vision  αáí«ΓáΓ∞  ºá  éáß,
  164. í«½∞Φá∩ τáßΓ∞   αáí«Γδ  »«½∞º«óáΓѽ∞߬«ú«  ¿¡ΓÑαΣÑ⌐ßá,  ¬«Γ«απε  éδ
  165. ñѽ὿ αá¡∞ΦÑ, »α«ßΓ« ¿ßτѺ¡ÑΓ.
  166.      îδ «í¡áαπª¿½¿  φΓ«,  ¬«úñá  »ÑαÑ¡«ß¿½¿  ¿¡ΓÑúα¿α«óá¡¡πε  ßαÑñπ
  167. Turbo Pascal ó Turbo Vision.  îδ «ßó«í«ñ¿½¿ ¬«¼»¿½∩Γ«α,  αÑñá¬Γ«α ¿
  168. «Γ½áñτ¿¬ «Γ  ßΓáα«ú«  »«½∞º«óáΓѽ∞߬«ú« ¿¡ΓÑαΣÑ⌐ßá ¿ »ÑαÑ¡Ñß½¿ ¿σ ó
  169. »«½∞º«óáΓѽ∞߬¿⌐ ¿¡ΓÑαΣÑ⌐ß, ¡á»¿ßá¡¡δ⌐ ¡á Turbo Vision.
  170.  
  171.  
  172.                       ÅÑαÑ«ß¼δ߽ѡ¿Ñ »α«Ñ¬Γá.
  173.  
  174.      é Γαáñ¿µ¿«¡¡«¼  »α«úαá¼¼¿α«óá¡¿¿ ¼δ ñπ¼á½¿ « »α«úαá¼¼Ñ ß Γ«τ¬¿
  175. ºαÑ¡¿∩ ¬«ñá.  ÆÑ»Ñα∞ ¼δ ¼«ªÑ¼ »«»δΓáΓ∞ß∩ «αúá¡¿º«óáΓ∞ »α«úαá¼¼π Γá¬
  176. ªÑ, ¬á¬   ¿¡ΓÑúα¿α«óá¡¡á∩   ßαÑñá   Turbo  Pascal  «¬απªáÑΓ  «íΩѬΓ
  177. αÑñá¬Γ«αá. ü«½∞Φπε τáßΓ∞ óαѼѡ¿ ó ¿¡ΓÑúα¿α«óá¡¡«⌐ ßαÑñÑ éδ ΓαáΓ¿ΓÑ
  178. ¡á αÑñá¬Γ¿α«óá¡¿Ñ. ÉÑñá¬Γ«α íπñÑΓ αÑñá¬Γ¿α«óáΓ∞, á ó »α«¼ÑªπΓ¬áσ «Γ
  179. óδºδóáÑΓ ¬«¼»¿½∩Γ«α.
  180.      ì« ΓαÑíπÑΓß∩    ¿º¼Ñ¡¿Γ∞    »Ñαß»Ñ¬Γ¿óπ,    τΓ«íδ    »αáó¿½∞¡«
  181. ¿ß»«½∞º«óáΓ∞ ¼«Θ∞ ÄÄÅ.  ê¼ÑÑΓ ß¼δß½ ó ß½πτáÑ ¿¡ΓÑúα¿α«óá¡¡«⌐  ßαÑñδ
  182. ßñѽáΓ∞ ßá¼π  »α«úαá¼¼π  «íΩÑ¬Γ«¼.  è«úñá ¡Ñ«íσ«ñ¿¼« αÑñá¬Γ¿α«óáΓ∞,
  183. »α«úαá¼¼á óδºδóáÑΓ  αÑñá¬Γ«α.   è«úñá   ¡Ñ«íσ«ñ¿¼«   ¬«¼»¿½¿α«óáΓ∞,
  184. »α«úαá¼¼á óδºδóáÑΓ  ¬«¼»¿½∩Γ«α, ¿¡¿µ¿á½¿º¿απ∩  Ñú«  ¿  ú«ó«α∩ ¬á¬¿Ñ
  185. Σá⌐½δ ¬«¼»¿½¿α«óáΓ∞.
  186.      àß½¿ ¬«¼»¿½∩Γ«α  óßΓαÑΓ¿½  «Φ¿í¬π ¬á¬ »«½∞º«óáΓѽ∞ óÑα¡ÑΓß∩ ¡á
  187. Γ«τ¬π «Φ¿í¬¿ ó  ¿ßσ«ñ¡«¼  ¬«ñÑ?  Åα«úαἼᠠóδºδóáÑΓ  ¬«¼»¿½∩Γ«α  ¿
  188. »«½πτáÑΓ αѺπ½∞ΓáΓ  «Γ  ¡Ñú«.  àß½¿ ¬«¼»¿½∩Γ«α ó«ºóαáΘáÑΓ «Φ¿í«τ¡δ⌐
  189. αѺπ½∞ΓáΓ, «¡ ΓᬠªÑ ó«ºóαáΘáÑΓ ¿¼∩ Σá⌐½á ¿ ¡«¼Ñα ßΓ᫬¿. Åα«úαá¼¼á
  190. ß¼«Γα¿Γ, «Γ¬αδΓ ½¿ αÑñá¬Γ«α ñ½∩ φΓ«ú« Σá⌐½á, ¿ Ñß½¿ ¡ÑΓ - «Γ¬αδóáÑΓ
  191. Ñú«. Ä¡ »ÑαÑñáÑΓ ¿¡Σ«α¼áµ¿ε  «í  «Φ¿í¬Ñ,  ó¬½ετá∩  ¡«¼Ñα  ßΓ᫬¿  ó
  192. αÑñá¬Γ«α ¿ ¬«¡ßΓαπ¿απÑΓ ßΓ᫬π ß««íΘÑ¡¿∩ «í «Φ¿í¬Ñ ñ½∩ αÑñá¬Γ«αá.
  193.  
  194.  
  195.                   êß»«½∞º«óá¡¿Ñ »«í¿Γ«óδσ »«½Ñ⌐.
  196.  
  197.      é¿ñ¿¼δÑ φ½Ñ¼Ñ¡Γδ Turbo  Vision  ¿ß»«½∞ºπεΓ  »«½∩  ß  »«í¿Γ«óδ¼
  198. «Γ«íαáªÑ¡¿Ñ¼. Æ.Ñ.  «¡¿  ¿ß»«½∞ºπεΓ  «Γñѽ∞¡δÑ í¿Γδ íá⌐Γá ¿½¿ ß½«óá
  199. ñ½∩ π¬áºá¡¿∩ αẽ¿τ¡δσ ßó«⌐ßΓó.  ÄΓñѽ∞¡δÑ í¿Γδ  «íδτ¡«  ¡áºδóáεΓß∩
  200. Σ½áúἿ, »«ß¬«½∞¬π  «¡¿  πßΓá¡áó½¿óáεΓß∩  (1)  ¿½¿  «τ¿ΘáεΓß∩  (0),
  201. π¬áºδóá∩, ∩ó½∩ÑΓß∩ ½¿ ñá¡¡«Ñ ßó«⌐ßΓó« á¬Γ¿ó¡δ¼.
  202.      ìá»α¿¼Ñα, ¬áªñδ⌐  ó¿ñ¿¼δ⌐  φ½Ñ¼Ñ¡Γ  ¿¼ÑÑΓ  »«½Ñ  Options  Γ¿»á
  203. ß½«ó«. èáªñδ⌐ «Γñѽ∞¡δ⌐ í¿Γ ß½«óá ¿¼ÑÑΓ αẽ¿τ¡«Ñ º¡áτÑ¡¿Ñ  ó Turbo
  204. Vision.
  205.  
  206.  
  207.                          ç¡áτÑ¡¿∩ Σ½áú«ó.
  208.  
  209.      é ñ¿áúαá¼¼Ñ,  «»¿ßδóáεΘÑ⌐ í¿Γδ »«½∩ Options (α¿ß.4.14 ú½áóδ 4)
  210. msb π¬áºδóáÑΓ ßΓáαΦ¿⌐ í¿Γ, á lsb π¬áºδóáÑΓ ¼½áñΦ¿⌐ í¿Γ.
  211.      Æᬠ¡á»α¿¼Ñα 4-δ⌐ í¿Γ ¡áºδóáÑΓß∩ ofFramed.  àß½¿ í¿Γ  ofFramed
  212. πßΓá¡«ó½Ñ¡ ó  1,  φΓ«  «º¡áτáÑΓ,  τΓ« ó¿ñ¿¼δ⌐ φ½Ñ¼Ñ¡Γ ¿¼ÑÑΓ ó¿ñ¿¼πε
  213. αἬπ. àß½¿ í¿Γ αáóÑ¡ 0, ó¿ñ¿¼δ⌐ φ½Ñ¼Ñ¡Γ ¡Ñ ¿¼ÑÑΓ αἬ¿.
  214.      Äíδτ¡« éáß   ¡Ñ   ¿¡ΓÑαÑßπεΓ   º¡áτÑ¡¿∩  Σ½áú«ó,  Ñß½¿  éδ  ¡Ñ
  215. ß«í¿αáÑΓÑß∞ «»αÑñѽ¿Γ∞  ßó«¿  ¿  ñáªÑ  ó  φΓ«¼  ß½πτáÑ  éáß   íπñÑΓ
  216. ¿¡ΓÑαÑß«óáΓ∞ Γ«½∞¬«  Γ«,  τΓ«íδ  éáΦ¿ «»αÑñѽѡ¿∩ í뫨 π¡¿¬á½∞¡δ¼¿.
  217. ìá»α¿¼Ñα, 6 ßΓáαΦ¿σ í¿Γ ó  ß½«óÑ  Options  ¡Ñ  «»αÑñÑ½Ñ¡δ  ó  Turbo
  218. Vision.  éδ  ¼«ªÑΓÑ  «»αÑñѽ¿Γ∞  ½εí«⌐  ¿º  ¡¿σ  ß  ¡Ñ«íσ«ñ¿¼δ¼ éá¼
  219. ß¼δß½«¼.
  220.  
  221.  
  222.                           ü¿Γ«óδÑ ¼á߬¿.
  223.  
  224.      îá߬á -  φΓ«  »α«ßΓ«  πñ«í¡δ⌐  ß»«ß«í  «íαáí«Γ¬¿ úαπ»»δ Σ½áú«ó
  225. ó¼ÑßΓÑ. ìá»α¿¼Ñα, Turbo Vision «»αÑñѽ∩ÑΓ ¼á߬¿ ñ½∩ αẽ¿τ¡δσ ó¿ñ«ó
  226. ß«íδΓ¿⌐. îá߬ᠠevMouse »α«ßΓ« ß«ñÑαª¿Γ óßÑ 4 í¿Γá, πßΓá¡áó½¿óáѼδÑ
  227. ñ½∩ αẽ¿τ¡δσ  ó¿ñ«ó  ß«íδΓ¿⌐  «Γ  ¼δΦ¬¿.  Å«φΓ«¼π  Ñß½¿   ó¿ñ¿¼«¼π
  228. φ½Ñ¼Ñ¡Γπ ¡Ñ«íσ«ñ¿¼«  »α«óÑα¿Γ∞ ß«íδΓ¿Ñ «Γ ¼δΦ¬¿,  «¡ ¼«ªÑΓ ßαáó¡¿Γ∞
  229. Γ¿» ß«íδΓ¿∩ ß ¼á߬«⌐ ó¼ÑßΓ« Γ«ú«,  τΓ«íδ »α«óÑα∩Γ∞ ¬áªñδ⌐ ¿º  ó¿ñ«ó
  230. ß«íδΓ¿⌐ «Γ ¼δΦ¬¿.
  231.  
  232.  
  233.                         Å«í¿Γ«óδÑ «»Ñαᵿ¿.
  234.  
  235.      Turbo Pascal   »αÑñ«ßΓáó½∩ÑΓ   α∩ñ   »«½Ñº¡δσ   «»Ñαᵿ⌐   ñ½∩
  236. ¼á¡¿»π½∩µ¿¿ í¿ΓἿ.   é¼ÑßΓ«   ñÑΓá½∞¡«ú«   «íΩ∩ß¡Ñ¡¿∩   ¬áªñ«⌐  ¿º
  237. «»Ñαᵿ⌐, φëàαáºñѽ »α«ßΓ« ú«ó«α¿Γ τΓ« éδ ñ«½ª¡δ  ßñѽáΓ∞,  τΓ«íδ
  238. óδ»«½¡¿Γ∞ αáí«Γπ.
  239.  
  240.  
  241.                           ôßΓá¡«ó¿Γ∞ í¿Γ.
  242.  
  243.      ùΓ«íδ πßΓá¡«ó¿Γ∞ í¿Γ ¿ß»«½∞ºπ⌐ΓÑ «»ÑαáΓ«α or.  ìá»α¿¼Ñα, τΓ«íδ
  244. πßΓá¡«ó¿Γ∞ í¿Γ  ofPostProcess  ó  »«½Ñ  Options ñ½∩ ¬¡«»¬¿ MyButton
  245. ¿ß»«½∞ºπ⌐ΓÑ:
  246.  
  247.      MyButton.Options := MyButton.Options or ofPostProcess;
  248.  
  249.      éδ ¼«ªÑΓÑ ¿ß»«½∞º«óáΓ∞ ß½«ªÑ¡¿Ñ ñ½∩  πßΓᡫ󬿠 í¿Γ«ó,  Γ«½∞¬«
  250. Ñß½¿ éδ  áíß«½εΓ¡«  πóÑαÑ¡δ  τΓ«  ñѽáÑΓÑ.  ìá»α¿¼Ñα,  Ñß½¿  ó¼ÑßΓ«
  251. »αÑñδñπΘÑú« ¬«ñá éδ ¿ß»«½∞ºπÑΓÑ
  252.  
  253.      MyButton.Options := MyButton.Options + ofPostProcess;
  254.  
  255.      éáΦá «»Ñαᵿ∩  íπñÑΓ  αáí«ΓáΓ∞  Ñß½¿   ¿   Γ«½∞¬«   Ñß½¿   í¿Γ
  256. ofPostProcess  ¡Ñ  íδ½  πßΓá¡«ó½Ñ¡.  àß½¿  í¿Γ  πªÑ íδ½ πßΓá¡«ó½Ñ¡,
  257. ñó«¿τ¡«Ñ ß½«ªÑ¡¿Ñ »α¿óÑñÑ¡ ¬ »ÑαÑ¡«ßπ ó ß½ÑñπεΘ¿⌐ í¿Γ (ofBuffered),
  258. πßΓá¡áó½¿óá∩ ¿½¿ «τ¿Θá∩ ó ºáó¿ß¿¼«ßΓ¿ «Γ Ñú« º¡áτÑ¡¿∩.
  259.      äαπú¿¼¿ ß½«óἿ:   »α¿íáó½Ñ¡¿Ñ   í¿Γ«ó   ¼«ªÑΓ   »α¿óÑßΓ¿    ¬
  260. ¡Ñ«ª¿ñá¡¡δ¼ φΣΣѬΓá¼. é¼ÑßΓ« φΓ«ú« ¿ß»«½∞ºπ⌐ΓÑ «»Ñαᵿε or.
  261.      çá¼ÑΓ¿¼, τΓ«  éδ  ¼«ªÑΓÑ  πßΓá¡«ó¿Γ∞  ¡Ñ߬«½∞¬«  í¿Γ  ó  «ñ¡«⌐
  262. «»Ñαᵿ¿. æ½ÑñπεΘ¿⌐ ¬«ñ íπñÑΓ πßΓá¡áó½¿óáΓ∞ 2 αẽ¿τ¡δσ Σ½áúá:
  263.  
  264.      MyScroller.GrowMode := MyScroller.GrowMode or
  265.                             (gfGrowHiX + gfGrowHiY);
  266.  
  267.  
  268.                            Äτ¿ßΓ¿Γ∞ í¿Γ.
  269.  
  270.      Äτ¿ßΓ¿Γ∞ í¿Γ  Γᬠ ªÑ  »α«ßΓ«,  ¬á¬  ¿  πßΓá¡«ó¿Γ∞.  éδ »α«ßΓ«
  271. ¿ß»«½∞ºπÑΓÑ ñαπúπε  «»Ñαᵿε.   ïπτΦ¿⌐   ß»«ß«í   ßñѽáΓ∞   φΓ«   -
  272. ¿ß»«½∞º«óáΓ∞ ¬«¼í¿¡áµ¿ε   ñóπσ   »«í¿Γ«óδσ   «»Ñαᵿ⌐  and  ¿  not.
  273. ìá»α¿¼Ñα, τΓ«íδ «τ¿ßΓ¿Γ∞  í¿Γ  dmLimitLoX  ó  »«½Ñ  DragMode  ¼ÑΓ¬¿
  274. ÇLabel ¿ß»«½∞ºπ⌐ΓÑ
  275.  
  276.      ALabel.DragMode := ALabel.DragMode and not dmLimitLoX;
  277.  
  278.      èᬠ¿  »α¿  πßΓá¡«ó¬Ñ éδ ¼«ªÑΓÑ «τ¿ßΓ¿Γ∞ ¡Ñ߬«½∞¬« í¿Γ ó «ñ¡«⌐
  279. «»Ñαᵿ¿.
  280.  
  281.  
  282.                           Åα«óÑα¿Γ∞ í¿Γδ.
  283.  
  284.      ùáßΓ« ¡Ñ«íσ«ñ¿¼«  »α«óÑα¿Γ∞,  πßΓá¡«ó½Ñ¡ ½¿ «»αÑñѽѡ¡δ⌐ Σ½áú.
  285. Åα¿ φΓ«¼ ¿ß»«½∞ºπÑΓß∩  «»Ñαᵿ∩  and.  ìá»α¿¼Ñα,  ñ½∩  Γ«ú«,  τΓ«íδ
  286. »α«óÑα¿Γ∞, ¼«ªÑΓ  ½¿  «¬¡«  AWindow  íδΓ∞  αẼÑΘÑ¡¡δ¼ τÑαÑ»¿µÑ⌐ ¡á
  287. »á¡Ñ½¿ φ¬αá¡á, »α«óÑα∞ΓÑ Σ½áú ofTileable:
  288.  
  289.      if AWindow.Options and ofTileable = ofTileable then ...
  290.  
  291.  
  292.                        êß»«½∞º«óá¡¿Ñ ¼áß«¬.
  293.  
  294.      ÆᬠªÑ, ¬á¬ »α¿ »α«óÑα¬Ñ «Γñѽ∞¡δσ í¿Γ, éδ ¼«ªÑΓÑ ¿ß»«½∞º«óáΓ∞
  295. and ñ½∩  »α«óÑન,  πßΓá¡«ó½Ñ¡  ½¿  «ñ¿¡  ¿½¿  í«½ÑÑ  í¿Γ«ó  ¼á߬¿.
  296. ìá»α¿¼Ñα, ñ½∩  Γ«ú«,  τΓ«íδ »«ß¼«ΓαÑΓ∞,  ß«ñÑαª¿Γ ½¿ ºá»¿ß∞ ß«íδΓ¿∩
  297. ß«íδΓ¿Ñ «Γ ¼δΦ¬¿, éδ ¼«ªÑΓÑ »α«óÑα¿Γ∞:
  298.  
  299.       if Event.What and evMouse <> 0 then ...
  300.  
  301.  
  302.                               êΓ«ú¿.
  303.  
  304.      æ½ÑñπεΘ¿⌐ ß»¿ß«¬ ß«ñÑαª¿Γ óßÑ »«í¿Γ«óδÑ «»Ñαᵿ¿:
  305.  
  306.      ôßΓá¡«ó¿Γ∞ í¿Γ:
  307.      field := field or flag;
  308.  
  309.      Äτ¿ßΓ¿Γ∞ í¿Γ:
  310.      field := field and not flag;
  311.  
  312.      Åα«óÑα¿Γ∞, πßΓá¡«ó½Ñ¡ ½¿ Σ½áú:
  313.      if field and  flag = flag then ...
  314.  
  315.      Åα«óÑα¿Γ∞, πßΓá¡«ó½Ñ¡ ½¿ Σ½áú ó ¼á߬Ñ:
  316.      if flag and mask <> 0 then ...
  317.  
  318.  
  319.