Bladeren bron

Fix for colorized "Compiler Output"

Martijn Laan 6 jaren geleden
bovenliggende
commit
800466ba2f
1 gewijzigde bestanden met toevoegingen van 3 en 0 verwijderingen
  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]));