home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / das_buch / tvision / ide / ide_dlg.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-05-03  |  7.9 KB  |  263 lines
  1. (* ------------------------------------------------------ *)
  2. (*                    IDE_DLG.PAS                         *)
  3. (*             (c) 1993 te-wi Verlag, München             *)
  4. (* ------------------------------------------------------ *)
  5. UNIT IDE_Dlg;
  6.  
  7. {$A+,B-,D+,E+,F-,G-,I+,L+,N-,O-,P-,Q+,R+,S+,T-,V+,X+,Y+}
  8. {$M 16384,0,655360}
  9.  
  10. INTERFACE
  11.  
  12. USES Objects, Drivers, Memory, Views, Menus, App,
  13.      Dialogs, MsgBox, StdDlg;
  14.  
  15.   FUNCTION CreateDirDialog : pDialog;
  16.  
  17.   FUNCTION AsmOptDlg : pDialog;
  18.  
  19. (* -------- Assembler Options Data Transfer ------------- *)
  20.  
  21. TYPE
  22.   AsmOptRec = RECORD
  23.                 SegOrder  : WORD;
  24.                 DebugInfo : WORD;
  25.                 CrossRef : WORD;
  26.                 Warnings : WORD;
  27.                 Floating  : WORD;
  28.                 Listing   : WORD;
  29.                 ListErr   : WORD;
  30.                 Code      : WORD;
  31.                 Special   : WORD;
  32.               END;
  33.  
  34.   FUNCTION LinkOptDlg : pDialog;
  35.  
  36. (* -------- Linker Options Data Transfer ---------------- *)
  37.  
  38. TYPE
  39.   LinkOptRec = RECORD
  40.                  DebugInfo : WORD;
  41.                  MemSwap   : WORD;
  42.                  Libraries : WORD;
  43.                  Target    : WORD;
  44.                END;
  45.  
  46. IMPLEMENTATION
  47.  
  48.   FUNCTION CreateDirDialog : pDialog;
  49.   VAR
  50.     D : pDialog;
  51.     C : pView;
  52.     R : tRect;
  53.   BEGIN
  54.     R.Assign(0, 0, 50, 15);
  55.     D := New(pDialog, Init(R, 'Edit Directory Configuration'));
  56.  
  57.     WITH D^ DO BEGIN
  58.       Options := Options OR ofCentered;
  59.  
  60.       R.Assign(3, 3, 47, 4);
  61.       C := New(pInputLine, Init(R, 79));
  62.       Insert(C);
  63.       R.Assign(2, 2, 15, 3);
  64.       Insert(New(pLabel, Init(R, '~U~tilities', C)));
  65.  
  66.       R.Assign(3, 5, 47, 6);
  67.       C := New(pInputLine, Init(R, 79));
  68.       Insert(C);
  69.       R.Assign(2, 4, 25, 5);
  70.       Insert(New(pLabel, Init(R, '~L~ibraries (*.LIB)', C)));
  71.  
  72.       R.Assign(3, 7, 47, 8);
  73.       C := New(pInputLine, Init(R, 79));
  74.       Insert(C);
  75.       R.Assign(2, 6, 25, 7);
  76.       Insert(New(pLabel, Init(R, '~O~bjects (*.OBJ)', C)));
  77.  
  78.       R.Assign(3, 9, 47, 10);
  79.       C := New(pInputLine, Init(R, 79));
  80.       Insert(C);
  81.       R.Assign(2, 8, 15, 9);
  82.       Insert(New(pLabel, Init(R, '~I~ncludes', C)));
  83.  
  84.       R.Assign(15, 12, 25, 14);
  85.       Insert(New(pButton, Init(R, 'O~k~', cmOk, bfDefault)));
  86.       Inc(R.A.X, 12);  Inc(R.B.X, 12);
  87.       Insert(New(pButton, Init(R, '~C~ancel', cmCancel, bfNormal)));
  88.     END;
  89.     CreateDirDialog := D;
  90.   END;
  91.  
  92.   FUNCTION AsmOptDlg : pDialog;
  93.   VAR
  94.     D : pDialog;
  95.     C : pView;
  96.     R : tRect;
  97.   BEGIN
  98.     R.Assign(0, 0, 75, 22);
  99.     D := New(pDialog, Init(R, 'Assembly Options'));
  100.  
  101.     WITH D^ DO BEGIN
  102.       Options := Options OR ofCentered;
  103.  
  104.       R.Assign(3, 3, 30, 5);
  105.       C := New(pRadioButtons, Init(R,
  106.         NewSItem('Alphabetic      (/a)',
  107.         NewSItem('Source Code     (/s)',
  108.       NIL))));
  109.       Insert(C);
  110.       R.Assign(2, 2, 20, 3);
  111.       Insert(New(pLabel, Init(R, 'Segment ~O~rdering', C)));
  112.  
  113.       R.Assign(3, 7, 30, 10);
  114.       C := New(pRadioButtons, Init(R,
  115.         NewSItem('Full            (/zi)',
  116.         NewSItem('Line Numbers    (/zd)',
  117.         NewSItem('None            (/zn)',
  118.       NIL)))));
  119.       Insert(C);
  120.       R.Assign(2, 6, 22, 7);
  121.       Insert(New(pLabel, Init(R, '~D~ebug Information', C)));
  122.  
  123.       R.Assign(3, 11, 30, 12);
  124.       Insert(New(pCheckBoxes, Init(R,
  125.         NewSItem('~C~ross Reference (/c)',
  126.       NIL))));
  127.  
  128.       R.Assign(3, 14, 30, 17);
  129.       C := New(pRadioButtons, Init(R,
  130.         NewSItem('None  0         (/w0)',
  131.         NewSItem('Level 1         (/w1)',
  132.         NewSItem('Level 2         (/w2)',
  133.       NIL)))));
  134.       Insert(C);
  135.       R.Assign(2, 13, 22, 14);
  136.       Insert(New(pLabel, Init(R, '~W~arning Level', C)));
  137.  
  138.       R.Assign(33, 3, 72, 5);
  139.       C := New(pRadioButtons, Init(R,
  140.         NewSItem('Emulated                   (/e)',
  141.         NewSItem('Real                       (/r)',
  142.       NIL))));
  143.       Insert(C);
  144.       R.Assign(32, 2, 50, 3);
  145.       Insert(New(pLabel, Init(R, '~F~loating Point', C)));
  146.  
  147.       R.Assign(33, 7, 72, 9);
  148.       C := New(pRadioButtons, Init(R,
  149.         NewSItem('Normal                     (/l)',
  150.         NewSItem('Expanded                   (/la)',
  151.       NIL))));
  152.       Insert(C);
  153.       R.Assign(32, 6, 50, 7);
  154.       Insert(New(pLabel, Init(R, '~L~isting', C)));
  155.       R.Assign(33, 9, 72, 12);
  156.       Insert(New(pCheckBoxes, Init(R,
  157.         NewSITem('No Symbol ~t~ables           (/n)',
  158.         NewSItem('Source line ~w~ith error     (/z)',
  159.         NewSItem('~I~nclude false conditionals (/x)',
  160.       NIL))))));
  161.  
  162.       R.Assign(33, 14, 72, 18);
  163.       C := New(pRadioButtons, Init(R,
  164.         NewSItem('Standard                   (/os)',
  165.         NewSItem('Standard with overlays     (/o)',
  166.         NewSItem('Phar Lap                   (/op)',
  167.         NewSItem('IBM                        (/oi)',
  168.       NIL))))));
  169.       Insert(C);
  170.       R.Assign(32, 13, 52, 14);
  171.       Insert(New(pLabel, Init(R, 'Code ~G~eneration', C)));
  172.  
  173.       R.Assign(33, 19, 72, 21);
  174.       Insert(New(pCheckBoxes, Init(R,
  175.         NewSItem('Check for CS o~v~errides     (/p)',
  176.         NewSItem('Suppress OBJ ~r~ecords       (/q)',
  177.       NIL)))));
  178.  
  179.       R.Assign(4, 19, 14, 21);
  180.       Insert(New(pButton, Init(R, 'O~k~', cmOk, bfDefault)));
  181.       Inc(R.A.X, 12);  Inc(R.B.X, 12);
  182.       Insert(New(pButton, Init(R, '~C~ancel', cmCancel, bfNormal)));
  183.  
  184.     END;
  185.     AsmOptDlg := D;
  186.   END;
  187.  
  188.   FUNCTION LinkOptDlg : pDialog;
  189.   VAR
  190.     D : pDialog;
  191.     C : pView;
  192.     R : tRect;
  193.   BEGIN
  194.     R.Assign(0, 0, 75, 22);
  195.     D := New(pDialog, Init(R, 'Linker Options'));
  196.  
  197.     WITH D^ DO BEGIN
  198.       Options := Options OR ofCentered;
  199.  
  200.       R.Assign(3, 3, 33, 10);
  201.       C := New(pCheckBoxes, Init(R,
  202.         NewSItem('Map file with publics    (/m)',
  203.         NewSItem('No map file              (/x)',
  204.         NewSItem('Include line numbers     (/l)',
  205.         NewSItem('Detailed map od segs     (/s)',
  206.         NewSItem('Full debug information   (/v)',
  207.         NewSItem('Initialize all segments  (/i)',
  208.         NewSItem('Overlay switch           (/o)',
  209.       NIL)))))))));
  210.       Insert(C);
  211.       R.Assign(2, 2, 30, 3);
  212.       Insert(New(pLabel, Init(R, '~D~ebug Information', C)));
  213.  
  214.       R.Assign(3, 12, 33, 14);
  215.       C := New(pRadioButtons, Init(R,
  216.         NewSItem('Expanded memory   (/ye)',
  217.         NewSItem('Extended memory   (/yx)',
  218.       NIL))));
  219.       Insert(C);
  220.       R.Assign(2, 11, 22, 12);
  221.       Insert(New(pLabel, Init(R, '~M~emory swapping', C)));
  222.  
  223.       R.Assign(33, 3, 72, 10);
  224.       C := New(pCheckBoxes, Init(R,
  225.         NewSItem('No default libraries        (/n)',
  226.         NewSItem('Warn if duplicate symbols   (/d)',
  227.         NewSItem('Case significant in symbols (/c)',
  228.         NewSItem('Ignore extended dictionary  (/e)',
  229.         NewSItem('Case sensitive exports      (/C)',
  230.         NewSItem('Enable 32-bit processing    (/3)',
  231.       NIL))))))));
  232.       Insert(C);
  233.       R.Assign(32, 2, 50, 3);
  234.       Insert(New(pLabel, Init(R, '~L~ibraries', C)));
  235.  
  236.       R.Assign(33, 12, 72, 18);
  237.       C := New(pRadioButtons, Init(R,
  238.         NewSItem('COM for DOS                 (/Tdc)',
  239.         NewSItem('EXE for DOS                 (/Tdx)',
  240.         NewSItem('DLL for DOS                 (/Tdd)',
  241.         NewSItem('COM for Windows             (/Twc)',
  242.         NewSItem('EXE for Windows             (/Twx)',
  243.         NewSItem('DLL for Windows             (/Twd)',
  244.       NIL))))))));
  245.       Insert(C);
  246.       R.Assign(32, 11, 50, 12);
  247.       Insert(New(pLabel, Init(R, '~O~utput', C)));
  248.  
  249.       R.Assign(4, 19, 14, 21);
  250.       Insert(New(pButton, Init(R, 'O~k~', cmOk, bfDefault)));
  251.       Inc(R.A.X, 12);  Inc(R.B.X, 12);
  252.       Insert(New(pButton, Init(R, '~C~ancel', cmCancel, bfNormal)));
  253.  
  254.     END;
  255.     LinkOptDlg := D;
  256.   END;
  257.  
  258. END.
  259. (* ------------------------------------------------------ *)
  260. (*               Ende von IDE_DLG.PAS                     *)
  261.  
  262.  
  263.