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

Вниз

Картинка фоном в ListView - почему текст имеет не прозрачный фон?   Найти похожие ветки 

 
jcrush   (2005-05-18 02:46) [0]

делаю так:
cl.contactlist.Brush.Bitmap := options.bg.Picture.Bitmap;

но текст на ListView имеет фон ввиде цвета т.е. глушит картинку.. можно ил поправить??

И еще как подсветить при наведении строки в ListView?


 
KilkennyCat ©   (2005-05-18 03:26) [1]

Вы лучше напишите, как текст выводите, раз с ним проблема. Нафиг код фона?
Подсветить что? При наведении чего?
Корректней спрашивайте.


 
jcrush   (2005-05-18 04:01) [2]

Как текст воожу не имеет значения но специально для вас:

InsertItem:=cl.contactlist.Items.Add ;
InsertItem.Caption := cl.clmemo1.Lines[comp];
InsertItem.ImageIndex:=0;

посдветить
InsertItem.Caption
при наведении мыши


 
jcrush   (2005-05-18 11:02) [3]

Кстати Richedit.Brush.Bitmap := options.bg.Picture.Bitmap;
Прекрасно работает


 
Ученик   (2005-05-18 22:59) [4]

>jcrush   (18.05.05 02:46)  


uses
 CommCtrl;

procedure TForm1.FormShow(Sender: TObject);
begin
 ListView1.Brush.Bitmap := Image1.Picture.Bitmap;
 ListView_SetBkcolor(ListView1.Handle, CLR_NONE);
 ListView_SetTextBkcolor(ListView1.Handle, CLR_NONE)
end;


 
jcrush ©   (2005-05-20 10:53) [5]

Спасибо, а к richedit это как применить?


 
jcrush ©   (2005-05-20 10:54) [6]

Спасибо, а к richedit это как применить?


 
Ученик   (2005-05-21 08:19) [7]

>jcrush   (18.05.05 11:02) [3]
А как же jcrush   (18.05.05 11:02) [3] ?


 
jcrush ©   (2005-05-23 02:45) [8]

Я там писал про то что фон у текста там прозрачен а вот при перемещении формы, прокрутки.. глюки с прорисовкой..


 
Ученик   (2005-05-23 07:08) [9]

>jcrush ©   (23.05.05 02:45) [8]
SetWindowLong(RichEdit.Handle, GWL_EXSTYLE, GetWindowLong(RichEdit.Handle, GWL_EXSTYLE) or WS_EX_TRANSPARENT)



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

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

Наверх




Память: 0.48 MB
Время: 0.022 c
4-1113393264
Dmitry
2005-04-13 15:54
2005.06.06
Shell: при замене explorer система "висит" на приветствии 45 сек


11-1087823411
Ugrael
2004-06-21 17:10
2005.06.06
Фиксированое полжение кнопки.


14-1116321471
SNHD
2005-05-17 13:17
2005.06.06
Ищу Базы данных на Delphi 6


4-1113825875
Tower
2005-04-18 16:04
2005.06.06
Полный путь к исполнимому файлу процесса.


6-1111250666
Calm
2005-03-19 19:44
2005.06.06
Передача файла по модему без инета.