home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1996 March / macformat-035.iso / Shareware City / Developers / ICAppSourceKit1.2 / ICInitialization.p < prev    next >
Encoding:
Text File  |  1995-11-04  |  549 b   |  37 lines  |  [TEXT/CWIE]
  1. unit ICInitialization;
  2.  
  3. interface
  4.  
  5.     procedure Initialization;
  6.  
  7. implementation
  8.  
  9.     uses
  10.         Resources, Fonts, Windows, QuickDraw, Menus, TextEdit, Dialogs, Memory;
  11.         
  12. {$IFC not GENERATINGPOWERPC}
  13.     function StackPtr: longInt;
  14.     inline
  15.         $2E8F;
  16. {$ENDC}
  17.  
  18.     procedure Initialization;
  19.         var
  20.             i: integer;
  21.     begin
  22.         InitGraf(@qd.thePort);
  23.         InitFonts;
  24.         InitWindows;
  25.         InitMenus;
  26.         TEInit;
  27.         InitDialogs(nil);
  28. {$IFC not GENERATINGPOWERPC}
  29.         SetApplLimit(ptr(StackPtr - 32768));
  30. {$ENDC}
  31.         MaxApplZone;
  32.         for i := 1 to 3 do begin
  33.             MoreMasters;
  34.         end;
  35.     end;
  36.  
  37. end.