123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293 |
- unit WordListUnit;
- interface
- uses
- SourceEditUnit,
- Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
- StdCtrls, ExtCtrls;
- type
- TWordListForm = class(TForm)
- Button1: TButton;
- Button2: TButton;
- ColorDlg: TColorDialog;
- Bevel1: TBevel;
- Bevel2: TBevel;
- Button3: TButton;
- Button4: TButton;
- ListStrings: TMemo;
- CaseSensitiveBox: TCheckBox;
- procedure FormCreate(Sender: TObject);
- procedure FormDestroy(Sender: TObject);
- procedure Button1Click(Sender: TObject);
- procedure Button2Click(Sender: TObject);
- procedure FormShow(Sender: TObject);
- procedure FormClose(Sender: TObject; var Action: TCloseAction);
- procedure CaseSensitiveBoxClick(Sender: TObject);
- private
- public
- List: TWordList;
- end;
- var
- WordListForm: TWordListForm;
- implementation
- {$R *.DFM}
- uses
- StyleSelectionUnit;
- procedure TWordListForm.FormCreate(Sender: TObject);
- begin
- List := TWordList.Create (nil);
- end;
- procedure TWordListForm.FormDestroy(Sender: TObject);
- begin
- List.Free;
- end;
- procedure TWordListForm.Button1Click(Sender: TObject);
- begin
- ColorDlg.Color := List.Color;
- if ColorDlg.Execute then begin
- List.Color := ColorDlg.Color;
- List.CustomColor := True;
- end;
- end;
- procedure TWordListForm.Button2Click(Sender: TObject);
- begin
- with TStyleSelectionForm.Create (Self) do try
- CustomStyle := List.CustomStyle;
- Style := List.Style;
- if ShowModal = mrOK then begin
- List.CustomStyle := CustomStyle;
- List.Style := Style;
- end;
- finally
- Free;
- end;
- end;
- procedure TWordListForm.FormShow(Sender: TObject);
- begin
- ListStrings.Lines.Assign (List.Words);
- CaseSensitiveBox.Checked := List.CaseSensitive;
- end;
- procedure TWordListForm.FormClose(Sender: TObject;
- var Action: TCloseAction);
- begin
- List.Words.Assign (ListStrings.Lines);
- end;
- procedure TWordListForm.CaseSensitiveBoxClick(Sender: TObject);
- begin
- List.CaseSensitive := CaseSensitiveBox.Checked;
- end;
- end.
|