PreferencesUnit.pas 14 KB

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