diff options
| author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2011-08-10 00:25:17 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2011-08-10 00:25:17 +0200 |
| commit | b3c343d81685b2a8bc46b26ca524a0bf95cc5804 (patch) | |
| tree | 2e4e2ce1f174f2552618ba89ef9f1d82585bd74f | |
| parent | 9d0ec2eb7fbc570d44901aa24745b420132b01da (diff) | |
| download | fpGUI-b3c343d81685b2a8bc46b26ca524a0bf95cc5804.tar.xz | |
ide: apply newly selected fonts to open editors. This is still WIP.
| -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); |