                              10.

                              .

       ᮤন ᪮쪮 ⥫ ।  ⮬,
 ᯮ짮   Turbo   Vision      䥪⨢.   ᪮
ꥪ⭮-ਥ஢ ணࠬ஢        ணࠬ஢,
ࠢ塞  ᮡﬨ  -      楯     
ணࠬ⮢,    ஡㥬  ।⠢    ᮢ   
ᯮ짮  ࠤ.


                 ⫠ ணࠬ  Turbo Vision.

     ᫨   ⠥  ஢  -    ਬ஢
⮣ 㪮⢠,   ,  ⭮,  ,        
 祭 . ᪮ ணࠬ  Turbo Vision ࠢ
ᮡﬨ,     ணࠬ  ६   横 
TGroup.Execute     ந  -   ᮡ⨥.   
१ ஢ ⮩ 窨   ᫠.

     ਬ砭: 祬  ⫠ ணࠬ  Turbo Vision 
窨 뢠  ⮫쪮 窨 뢠.

      ᬮਬ   ࠧ 窨 뢠, ⮡
㦨 ஡  ணࠬ  Turbo Vision.


                         .

       ஡  ⫠ 襩 ணࠬ   
 ⮬,    -    襣      㤥  믮.
ਬ,   ⬥   ப      
 ,   맢 ,  ⮣  ந室.
     筮  蠣 室 ணࠬ     ,    
   ⮩  ,    ⥬ ᬮ  ந室 
⮣   ந室.  ᫨  ஡ ᤥ , 
   .      ᤥ  ᫥騩 蠣,   ୥
⭮   ,   뫨.
     訩 室   ⮩ 樨 - ⠭  뢠 
⮤ HandleEvent,      뢠       騩
ࠢ. ⠭  뢠  砫 ⮤ HandleEvent
  ணࠬ ⠭    ,  ஢    ᮡ,
⮡ 㡥,      ᮡ⨥, ஥  . 
⠪     믮  ஢    ⮩  窨,   ᪮
HandleEvent   ,  ⪫騩   ,  -   ,
  ᠫ,   ᫥⥫쭮    ஢.


                         ஢ .

     ,   稭,    ꥪ 
  㢨 ᮡ⨥,  ஥    ।. ࢠ
 ⥩  訡  -    ⠭  ⨯  ᮡ  ᪥
ᮡ⨩ 襣 ꥪ.  ᫨   ᪠ ᢮ ꥪ,  
ࠧ襭  ࠡ  ।  ᮡ,     㢨
 ᮡ⨩!


                        ࠤ ᮡ.

      ,    室 ᬮ -  ,
 㣮 ꥪ  "" ᮡ⨥.  .. ᮡ⨥ ࠡ⠭ 
饭  ⥬ ꥪ⮬, ஬  ॢ । ᮡ⨥.
       ந室  ᪮쪨  稭.  ࢠ  -  
㡫஢   :  ᫨   祭 
⠭⭮ 祭,     ࠡ뢠  塞.
 祬  室  ᫥,    ⠭⠬ 
 祭,  ᮡ  樨,   ୮ ᯮ
 㫥.
       稭  㡫஢ ⮪ , ᮡ
 ୮ ᯮ짮 .  ,  ᫨  砥 
cmJump   ⮤ HandleEvent   -  㣮  ꥪ,
 㦥  ⪫     cmJump   ஬  뫨,
   ਢ     䫨⠬.   ᥣ   ᬠਢ   
ᯮ     㣨    ꥪ    ᮡ,       
"ﭭ묨".


                          ।.

      㡥,    ᮡ⨥    뫮 ࠡ⠭  맮
। ꥪ.   ⮤ HandleEvent ஦ ⨯ 뢠
ࠡ稪 ᮡ⨩    ।   ࠡ⪨ 設⢠ ᮡ⨩,
   ࠡ     ᮡ⨩.  ⠩
墠 ᮡ⨥  맮 HandleEvent ।.


                    ,  .

     ।,   ⮡ࠦ,  뢮   -
 ⫨筮    ⮣,     .   㪠뢠  ,  
ᮡ⨥  ࠡ⠭  ࠢ쭮,    ,    ⪫  
ᮡ⨥  ४⥭    ४.    ⮬  砥    ᥣ
⠭  뢠   ணࠬ,    뢠  
⮬ ᮡ⨨.  ᫥  뢠  믮   ஢
 .


                            ᠭ.

     訡, ਢ騥  ᠭ,   㤭 ᫥,
       .    砫      ஡
 祪  뢠,  ।  ࠭   樨
