Как ? 2 вопроса....

← →
allrussia © (2002-05-29 05:01) [0]

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

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

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

← →
allrussia © (2002-05-29 05:03) [1]

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

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

← →
Song © (2002-05-29 08:21) [2]

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

← →
allrussia © (2002-05-30 04:15) [3]

>>Song

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

За 2й спасибо

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

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

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 символов :-)))

Как ? 2 вопроса.... Найти похожие ветки