Новые книги
 В книге популярно рассказывается о принципах программирования. |
 Переход мировых компаний к корпоративному маркетингу, по мнению автора книги, требует осуществления ими основных преобразований в этой области. Эти преобразования, подробно рассмотренные в настоящей книге, особенно актуальны для российских компаний, которым они помогут разработать конкурентные стратегии.Книга предназначена для специалистов в области маркетинга и руководителей компаний. |
Как установить количество цветов в системной палитре?
function GetNumColors: LongInt;
var
BPP: Integer;
DC: HDC;
begin
DC := CreateDC('DISPLAY', nil, nil, nil);
if DC <> 0 then begin
try
BPP := GetDeviceCaps(DC, BITPIXEL) * GetDeviceCaps(DC, PLANES);
finally
DeleteDC(DC);
end;
case BPP of
1: Result := 2;
4: Result := 16;
8: Result := 256;
15: Result := 32768;
16: Result := 65536;
24: Result := 16777216;
end;
end else
Result := 0;
end;