Converting Inno Setup WizardForm.Color to RGB

Question

If I try this:

[Setup]
AppName=MyApp
AppVerName=MyApp
DefaultDirName={pf}\\MyApp
DefaultGroupName=MyApp
OutputDir=         


        

Answer 1

When the first byte is $FF, the last byte is an index in a system color palette.

You can get RGB of the system color using GetSysColor function.

function GetSysColor(nIndex: Integer): DWORD;
  external 'GetSysColor@User32.dll stdcall';

function ColorToRGB(Color: TColor): Cardinal;
begin
  if Color < 0 then
    Result := GetSysColor(Color and $000000FF) else
    Result := Color;
end;

The ColorToRGB code is copied from Delphi VCL (Vcl.Graphics unit).