WordListUnit.pas 1.9 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293
  1. unit WordListUnit;
  2. interface
  3. uses
  4. SourceEditUnit,
  5. Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  6. StdCtrls, ExtCtrls;
  7. type
  8. TWordListForm = class(TForm)
  9. Button1: TButton;
  10. Button2: TButton;
  11. ColorDlg: TColorDialog;
  12. Bevel1: TBevel;
  13. Bevel2: TBevel;
  14. Button3: TButton;
  15. Button4: TButton;
  16. ListStrings: TMemo;
  17. CaseSensitiveBox: TCheckBox;
  18. procedure FormCreate(Sender: TObject);
  19. procedure FormDestroy(Sender: TObject);
  20. procedure Button1Click(Sender: TObject);
  21. procedure Button2Click(Sender: TObject);
  22. procedure FormShow(Sender: TObject);
  23. procedure FormClose(Sender: TObject; var Action: TCloseAction);
  24. procedure CaseSensitiveBoxClick(Sender: TObject);
  25. private
  26. public
  27. List: TWordList;
  28. end;
  29. var
  30. WordListForm: TWordListForm;
  31. implementation
  32. {$R *.DFM}
  33. uses
  34. StyleSelectionUnit;
  35. procedure TWordListForm.FormCreate(Sender: TObject);
  36. begin
  37. List := TWordList.Create (nil);
  38. end;
  39. procedure TWordListForm.FormDestroy(Sender: TObject);
  40. begin
  41. List.Free;
  42. end;
  43. procedure TWordListForm.Button1Click(Sender: TObject);
  44. begin
  45. ColorDlg.Color := List.Color;
  46. if ColorDlg.Execute then begin
  47. List.Color := ColorDlg.Color;
  48. List.CustomColor := True;
  49. end;
  50. end;
  51. procedure TWordListForm.Button2Click(Sender: TObject);
  52. begin
  53. with TStyleSelectionForm.Create (Self) do try
  54. CustomStyle := List.CustomStyle;
  55. Style := List.Style;
  56. if ShowModal = mrOK then begin
  57. List.CustomStyle := CustomStyle;
  58. List.Style := Style;
  59. end;
  60. finally
  61. Free;
  62. end;
  63. end;
  64. procedure TWordListForm.FormShow(Sender: TObject);
  65. begin
  66. ListStrings.Lines.Assign (List.Words);
  67. CaseSensitiveBox.Checked := List.CaseSensitive;
  68. end;
  69. procedure TWordListForm.FormClose(Sender: TObject;
  70. var Action: TCloseAction);
  71. begin
  72. List.Words.Assign (ListStrings.Lines);
  73. end;
  74. procedure TWordListForm.CaseSensitiveBoxClick(Sender: TObject);
  75. begin
  76. List.CaseSensitive := CaseSensitiveBox.Checked;
  77. end;
  78. end.