paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-02 07:22:03 +02:00
Code Issues Packages Projects Releases Wiki Activity

disabled warning about non UTF8 fonts until we have an automatic monospace font selection

Browse Source 
git-svn-id: trunk@9901 -
This commit is contained in:
mattias 2006-09-15 13:45:43 +00:00
parent 1d73c0b6f1
commit 6ad121660c
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ide/main.pp
View File

@ -7497,7 +7497,8 @@ begin
// handle versioninfo
VersionInfo:=Project1.VersionInfo;
Result := VersionInfo.CompileRCFile(Project1.MainFilename,MainBuildBoss.GetTargetOS(true));
Result := VersionInfo.CompileRCFile(Project1.MainFilename,MainBuildBoss.
GetTargetOS(true));
if Result <> mrOk then exit;
for Count := 1 to VersionInfo.VersionInfoMessages.Count do
MessagesView.AddMsg(Format(VersionInfo.VersionInfoMessages[Count - 1],

4
ide/uniteditor.pp
View File

@ -5420,9 +5420,13 @@ begin
and ((EditorOpts.DoNotWarnForFont='')
or (EditorOpts.DoNotWarnForFont<>CurFont.Name))
then begin
{$IFDEF HasMonoSpaceFonts}
DummyResult:=QuestionDlg(lisUEFontWith,
Format(lisUETheCurre, [#13, #13]),
mtWarning, [mrIgnore, mrYesToAll, lisUEDoNotSho], 0);
{$ELSE}
DummyResult:=mrYesToAll;
{$ENDIF}
if DummyResult=mrYesToAll then begin
if EditorOpts.DoNotWarnForFont<>CurFont.Name then begin
EditorOpts.DoNotWarnForFont:=CurFont.Name;