Menu
  • HOME
  • TAGS

Converting Inno Setup WizardForm.Color to RGB

inno-setup,tcolor

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 '[email protected] stdcall'; function ColorToRGB(Color: TColor): Longint; begin if Color < 0 then Result := GetSysColor(Color and $000000FF)...