Просмотр исходного кода

Fix for colorized "Compiler Output"

Martijn Laan 6 лет назад
Родитель
Сommit
800466ba2f
1 измененных файлов с 3 добавлено и 0 удалено
  1. 3 0
      Projects/CompForm.pas

+ 3 - 0
Projects/CompForm.pas

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