Delphi imagelist
Автор BIG BIG задал вопрос в разделе Другие языки и технологии
Помогите с ImageList в Delphi и получил лучший ответ
Ответ от Zosich[гуру]
Case <страна> of
<america> : Image1.Picture.LoadFromFile('America.jpg');
<russian> : Image1.Picture.LoadFromFile('russian.jpg');
end;
Ну это всё условно, в кейсе вообще стринг нельзя использовать, можно заменить странны на нумирацию
Ответ от Пользователь удален[гуру]
Вот небольшой кусочекprocedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);begin//Если обрабатывается нужное нам поле if Column.FieldName='Rem' then //Рисуем самую первую картинку из TImageList (нумерация с 0) ImageList1.Draw(TDBGrid(Sender).Canvas,Rect.Left,Rect.Top, 0) else //Если обрабатывается любое другое поле, то просто выводим его значение TDBGrid(Sender).DefaultDrawColumnCell(Rect,DataCol,Column,State);end;
Вот небольшой кусочекprocedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);begin//Если обрабатывается нужное нам поле if Column.FieldName='Rem' then //Рисуем самую первую картинку из TImageList (нумерация с 0) ImageList1.Draw(TDBGrid(Sender).Canvas,Rect.Left,Rect.Top, 0) else //Если обрабатывается любое другое поле, то просто выводим его значение TDBGrid(Sender).DefaultDrawColumnCell(Rect,DataCol,Column,State);end;
Ответ от 3 ответа[гуру]
Привет! Вот подборка тем с ответами на Ваш вопрос: Помогите с ImageList в Delphi
delphi список файлов с иконками в listview
Интересный вопрос, такие редкость на проекте. За вопрос "пять с плюсом".
По порядку.
Нужно сделать такое меню на Delphi "7"
Здесь все просто. Создаются компоненты ListBox, ImageList, PopUpMenu. В ImageList добавляются
подробнее...
Как загрузить базу данных *.xls в компонент TListView (Delphi)?
если известна структура, то в чем проблема?
если структура неизвестна тогда ой!! !
интересно
подробнее...