diff options
| -rw-r--r-- | examples/apps/ide/src/frm_main.pas | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/examples/apps/ide/src/frm_main.pas b/examples/apps/ide/src/frm_main.pas index 2e14e333..36b3e473 100644 --- a/examples/apps/ide/src/frm_main.pas +++ b/examples/apps/ide/src/frm_main.pas @@ -285,9 +285,15 @@ begin end; procedure TMainForm.miConfigureIDE(Sender: TObject); +var + i: integer; begin DisplayConfigureIDE; pcEditor.TabPosition := TfpgTabPosition(gINI.ReadInteger(cEditor, 'TabPosition', 0)); + FKeywordFont.Free; + FKeywordFont := nil; + for i := 0 to pcEditor.PageCount-1 do + TfpgTextEdit(pcEditor.Pages[i].Components[0]).FontDesc := gINI.ReadString(cEditor, 'Font', '#Edit2'); end; procedure TMainForm.miViewDebug(Sender: TObject); |