                                 2.

                   TURBO VISION.

                              3.

                         .

       ।,        Turbo  Pascal,
ᮡ ꥪ⭮-ਥ஢   ७,         㤥
    ଠ      ⨯    ꥪ⮢.    
।,    ⠫  1 ⮣ 㪮⢠  稫
 䨫䨨 ⥩  ନ Turbo Vision.
     ᫥   砭        娨      
⪨   娨  ꥪ⮢  Turbo  Vision,    ᮡ
    裡  ꥪ⮢  १  堭  ᫥.
   ᢮⢮    ⠭⭮  ⨯  ꥪ⮢  
 ।⠢    ⮬    ᫥   ꥤ
  ⮤ ꥪ  ᮧ 㭪樮쭮 ⮣ ꥪ.
      ᪮  ॢ   .3.1.   
⥫쭮 祭 ⮣ 㭪.  ਬ,  ଠ  ⮬ 
TDialog  ஦  TWindow,   ஦  TGroup,  
஦  TView  ⥫쭮  ᮪頥  ६  祭.  
  ஦ ⨯  㦥  㭠᫥ ᢮⢠.
  砥 ⥫      ᢮⢠,  묨  
 ᢮ த⥫.

             . 3.1  ꥪ⮢ Turbo Vision.

TObjectTCollectionTSortedCollectionTStringCollection
        TResourceFile                       TResourceCollection
        TStreamTEmsStream
        TStringList TDosStreamTBufStream
        TStrListMaker
        TViewTClusterTCheckBoxes
                      TFrame        TRadioButtons
                      TGroupTDeskTop
                      TBackGround   TProgramTApplication
                      TButton       TWindowTHistoryWindow
                      TStaticTextTLabel    TDialog
                      THistory      TParamText
                      TListViewerTHistoryViewer
                      TInputLine    TListBox
                      TMenuViewTMenuBar
                      TScrollBar    TMenuBox
                      TScrollerTTextDeviceTTerminal
                      TStatusLine


        㤥  ࠧࠡ뢠  ᮡ⢥ ணࠬ  Turbo
Vision,   㦨,    饥  室⢮   ⠭   ⨯
ꥪ⮢      ᫥  裡 뢠 ⥫
. 䮢 ⠫ 㤥 믮 ,        
 OO ஥, ࢮ砫쭮 饥 ஢  ꥪ⮢
-    ᯥ.
       ᮢ襭 娨   ணࠬ. 
 ꥪ⮢  -     ।   ஬,   祭
⥫ ᯥਬ⮬   (  ।    ᮢ⭮  
ࠪ⨪).         ࠧࠡ⪥  娨  ⨯
ꥪ⮢. ⢥      ᮧ ᢮ ᮡ⢥ 
⨯ ꥪ⮢  ⨦ ᯥ樠 䥪⮢   ࠢ  
⠭묨 ꥪ⠬.     13 ⠫쭮 ᠭ ⮤  
 ⠭ ⨯ ꥪ⮢,    ,    
饥 ।⠢    ᥩ  娨,   㤥   
⠫.    饥 ।⠢   娨    ⮣,
        ⠫.  ⮪  ⮩      
⠫쭮 ᭥  Turbo  Vision      ᯮ짮.
 3 ਢ 뫮 ਠ  䠢⭮ 浪.


                         ꥪ⮢.

       ⨯ ꥪ⮢    Turbo  Vision  .    
ࠧ   㭪樨    3  ࠧ  㯯:    ꥪ,
 ꥪ      ꥪ.        ᠭ  
⤥쭮 ࠧ ⮩ .
        㯯    ࠧ     ꥪ⮢.
      -    ࠧ뢠  
ᯮ짮 ,   㣨 - ࠪ  ꥪ,    㦠
᭮    ஦      ꥪ⮢.    ⮣,    
ᬮਬ ꥪ      娨,          ⠪
ࠪ ꥪ.


                       ࠪ ꥪ.

      ⨯ ꥪ⮢   "ࠪ⭠"  ᭮,  
