Solved

How do I get my program to change glyphs from 16bit to 16M?

Posted on 2001-08-22
3
162 Views
Last Modified: 2010-04-06
How do I get my program to change toolbar glyphs from 16bit to 16 Million colors? I have two imagelists on my form, When I load my program I would it to detect the current palette if its 256 or 16 million colors and load the load the imagelist. Examples please.
0
Comment
Question by:TCSCode
3 Comments
 
LVL 2

Expert Comment

by:danysz
ID: 6416209
u shall use only the 16 bit colors icons...  16 M make ome problems and it's also very heavy....

daniel
0
 
LVL 1

Accepted Solution

by:
sundayboys earned 100 total points
ID: 6416264
Uses
  Windows;
 
function GetCurrentColorDepth:Integer;
begin
  Result:=GetDevicecaps(GetDc(GetDesktopWindow),BITSPIXEL);
end;

Note
 
This function return display color depth in Bits Per Pixel (BPP).
4 BPP = 16 Colors.
8 BPP = 256 Colors.
16 BPP = High Colors.
32 BPP = True Colors
0
 

Author Comment

by:TCSCode
ID: 6418332
Excellent, Thank's sundayboys.
0

Featured Post

ScreenConnect 6.0 Free Trial

Discover new time-saving features in one game-changing release, ScreenConnect 6.0, based on partner feedback. New features include a redesigned UI, app configurations and chat acknowledgement to improve customer engagement!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

In this tutorial I will show you how to use the Windows Speech API in Delphi. I will only cover basic functions such as text to speech and controlling the speed of the speech. SAPI Installation First you need to install the SAPI type library, th…
Creating an auto free TStringList The TStringList is a basic and frequently used object in Delphi. On many occasions, you may want to create a temporary list, process some items in the list and be done with the list. In such cases, you have to…
This video shows how to use Hyena, from SystemTools Software, to bulk import 100 user accounts from an external text file. View in 1080p for best video quality.
Email security requires an ever evolving service that stays up to date with counter-evolving threats. The Email Laundry perform Research and Development to ensure their email security service evolves faster than cyber criminals. We apply our Threat…

831 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question