home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1991 / 06 / praxis / listing4.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-03-12  |  696 b   |  22 lines
  1. (* ------------------------------------------------------ *)
  2. (*                     LISTING.4                          *)
  3. (*             (c) 1991 Borland International             *)
  4. (* ------------------------------------------------------ *)
  5.  
  6. CONST
  7.   CrtClass: TWndClass = (
  8.     style         : cs_HRedraw + cs_VRedraw;
  9.     lpfnWndProc   : @CrtWinProc;
  10.     cbClsExtra    : 0;
  11.     cbWndExtra    : 0;
  12.     hInstance     : 0;
  13.     hIcon         : 0;
  14.     hCursor       : 0;
  15.     hbrBackground : 0;
  16.     lpszMenuName  : NIL;
  17.     lpszClassName : 'TPWinCrt');
  18.  
  19. (* ------------------------------------------------------ *)
  20. (*               Ende von LISTING.4                       *)
  21.  
  22.