ன   ஦    ᯥ樠஢  ⨯
ꥪ⮢. 稭    ᮧ    ࠪ     ⨯     筮
楯㠫쭠,     让  ⥯  㦨  ࠪ᪨ 楫
᮪饭 ᨫ  ஢.
      ਬ  쬥 ⨯ TRadioButtons  TCheckBoxes.  
    אַ ஦  TView.   ࠧ 
 ᢮:     ।⠢    ⮢  ࠢ  
筮 ॠ樥.   ᨬ      宦  
 ᨬ ,   ண ⮫쪮   
 ࠭,        ᪮쪮   㣨   孨᪨
ࠧ稩.   魮  祭    ࠪ    TCluster.
TRadioButtons     TCheckBoxes    ஦        TCluster    
ᯥ樠஢묨 ⮤, ᯥ稢騬  㠫쭮.
     ᫥ ᮧ  ࠪ⭮  ⨯.  ਬ
 MyCluster    TCluster    㤥   ⮤
Draw.    ᫥   TView.Darw      ४    ⠪,    
MyCluster.Draw 㤥        뢮   ⮩   אַ㣮쭨
㬠稢 梥.  ᫨      ᮧ    ⮢
ࠢ   ᢮⢠,  ⫨묨   ᨬ  ᨬ
,     த  TMyCluster    TCluster     
த  ᯥ樠   TRadioButtons  TCheckBoxs 
ᨬ  ⮣,         訬  ॡ.  
 砥    㤥            
४뢠 ⮤  묨  ⠬.  ᫨    
 楫  ᥬ⢮    ஢,      
ᮧ ஬ ࠪ ⨯ ꥪ.


                        ࠪ ⮤.

         ᮧ   ꥪ,   
⥫.    ⠭   ⨯   Turbo   Vision   
ࠪ ⮤,       ।  ஦
⨯. ⠭  ⨯    ⠪       ᥢࠪ
⮤, ।⠢騥    ⢨    㬮砭,  
 㤮⢮  訬  楫,  ᫨         -   ॡ
஦ ⨯.
     饥 ࠢ 砥  ⮬,     த 
 娨   Turbo   Vision   ⠭  ⨯  ⠭  
ᯥ樠஢묨   "ࠪ묨".    ᮮ⢥
㭪樮쭮, 祭      ⮤.   設⢠
ணࠬ  祢묨    ⨯,        ᬮ
ᮧ "⠭" 䥩:  ࠭,  , ப
,    ..


              ஦ ⨯   ꥪ⮢.

        ꥪ⭮  ⨯ 㯭 2 ᭮ 樨:  
 ᮧ    ⮣  ⨯        ந
஦ ꥪ  ⨯.   ᫥ 砥    ⨯
ꥪ,  ஬    ਬ  ।騥  2  樨.
 ᬮਬ  樨.


                        .

        ꥪ  筮  易     
६, ᪮  ᪮:

               MyScrollBar: TScrollBar;
               SomeButton: PButton;

     MyScrollBar 㤥   樠஢   祭ﬨ    
㬮砭   TScrollBar.Init.      ᬮ      ࠧ
TScrollBar.Init   13.  ᪮ TScrollBar ஦  TView,
TScrollBar.Init 뢠   TView.Init,   ⮡   ⠭   ,
㭠᫥    TView.  筮  TView.Init  ᫥  
TObject, ⮬  뢠 ࠪ TObject   ।
. TObject   ।.
     ꥪ MyScrollBar ᥩ  祭     㬮砭,
    .   ⠪    ⮤ TScrollBar
 ⮤  (  ४)    TView    TObject.   ⮡
ᯮ짮 MyScrollBar,    㦭      ⮤,
ᮡ HandleEvent  Draw.  ᫨  ॡ㥬  㭪樮쭮  
।  TScrollBar,  ॡ த  ⨯.


                            ஦.

        த ꥪ ⨯  饣.

               PNewScrollBar = ^TNewScrollBar;
               TNewScrollBar = object(TScrollBar)
                 end;

            ஢  ⮣  ꥪ⭮  ⨯.   
 ꥪ⮢  TNewScrollBar   室 । 