,   ஬  ந室  ᠭ.  ⥬   ᬮ,   
᢮    㪠⥫  .      ந  
    ᢮  ᢮  楬,     ⥬   
⠥ ᢮  . ਬ:

     {   ਢ  ᠭ ⥬ }
     var
       Bruce, Pizza: PGroup;
       R: TRect;
     begin
       R.Assign(5, 5, 10, 20);
       Pizza := New(PGroup, Init(R));
       R.Assign(10, 10, 20, 20);
       Bruce := New(PGroup, Init(R));
       Bruce^.Insert(Pizza);
       Dispose(Bruce, Done);
       Dispose(Pizza, Done);
     end;

     ᢮ 㯯   Bruce  ⠪    ᢮  
Pizza. ᫨    ⠥  ᢮  Pizza,      ணࠬ
᭥.
      ᠭ  ⠪   ਢ  ⥭    ⮪  
訡 ⨯  ꥪ    ४⭮  ਢ  ⨯  
権.


               ࠨ ணࠬ  Turbo Vision.

     ᫨   ந  ணࠬ  Turbo Vision,
   ந 䥩 Turbo  Vision    ணࠬ
   ᫮  Turbo  Vision  襩 ணࠬ.   㤥
㤠筠 ⪠.  ணࠬ Turbo Vision ࠢ ᮡﬨ  
設⢮   ணࠬ  㤥      (᫨ 
) ८ࠧ  ⮩ ࠤ.


                 ""  ண .

      ⮩    .         ,      魮
ணࠬ஢ ⤥쭮    ணࠬ          Turbo     Vision
᪮業஢   ⮤  Init,  Draw    HandleEvent ணࠬ.
訩 室  ࠨ 饩 ணࠬ -  砫
 䥩  Turbo Vision,    騩,  
⥬  室      ன  ணࠬ.  設⢮
⮣    ⮤ Init,  Draw  HandleEvent  
⮢.
      ॡ  । ६,  ⮡ ᫨ 魮
襩 ணࠬ ⠪,  ⮡    ⤥    䥩  
, 믮饣 ࠡ 襩 ணࠬ.    ,
᪮  ਢ몫 ।⠢ ணࠬ -㣮.
        ७  㤥  । ९뢠
 ⮣,  ⮡   ꥪ ।⠢ ᠬ  ᥡ,  
⠪    ਢ      뢠  讣  ⢠  ண
䥩᭮ .     ਢ   訡    
㤥    㤮⢨.
     ᫨  ७ ணࠬ,   㤥  㤨,  㦨
       ।祭    ࠢ  짮⥫᪨
䥩ᮬ.      Turbo  Vision  ࠡ    ,
    ࠡ  짮⥫᪮  䥩,    
 ࠭,  祧.
      㦨  ,    ७ᨫ  ⥣஢  ।
Turbo Pascal  Turbo Vision.   ᢮ ,  । 
⫠稪   ண  짮⥫᪮ 䥩  ७᫨  
짮⥫᪨ 䥩, ᠭ  Turbo Vision.


                      ८᫥ ஥.

      ࠤ樮  ணࠬ஢  㬠  ணࠬ  窨
७ .      ࣠ ணࠬ ⠪
,    ⥣஢   ।   Turbo  Pascal  㦠  ꥪ
।.   ६  ⥣஢ ।  
 ।஢.  㤥 ।஢,   ஬⪠ 
뢠 .
      ॡ        ᯥ⨢,    ⮡    ࠢ쭮
ᯮ짮  .     砥 ⥣஢  ।
ᤥ ᠬ  ணࠬ  ꥪ⮬.   室 ।஢,
ணࠬ 뢠  ।.      室   ஢,
ணࠬ 뢠  , 樠       
䠩 ஢.
     ᫨   ⨫  訡  짮⥫ ୥ 
 訡   室  ?  ணࠬ  뢠    
砥 १    .  ᫨  頥 訡
१,  ⠪  頥  䠩   ப. ணࠬ
ᬮ,   ।  ⮣ 䠩,  ᫨  - 뢠
.  । ଠ    訡,      ப  
।   ப ᮮ饭  訡  ।.


                  ᯮ짮 ⮢ .

       Turbo  Vision  ᯮ      ⮢
