| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Иконка дла скрытого файла [D5, Win95/98, WinME, NT4, Win2k, WinXP]
ctapik-net © (2002-11-08 01:16:00)В Explore"ре скрытые файлы отображаются более прозрачными иконками. Вопрос. Как имея иконку файла получить иконку как если бы этот файл бал скрытый? аранее благодарен.
ctapik-net (2002-11-08 19:05:00) [1]Всем ответившим большое спасибо!!!! Вопрос снят благодоря Cobalt"у
Cobalt (2002-11-08 10:13:00) [2]Знаете, как это, оказывается, делает Эксплорер?
TListItem.Cut:=true;
Можете проверить - зайдите в папку со скрытыми файлами и нажмите на одном из них Ctrl+X - вуаля - все остальные файлы потеряют свою невинность(пардон, прозрачность 8-)
ctapik-net (2002-11-08 06:57:00) [3]А насчет примера VirtualListView так меня он не открывается dfm файл запорот. Может кто в меня его кинет, а то даже на диске с дельфи он запорот.
Николай Быков (2002-11-08 06:52:00) [4]
procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
begin
for i:=0 to Image1.Picture.Bitmap.Width do
for j:=0 to Image1.Picture.Bitmap.Height do
begin
Image1.Canvas.Pixels[i,j]:=Image1.Canvas.Pixels[i,j] or $aaaaaa;
end;
end;
Ну можно что-то типа этого сделать.
ctapik-net (2002-11-08 06:39:00) [5]Дык нехрена ShGetFileInfo не выдает такую иконку для скрытого файла!!! Ина обычная!!!
Оливейра (2002-11-08 02:06:00) [6]Нехрен самопальными методами иконки выдирать, работайте через SHGetFileInfo, SHGetImageList и т.п., см. Shell Programmers Guide в MSDN, и будет у вас красотища.
См. также пример VirtualListView
Alex-eraser (2002-11-08 01:29:00) [7]Попробуй загнать иконку в TImageList, а там, по-моему, есть спец. функции для этого, точно не уверен, посмотри в справке.
| |