⮤   ४    ⮤  TScrollBar  ,  ,
     ;        稭 
ᮧ  ⨯ ꥪ.     ⮤    
 㭪樮쭮  TScrollBar.   ⮤ Init 㤥
। 祭  㬮砭    ꥪ⮢.


                       ⮤ Turbo Vision.

     ⮤ Turbo  Vision    ࠪਧ   4   (
४뢠騬) ᯮᮡ,    ᠭ .


                        ࠪ ⮤.

       ⨯ ꥪ ࠪ ⮤    ।
⥫ (  ⥫  ᮤন   Abstruct  墠 
맮). ࠪ ⮤    ।  ⮬  
⮣,    ᯮ짮.  ࠪ ⮤ -  ᥣ
㠫 ⮤. ਬ ⠪ ⮤ TStream.Read.


                     ᥢࠪ ⮤.

         ⨯   ꥪ   ᥢࠪ   ⮤   
 ⢨.   ᥣ 㤥 ४뢠 ⮬,
 ⮤  ᮤন  ⢨   㬮砭   ꥪ⮢  楯
᫥. ਬ - TSortedCollection.Compare.


                        㠫 ⮤.

     㠫 ⮤  ᯮ  ४⨢ Virtual  
 ⨯.   㠫   ⮤         ८।
(४) ⮬,    ८। ⮤ ⠪   
㠫     筮  ᮮ⢥⢮ 
ਣ쭮 ⮤.  㠫 ⮤  ॡ ४, 
筮  ࠭   ४뢠. ਬ TView.DataSize.


                        ᪨ ⮤.

     ᪨ ⮤       ४.  ஦  ⨯
 । ⮤  ⥬  , ᯮ ᮢ襭 㣨
㬥  ⨯ , ᫨ 室,  ᪨ ⮤ 
ন 䨧.   筮,   뢠
⮤ ᪨ ꥪ⮢.  ਬ, ᫨ PGeneric - ६
㪠⥫ ⨯ PView,     㪠⥫  ⨯
  娨.      뫪    ६  
뢠 ᪨ ⮤, 맢 ⮤ ᥣ 㤥  TView,
᪮  ⨯ 㪠⥫ ।  ६ 樨. 㣨
᫮,       PGeneric^.StaticMethod      ᥣ      ⥭
TView.StaticMethod,   ᫨    砥  PGeneric  㪠⥫
㣮 ⨯. ਬ TView.Init.


                         Turbo Vision.

     ᫨  쬥 3 ꥪ TView, TGroup  TWindow,  㢨
᫥         㭪樮쭮  
  娨 (ᯮ,   ॢ  ꥪ⮢      
).

         3.1. ᫥   ⮢.

       
        TView     TGroup    TWindow
       
       Owner          Owner           Owner
       Next           Next            Next
       Origin         Origin          Origin
       Size           Size            Size
       Cursor         Cursor          Cursor
       GrowMode       GrowMode        GrowMode
       DragMode       DragMode        DragMode
       HelpCtx        HelpCtx         HelpCtx
       State          State           State
       Options        Options         Options
       EventMask      EventMask       EventMask
                      Buffer          Buffer
                      Phase           Phase
                      Current         Current
                      Last            Last
                                      Flags
                                      Title
                                      Number
                                      ZoomRect
                                      Palette
                                      Frame
       

     ⨬,  TGroup ᫥   TView   ,
 室  権  㯯, ⠪  㪠⥫ 
⥪騩   ᫥     㯯.  TWindow ᫥
  TGroup   , ॡ㥬  権  ,
⠪     .
      ⮣,  ⮡      TWindow     室
,   -  㯯 (group)    (view).


                    ਬ⨢ ⨯ ꥪ⮢.

     Turbo Vision ।⠢ 3    ⨯  ꥪ,  
ᯮ 㣨 ꥪ⠬  ᯮ  ᭮ 娨
 ᫮ ꥪ⮢.  TPoint  TRect ᯮ ᥬ 묨
