PreferencesUnit.pas 13 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491
  1. unit PreferencesUnit;
  2. interface
  3. uses
  4. Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  5. StdCtrls, ExtCtrls, ComCtrls, SourceEditUnit{$IFDEF CODINGEXT}, PrefFrame{$ENDIF};
  6. type
  7. TPreferencesForm = class(TForm)
  8. OKButton: TButton;
  9. CancelButton: TButton;
  10. ColorDlg: TColorDialog;
  11. FontDlg: TFontDialog;
  12. PageController: TPageControl;
  13. GeneralSheet: TTabSheet;
  14. StopCompilationBox: TCheckBox;
  15. FlatButtonsCheckBox: TCheckBox;
  16. MenuBitmapsCheckBox: TCheckBox;
  17. AutoSaveCheckBox: TCheckBox;
  18. EditorSheet: TTabSheet;
  19. Label2: TLabel;
  20. CTabSizeEdit: TEdit;
  21. ColorCheckBox: TCheckBox;
  22. ChangeColorButton: TButton;
  23. Label3: TLabel;
  24. ChangeFontButton: TButton;
  25. FontLabel: TPanel;
  26. SyntaxHighlightingSheet: TTabSheet;
  27. Label4: TLabel;
  28. ASMTabSizeEdit: TEdit;
  29. LanguageSelectionBox: TComboBox;
  30. Label5: TLabel;
  31. SyntaxEnabledBox: TCheckBox;
  32. Button1: TButton;
  33. Button2: TButton;
  34. Button3: TButton;
  35. Button4: TButton;
  36. Button5: TButton;
  37. Button6: TButton;
  38. ObjectTree: TTreeView;
  39. Button7: TButton;
  40. Button8: TButton;
  41. Button9: TButton;
  42. OKTimer: TTimer;
  43. OpenFolderBox: TCheckBox;
  44. DeleteObjectFilesBox: TCheckBox;
  45. ResetButton: TButton;
  46. OnFlyCheckBox: TCheckBox;
  47. DeleteErrorsCheckBox: TCheckBox;
  48. AutoBlockCheckBox: TCheckBox;
  49. SplitFilesCheckBox: TCheckBox;
  50. DeleteAssemblyFilesBox: TCheckBox;
  51. AllowImplicitCheckBox: TCheckBox;
  52. AutoNewsCheckBox: TCheckBox;
  53. TransferSheet: TTabSheet;
  54. TargetBox: TGroupBox;
  55. VTIBox: TRadioButton;
  56. RealCalcBox: TRadioButton;
  57. PortBox: TGroupBox;
  58. PortCOM1Box: TRadioButton;
  59. PortCOM2Box: TRadioButton;
  60. PortCOM3Box: TRadioButton;
  61. PortCOM4Box: TRadioButton;
  62. CableBox: TGroupBox;
  63. CableBlackBox: TRadioButton;
  64. CableGrayBox: TRadioButton;
  65. NoneBox: TRadioButton;
  66. VTIPathEdit: TEdit;
  67. VTIPathBrowseButton: TButton;
  68. BrowseDlg: TOpenDialog;
  69. DragDropEditCheckBox: TCheckBox;
  70. RemoveTrailingSpcCheckBox: TCheckBox;
  71. JumpToErrorBox: TCheckBox;
  72. procedure ColorCheckBoxClick(Sender: TObject);
  73. procedure ChangeColorButtonClick(Sender: TObject);
  74. procedure ChangeFontButtonClick(Sender: TObject);
  75. procedure FormCreate(Sender: TObject);
  76. procedure FormDestroy(Sender: TObject);
  77. procedure FormShow(Sender: TObject);
  78. procedure LanguageSelectionBoxChange(Sender: TObject);
  79. procedure ObjectTreeChange(Sender: TObject; Node: TTreeNode);
  80. procedure SyntaxEnabledBoxClick(Sender: TObject);
  81. procedure Button1Click(Sender: TObject);
  82. procedure Button3Click(Sender: TObject);
  83. procedure Button2Click(Sender: TObject);
  84. procedure Button4Click(Sender: TObject);
  85. procedure Button6Click(Sender: TObject);
  86. procedure Button5Click(Sender: TObject);
  87. procedure ObjectTreeKeyDown(Sender: TObject; var Key: Word;
  88. Shift: TShiftState);
  89. procedure EditItem(Sender: TObject);
  90. procedure Button7Click(Sender: TObject);
  91. procedure Button8Click(Sender: TObject);
  92. procedure ObjectTreeEdited(Sender: TObject; Node: TTreeNode;
  93. var S: String);
  94. procedure ObjectTreeEditing(Sender: TObject; Node: TTreeNode;
  95. var AllowEdit: Boolean);
  96. procedure OKTimerTimer(Sender: TObject);
  97. procedure ResetButtonClick(Sender: TObject);
  98. procedure PageControllerChange(Sender: TObject);
  99. procedure TargetBoxClick(Sender: TObject);
  100. procedure VTIPathBrowseButtonClick(Sender: TObject);
  101. private
  102. public
  103. BackColor: TColor;
  104. EditorFont: TFont;
  105. SyntaxC: TSyntaxColoring;
  106. SyntaxAsmGNU: TSyntaxColoring;
  107. SyntaxAsm: TSyntaxColoring;
  108. SyntaxQuill: TSyntaxColoring;
  109. Syntax: TSyntaxColoring;
  110. SyntaxTabClicked: Boolean;
  111. {$IFDEF CODINGEXT}
  112. procedure InitCodingExt;
  113. {$ENDIF}
  114. end;
  115. implementation
  116. {$R *.DFM}
  117. uses
  118. MasterUnit,
  119. UtilsDos, UtilsWin,
  120. MainUnit, StyleSelectionUnit, ColorsUnit, CustomStyleUnit, WordListUnit;
  121. procedure TPreferencesForm.ColorCheckBoxClick(Sender: TObject);
  122. begin
  123. ChangeColorButton.Enabled := ColorCheckBox.Checked;
  124. end;
  125. procedure TPreferencesForm.ChangeColorButtonClick(Sender: TObject);
  126. begin
  127. with ColorDlg do begin
  128. Color := BackColor;
  129. if Execute then
  130. BackColor := Color;
  131. end;
  132. end;
  133. procedure TPreferencesForm.ChangeFontButtonClick(Sender: TObject);
  134. begin
  135. with FontDlg do begin
  136. Font.Assign (EditorFont);
  137. if Execute then begin
  138. EditorFont.Assign (Font);
  139. FontLabel.Caption := EditorFont.Name;
  140. FontLabel.Font.Assign (EditorFont);
  141. end;
  142. end;
  143. end;
  144. procedure TPreferencesForm.FormCreate(Sender: TObject);
  145. begin
  146. EditorFont := TFont.Create;
  147. SyntaxC := TSyntaxColoring.Create (nil);
  148. SyntaxAsm := TSyntaxColoring.Create (nil);
  149. SyntaxAsmGNU := TSyntaxColoring.Create (nil);
  150. SyntaxQuill := TSyntaxColoring.Create (nil);
  151. if ssA68k in SpecialSupport then
  152. LanguageSelectionBox.Items.Add ('A68k ASM Files');
  153. if ssQuill in SpecialSupport then
  154. LanguageSelectionBox.Items.Add ('Quill Files');
  155. LanguageSelectionBox.ItemIndex := 0;
  156. {$IFDEF CODINGEXT}
  157. InitCodingExt;
  158. {$ENDIF}
  159. end;
  160. procedure TPreferencesForm.FormDestroy(Sender: TObject);
  161. begin
  162. SyntaxQuill.Free;
  163. SyntaxAsmGNU.Free;
  164. SyntaxAsm.Free;
  165. SyntaxC.Free;
  166. EditorFont.Free;
  167. end;
  168. procedure TPreferencesForm.FormShow(Sender: TObject);
  169. begin
  170. SyntaxTabClicked := PageController.ActivePage = SyntaxHighlightingSheet;
  171. TargetBoxClick (Sender);
  172. ColorCheckBoxClick (Sender);
  173. FontLabel.Caption := EditorFont.Name;
  174. FontLabel.Font.Assign (EditorFont);
  175. LanguageSelectionBoxChange (Sender);
  176. end;
  177. procedure TPreferencesForm.LanguageSelectionBoxChange(Sender: TObject);
  178. label
  179. Done;
  180. var
  181. I: Integer;
  182. begin
  183. I := LanguageSelectionBox.ItemIndex;
  184. if I <= 0 then begin
  185. Syntax := SyntaxC;
  186. goto Done;
  187. end;
  188. Dec (I);
  189. if I <= 0 then begin
  190. Syntax := SyntaxAsmGNU;
  191. goto Done;
  192. end;
  193. if ssA68k in SpecialSupport then begin
  194. Dec (I);
  195. if I <= 0 then begin
  196. Syntax := SyntaxAsm;
  197. goto Done;
  198. end;
  199. end;
  200. if ssQuill in SpecialSupport then begin
  201. Dec (I);
  202. if I <= 0 then begin
  203. Syntax := SyntaxQuill;
  204. goto Done;
  205. end;
  206. end;
  207. Done:
  208. SyntaxEnabledBox.Checked := Syntax.Enabled;
  209. SyntaxEnabledBoxClick (Sender);
  210. ObjectTree.Items.BeginUpdate;
  211. with ObjectTree.Items [0] do begin
  212. Item[0].DeleteChildren;
  213. Item[1].DeleteChildren;
  214. end;
  215. with Syntax do begin
  216. with CustomStyles do
  217. for I := 0 to Count - 1 do
  218. ObjectTree.Items.AddChildObject (ObjectTree.Items[0].Item[0], Items[I].Caption, Pointer (Items [I]));
  219. with WordLists do
  220. for I := 0 to Count - 1 do
  221. ObjectTree.Items.AddChildObject (ObjectTree.Items[0].Item[1], Items[I].Caption, Pointer (Items [I]));
  222. end;
  223. ObjectTree.FullExpand;
  224. ObjectTree.Items.EndUpdate;
  225. ObjectTreeChange (Sender, nil);
  226. end;
  227. procedure TPreferencesForm.ObjectTreeChange(Sender: TObject;
  228. Node: TTreeNode);
  229. begin
  230. Button9.Enabled := SyntaxEnabledBox.Checked and Assigned (ObjectTree.Selected) and Assigned (ObjectTree.Selected.Data);
  231. end;
  232. procedure TPreferencesForm.SyntaxEnabledBoxClick(Sender: TObject);
  233. begin
  234. Syntax.Enabled := SyntaxEnabledBox.Checked;
  235. Button1.Enabled := SyntaxEnabledBox.Checked;
  236. Button2.Enabled := SyntaxEnabledBox.Checked;
  237. Button3.Enabled := SyntaxEnabledBox.Checked;
  238. Button4.Enabled := SyntaxEnabledBox.Checked;
  239. Button5.Enabled := SyntaxEnabledBox.Checked;
  240. Button6.Enabled := SyntaxEnabledBox.Checked;
  241. Button7.Enabled := SyntaxEnabledBox.Checked;
  242. Button8.Enabled := SyntaxEnabledBox.Checked;
  243. ObjectTree.Enabled := SyntaxEnabledBox.Checked;
  244. ObjectTreeChange (Sender, nil);
  245. end;
  246. procedure TPreferencesForm.Button1Click(Sender: TObject);
  247. begin
  248. ColorDlg.Color := Syntax.NumberColor;
  249. if ColorDlg.Execute then
  250. Syntax.NumberColor := ColorDlg.Color;
  251. end;
  252. procedure TPreferencesForm.Button3Click(Sender: TObject);
  253. begin
  254. ColorDlg.Color := Syntax.SymbolColor;
  255. if ColorDlg.Execute then
  256. Syntax.SymbolColor := ColorDlg.Color;
  257. end;
  258. procedure TPreferencesForm.Button2Click(Sender: TObject);
  259. begin
  260. with TStyleSelectionForm.Create (Self) do try
  261. CustomStyle := Syntax.NumberCustomStyle;
  262. Style := Syntax.NumberStyle;
  263. if ShowModal = mrOK then begin
  264. Syntax.NumberCustomStyle := CustomStyle;
  265. Syntax.NumberStyle := Style;
  266. end;
  267. finally
  268. Free;
  269. end;
  270. end;
  271. procedure TPreferencesForm.Button4Click(Sender: TObject);
  272. begin
  273. with TStyleSelectionForm.Create (Self) do try
  274. CustomStyle := Syntax.SymbolCustomStyle;
  275. Style := Syntax.SymbolStyle;
  276. if ShowModal = mrOK then begin
  277. Syntax.SymbolCustomStyle := CustomStyle;
  278. Syntax.SymbolStyle := Style;
  279. end;
  280. finally
  281. Free;
  282. end;
  283. end;
  284. procedure TPreferencesForm.Button6Click(Sender: TObject);
  285. begin
  286. with TStyleSelectionForm.Create (Self) do try
  287. CustomStyle := Syntax.ParenthesisCustomStyle;
  288. Style := Syntax.ParenthesisStyle;
  289. if ShowModal = mrOK then begin
  290. Syntax.ParenthesisCustomStyle := CustomStyle;
  291. Syntax.ParenthesisStyle := Style;
  292. end;
  293. finally
  294. Free;
  295. end;
  296. end;
  297. procedure TPreferencesForm.Button5Click(Sender: TObject);
  298. begin
  299. with TMultipleColorsForm.Create (Self) do try
  300. ColorBox.Items.Assign (Syntax.ParenthesisColors);
  301. if ShowModal = mrOK then
  302. Syntax.ParenthesisColors.Assign (ColorBox.Items);
  303. finally
  304. Free;
  305. end;
  306. end;
  307. procedure TPreferencesForm.ObjectTreeKeyDown(Sender: TObject;
  308. var Key: Word; Shift: TShiftState);
  309. var
  310. ItemData: TCollectionItem;
  311. begin
  312. if Key = vk_Delete then begin
  313. if Assigned (ObjectTree.Selected) and Assigned (ObjectTree.Selected.Data) then begin
  314. ItemData := TCollectionItem (ObjectTree.Selected.Data);
  315. ObjectTree.Selected.Delete;
  316. ItemData.Free;
  317. end;
  318. end;
  319. end;
  320. procedure TPreferencesForm.EditItem(Sender: TObject);
  321. var
  322. ItemData: TCollectionItem;
  323. begin
  324. if Assigned (ObjectTree.Selected) and Assigned (ObjectTree.Selected.Data) then begin
  325. ItemData := TCollectionItem (ObjectTree.Selected.Data);
  326. if ItemData is TCustomStyle then
  327. with TCustomStyleForm.Create (Self) do try
  328. Style.Assign (ItemData);
  329. if ShowModal = mrOK then
  330. ItemData.Assign (Style);
  331. finally
  332. Free;
  333. end
  334. else if ItemData is TWordList then
  335. with TWordListForm.Create (Self) do try
  336. List.Assign (ItemData);
  337. if ShowModal = mrOK then
  338. ItemData.Assign (List);
  339. finally
  340. Free;
  341. end;
  342. end;
  343. end;
  344. procedure TPreferencesForm.Button7Click(Sender: TObject);
  345. var
  346. ItemData: TCustomStyle;
  347. begin
  348. if ObjectTree.Enabled then
  349. ObjectTree.SetFocus;
  350. ItemData := Syntax.CustomStyles.Add;
  351. ItemData.Caption := 'New Style';
  352. with ObjectTree.Items.AddChildObject (ObjectTree.Items[0].Item[0], ItemData.Caption, Pointer (ItemData)) do begin
  353. MakeVisible;
  354. EditText;
  355. end;
  356. end;
  357. procedure TPreferencesForm.Button8Click(Sender: TObject);
  358. var
  359. ItemData: TWordList;
  360. begin
  361. if ObjectTree.Enabled then
  362. ObjectTree.SetFocus;
  363. ItemData := Syntax.WordLists.Add;
  364. ItemData.Caption := 'New List';
  365. with ObjectTree.Items.AddChildObject (ObjectTree.Items[0].Item[1], ItemData.Caption, Pointer (ItemData)) do begin
  366. MakeVisible;
  367. EditText;
  368. end;
  369. end;
  370. procedure TPreferencesForm.ObjectTreeEdited(Sender: TObject;
  371. Node: TTreeNode; var S: String);
  372. var
  373. ItemData: TCollectionItem;
  374. begin
  375. OKButton.Enabled := True;
  376. if Assigned (Node.Data) then begin
  377. ItemData := TCollectionItem (Node.Data);
  378. if ItemData is TCustomStyle then
  379. TCustomStyle(ItemData).Caption := S;
  380. if ItemData is TWordList then
  381. TWordList(ItemData).Caption := S;
  382. end;
  383. ObjectTree.Selected := Node;
  384. end;
  385. procedure TPreferencesForm.ObjectTreeEditing(Sender: TObject;
  386. Node: TTreeNode; var AllowEdit: Boolean);
  387. begin
  388. AllowEdit := Assigned (Node.Data);
  389. if AllowEdit then begin
  390. OKButton.Enabled := False;
  391. OKTimer.Enabled := True;
  392. end;
  393. end;
  394. procedure TPreferencesForm.OKTimerTimer(Sender: TObject);
  395. begin
  396. if not ObjectTree.IsEditing then begin
  397. OKButton.Enabled := True;
  398. OKTimer.Enabled := False;
  399. end;
  400. end;
  401. procedure TPreferencesForm.ResetButtonClick(Sender: TObject);
  402. begin
  403. if Syntax = SyntaxC then
  404. Syntax.Assign (MainForm.SyntaxCBackup)
  405. else if Syntax = SyntaxAsmGNU then
  406. Syntax.Assign (MainForm.SyntaxAsmGNUBackup)
  407. else if Syntax = SyntaxAsm then
  408. Syntax.Assign (MainForm.SyntaxAsmBackup)
  409. else if Syntax = SyntaxQuill then
  410. Syntax.Assign (MainForm.SyntaxQuillBackup);
  411. LanguageSelectionBoxChange (Sender);
  412. end;
  413. procedure TPreferencesForm.PageControllerChange(Sender: TObject);
  414. begin
  415. if PageController.ActivePage = SyntaxHighlightingSheet then
  416. SyntaxTabClicked := True;
  417. end;
  418. procedure TPreferencesForm.TargetBoxClick(Sender: TObject);
  419. begin
  420. VTIPathEdit.Enabled := VTIBox.Checked;
  421. VTIPathBrowseButton.Enabled := VTIPathEdit.Enabled;
  422. PortBox.Enabled := RealCalcBox.Checked;
  423. PortCOM1Box.Enabled := PortBox.Enabled;
  424. PortCOM2Box.Enabled := PortBox.Enabled;
  425. PortCOM3Box.Enabled := PortBox.Enabled;
  426. PortCOM4Box.Enabled := PortBox.Enabled;
  427. CableBox.Enabled := PortBox.Enabled;
  428. CableBlackBox.Enabled := CableBox.Enabled;
  429. CableGrayBox.Enabled := CableBox.Enabled;
  430. end;
  431. procedure TPreferencesForm.VTIPathBrowseButtonClick(Sender: TObject);
  432. begin
  433. with BrowseDlg do begin
  434. FileName := VTIPathEdit.Text;
  435. if Execute then
  436. VTIPathEdit.Text := FileName;
  437. end;
  438. end;
  439. {$IFDEF CODINGEXT}
  440. procedure TPreferencesForm.InitCodingExt;
  441. var
  442. Tab: TTabSheet;
  443. Frame: TCodingExt;
  444. begin
  445. Tab := TTabSheet.Create(Self);
  446. Tab.PageControl := PageController;
  447. Tab.Caption := 'Coding';
  448. Frame := TCodingExt.Create(Self);
  449. Frame.Parent := Tab;
  450. Tab.OnShow := Frame.OnShow;
  451. end;
  452. {$ENDIF}
  453. end.