Форум: "Основная";
Текущий архив: 2005.08.14;
Скачать: [xml.tar.bz2];
ВнизКак грузить картинки в TImageList в рантайме ? Найти похожие ветки
← →
Имэджн (2005-07-24 01:30) [0]Если нет стандартной функции, и надо тольео нарезать и перекладывать, то ведь там как то надо ещё учитывать прозрачность. А как непонятно.
← →
Leonid Troyanovsky © (2005-07-24 06:03) [1]
> Имэджн (24.07.05 01:30)
> Если нет стандартной функции, и надо тольео нарезать и перекладывать,
> то ведь там как то надо ещё учитывать прозрачность. А как
> непонятно.
Если одним махом, то, by Vladimir Titov:
uses
commctrl;
procedure ImageList_WriteData(ImageList: TImageList; Stream: TStream);
var
SA: TStreamAdapter;
begin
SA := TStreamAdapter.Create(Stream);
try
if not ImageList_Write(ImageList.Handle, SA) then
raise EWriteError.Create("Failed to write ImageList data to stream");
finally
SA.Free;
end;
end;
procedure ImageList_ReadData(ImageList: TImageList; Stream: TStream);
var
SA: TStreamAdapter;
begin
SA := TStreamAdapter.Create(Stream);
try
ImageList.Handle := ImageList_Read(SA);
if ImageList.Handle = 0 then
raise EReadError.Create("Failed to read ImageList data from stream");
finally
SA.Free;
end;
end;
procedure ImageList_SaveToFile(ImageList: TImageList; const FileName: string);
var
FileStream: TFileStream;
begin
FileStream := TFileStream.Create(FileName, fmCreate);
try
ImageList_WriteData(ImageList, FileStream);
finally
FileStream.Free;
end;
end;
procedure ImageList_LoadFromFile(ImageList: TImageList; const FileName:
string);
var
FileStream: TFileStream;
begin
FileStream := TFileStream.Create(FileName, fmShareDenyNone);
try
ImageList_ReadData(ImageList, FileStream);
finally
FileStream.Free;
end;
end;
--
Regards, LVT.
← →
Имэджн (2005-07-24 07:05) [2]Этж компонент.
А как картинки то грузить ?
← →
Leonid Troyanovsky © (2005-07-24 07:19) [3]
> Имэджн (24.07.05 07:05) [2]
> Этж компонент.
Где компонент?
> А как картинки то грузить ?
procedure ImageList_LoadFromFile, IMHO.
Только сохранить их в него надо, предварительно ;)
--
Regards, LVT.
← →
Имэджн (2005-07-24 07:41) [4]
> Leonid Troyanovsky © (24.07.05 07:19) [3]
> Только сохранить их в него надо, предварительно ;)
Так юзеру и скажу. Поставь себе Дельфи, сохрани предварительно, а потому иж используй.
← →
Leonid Troyanovsky © (2005-07-24 07:49) [5]
> Имэджн (24.07.05 07:41) [4]
> > Только сохранить их в него надо, предварительно ;)
>
>
> Так юзеру и скажу. Поставь себе Дельфи, сохрани предварительно,
> а потому иж используй.
А зачем юзеру Дельфи?
Дай ему возможность делать ImageList.Add, Delete, ..
А сохранить (загрузить) накопленное можно и в файл.
--
Regards, LVT.
← →
Имэджн (2005-07-25 01:15) [6]
> Leonid Troyanovsky © (24.07.05 07:49) [5]
> Дай ему возможность делать ImageList.Add, Delete, ..
А ты пойди лучше пива попей, раз не знаешь ответа на вопрос.
← →
Defunct © (2005-07-25 03:44) [7]Имэджн (25.07.05 01:15) [6]
> раз не знаешь ответа на вопрос.
Меня раздражают такие изречения вопрошающих, и вероятно не только меня. Будете такими фразами разбрасываться не получите ответа никогда, т.к. те кто мог бы вам помочь просто не захотят этого делать.
по ходу, добавлять картинки:
ImageList.AddMasked( bmp, <прозрачный цвет> );
если не надо прозрачности тогда (-1) на месте прозрачного цвета.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2005.08.14;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.012 c