home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / BABEL2.ZIP / BABEL.EVT < prev    next >
Encoding:
Text File  |  1993-01-01  |  3.8 KB  |  113 lines
  1.    {===================================================================
  2.    ===================================================================}
  3. procedure hdAbout ;
  4. begin
  5.    MessageBox ( ^C'Multi-Language Demo' ,
  6.                 NIL ,
  7.                 mfInformation + mfOKbutton ) ;
  8. end ;
  9.    {===================================================================
  10.    ===================================================================}
  11. procedure hdChangeDir ;
  12. var
  13.    D                         : PDialog ;
  14. begin
  15.    D                         := New ( PChDirDialog ,
  16.                                       Init ( cdNormal , 0 ) ) ;
  17.    D^.HelpCtx                := hcDirectoryTree ;
  18.    ExecDialog ( D , NIL ) ;
  19.    DoneMemory ;
  20.    Application^.Redraw ;
  21. end ;
  22.    {===================================================================
  23.  
  24.    OPEN
  25.  
  26.    ===================================================================}
  27. procedure hdOpen ;
  28. var
  29.    D                         : PDialog ;
  30.    FileSpec                  : string ;
  31. begin
  32.    FileSpec                  := '*.TXT' ;
  33.    D                         := New ( PFileDialog ,
  34.                                       Init ( FileSpec ,
  35.                                              'Open file',
  36.                                              '~N~ame' ,
  37.                                              fdOpenButton ,
  38.                                              100 ) ) ;
  39.    D^.HelpCtx                := hcOpenTree ;
  40.    if ExecDialog ( D , @FileSpec ) = cmCancel then EXIT ;
  41.    OpenEditor ( FileSpec , TRUE ) ;
  42. end ;
  43.    {===================================================================
  44.  
  45.    NEW
  46.  
  47.    ===================================================================}
  48. procedure hdNew ;
  49. begin
  50.    OpenEditor ( '' , TRUE ) ;
  51. end ;
  52.    {===================================================================
  53.  
  54.    MENU BOX
  55.  
  56.    ===================================================================}
  57. procedure hdMenuBox ;
  58. begin
  59.    if MenuBox = NIL then EXIT ;
  60.    ClearEvent ( Event ) ;
  61.    Event.What                := evCommand ;
  62.    Event.Command             := Desktop^.ExecView ( MenuBox ) ;
  63.    if Event.Command <> 0 then
  64.       PutEvent ( Event ) ;
  65. end ;
  66.    {===================================================================
  67.    ===================================================================}
  68. procedure hdEnglish ;
  69. begin
  70.    ChangeLanguage ( 'ENGLISH' ) ;
  71. end ;
  72.    {===================================================================
  73.    ===================================================================}
  74. procedure hdGerman ;
  75. begin
  76.    ChangeLanguage ( 'GERMAN' ) ;
  77. end ;
  78.    {===================================================================
  79.    ===================================================================}
  80. procedure hdSpanish ;
  81. begin
  82.    ChangeLanguage ( 'SPANISH' ) ;
  83. end ;
  84.    {===================================================================
  85.    ===================================================================}
  86. procedure hdFrench ;
  87. begin
  88.    ChangeLanguage ( 'FRENCH' ) ;
  89. end ;
  90.    {===================================================================
  91.    ===================================================================}
  92. procedure hdDutch ;
  93. begin
  94.    ChangeLanguage ( 'DUTCH' ) ;
  95. end ;
  96.    {|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
  97.  
  98.    PRINT
  99.  
  100.    |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||}
  101.    {===================================================================
  102.  
  103.    PRINT
  104.  
  105.    ===================================================================}
  106. procedure hdPrint ;
  107. begin
  108.    if not IsEdit ( Desktop^.Current ) then EXIT ;
  109.    if ExecDialog ( PrintDialog ,
  110.                    @PrintSetDefault.Destination ) <> cmOK then EXIT ;
  111.    PrintEd ( Desktop^.Current , 0 ) ;
  112. end ;
  113.