fix(developer): debug window inherits editor font

Fixes #3827.

The debugger was not inheriting the editor font -- this is a regression
from when we replaced TPlusMemo with Monaco editor.
This commit is contained in:
Marc Durdin 2020-11-06 07:12:17 +11:00
parent d7e8b564b2
commit ef7d2bfb0e
2 changed files with 2 additions and 5 deletions

View file

@ -1171,8 +1171,7 @@ begin
if FFont = nil then
begin
FDefaultFont := True;
//TODO:FFont := EditorMemo.AltFont;
FFont := Font; //TODO scrap this
FFont := EditorMemo.CharFont;
end
else
FDefaultFont := False;

View file

@ -2884,9 +2884,7 @@ begin
FDebugForm.OnClearBreakpoint := DebugClearBreakpoint;
FDebugForm.OnUpdateExecutionPoint := DebugUpdateExecutionPoint;
FDebugForm.Visible := True;
// TODO: FDebugForm.EditorMemo := frameSource.memo;
FDebugForm.EditorMemo := frameSource;
FDebugStatusForm := TfrmDebugStatus.Create(Self);
FDebugStatusForm.BorderStyle := bsNone;