ProgramOptionsUnit.pas 5.7 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202
  1. unit ProgramOptionsUnit;
  2. interface
  3. uses
  4. Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  5. StdCtrls, ExtCtrls, ComCtrls;
  6. type
  7. TProgramOptionsForm = class(TForm)
  8. CloseButton: TButton;
  9. PageController: TPageControl;
  10. CalculatorSheet: TTabSheet;
  11. Label2: TLabel;
  12. TI89CheckBox: TCheckBox;
  13. TI92PlusCheckBox: TCheckBox;
  14. V200CheckBox: TCheckBox;
  15. Label5: TLabel;
  16. OSSheet: TTabSheet;
  17. Label3: TLabel;
  18. NoStubRadioButton: TRadioButton;
  19. DoorsRadioButton: TRadioButton;
  20. PreOSRadioButton: TRadioButton;
  21. MinAMSCheckBox: TCheckBox;
  22. MinAMSEdit: TEdit;
  23. RelocFormatSheet: TTabSheet;
  24. Panel2: TPanel;
  25. Label4: TLabel;
  26. RelocAMSRadioButton: TRadioButton;
  27. RelocKernelRadioButton: TRadioButton;
  28. RelocCompressedRadioButton: TRadioButton;
  29. Panel3: TPanel;
  30. Label15: TLabel;
  31. ROMCallDirectRadioButton: TRadioButton;
  32. ROMCallKernelRadioButton: TRadioButton;
  33. ROMCallCompressedRadioButton: TRadioButton;
  34. ROMCallFLineRadioButton: TRadioButton;
  35. InternalFLineEmulatorCheckBox: TCheckBox;
  36. BSSFormatSheet: TTabSheet;
  37. HomeScreenSheet: TTabSheet;
  38. LCDSaveCheckBox: TCheckBox;
  39. EnableErrorReturnCheckBox: TCheckBox;
  40. Label11: TLabel;
  41. ReturnValueRadioButton: TRadioButton;
  42. ReturnDoneRadioButton: TRadioButton;
  43. Label10: TLabel;
  44. Label7: TLabel;
  45. Panel1: TPanel;
  46. Label6: TLabel;
  47. BSSKernelRadioButton: TRadioButton;
  48. BSSCompressedRadioButton: TRadioButton;
  49. BSSMergeRadioButton: TRadioButton;
  50. Panel4: TPanel;
  51. Label8: TLabel;
  52. DataVarKernelRadioButton: TRadioButton;
  53. DataVarCompressedRadioButton: TRadioButton;
  54. WelcomeSheet: TTabSheet;
  55. Label1: TLabel;
  56. Label9: TLabel;
  57. OptimizeCalcConstsCheckBox: TCheckBox;
  58. Label12: TLabel;
  59. RelocFLineJumpsCheckBox: TCheckBox;
  60. UnofficialOSSupportCheckBox: TCheckBox;
  61. RelocFLineJumps4ByteCheckBox: TCheckBox;
  62. ROMCallOptimizedCheckBox: TCheckBox;
  63. procedure FormShow(Sender: TObject);
  64. procedure ShellRadioButtonClick(Sender: TObject);
  65. procedure MinAMSCheckBoxClick(Sender: TObject);
  66. procedure RelocRadioButtonClick(Sender: TObject);
  67. procedure ItemMouseDown(Sender: TObject; Button: TMouseButton;
  68. Shift: TShiftState; X, Y: Integer);
  69. procedure CalcCheckBoxClick(Sender: TObject);
  70. procedure RelocFLineJumpsCheckBoxClick(Sender: TObject);
  71. private
  72. public
  73. end;
  74. implementation
  75. uses
  76. MainUnit;
  77. {$R *.DFM}
  78. procedure TProgramOptionsForm.FormShow(Sender: TObject);
  79. begin
  80. ActiveControl := PageController;
  81. CalcCheckBoxClick (Sender);
  82. ShellRadioButtonClick (Sender);
  83. MinAMSCheckBoxClick (Sender);
  84. RelocRadioButtonClick (Sender);
  85. RelocFLineJumpsCheckBoxClick (Sender);
  86. end;
  87. procedure TProgramOptionsForm.ShellRadioButtonClick(Sender: TObject);
  88. begin
  89. with LCDSaveCheckBox do begin
  90. Enabled := NostubRadioButton.Checked;
  91. if not Enabled then
  92. Checked := True;
  93. end;
  94. with RelocAMSRadioButton do begin
  95. Enabled := NostubRadioButton.Checked;
  96. if Checked and not Enabled then
  97. RelocKernelRadioButton.Checked := True;
  98. end;
  99. with RelocKernelRadioButton do begin
  100. Enabled := not PreOSRadioButton.Checked;
  101. if Checked and not Enabled then
  102. RelocCompressedRadioButton.Checked := True;
  103. end;
  104. with RelocCompressedRadioButton do begin
  105. Enabled := not DoorsRadioButton.Checked;
  106. if Checked and not Enabled then
  107. RelocKernelRadioButton.Checked := True;
  108. end;
  109. with ROMCallDirectRadioButton do begin
  110. Enabled := NostubRadioButton.Checked;
  111. if Checked and not Enabled then
  112. ROMCallKernelRadioButton.Checked := True;
  113. end;
  114. with ROMCallKernelRadioButton do begin
  115. Enabled := not PreOSRadioButton.Checked;
  116. if Checked and not Enabled then
  117. ROMCallCompressedRadioButton.Checked := True;
  118. end;
  119. with ROMCallCompressedRadioButton do begin
  120. Enabled := not DoorsRadioButton.Checked;
  121. if Checked and not Enabled then
  122. ROMCallKernelRadioButton.Checked := True;
  123. end;
  124. with BSSKernelRadioButton do begin
  125. Enabled := not PreOSRadioButton.Checked;
  126. if Checked and not Enabled then
  127. BSSCompressedRadioButton.Checked := True;
  128. end;
  129. with BSSCompressedRadioButton do begin
  130. Enabled := not DoorsRadioButton.Checked;
  131. if Checked and not Enabled then
  132. BSSKernelRadioButton.Checked := True;
  133. end;
  134. RelocRadioButtonClick (Sender);
  135. end;
  136. procedure TProgramOptionsForm.MinAMSCheckBoxClick(Sender: TObject);
  137. begin
  138. MinAMSEdit.Enabled := MinAMSCheckBox.Checked;
  139. end;
  140. procedure TProgramOptionsForm.RelocRadioButtonClick(Sender: TObject);
  141. begin
  142. with InternalFLineEmulatorCheckBox do begin
  143. Enabled := (RelocFLineJumpsCheckBox.Checked or ROMCallFLineRadioButton.Checked) and (not RelocFLineJumps4ByteCheckBox.Checked);
  144. if not Enabled then
  145. Checked := RelocFLineJumps4ByteCheckBox.Checked;
  146. end;
  147. with ROMCallOptimizedCheckBox do begin
  148. Enabled := (ROMCallDirectRadioButton.Checked or ROMCallFLineRadioButton.Checked) and NostubRadioButton.Checked;
  149. if not Enabled then
  150. Checked := False;
  151. end;
  152. end;
  153. procedure TProgramOptionsForm.ItemMouseDown(Sender: TObject;
  154. Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  155. begin
  156. if Button = mbRight then
  157. if Sender is TControl then
  158. with TControl (Sender) do
  159. MainForm.DocFile.KeywordLookup (Hint);
  160. end;
  161. procedure TProgramOptionsForm.CalcCheckBoxClick(Sender: TObject);
  162. var
  163. CalcCount: Integer;
  164. begin
  165. CalcCount := 0;
  166. if TI89CheckBox.Checked then
  167. Inc (CalcCount);
  168. if TI92PlusCheckBox.Checked then
  169. Inc (CalcCount);
  170. if V200CheckBox.Checked then
  171. Inc (CalcCount);
  172. with OptimizeCalcConstsCheckBox do begin
  173. Enabled := CalcCount > 1;
  174. if not Enabled then
  175. Checked := CalcCount = 1;
  176. end;
  177. end;
  178. procedure TProgramOptionsForm.RelocFLineJumpsCheckBoxClick(
  179. Sender: TObject);
  180. begin
  181. with RelocFLineJumps4ByteCheckBox do begin
  182. Enabled := RelocFLineJumpsCheckBox.Checked;
  183. if not Enabled then
  184. Checked := False;
  185. end;
  186. RelocRadioButtonClick (Sender);
  187. end;
  188. end.