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

IDE: allowing negative font height

Browse Source 
git-svn-id: trunk@15812 -
This commit is contained in:
mattias 2008-07-18 08:08:06 +00:00
parent ec306d185d
commit 194d128c0f
2 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/codetools/pascalparsertool.pas
View File

@ -601,7 +601,6 @@ begin
then
// class already parsed
exit;
DebugLn(['TPascalParserTool.BuildSubTreeForClass AAA1']);
// avoid endless loop
ClassNode.SubDesc:=ClassNode.SubDesc and (not ctnsNeedJITParsing);
OldPhase:=CurrentPhase;

19
ide/editoroptions.pp
View File

@ -758,7 +758,6 @@ const
lshJScript
);
function ShowEditorOptionsDialog: TModalResult;
var
EditorOptionsForm: TEditorOptionsForm;
@ -772,6 +771,13 @@ begin
end;
end;
procedure RepairEditorFontHeight(var FontHeight: integer);
begin
if ((FontHeight>=0) and (FontHeight<=5))
or ((FontHeight<0) and (FontHeight>=-5)) then
FontHeight:=12;
end;
function CheckGroupItemChecked(CheckGroup: TCheckGroup;
const Caption: string): Boolean;
begin
@ -1570,8 +1576,7 @@ begin
XMLConfig.GetValue('EditorOptions/Display/EditorFont', 'courier');
fEditorFontHeight :=
XMLConfig.GetValue('EditorOptions/Display/EditorFontHeight', 12);
if fEditorFontHeight<=0 then
fEditorFontHeight:=12;
RepairEditorFontHeight(fEditorFontHeight);
fExtraCharSpacing :=
XMLConfig.GetValue('EditorOptions/Display/ExtraCharSpacing', 0);
fExtraLineSpacing :=
@ -2669,8 +2674,7 @@ begin
begin
Font.Name := EditorFontComboBox.Text;
NewHeight := StrToIntDef(EditorFontHeightComboBox.Text, PreviewEdits[1].Font.Height);
if NewHeight<=0 then
NewHeight:=12;
RepairEditorFontHeight(NewHeight);
Font.Height := NewHeight;
Options := Options + [fdApplyButton];
OnApplyClicked := @FontDialogApplyClicked;
@ -2727,10 +2731,7 @@ begin
begin
NewVal := StrToIntDef(EditorFontHeightComboBox.Text,
PreviewEdits[1].Font.Height);
if (NewVal <= 6) then
NewVal := 6;
if (NewVal > 40) then
NewVal := 40;
RepairEditorFontHeight(NewVal);
SetComboBoxText(EditorFontHeightComboBox, IntToStr(NewVal));
for a := Low(PreviewEdits) to High(PreviewEdits) do
if PreviewEdits[a] <> Nil then