var newIcon: TIcon;
addRes: integer;
begin
if OpenDialog1.Execute then
begin
newIcon := TIcon.Create;
newIcon.LoadFromFile(OpenDialog1.FileName);
addRes := ImageList1.AddIcon(newIcon);
if addRes > -1 then
begin
end;
newIcon.Free;
end;
end;
Как программно добавить иконку в ImageList?
Как программно добавить иконку в ImageList? Хочу сделать диалог выбора иконки и назначать выбранную иконку на ветку TreeView.
Цитата: Алекс1978
Как программно добавить иконку в ImageList? Хочу сделать диалог выбора иконки и назначать выбранную иконку на ветку TreeView.
Люди, имейте совесть. :) Хоть иногда открывайте help в Delphi.
AddIcon, AddMasked, InsertIcon, InsertMasked.
С хелп мой англ.хромает.. :( ImageList1.Add:=OpenDialog.Filename ??
Спасибо большое за код!