Details
-
Bug
-
Resolution: Fixed
-
Major
-
None
-
None
-
Operating System: ReactOS
Platform: x86 Hardware
Description
Created an attachment (id=3799)
Patch file
I scaning Windows Vista & XP
Test code
SystemPalette : HPalette;
LogicalPalette : TMaxLogPalette;
begin
SystemPalette := GetStockObject(DEFAULT_PALETTE);
GetPaletteEntries(SystemPalette, 0, 10, LogicalPalette.palPalEntry[0]);
GetPaletteEntries(SystemPalette, 10, 10, LogicalPalette.palPalEntry[10]);
for I := 0 to 19 do begin
s := IntToStr + ' - ' +
IntToHex(LogicalPalette.palPalEntry[i].peRed,2) +
IntToHex(LogicalPalette.palPalEntry[i].peGreen,2) +
IntToHex(LogicalPalette.palPalEntry[i].peBlue,2);
B_Memo1.Lines.Add(s);
end;
Result text
1 - 800000
2 - 008000
3 - 808000
4 - 000080
5 - 800080
6 - 008080
7 - C0C0C0
8 - C0DCC0
9 - A6CAF0<<<
10 - FFFBF0
11 - A0A0A4<<<
12 - 808080
13 - FF0000
14 - 00FF00
15 - FFFF00
16 - 0000FF
17 - FF00FF
18 - 00FFFF
19 - FFFFFF