home *** CD-ROM | disk | FTP | other *** search
/ CICA 1992 November / CICA_MS_Windows_CD-ROM_Walnut_Creek_November_1992.iso / win3 / programr / bcpp / cmmdlg / comondlg.pas < prev    next >
Pascal/Delphi Source File  |  1992-09-07  |  3KB  |  136 lines
  1. {µµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµ}
  2. {   \\\                                    }
  3. {  -(j)-                                   }
  4. {    /juanca                               }
  5. {    ~                                     }
  6. {$D ⌐ ACASA 1989-1992, All rights reserved }
  7. {µµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµ}
  8.  
  9. { tCommonDlg object, descendand of tDialog, base to OWL objects that shell Common Dialogs }
  10.  
  11. UNIT COMONDLG;
  12. {$C MOVEABLE DEMANDLOAD DISCARDABLE}
  13. INTERFACE
  14.   USES
  15.     WINTYPES,
  16.     WOBJECTS,
  17.     COMMDLG;
  18.  
  19.   CONST
  20.     cn_MaxCString = 255;
  21.  
  22.  
  23.   TYPE
  24.     tCString = array[0..cn_MaxCString] of Char;
  25.  
  26.     pCommonDlg = ^tCommonDlg;
  27.     tCommonDlg = OBJECT ( tDialog )
  28.  
  29.  
  30.       CONSTRUCTOR
  31.       init(iparent:PWindowsObject; name :PChar);
  32.  
  33.       DESTRUCTOR
  34.       done;
  35.         virtual;
  36.  
  37.       PROCEDURE
  38.       ok(var msg :TMessage);
  39.         virtual
  40.           id_First + id_Ok;
  41.  
  42.       PROCEDURE
  43.       cancel(var msg :TMessage);
  44.         virtual
  45.           id_First + id_Cancel;
  46.  
  47.       FUNCTION
  48.       create :Boolean;
  49.         virtual;
  50.  
  51.       FUNCTION
  52.       execute:Integer;
  53.         virtual;
  54.  
  55.       FUNCTION
  56.       dlgTitle :PChar;
  57.         virtual;
  58.  
  59.     END;
  60.  
  61.  
  62. {****************************************************************}
  63. IMPLEMENTATION
  64.   USES
  65.     WINPROCS;
  66.  
  67.  
  68.       CONSTRUCTOR
  69.       tCommonDlg.
  70.       {}
  71.       init(iparent:PWindowsObject; name :PChar);
  72.         begin
  73.           tDialog.init(iparent, name);
  74.           disableTransfer;
  75.         end;
  76.  
  77.       DESTRUCTOR
  78.       tCommonDlg.
  79.       {}
  80.       done;
  81.         begin
  82.           tDialog.done
  83.         end;
  84.  
  85.  
  86.       PROCEDURE
  87.       tCommonDlg.
  88.       {}
  89.       ok(var msg :TMessage);
  90.         begin
  91.           msg.result := Word(not canClose)
  92.         end;
  93.  
  94.  
  95.       PROCEDURE
  96.       tCommonDlg.
  97.       {}
  98.       cancel(var msg :TMessage);
  99.         begin
  100.           msg.result := 0
  101.         end;
  102.  
  103.       FUNCTION
  104.       tCommonDlg.
  105.       {}
  106.       create :Boolean;
  107.         begin
  108.            abstract
  109.         end;
  110.  
  111.       FUNCTION
  112.       tCommonDlg.
  113.       {}
  114.       execute:Integer;
  115.         var
  116.           result :Integer;
  117.         begin
  118.           result := commDlgExtendedError;
  119.           if result = 0
  120.           then
  121.             execute := id_Ok
  122.           else
  123.             execute := -result
  124.         end;
  125.  
  126.       FUNCTION
  127.       tCommonDlg.
  128.       {}
  129.       dlgTitle :PChar;
  130.         begin
  131.           { override this to give the dialog a title different from default}
  132.           dlgTitle := nil
  133.         end;
  134.  
  135.  
  136. END.