Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.04.08;
Скачать: CL | DM;

Вниз

отрисовка комбобокса с иконками - как выделить иконки ?   Найти похожие ветки 

 
nali   (2007-02-12 14:49) [0]

Делаю отрисовку элементов списка комбобокса через DrawItem,
c иконками.
Подскажите, как сделать картинку в битмапе с оттенком цвета
выделения. Надо чтобы в комбобоксе при прорисовке выделенного элемента иконка была под цвет выделения, а то некрасиво смотрится.
Вот текст drawitem:


procedure TForm1.ComboBox3DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
var
bm:TBitmap;
begin
 ComboBox3.Canvas.FillRect(Rect);  
ComboBox3.Canvas.TextOut(17+Rect.Left,Rect.Top,ComboBox3.Items[index]);
 bm:=TBitmap.create;
 bm.Width:=TIcon(ComboBox3.Items.Objects[Index]).Width;
 bm.Height:=TIcon(ComboBox3.Items.Objects[Index]).Height;
 DrawIcon(bm.Canvas.Handle ,0,0,TIcon(ComboBox3.Items.Objects[Index]).Handle);
 bm.Canvas.StretchDraw(classes.rect(0,0,16,16),bm);
 ComboBox3.Canvas.CopyRect(classes.rect(0,rect.top,16,rect.top+16),bm.canvas,classes.rect(0,0,16,16));
 bm.Free;
end;


Хотелось бы с кодом примерчик.

И еще вопрос:
Как  бы сделать combobox с возможностью отрисовки элементов списка и с возможностью редактирования текса. На ум приходит только кинуть поверх комбобокса едит без бордюра  и выровнять его над текстом. Наверное так и сделаю.


 
Игорь Шевченко ©   (2007-02-12 15:04) [1]


> Как  бы сделать combobox с возможностью отрисовки элементов
> списка и с возможностью редактирования текса


Использовать ComboBoxEx



Страницы: 1 вся ветка

Текущий архив: 2007.04.08;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.074 c
2-1173896890
Malik
2007-03-14 21:28
2007.04.08
Проблема с Delphi


2-1174150590
Kley
2007-03-17 19:56
2007.04.08
Не умещается текст в QuickReporte


2-1174149356
Malik
2007-03-17 19:35
2007.04.08
Вопрос про канву принтера


15-1173857443
Knight
2007-03-14 10:30
2007.04.08
Кто какими клиентами пользуется?


2-1174254147
Norfolk
2007-03-19 00:42
2007.04.08
Кнопка в TStringGrid или TDrawGrid