ꥪ⠬   娨  Turbo  Vision.  Tbjct  -  ᭮ 娨.
⨬,   ꥪ  ⨯    אַ  ⮡ࠦ묨.
TPoint -   ꥪ 樨  ࠭ (X,  Y).  TRect 
ᮤন      ࠢ  ࠭  אַ㣮쭨  
᪮쪮 㠫 ࢨ ⮤.


                              TPoint.

      ꥪ ।⠢ .     X    Y  ।
⥧᪨ (X,  Y) न 樨 ࠭. 窠 (0, 0) - 
  窠 ࠭. X 㢥稢 ਧ⠫쭮 ࠢ, Y
㢥稢 ⨪쭮 .  TPoint   ⮤,  㣨
⨯  ⮤,    ८ࠧ    묨  (
࠭)    묨  (⭮⥫쭮  ᬥ饭    )
न⠬.


                              TRect.

      ꥪ  ।⠢ אַ㣮쭨.    A  B - 
ꥪ ⨯ TPoint,  ।騥        ࠢ
窨 אַ㣮쭨. TRect  ⮤: Assign, Copy, Move, Grou,
Intersect, Union,  Contains,  Equals  Empty. ꥪ ⨯ TRect 
 묨  ⠬    ᮢ ᥡ.   
     אַ㣮묨:    ࠪ  Init
ᯮ ࠬ  Bounds  ⨯  TRect    । ,
  뢠.


                             TObject.

     TObject -    ࠪ  ⨯  .   ।
 ꥪ⮢ Turbo Vision,   ᪫祭 TPoint  TRect. TObject
।⠢ 3   ⮤:  Init,  Free    Done.  ࠪ  Init
ନ ᭮     ࠪ஢  Turbo  Vision,  믮
। .  Free  ᢮  ।.  Done -
  ࠪ  ࠪ,         ४   
⮬.    ꥪ,      ॢ ᯮ짮 
⮪ Turbo Vision   ந묨  TObject.
     ⮬ TObject      2   ᥬ⢠:   
 .    ਧ   TView,  
  ᯥ樠 ᢮⢠,  騥   ⮢.
     ᮢ  ᥡ    ࠡ뢠   ᮡ,
᫠ .    ꥪ  ।⠢    ⨫ 
ࠡ⪨ ⮪   権  㣨  ꥪ⮢,    
,      㠫஢ .


                          .

     ⮡ࠦ ⮬ TObject       
 ஦    TView - ।⢥ ⮬ TObject.  
 ⫨ ""  "⮡ࠦ",  ᪮   
樨,            筮  
㣨 묨 ⠬.


                       ⮢.

         -      ꥪ,      
ᮢ (⮡ࠦ)  אַ㣮쭮   ࠭.    
ꥪ  ᫥  TView.   TView -  ࠪ
ꥪ, ।⠢騩   ࠭.  TView  ⢥
।   ஦        ࠩ 
אַ㣮  ࠭   㠫 ⮤ Draw.
      ணࠬ஢    Turbo  Vision   㤥 ᯮ짮
 ᯥ樠஢  ⮬    TView,    㭪樮쭮
TView ࠭      Turbo  Vision      室
  ᢮⢠.


                              㯯.

      TView     奬 娨, 
 .  3.1.  ,      ணࠬ    Turbo  Vision,
஦  TView.      ⮢ ⠪ 
   㣮  稭.        ᪮쪨   ꥪ⠬
⢮ .


                        ࠪ⭠ 㯯.

     TGroup   ࠡ뢠 ᪨ ᮧ ᯨ᮪
易  ࠪ⨢  ⮢  १  祭  
, 뢠 楬 㯯.    
 Owner ⨯ PView,  ஥ 㪠뢠   ⨯ TGroup.
⥫  祭 nil 砥,       
.    Next  ᯥ稢      ᫥騬  
⮬  楯窥    ⮢.  ᪮  㯯  -  
 ,    ⢮  ,  
ࠧ 㯯 ᢮  ⮢  ..
     ﭨ 楯窨  ﭭ         
  ⬥砭 誮.   㯯  ᮧ  
      (⠢)  㤠
 㯯.   ६  ⢮      
 ⢨ﬨ, ந묨  㣨 ⠬ ⠪, 
