home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / magazine / pcmagazi / 1992 / 20 / ln1120 / custom1.pas < prev    next >
Pascal/Delphi Source File  |  1992-07-30  |  800b  |  35 lines
  1. unit custom1;
  2.  
  3. interface
  4.  
  5. uses winprocs, wintypes, wobjects, bwcc, utest2;
  6.  
  7. type
  8.   PBWCCFileDlg = ^TBWCCFileDlg;
  9.   TBWCCFileDlg = object(TFileDlg)
  10.     constructor Init(AParent : PWindowsObject;
  11.                      AFlags   : Longint;
  12.                      AFileName : Pchar;
  13.                      ANameLength : Integer);
  14.   end;
  15.  
  16.  
  17. implementation
  18.  
  19. {$R custom1}
  20. uses commdlg;
  21.  
  22. constructor TBWCCFileDlg.Init(AParent : PWindowsObject;
  23.                               AFlags   : Longint;
  24.                               AFileName : Pchar;
  25.                               ANameLength : Integer);
  26. begin
  27.   TFileDlg.Init(AParent, AFlags, AFileName, ANameLength);
  28.   with OFN do
  29.   begin
  30.     Flags := Flags or OFN_EnableTemplate;
  31.     lpTemplateName := 'FileOpen_BWCC';
  32.   end;
  33. end;
  34.  
  35. end.