home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / dtx9203 / tvision / demodlg.pas next >
Encoding:
Pascal/Delphi Source File  |  1992-03-24  |  3.7 KB  |  118 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.     R: tRect;
  16.     View: pView;
  17.     Data: DemoDialogData;
  18.     Code: INTEGER;
  19.     Dialog: pDialog;
  20. BEGIN
  21.   R.Assign (3, 0, 75, 22);
  22.   Dialog := New (pDialog, Init (R, 'Demo Dialog'));
  23.   Dialog^.State := 2171;
  24.  
  25.   R.Assign (3, 2, 69, 3);
  26.   Dialog^.Insert (New (pStaticText, Init (R, 'Dies ist ein Demo-Dialog, der vollständig mit TOOL erstellt wurde.')));
  27.  
  28.   R.Assign (3, 4, 58, 5);
  29.   Dialog^.Insert (New (pStaticText, Init (R, 'Bitte füllen Sie folgendes Registrierungs-Formular aus:')));
  30.  
  31.   R.Assign (12, 6, 32, 7);
  32.   View := New (pInputLine, Init (R, 80));
  33.   Dialog^.Insert (View);
  34.   R.Assign (2, 6, 8, 7);
  35.   Dialog^.Insert (New (pLabel, Init (R, 'Name:', View)));
  36.   R.Assign (32, 6, 35, 7);
  37.   Dialog^.Insert (New (pHistory, Init  (R, pInputLine (View), 0)));
  38.  
  39.   R.Assign (46, 6, 66, 7);
  40.   View := New (pInputLine, Init (R, 80));
  41.   Dialog^.Insert (View);
  42.   R.Assign (36, 6, 46, 7);
  43.   Dialog^.Insert (New (pLabel, Init (R, 'Vorname: ', View)));
  44.   R.Assign (66, 6, 69, 7);
  45.   Dialog^.Insert (New (pHistory, Init  (R, pInputLine (View), 0)));
  46.  
  47.   R.Assign (12, 7, 32, 8);
  48.   View := New (pInputLine, Init (R, 80));
  49.   Dialog^.Insert (View);
  50.   R.Assign (2, 7, 12, 8);
  51.   Dialog^.Insert (New (pLabel, Init (R, 'Strasse: ', View)));
  52.   R.Assign (32, 7, 35, 8);
  53.   Dialog^.Insert (New (pHistory, Init  (R, pInputLine (View), 0)));
  54.  
  55.   R.Assign (46, 7, 66, 8);
  56.   View := New (pInputLine, Init (R, 80));
  57.   Dialog^.Insert (View);
  58.   R.Assign (36, 7, 46, 8);
  59.   Dialog^.Insert (New (pLabel, Init (R, 'PLZ/Ort: ', View)));
  60.   R.Assign (66, 7, 69, 8);
  61.   Dialog^.Insert (New (pHistory, Init  (R, pInputLine (View), 0)));
  62.  
  63.   R.Assign (30, 10, 31, 17);
  64.   View := New (pScrollBar, Init  (R)); 
  65.   Dialog^.Insert (View); 
  66.   pScrollBar (View)^.SetRange (0, 0); 
  67.   R.Assign (3, 10, 30, 17);
  68.   View := New (pMemo, Init (R, NIL, pScrollBar (View), NIL, 512));
  69.   Dialog^.Insert (View);
  70.   R.Assign (3, 9, 27, 10);
  71.   Dialog^.Insert (New (pLabel, Init (R, 'Kurzkommentar zu TOOL: ', View)));
  72.  
  73.   R.Assign (39, 10, 54, 13);
  74.   View := New (pRadioButtons,
  75.                Init (R, 
  76.                      NewSItem ('Sehr oft',
  77.                      NewSItem ('Oft',
  78.                      NewSItem ('Seltener',
  79.                      NIL)))));
  80.   Dialog^.Insert (View);
  81.   R.Assign (39, 9, 53, 10);
  82.   Dialog^.Insert (New (pLabel, Init (R, 'Benutzung ...', View)));
  83.  
  84.   R.Assign (39, 15, 54, 17);
  85.   View := New (pRadioButtons,
  86.                Init (R, 
  87.                      NewSItem ('Per Check',
  88.                      NewSItem ('Rechnung',
  89.                      NIL))));
  90.   Dialog^.Insert (View);
  91.   R.Assign (39, 14, 50, 15);
  92.   Dialog^.Insert (New (pLabel, Init (R, 'Bezahlung:', View)));
  93.  
  94.   R.Assign (5, 19, 23, 21);
  95.   Dialog^.Insert (New (pButton, Init (R, '~R~egistrieren', 10, 1)));
  96.  
  97.   R.Assign (31, 19, 42, 21);
  98.   Dialog^.Insert (New (pButton, Init (R, '~H~ilfe', 9, 0)));
  99.  
  100.   R.Assign (49, 19, 64, 21);
  101.   Dialog^.Insert (New (pButton, Init (R, '~A~bbrechen', 11, 0)));
  102.  
  103.   Dialog^.SelectNext (FALSE);
  104.  
  105.     { Datenrecord initialisieren ! }
  106.   FillChar (Data, SizeOf (DemoDialogData), 0);
  107.   Dialog^.SetData (Data); 
  108.   Code := Desktop^.ExecView (Application^.ValidView (Dialog));
  109.   IF Code <> cmCancel THEN BEGIN
  110.     { cmCancel muss ev ersetzt werden }
  111.     { Code auswerten }
  112.     Dialog^.GetData (Data);
  113.     { Data muss ausgewertet werden ! }
  114.   END;
  115.   IF Dialog <> NIL THEN 
  116.     Dispose (Dialog, Done);
  117. END;
  118.