㯯 ॡ न஢  ⢨.


                           ࠭.

     TDeskTop -        ଠ   䮭      ,
ᯥ稢騩 ਢ     ࠭   짮⥫,   筮
㦥 ᮩ      ப  .  筮 TApplication
 㯯,   ᮤঠ饩   ꥪ   TDeskTop,   TMenuBar    
TStatusLine. 㣨   ,  ⠪    
, ᮧ,  ⮡ࠦ  㫨   ࠭  
⢥   ⢨  짮⥫  (ᮡ   誨  ).
  ࠡ ணࠬ ந室   ࠭.


                            ணࠬ.

     TProgram ।⠢     㠫  ⮤    
⮬ TApplication.


                       ਪ ணࠬ.

     TApplication ।⠢   ꥪ  ⮢  ணࠬ  
 ணࠬ  Turbo Vision.      ⮬    TGroup
(१ TProgram).   筮         묨  ⠬
TMenuBar, TDeskTop  TStatusLine.  TApplication    ⮤  
ᮧ    ⠢         ⮢.  祢  ⮤
TApplication -     TApplication.Run,      믮   
ணࠬ.


                               .

     ꥪ TWindow,    樨஢ ꥪ⮢ TFrame  -
 אַ㣮쭨      ࠬ,         ६,
  ࠧ  㤠,  ᯮ ⮤, 㭠᫥ 
TView.   Frame  㪠뢠   ꥪ TFrame ⮣ .  ꥪ
Window ⠪    ࠧ  뢠,  ᯮ ᢮
⮤. TWindow  ࠡ뢠    Tab   Shift-Tab  롮
᫥饣  ।饣     . ࠡ稪
ᮡ⨩ TWindow  ࠡ뢠     ࠧ.
஭㬥஢    ࠭ 稬 蠬 Alt-n.


                          .

     TDialog, ஦    TWindow,  ᯮ   ᮧ
 ,  ࠡ뢠  ⢨    짮⥫.
   筮  ᮤঠ    ࠢ ⠪,  
. ⥫᪨ ⮤  ExecView  ᯮ    ࠭
।饣 ⥪,  ⠢ ꥪ TDialog  㯯  ॢ
       ०.  ꥪ TDialog ࠡ뢠
ᮡ,  㥬 짮⥫,  ⠪  ⨥    
.   Esc   室 (cmCancel). 
Enter   ᮡ⨥ cmDefault (筮  砥, 
    㬮砭  ࠭).    ExecView ⠭
।⥫쭮 ࠭ ⥪.


                  ନ  .

     ନ             ,
   㯯.     㣨 묨
⠬.  ,  ᫥⥫쭮,   묨 窠 
楯祪  ⮢.


                              .

     TFrame ᯥ稢 ⮡ࠦ ࠬ  ꥪ⮢ TWindow, 
⠪       ६饭     .  ꥪ TFrame
  ᯮ ⤥쭮,    ६ ᮢ⭮  ꥪ⮬
TWindow.


                              .

     ꥪ TButton -   祭  אַ㣮쭨,  ᯮ㥬
 樨  ᮡ      "⨨". 筮
 ࠧ  (ਭ)   , ।⠢
⠪ 롮    "OK"  "Cancel".    -  筮
  ,      墠뢠  
ࠡ뢠  ᮡ,  ᮡ   . ࠡ稪
ᮡ⨩ ।⠢ ᪮쪮 ᯮᮡ    :  롮஬
אַ㣮쭨    誮,   ⨥  ⪮  ᨬ  
롮஬   㬮砭 襩 Enter.


                             .

     TCluster -    ࠪ ⨯,  ᯮ㥬  ॠ樨
ᨬ  ᨬ .    -    㯯  ⮢
ࠢ,     ॠ   .      ⮢
ࠢ  樨   ꥪ⠬  TLabel,    
롨   ࠢ   롮 ⪨. ⥫
: Value,  騥 ।  짮⥫  祭    Sel,
饥 ࠭   ࠢ ⮣ .   
।⠢ ⮤  ᮢ  ⥪⮢      ⬥
ᨬ.    롮   ⮢   ࠢ      
ᯮ짮    誨.
     ᨬ   -  ᯥ樠 ,    
 ࠭ ⮫쪮      ࠢ.    ᫥騩
