paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-20 11:59:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: editor options: font name: adding new font to combobox

Browse Source 
git-svn-id: trunk@15896 -
This commit is contained in:
mattias 2008-07-28 05:26:57 +00:00
parent 6e27134bc2
commit 6ee5435e15
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/editoroptions.pp
View File

@ -1635,7 +1635,8 @@ begin
fEditorFont := fEditorFont :=
XMLConfig.GetValue('EditorOptions/Display/EditorFont', SynDefaultFontName); XMLConfig.GetValue('EditorOptions/Display/EditorFont', SynDefaultFontName);
fEditorFontHeight := fEditorFontHeight :=
XMLConfig.GetValue('EditorOptions/Display/EditorFontHeight', 12); XMLConfig.GetValue('EditorOptions/Display/EditorFontHeight',
SynDefaultFontHeight);
RepairEditorFontHeight(fEditorFontHeight); RepairEditorFontHeight(fEditorFontHeight);
fExtraCharSpacing := fExtraCharSpacing :=
XMLConfig.GetValue('EditorOptions/Display/ExtraCharSpacing', 0); XMLConfig.GetValue('EditorOptions/Display/ExtraCharSpacing', 0);
@ -2811,7 +2812,7 @@ begin
for a := Low(PreviewEdits) to High(PreviewEdits) do for a := Low(PreviewEdits) to High(PreviewEdits) do
if PreviewEdits[a] <> Nil then if PreviewEdits[a] <> Nil then
PreviewEdits[a].Font.Assign(TFontDialog(Sender).Font); PreviewEdits[a].Font.Assign(TFontDialog(Sender).Font);
EditorFontComboBox.Text := DisplayPreview.Font.Name; SetComboBoxText(EditorFontComboBox,DisplayPreview.Font.Name);
SetComboBoxText(EditorFontHeightComboBox, SetComboBoxText(EditorFontHeightComboBox,
IntToStr(DisplayPreview.Font.Height)); IntToStr(DisplayPreview.Font.Height));
end; end;