浏览代码

Fix for colorized "Compiler Output"

Martijn Laan 6 年之前
父节点
当前提交
800466ba2f
共有 1 个文件被更改,包括 3 次插入0 次删除
  1. 3 0
      Projects/CompForm.pas

+ 3 - 0
Projects/CompForm.pas

@@ -882,6 +882,9 @@ begin
 
   FBreakPoints := TList.Create;
 
+  CompilerOutputList.Canvas.Font.Assign(CompilerOutputList.Font);
+  CompilerOutputList.ItemHeight := CompilerOutputList.Canvas.TextHeight('0');
+
   DebugOutputList.Canvas.Font.Assign(DebugOutputList.Font);
   FDebugLogListTimeWidth := DebugOutputList.Canvas.TextWidth(Format(
     '[00%s00%s00%s000]   ', [{$IFDEF IS_DXE}FormatSettings.{$ENDIF}TimeSeparator, {$IFDEF IS_DXE}FormatSettings.{$ENDIF}TimeSeparator, {$IFDEF IS_DXE}FormatSettings.{$ENDIF}DecimalSeparator]));