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

Delphi Sources



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

 
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 01.04.2012, 00:54
MrBadge MrBadge вне форума
Прохожий
 
Регистрация: 30.12.2009
Сообщения: 28
Репутация: 10
По умолчанию Рисование поверх TImage

В TImage загружена bmp, поверх рисуется объект (постоянно перемещается). Свойство кисти NotXor теперь не помогает - траектория движения остается все равно (с пустым Image'м работало). Собственно вопрос: как от этого избавиться?

Загрузка картинки:
Код:
OpenPictureDialog1.InitialDir:=GetCurrentDir;
  if OpenPictureDialog1.Execute then
  begin
    Fname:=OpenPictureDialog1.FileName;
    with Form1 do
    begin
      img1.AutoSize:=True;
      img1.Picture.LoadFromFile(Fname);
      img1.Picture.Bitmap.Canvas.Brush.Style:=bsClear;
       ...
   end;

После различных вычислений и тд рисование:
Код:
//fld.Canvas.FillRect(Rect(0,0,wdth,hght));
  fld.Canvas.MoveTo(ship_back.X,ship_back.Y);
  fld.Canvas.LineTo(ship_front.X,ship_front.Y);
  fld.Canvas.Ellipse(ship_front.X-2,ship_front.Y-2,ship_front.X+2,ship_front.Y+2);

Без картинки можно было использовать филлрект, но теперь это вызовет белый прямоугольник. Нужно именно перерисовывать объект поверх картинки, удаляя его предыдущее положение.
Можно, конечно, каждый раз заново грузить картинку, но это ерунда
(fld и img1 - один и тот же TImage)
Ответить с цитированием
 


Delphi Sources

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

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

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

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


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


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

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