Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Графика и игры
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

 
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 20.12.2010, 04:12
Templar Templar вне форума
Прохожий
 
Регистрация: 20.12.2010
Сообщения: 2
Репутация: 10
По умолчанию Отмена действий на рисунке через DrawGrid

В общем, суть такова, что любое изменение рисунка заносится в DrawGrid. При нажатии кнопки - должно вырисовывать значение ячейки DrawGrid'a -1. Вот участок кода, отвечающий за отмену, но почему-то выбивающий ошибку. Помогите разобраться плз
Код:
if i>0 then begin
i:=i-1; //счетчик ячеек
bitmap.Height:=DrawGrid1.DefaultRowHeight;  //Высота битмапа по высоте ячейки
bitmap.Width:=DrawGrid1.DefaultColWidth; //Ширина битмапа по ширинее ячейки
bitmap.Canvas.CopyRect(DrawGrid1.CellRect(0,i),bitmap.Canvas,bounds(0,0,bitmap.Width,bitmap.Height)); //Копируем содержание ячейки в битмап
Image1.Picture.Bitmap:=bitmap; //Присваиваем Image содержние битмапа
img.Width:=Image1.ClientWidth; //Ширина условного изображения по ширине Image
buffer.Height:=Image1.ClientHeight; //Тоже самое
img.Height:=Image1.ClientHeight; //Высота условного изображения по высоте Image
buffer.Height:=Image1.ClientHeight; //Тоже самое
PaintBox1.ClientHeight:=Image1.ClientHeight; //Высота и ширина пейнтбокса по имеджу
PaintBox1.ClientWidth:=Image1.ClientWidth; //
img.Canvas.CopyRect(bounds (0,0,Image1.Width,Image1.Height),Image1.Canvas,bounds(0,0,Image1.Width,Image1.Height)); // Копируем содержание Имеджа в условное изображение
buffer.Assign(img); // Тоже самое
PaintBox1.Canvas.CopyRect(bounds(0,0,img.Width,img.Height), 
img.Canvas,bounds(0,0,img.Width,img.Height)); // рисуем в пейнтбокс
end;

Зы, просьба руки не ломать, только учусь)
Ответить с цитированием
 


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 23:59.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025