将 Inno Setup WizardForm.Color 转换为 RGB
Converting Inno Setup WizardForm.Color to RGB
如果我试试这个:
[Setup]
AppName=MyApp
AppVerName=MyApp
DefaultDirName={pf}\MyApp
DefaultGroupName=MyApp
OutputDir=.
[Code]
function ColorToRGBstring(Color: TColor): string;
var
R,G,B : Integer;
begin
R := Color and $ff;
G := (Color and $ff00) shr 8;
B := (Color and $ff0000) shr 16;
result := 'red:' + inttostr(r) + ' green:' + inttostr(g) + ' blue:' + inttostr(b);
end;
procedure InitializeWizard();
begin
MsgBox(ColorToRGBstring(WizardForm.Color),mbConfirmation, MB_OK);
end;
我得到:red:15 green:0 blue:0
但是结果应该是:240 240 240(灰色)
怎么了?
我需要获取正确的 TColor
并将其转换为 RGB 颜色代码。
当第一个字节是 $FF
时,最后一个字节是系统调色板中的索引。
您可以使用GetSysColor
函数获取系统颜色的RGB。
function GetSysColor(nIndex: Integer): DWORD;
external 'GetSysColor@User32.dll stdcall';
function ColorToRGB(Color: TColor): Cardinal;
begin
if Color < 0 then
Result := GetSysColor(Color and [=10=]0000FF) else
Result := Color;
end;
ColorToRGB
code是从DelphiVCL(Vcl.Graphics单元)复制过来的。
以上代码returns Win32 API 色,$BBGGRR
是什么。如果你需要$RRGGBB
,你需要交换位:
Result :=
((Result and $FF) shl 16) +
(Result and $FF00) +
((Result and $FF0000) shr 16);
如果我试试这个:
[Setup]
AppName=MyApp
AppVerName=MyApp
DefaultDirName={pf}\MyApp
DefaultGroupName=MyApp
OutputDir=.
[Code]
function ColorToRGBstring(Color: TColor): string;
var
R,G,B : Integer;
begin
R := Color and $ff;
G := (Color and $ff00) shr 8;
B := (Color and $ff0000) shr 16;
result := 'red:' + inttostr(r) + ' green:' + inttostr(g) + ' blue:' + inttostr(b);
end;
procedure InitializeWizard();
begin
MsgBox(ColorToRGBstring(WizardForm.Color),mbConfirmation, MB_OK);
end;
我得到:red:15 green:0 blue:0
但是结果应该是:240 240 240(灰色)
怎么了?
我需要获取正确的 TColor
并将其转换为 RGB 颜色代码。
当第一个字节是 $FF
时,最后一个字节是系统调色板中的索引。
您可以使用GetSysColor
函数获取系统颜色的RGB。
function GetSysColor(nIndex: Integer): DWORD;
external 'GetSysColor@User32.dll stdcall';
function ColorToRGB(Color: TColor): Cardinal;
begin
if Color < 0 then
Result := GetSysColor(Color and [=10=]0000FF) else
Result := Color;
end;
ColorToRGB
code是从DelphiVCL(Vcl.Graphics单元)复制过来的。
以上代码returns Win32 API 色,$BBGGRR
是什么。如果你需要$RRGGBB
,你需要交换位:
Result :=
((Result and $FF) shl 16) +
(Result and $FF00) +
((Result and $FF0000) shr 16);