Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Звук, графика и видео > bmp canvas очистить

Автор: darkida 1.2.2010, 22:03

Рисую n квадратиков. Надо стереть 3-ый и нарисовать на его месте другой. Надо именно стереть, потому что если наложить то получается бяка.
В drkb и на форуме смотрел, но ничего подходящего не нашел. Если что то пропустил скиньте ссылку.
Рисую так.

Код


procedure TForm1.Button2Click(Sender: TObject);
var
  i: integer;
  x: integer;
  y: integer;
begin
x:=170;
y:=13;
for i:=0 to 10 do
begin
x:=x-30;
y:=y+14;
imagelist1.Draw(form1.Canvas, x, y, i);
end;

А на слик 1-го батана хочу сделать чтоб менял нужные мне квадратики.
Помогите пожалуйста!!!

Автор: artsb 1.2.2010, 23:03

Перед рисование нового квадрата (или чего-то другого) закрасьте область в которой собираетесь рисовать цветом фона с помощью Canvas.FillRect

Добавлено @ 23:07
Т.е. что-то типа:

Код


r: TRect;
// ...
r.Left := x;
r.Top := y;
r.Right := r;
r.Bottom := b;
Form1.Canvas.Brush.Color := clRed; // устанавливаем цвет кисти как у фона. Если вы её нигде не изменяете, то это делать не обязательно
Form1.Canvas.FillRect(r); // стираем старый рисунок 
// рисуем что-то новое

Автор: darkida 1.2.2010, 23:12

Забыл сказать. Рисуется это на картинке. Так что закрашивание не пойдет т.к. задний фон как я понимаю тоже закрасится.

Автор: artsb 1.2.2010, 23:14

Цитата(darkida @ 1.2.2010, 23:12

)

задний фон как я понимаю тоже закрасится.

Ага.
Тогда вам нужно хранить в памяти оригинал, например в объекте типа TBitmap.
А чтобы стереть старый рисунок просто скопируйте нужный кусок из оригинала.

Добавлено через 1 минуту и 12 секунд

Код


Form1.Canvas.CopyRect(DestRect, bmp.Canvas, SourceRect);

Автор: darkida 1.2.2010, 23:21

А если он рисовался не канвосом, а так просто вставлен. Что делать? Или тогда закрашивание не повлияет на рисунок.
Спасибо за помощь. Весьма признателен.

Цитата

Тогда вам нужно хранить в памяти оригинал, например в объекте типа TBitmap.
А чтобы стереть старый рисунок просто скопируйте нужный кусок из оригинала.

Добавлено через 1 минуту и 12 секунд
Выделить всёкод Pascal/Delphi
1:

Form1.Canvas.CopyRect(DestRect, bmp.Canvas, SourceRect);

Это получается, мне надо выделить сперва область до того как квадраты появятся, потом сохранить её в отдельный файл bmp. А потом перед заменой вставить ту область. И только потом менять квадрат. Так да? Если так, то нет ли полегче способа. Потому что квадратов таких будет очень много и они будут проставляться массивом, тогда придется создавать какую-нибудь процедуру чтоб записывала области. А если квадраты будут проставляться рандомом то еще сложнее будет.

Автор: artsb 1.2.2010, 23:32

Цитата(darkida @ 1.2.2010, 23:21

)

а так просто вставлен

TImage?

Добавлено через 36 секунд
Тогда лучше и сам рисунок рисовать вручную. Это труда не составит ;)

Автор: darkida 2.2.2010, 00:18

Ой я там с редактом запоздал. artsb прочти пожалуйста.

Да Image.

Цитата

Тогда лучше и сам рисунок рисовать вручную. Это труда не составит ;)

Да это не сложно. Но проблема в том что она большая и на ней будут находится все квадратики.
Поясню задачу задачу. Хочу создать карту города и потом работать с ней, тоесть: добавлять, удалять, менять положения и т,д различных видов сооружений.
ВОТ.

Тоесть задний фон это как бы ландшафт который не изменяется, а квадратики это сооружения, с которыми я буду работать.

Автор: darkida 2.2.2010, 00:57

А все придумал!!!

Цитата

Перед рисование нового квадрата (или чего-то другого) закрасьте область в которой собираетесь рисовать цветом фона с помощью Canvas.FillRect

Код


r: TRect;
// ...
r.Left := x;
r.Top := y;
r.Right := r;
r.Bottom := b;
Form1.Canvas.Brush.Color := clRed; // устанавливаем цвет кисти как у фона. Если вы её нигде не изменяете, то это делать не обязательно
Form1.Canvas.FillRect(r); // стираем старый рисунок 
// рисуем что-то новое

Буду использовать вот этот твой способ, так само удобно.
Еще раз спасибо за решение моего вопроса, помог очень сильно.