Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 22.11.2010, 19:46   #1
Galaxxxy
Новичок
Джуниор
 
Регистрация: 22.11.2010
Сообщений: 1
По умолчанию Вопрос про ImageList.

На форме в компонент imagelist добавил несколько картинок. Как их можно вывести на саму форму? Там вроде по индексам обращаться нужно, но как именно понять не могу. И как вывести рандомно одну картинку? На форуме не смог найти ответа и сам не смог справиться...
Galaxxxy вне форума Ответить с цитированием
Старый 23.11.2010, 20:25   #2
Alter
Старожил
 
Аватар для Alter
 
Регистрация: 06.08.2007
Сообщений: 2,183
По умолчанию

Вот, написал то что нужно. Смотрите.
Код:
// ....

procedure TForm1.DrawMas(C :TCanvas; Top,Left :Integer; ImgList :TImageList; StpX,StpY :Integer; imgWidth :Integer);
var
  X,Y,IndexImg :Integer;
  ImgWid,ImgHei,MaxWid:Integer;
  B :Boolean;
begin
 X := Left;
 Y := Top;
 B := False;
 ImgWid := ImgList.Width;
 ImgHei := ImgList.Height;
 MaxWid := imgWidth;
 IndexImg := 0;
  // clear
 C.Brush.Color := clBtnFace;
 C.FillRect(C.ClipRect);
  // draw
 if ImgList.Count > 0 then
 begin
  while IndexImg <= ImgList.Count Do
  begin
    // отступ первого значка
   If B then
   begin
    X := X + StpX;
    B := False;
   end;
   ImgList.Draw(C, X, Y, IndexImg);
   Inc(IndexImg);
   X := X + StpX + ImgWid;
    // перенос строк
   if X >= MaxWid - ImgHei - StpX then
   begin
    X := 0;
    Y := Y + StpY + ImgHei;
    B := True;
   end;
  end;
 end;
end;

// ....
Вложения
Тип файла: rar ImageList_Img.rar (35.4 Кб, 9 просмотров)

Последний раз редактировалось Alter; 23.11.2010 в 20:46.
Alter вне форума Ответить с цитированием
Старый 12.04.2011, 10:33   #3
PROGRAMyGA
Новичок
Джуниор
 
Регистрация: 28.03.2011
Сообщений: 2
По умолчанию

Здравствуйте, у меня тоже вопрос по Imagelist
Новую тему создавать не стал. вопрос такой.

Есть форма в Imagelist загружены картинки.
выводим первую картинку допустим с координатами 100х100px.
затем выводим туже (или другую неважно) картинку с координатами
110х110px (допустим). при размере картинки 32х32 пикселя получается наложение друг на друга.
а вот наложение как раз таки надо избежать, как быть в таком случае?
очищять форму не подходит.
подскажите признаюсь сразу Гуглин ненащел
з.ы.
зарание спасибо за ответ.
PROGRAMyGA вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вопрос про Свойство Visible и про иконки в imagelist Kappi4 Компоненты Delphi 2 21.05.2010 13:10
Вопрос про C# BanzoO Общие вопросы C/C++ 1 02.07.2009 03:47
Вопрос наверное про функции, а так точно даже не знаю про что. (Вопрос начинющего #6) Albert2008 Общие вопросы Delphi 4 21.08.2008 15:33
вопрос про IP ЧИЖ Работа с сетью в Delphi 1 23.06.2008 13:53
У меня вопрос про базы данных,а точнее про таблицы!!! Alexij Общие вопросы Delphi 1 13.04.2008 23:24