AddToSystemJournalEx
Writes a formatted message to the Stealth system journal (the System Journal pane at the bottom of the main Stealth window).
Supports the \n escape sequence (linebreak) for line breaks within the message.
You can customize:
- TextColor — text color as an integer RGB value.
0= black (default) - BGColor — background color as an integer RGB value.
-1= default background - FontSize — font size in points.
10= default - FontName — font family name.
'Consolas'= default
Записывает форматированное сообщение в системный журнал Stealth (панель System Journal в нижней части главного окна Stealth).
Поддерживает escape-последовательность \n(linebreak) для переноса строки.
Можно настроить:
- TextColor — цвет текста в виде целочисленного RGB-значения.
0= чёрный (по умолчанию) - BGColor — цвет фона в виде целочисленного RGB-значения.
-1= фон по умолчанию - FontSize — размер шрифта в пунктах.
10= по умолчанию - FontName — имя семейства шрифта.
'Consolas'= по умолчанию
procedure AddToSystemJournalEx(Text: String; TextColor: Integer;
BGColor: Integer; FontSize: Integer; FontName: String);
procedure AddToSystemJournalEx(Text: String; TextColor: Integer = 0;
BGColor: Integer = -1; FontSize: Integer = 10; FontName: String = 'Consolas');
def AddToSystemJournalEx(Text: str, TextColor: int, BgColor: int, FontSize: int, FontName: str) -> None
begin
// Red text, default background, 12pt Courier New
AddToSystemJournalEx('WARNING: Low HP!', $0000FF, -1, 12, 'Courier New');
{$IFDEF DWSCRIPT}
// Green text with default font settings
AddToSystemJournalEx('Connected successfully', $00FF00);
{$ENDIF}
end.
AddToSystemJournalEx('WARNING: Low HP!', 0x0000FF, -1, 12, 'Courier New')