home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / spezial / 22 / windows / demos / readme.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-01-04  |  3.0 KB  |  91 lines
  1. (* ----------------------------------------------------- *)
  2. (*                      README.PAS                       *)
  3. (*                                                       *)
  4. (*            (c) 1991 by R.Reichert & toolbox           *)
  5. (* ----------------------------------------------------- *)
  6. PROGRAM DataWindowDemo;
  7.  
  8. USES Stuff,   MouKey,
  9.      WinVSM, ActStWi, ActDWin;
  10.  
  11. VAR
  12.   ADW    : ActiveDataWindowPtr;
  13.   VSM    : WExtVSMPtr;
  14.   Ev     : EventObj;
  15.   Answer : BYTE;
  16.   xl, yl : BYTE;
  17.   Str    : STRING;
  18.  
  19. BEGIN
  20.   IF (ParamCount<>0) THEN
  21.     Str := ParamStr (1)
  22.   ELSE
  23.     Str := '\DOKU.TXT';
  24.   VSM := New (WExtVSMPtr,
  25.               Init (New (ScreenObjPtr, Init (0, 0))));
  26.   ADW := New (ActiveDataWindowPtr, Init (80, 2000,
  27.                                          4200, VSM));
  28.   IF (ADW<>NIL) THEN BEGIN
  29.     Xl := VSM^.GetXLength;  Yl := VSM^.GetYLength;
  30.     VSM^.FillPart (1, 1, xl, 1, 7,   ' ');
  31.     VSM^.WriteStr (xl DIV 2 - 15, 1, 15,
  32.                    '  ReadMe v1.0  -  Dokumentation  ');
  33.     VSM^.FillPart (1, 2,    xl,    2,  15, '─');
  34.     VSM^.FillPart (1, 3,    xl, yl-2, $70, '░');
  35.     VSM^.FillPart (1, yl-1, xl, yl-1,  15, '─');
  36.     VSM^.WriteStr (xl DIV 2 - 17, yl, 15,
  37.                    ' (c) 1991 by R.Reichert & toolbox ');
  38.     Mouse^.Show;
  39.     ADW^.SetShowCurPos (FALSE);
  40.     ADW^.SetTitles (' ASCII-Viewer v2.0 - File: '+
  41.                     UpString (Str)+' ', '');
  42.     ADW^.SetIconTitle (UpString (Str));
  43.     ADW^.SetNumber (1);
  44.     ADW^.SetShadow (TRUE);
  45.     ADW^.SetMinMax (1, 2, xl, Pred (yl));
  46.     ADW^.SetMaxXY (1, 3, xl-2, yl-2);
  47.     ADW^.SetXY (2, 3, xl-3, 2*yl DIV 3);
  48.     ADW^.SetColors (15, 15, 0, 7);
  49.     ADW^.SetIconXY (xl-20, yl-4);
  50.     ADW^.SetSpaces (2, 2, 1, 1);
  51.     ADW^.Open;
  52.     ADW^.WriteStr ('Laden . . .  bitte einen Augenblick '+
  53.                    'Geduld. ');
  54.     ADW^.LoadAscii (Str, TRUE);
  55.     IF ADW^.GetReturnCode=0 THEN BEGIN
  56.       EvHand^.SetTakeOut (TRUE);  Answer := 0;
  57.       REPEAT
  58.         EvHand^.WaitForEvent (EvAll, Ev);
  59.         ADW^.CheckEvent (Ev);
  60.         Answer := ADW^.GetReturnCode;
  61.         IF Answer=ADWSwitchedIcon THEN
  62.           ADW^.SetActive;
  63.       UNTIL Answer=ClosedWin;
  64.       EvHand^.SetTakeOut (FALSE);
  65.       Mouse^.Hide;
  66.     END ELSE BEGIN
  67.       ADW^.WriteStr ('');
  68.       ADW^.WriteStr ('*** Fehler: Datei '+
  69.                      UpString (Str)+
  70.                      ' konnte nicht geladen werden.');
  71.       ADW^.WriteStr ('');
  72.       ADW^.WriteStr ('');
  73.       ADW^.WriteStr ('Program abgebrochen.');
  74.       Readln;
  75.       ADW^.Close;
  76.     END;
  77.     VSM^.ClrScr;
  78.     Dispose (ADW, Done);
  79.     Dispose (VSM, Done)
  80.   END ELSE BEGIN
  81.     Writeln ('*** Fehler: Objekt(e) konnte(n) nicht '+
  82.              'initialisiert werden.');
  83.     Writeln;
  84.     Write ('Programm abgebrochen.');
  85.     Writeln;
  86.   END;
  87. END.
  88. (* ----------------------------------------------------- *)
  89. (*                 Ende von README.PAS                   *)
  90. (* ----------------------------------------------------- *)
  91.