home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1991 / 06 / praxis / listing7.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-03-12  |  860 b   |  24 lines
  1. (* ------------------------------------------------------ *)
  2. (*                     LISTING.7                          *)
  3. (*             (c) 1991 Borland International             *)
  4. (* ------------------------------------------------------ *)
  5.  
  6. { wm_Create message handler }
  7.  
  8.   PROCEDURE WindowCreate;
  9.   BEGIN
  10.     Created := TRUE;
  11.     GetMem(ScreenBuffer, ScreenSize.X * ScreenSize.Y);
  12.     FillChar(ScreenBuffer^,
  13.              ScreenSize.X * ScreenSize.Y, ' ');
  14.     SetScrollRange(CrtWindow, sb_Horz, 0, 0, FALSE);
  15.     SetScrollRange(CrtWindow, sb_Vert, 0, 0, FALSE);
  16.     IF NOT CheckBreak THEN
  17.       EnableMenuItem(GetSystemMenu(CrtWindow, FALSE),
  18.                      sc_Close, mf_Disabled + mf_Grayed);
  19.   END;
  20.  
  21. (* ------------------------------------------------------ *)
  22. (*                Ende von LISTING.7                      *)
  23.  
  24.