home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / dtx9203 / tvision / demodlgr.pas < prev    next >
Pascal/Delphi Source File  |  1992-03-27  |  896b  |  36 lines
  1. PROCEDURE DemoDialogDialog;
  2.   TYPE
  3.     DemoDialogData = RECORD
  4.       String0: STRING [80];
  5.       String1: STRING [80];
  6.       String2: STRING [80];
  7.       String3: STRING [80];
  8.       TextLen0: WORD;
  9.       TextRec0: ARRAY [0..512] OF CHAR; 
  10.       Cluster0: WORD;
  11.       Cluster1: WORD;
  12.     END;
  13.   
  14.   VAR  
  15.     Dialog: pDialog;  
  16.     Data:   DemoDialogData;
  17.     Code:   INTEGER;
  18.     R:      tRect;  
  19. BEGIN  
  20.   Dialog := pDialog (RezFile.Get ('Demo Dialog'));  
  21.  
  22.     { Datenrecord initialisieren ! }
  23.   FillChar (Data, SizeOf (DemoDialogData), 0);
  24.   Dialog^.SetData (Data); 
  25.   Code := Desktop^.ExecView (Application^.ValidView (Dialog));
  26.   IF Code <> cmCancel THEN BEGIN
  27.     { cmCancel muss ev ersetzt werden }
  28.     { Code auswerten }
  29.     Dialog^.GetData (Data);
  30.     { Data muss ausgewertet werden ! }
  31.   END;
  32.   IF Dialog <> NIL THEN 
  33.     Dispose (Dialog, Done);
  34. END;
  35.  
  36.