⮡ࠦ. ..    ᯮ  ⤥    ᫮
 㪠 ࠧ ᢮.  ⤥   筮  뢠
䫠, ᪮    ⠭  (1)      (0),
㪠뢠,    ᢮⢮ ⨢.
     ਬ,           Options  ⨯
᫮.  ⤥  ᫮  ࠧ筮 祭   Turbo
Vision.


                         祭 䫠.

      ࠬ,  뢠饩   Options (.4.14  4)
msb 㪠뢠 訩 ,  lsb 㪠뢠 訩 .
      ਬ 4-  뢠 ofFramed.  ᫨   ofFramed
⠭   1,    砥,      
ࠬ. ᫨  ࠢ 0,     ࠬ.
     筮          祭  䫠,  ᫨    
ᮡࠥ ।  ᢮        ⮬  砥     㤥
ᮢ ⮫쪮  ,  ⮡   । 뫨 㭨묨.
ਬ, 6     ᫮  Options    ।    Turbo
Vision.      ।          室 
᫮.


                          ⮢ ᪨.

     ᪠ -      㤮  ᯮᮡ  ࠡ⪨ 㯯 䫠
. ਬ, Turbo Vision । ᪨  ࠧ 
ᮡ⨩. ᪠  evMouse  ᮤন  4 , ⠭
 ࠧ    ᮡ⨩    誨.  ⮬  ᫨   
 室  ஢ ᮡ⨥  誨,    ࠢ
⨯ ᮡ  ᪮  ⮣,  ⮡ ஢    
ᮡ⨩  誨.


                        ⮢ 樨.

     Turbo Pascal   ।⠢         権   
樨 ⠬.      ⠫쭮   ᭥     
権,  ࠧ       ᤥ,  ⮡
믮 ࠡ.


                          ⠭ .

     ⮡ ⠭  ᯮ  or.  ਬ, ⮡
⠭   ofPostProcess      Options   MyButton
ᯮ:

     MyButton.Options := MyButton.Options or ofPostProcess;

       ᯮ짮 ᫮   ⠭  ⮢,  ⮫쪮
᫨   ᮫⭮  㢥७    .  ਬ,  ᫨  
।饣   ᯮ

     MyButton.Options := MyButton.Options + ofPostProcess;

        㤥  ࠡ  ᫨      ⮫쪮   ᫨   
ofPostProcess      ⠭.  ᫨    㦥  ⠭,
筮 ᫮ ਢ  ७  ᫥騩  (ofBuffered),
⠭    ᨬ   祭.
     㣨 ᫮:   ਡ   ⮢      ਢ    
 䥪⠬.  ⮣ ᯮ  or.
     ⨬,       ⠭  ᪮쪮      
樨. 騩  㤥 ⠭ 2 ࠧ 䫠:

     MyScroller.GrowMode := MyScroller.GrowMode or
                            (gfGrowHiX + gfGrowHiY);


                            .

        ⠪    ,      ⠭.   
ᯮ   .   訩   ᯮᮡ   ᤥ      -
ᯮ짮       ⮢   権  and    not.
ਬ, ⮡     dmLimitLoX      DragMode  ⪨
Label ᯮ

     ALabel.DragMode := ALabel.DragMode and not dmLimitLoX;

          ⠭    ᪮쪮   
樨.


                          ஢ .

      室  ஢,  ⠭  । 䫠.
 ⮬ ᯮ    and.  ਬ,    ⮣,  ⮡
஢,       AWindow    ࠧ饭 ९楩 
 ࠭, ஢ 䫠 ofTileable:

     if AWindow.Options and ofTileable = ofTileable then ...


                       ᯮ짮 ᮪.

      ,   ஢થ ⤥ ,   ᯮ짮
and   ஢ન,  ⠭          ⮢  ᪨.
ਬ,   ⮣,  ⮡ ᬮ,  ᮤন   ᮡ
ᮡ⨥  誨,   ஢:

      if Event.What and evMouse <> 0 then ...


                              ⮣.

     騩 ᯨ᮪ ᮤন  ⮢ 樨:

     ⠭ :
     field := field or flag;

      :
     field := field and not flag;

     ஢, ⠭  䫠:
     if field and  flag = flag then ...

     ஢, ⠭  䫠  ᪥:
     if flag and mask <> 0 then ...


