VPF::вырисовывание картинок в ячейки stringgrid'a

216

Дата 2.5.2015, 16:44 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 2.5.2015

Репутация: нет
Всего: нет

Приветствую друзья, могли бы вы уделить столь драгоценного вашего времени, если не будет трудно. У меня трудность вышла с программой, мне нужно что бы после загрузки из файла картинок, грид загружал все сразу,а не отрисовывал каждую ячейку и не тормозил программу, если не трудно поглядите пожалуйста. Уж больно сильно тормозит

Присоединённый файл ( Кол-во скачиваний: 4 )

12345.rar 370,64 Kb

Illusion Dolphin

Дата 2.5.2015, 20:31 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1198
Регистрация: 3.5.2003

Репутация: 2
Всего: 63

Код


procedure TForm1.TableDrawCell(Sender: TObject; ACol, ARow: Integer;   //Перерисовка таблицы
  Rect: TRect; State: TGridDrawState);
var
  Bitmap: TBitmap;
  i,j:integer;
begin
{for i:=1 to 4 do
 for j:=0 to 143 do
 if (Plane[i,j]>0) then begin
  Bitmap:=TBitmap.Create;                                //Создание переменной типа Tbitmap
  Bitmap.LoadFromFile('Resourses\Images\'+inttostr(Plane[i,j])+'.bmp'); //Загрузка изображения состояния в переменную
  table.Canvas.StretchDraw(table.CellRect(j,i),Bitmap);  //Заполнение выбранной ячейки изображением
  Bitmap.Free;                                           //Освобождение переменной
  end;
     }
 if (ARow >= 1) and (ARow <= 4) and (ACol >= 0) and (ACol <= 143) and (Plane[ARow,ACol]>0) then begin
  Bitmap:=TBitmap.Create;                                //Создание переменной типа Tbitmap
  Bitmap.LoadFromFile('Resourses\Images\'+inttostr(Plane[ARow,ACol])+'.bmp'); //Загрузка изображения состояния в переменную
  table.Canvas.StretchDraw(table.CellRect(ACol,ARow),Bitmap);  //Заполнение выбранной ячейки изображением
  Bitmap.Free;                                        //Освобождение переменной
 end;

end;

Ускорил в 576 раз

Это сообщение отредактировал(а) Illusion Dolphin - 2.5.2015, 20:33

--------------------

В мире всего две бесконечности: вселенная и человеческая глупость... На счёт вселенной я не уверен.
Шифрование и организация фотографий - Photo Database 4.5

216

Дата 2.5.2015, 20:57 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 2.5.2015

Репутация: нет
Всего: нет

Цитата(Illusion Dolphin @ 2.5.2015, 20:31)

Ускорил в 576 раз

Спасибо огромное дружище!!! Выручил, ты не представляешь как....(((
А вот есть ещё один вопрос)) как сделать, что бы при запуске программы, автоматически появлялась сегодняшняя дата?

Illusion Dolphin

Дата 3.5.2015, 15:04 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1198
Регистрация: 3.5.2003

Репутация: 2
Всего: 63

Код


Date.DateTime := Now;

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »