Показать сообщение отдельно
  #4  
Старый 04.03.2010, 14:40
Аватар для NIch
NIch NIch вне форума
Продвинутый
 
Регистрация: 02.06.2008
Адрес: Бендеры ПМР
Сообщения: 754
Репутация: 2446
По умолчанию

Обязательно в Image???
Код:
var
 Map : TBitMap;
begin
 Map := TBitMap.Create;
 Map.LoadFromFile('Map.bmp');
 BitBlt (Form1.Canvas.Handle,//на какую форму вывести изображение
          100, 100, 256, 256, //2 координаты и размеры изображения
          Map.Canvas.Handle,//какую картинку вывести
          0, 0,//координаты начала прямоугольника картинки должны изменяться
          SRCCOPY);//способ копирования изображения , бывают разные 
end;
Что должно получится...
Выводится изображение способом SRCCOPY на Form1 размером 256х256 по координатам 100, 100, взятое из Map. При этом из Map берется только кусок 256х256 начиная с 0, 0 (в данном случае)...
При движении мыши ты должен пересчитывать последние координаты...
__________________
В начале был Бит, потом Байт и только потом появилось Слово...
Ответить с цитированием