롮 ⬥ ⥪騩 .  ᨬ  -  ,
         ⬥祭      ⢮   ⮢
ࠢ.


                               .

     TMenuView  2  ⮬ TMenuBar    TMenuBox  ।⠢
 ꥪ   ᮧ 믠   ,  
  ஢.     ⥪⮢  ப    롮  
( ᢥ稢   㪢     ⪮  )    
, 易묨        롮஬.   ⮤   HandleEvent
ॠ 堭   롮        誨    
( ⪨   稥 ).
     롮   ⮡ࠦ    ꥪ TMenuBar,  
筮 ਭ ꥪ TApplication. 롮  ⮡ࠦ 
ꥪ ⨯ TMenuBox.
      設⢥ ணࠬ   뢠   ꥪ .
४뢠 TApplication.InitMenuBar     ᮮ⢥騬     ஬
 맮 New,  NewSubMenu, NewItem  NewLine, Turbo Vision
ந, ⮡ࠦ    ॡ㥬묨 .


                             .

     ࠪ ⨯ THistory ॠ 堭 롮   ᯨ᪠.
2 ⥫  Link  HistoryId   ꥪ THistory,
樨஢  TInputLine,    䨪  ᯨ᪠  ।
祭    ப   .   THistory   ࠡ⠥    ⠭  
THistoryWindow  THistoryViewer.


                           ப .

     TInputLine -   ᯥ樠஢  ,  
।⠢ ப । ப .   ࠡ뢠 
   ࠢ  ஬,  㤠   ⠢.  ⮡
⬥  ⥪,  ᯮ짮 誠.


                         ᬮ ᯨ᪮.

      ꥪ  TListViewer  -    ࠪ  ⨯,  
ண ᫥ ᬮ ᯨ᪮ ࠧ  த,  ⠪  
TListBox.      ⮤  TListViewer      ⮡ࠦ
易 ᯨ᪨  ப    ࠢ           
஫. ࠡ稪 ᮡ⨩      롮  ⮢
ᯨ᪠  誮     .  ⮤ Draw  
ࠧ  ஫.  TListViewer  ࠪ ⮤  GetText,
      ᯥ  堭  ᮧ  樨
⮡ࠦ ⮢.
     TListBox, ᫥㥬  TListViewer, ॠ  
ᯮ㥬   ᯨ᪮,  ⠪  ,  ਬ,    䠩.
ꥪ TListBox ⮡ࠦ ᯨ᪨ ⠪ ⮢    
     ⥫쭮    ⨪쭮   ᮩ   ஫.
ਧ⠫  ஫  TListViewer    ন.
᫥ ⮤  TListViewer        
誮  १ .  TListBox    ⥫쭮  
List, 㪠뢠饥   ꥪ TCollection.   ।⠢ ꥪ
 ᯥ⪨  롮.  ন 樨 ନ  ⠪
   ⢨,  믮  롮 .


                        ꥪ ஫.

     ꥪ TScroller   ꥪ    ஫,  
       㣮 訩 "䮭"  .
஫   ⢥         ⢨  
易 ꥪ TScrollBar.  ஫   , HScrollId
 VScrollId,      ࠢ    ਧ⠫쭮    
⨪쭮 ᠬ ஫.  Delta  TScroller ।
ᬥ饭 ஫  X  Y   ﬨ    易  
஫.
     ꥪ TScrollBar     ᯥ稢      ⨪쭮      
ਧ⠫쭮 ࠢ.   祢   :   Value   -   
   ஫,  PgStep   -   ᬥ饭   ஫,
ॡ㥬  ⢥  ⨥ 誨   PgUp, PgDn; ArrStep -
ᬥ饭 ஫,  ॡ㥬  ⢥  ⨥ 誨  
.
     ஫    ஫  筮  ਭ  ꥪ
