Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как ? 2 вопроса.... [D3, Win95/98]


allrussia ©   (2002-05-29 05:01:00) 

1. Пытаюсь вставить картинку в ListBox

..AddObject(текст, картинка) не работает. Вставляется только текст. Как быть? И еще, допустим в Listbox 10 items. Как одной процедурой вставить картинку(и) для всех items.

2. Узнать сколько цветов в настройке экрана в текущий момент выполнения проги: 16/256/16K/64K/?


Игорь Шевченко   (2002-05-30 10:00:00) [1]

Как узнать, сколько цветов:

function GetColorDepth : Integer;
var
DC : HDC;
BitsPerPixel : Integer;
begin
DC := GetDC(0);
try
BitsPerPixel := (GetDeviceCaps(DC, BITSPIXEL) * GetDeviceCaps(DC, PLANES));
finally
ReleaseDC (0, DC);
end;
Result := 2 SHL BitsPerPixel;
end;

Как сделать ListBox с картинкой на заднем фоне:

http://www.delphi-jedi.org

JvGoodies.zip файл JvBMPListBox.pas
(в сообщение не помещается, так как текст больше 5000 символов :-)))


Song   (2002-05-30 08:43:00) [2]

Хорошо не буду отвечать.


allrussia   (2002-05-30 04:15:00) [3]

>>Song

1. А люди кушают через рот
Поподробнее, могешь? Или линк кинь, или не отвечай

За 2й спасибо


Song   (2002-05-29 08:21:00) [4]

1. Делается через Canvas
2. GetSysColor()


allrussia   (2002-05-29 05:03:00) [5]

добавление к (1)

Как рисовать на заднем фоне ListBox? допустим размножить там текстурку 10x10, или чтоб прозрачный он стал, чтоб видел картинку под ним лежащую


Наверх

Титульная страница Поиск, карта сайта Написать письмо