diff options
| -rw-r--r-- | src/gui/gui_dialogs.pas | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/gui/gui_dialogs.pas b/src/gui/gui_dialogs.pas index f177f597..8f6a6f24 100644 --- a/src/gui/gui_dialogs.pas +++ b/src/gui/gui_dialogs.pas @@ -128,6 +128,7 @@ type memSample: TfpgMemo; procedure OnCollectionChanged(Sender: TObject); procedure OnParamChange(Sender: TObject); + procedure OnSameTextChanged(Sender: TObject); procedure CreateFontList; procedure CreateFontAliasList; procedure SetupUI(AMode: Byte); @@ -535,6 +536,11 @@ begin memSample.Lines.Add(fpgGetNamedFontDesc(UTF8Copy(fdesc, 2, UTF8Length(fdesc)-1))); end; +procedure TfpgFontSelectDialog.OnSameTextChanged(Sender: TObject); +begin + FSampleText := memSample.Text; +end; + procedure TfpgFontSelectDialog.CreateFontList; var fl: TStringList; @@ -884,6 +890,7 @@ begin SetPosition(8, 288, 584, 65); Text := FSampleText; Anchors := [anLeft, anTop, anRight, anBottom]; + OnChange := @OnSameTextChanged; end; CreateFontList; |