TWindow,   ਢ    ᫮   ࠡ뢠 ᮡ⨩.
ਬ,  ࠧ   ਢ  ᮮ⢥饩
ᮢ ஫஬.  祭    ஫  ⠪ 
  ᮢ뢠.


                       ⮢ ன⢠.

     TTextDevice -    ᪮騩  TTY  ⨯  ᬮ  ⥪  -
ࠩ ன⢠. ஬  ⮤, ᫥㥬  TScroller,
TTxtDevice । 㠫 ⮤  ⥭   ப
   ன⢠.  TTextDevice ᯮ     ⨯  
஦ ॠ ࠩ஢. TTextDevice ᯮ ࠪ 
ࠪ TScroller.
     TTerminal ॠ   ନ     ਧ  ⥭  
 ப.   ।  樠樨.


                        ᪨ ⥪.

     ꥪ TStaticText    -            ,
ᯮ㥬  ⮡ࠦ 䨪஢  ப,  ।⠢塞
 Text.     ᮡ, ᫠ .  TLabel
   ᢮⢠  ࠭  ⥪,  ⭮
  ⪠,        ࠭    誨,  
  ⪮  Alt-. ⥫쭮  Link
뢠     㣨    ⮬,  筮 ࠢ塞
 ⮬,   ࠡ뢠  ᮡ  ⪨.  롮
⪨ 롨ࠥ  易    ࠢ,   롮 易
 ࠢ ᢥ稢 .


                          ப .

     ꥪ TStatusLine  ।祭    ⮡ࠦ    
᪠ 筮     ப  ࠭.  ப    
 1 ᨬ    ਭ ࠭.   ꥪ ᯥ稢
᪮ ⮡ࠦ,  ॠ  ᮡ ணࠬ.  
ப          誮     祩  襩.
設⢮ ணࠬ 稭 ࠡ ⠭ 栬 ꥪ⮢
TMenuBar, TDeskTop   TStatusLine.  ⥫  TStatusLine
ᯥ稢 㪠⥫ Items  㪠⥫ Defs.
      Items  㪠뢠    ⥪騩  易  ᯨ᮪  ᥩ
TStatusItem.  ᮤন  ⮡ࠦ  ப,      稬
蠬   樨஢ ᫮ Command.   Defs 㪠뢠 
易 ᯨ᮪ ᥩ PStatusDef,  ᯮ㥬   ।
⥪饩 ⥪⭮        ᪠.       TStatusLine       
樠஢, ᯮ TApplication.InitStatusLine.


                         .

     ⢮    ⮢,   ஦      TObject,
ᮤন ⮪, 䠩 ᮢ, 樨  ᯨ᪨ ப.


                              ⮪.

     ⮪ -   饭 ꥪ  ࠡ⪨   뢮. 
ࠤ樮 ன⢠    䠩  /    ࠡ⪨  롮  
८ࠧ ࠧ  ⨯       ।⠢
⤥  㭪権.  ᯮ ⮪ Turbo Vision,  
ᮧ   ⮤  / ⠪  Read  Write,  
  ࠡ뢠 ᮤন  ⮪.
     TStream -       ࠪ  ꥪ,  ᯥ稢騩
 /    ன⢠  .  TStream  ।⠢
 Status, 㪠뢠饥  ० 㯠 (⮫쪮  ⥭, ⮫쪮
 ,  ⥭/),   ErrorInfo 頥 訡 /.
।⠢ 7 㠫 ⮤:  Flush, GetPos, GetSize, Read,
Seek, Truncate  Write.     ४    ஦
ᯥ樠஢ ⨯  ⮪.    㢨,    Turbo Vision
ᯮ  ⥣  ஦  TDosStream,  TEmsStream  
TBufStream.  ⠪  ⮤ CopyFrom, Error, Get, ReadStr,
Reset, WriteStr.
      ꥪ⮢          ॣ஢,   ᯮ
RegisterType   ⮣,        ᯮ짮     ⮪.
⠭ ⨯  ꥪ⮢  Turbo  Vision 㦥 ॣ஢ (.
楤 RegisterType   14).


                            ⮪ DOS.

     TDosStream -      ᯥ樠஢   ⮪,   ॠ騩
