paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-18 19:29:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

IdeDebugger: change value formatter for AlphaColor. Don't force registration of IdentToInt. See Issue #40772

Browse Source
This commit is contained in:
Martin 2024-02-17 22:34:55 +01:00
parent 4c6f93909c
commit 37315271a4
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ide/packages/idedebugger/idedebuggervalueformattercolor.pas
View File

@ -350,6 +350,11 @@ begin
Result := ( Assigned(IntToIdentFn) and
IntToIdentFn(integer(c), APrintedValue)
);
{$IF FPC_FULLVERSION>030202}
if not Result then
Result := AlphaColorToIdent(integer(c), APrintedValue);
{$ENDIF}
if not Result then
APrintedValue := '';
end;
@ -377,9 +382,9 @@ end;
initialization
ValueFormatterRegistry.Add(TIdeDbgValueFormatterRegistryColor);
ValueFormatterRegistry.Add(TIdeDbgValueFormatterRegistryColorAlpha);
{$IF FPC_FULLVERSION>030202}
RegisterAlphaColorIntegerConsts;
{$ENDIF}
//{$IF FPC_FULLVERSION>030202}
//RegisterAlphaColorIntegerConsts;
//{$ENDIF}
end.