ਧ ⮪   䠩   DOS.     Handle  ᮮ⢥
筮 ࠡ稪 䠩 DOS.  ࠪ Init ᮧ ⮪ DOS
     䠩  ० 㯠.  TDosStream ।
 ࠪ  ⮤  TStream,    ᪫祭  Flush,  
ॡ ⮫쪮  ਧ ⮪.


                      ਧ ⮪.

     TBufStream ॠ  ਧ   TDosStream.  
Buffer  BufSize 㪠뢠   ࠧ .  BufPtr 
BufEnd ।   ⥪    ᫥      .
ࠪ ⮤ TStream.Flush ।   ⠫ .
⠫ 砥       ७ ஢ 
 ⮪.


                            ⮪ EMS.

      ᯥ樠஢ ⮪ TEmsStream ॠ ⮪ 
EMS .    ᮤঠ  ࠡ稪  EMS,  ᫮  ࠭,
ࠧ ⮪  ⥪   ⮪.


                             .

      ᮢ -  ᯥ樠  ⮪,   ஬ ꥪ
()  ஢   ப 祩. 
஦  䠩 ᮢ  TStream,  TResourceFile ᮤন 
Stream,  뢠饥 ⮪    䠩  ᮢ.    
㯭  १ 맮 Get(Key),   Key - ப .  ⮤
Put ࠭       祬;  ⮤  KeyAt  砥
    ;  Flush 뢠    ⮪;
Delete 㤠    祬    Count  頥  ᫮
⮢  䠩.


                            樨.

     TCollection ॠ    ⮢,   ந
ꥪ ࠧ ⨯.   ⫨稥  ᨢ,   ᯨ᪮
 -    몮,    Turbo  Vision  ᪠  ६
ࠧ. Collection   -       ࠪ⭠            
ᯥ樠஢ 権  ⠪  TSortedCollection.  
 - Items - 㪠⥫   ᨢ  ⮢.  ஬  樨,
⠢     㤠,    TCollection    ।⠢    ᪮쪮
樮 ணࠬ.        ᪠஢   
ࢮ  ᫥   宦 ᫮,   
㭪樨 ஢ન,  ।  짮⥫.      ⮤
ForEach     믮 ⢨,  । 짮⥫
   樨.


                    ஢ 樨.

     TSortedCollection ॠ   ,   ஢  
. ஢ । १  㠫  ࠪ  ⮤
Compare. ⥫쭮  ஦ ⨯   ॡ㥬
㯮冷祭  樨 ꥪ⮢   ⨯.  ⮤  Insert
 , ন  㯮冷祭    
  ⮤ 筮 ᪠ Search.


                          ப.

     TStringCollection -    ⮥ ७ TSortedCollection
 ࠡ⪨ ஢ 樨 ப Turbo  Pascal.  ⮤
FreeItem 㤠    ப  樨.     ⥭
樨 ப  ⮪ ।⠢ 㠫  ⮤ PutItem
 GetItem.


                        樨 ᮢ.

     TResourceCollection ॠ         ஢
ᮢ ᮢ,   ᯮ  䠩  ᮢ.  ⮤  FreeItem,
GetItem, KeyOf,  PutItem ⨯ TStringCollection  ४뢠  
ࠡ⪨ ᮢ.


                           ᪨ ப.

     TStringList ॠ ᯥ樠   ப  ,  
஬  ப   १ ᫮ , ᯮ
⮤ Get.   Count ᮤন ᫮ ப  ꥪ.  TStringList
頥 몮   ⥪⮢  ணࠬ.  ᪨  ப  
  ⮪,  ᯮ ࠪ Load. ⮡ ᮧ 
  ᯨ᮪ ப, ᯮ TStrListMaker.
     TStringList ।⠢  ⮫쪮  饬 ᯨ
ப  ᫮ 樥. TStrListMaker ।⠢ ⮤ Put
  ப   ᯨ᮪  ப,    ⮤  Store  ࠭
ᯨ᮪ ப  ⮪.
