Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.04.01;
Скачать: CL | DM;

Вниз

как можно создать несколько картинок на канве   Найти похожие ветки 

 
ы   (2007-03-07 14:11) [0]

Здравствуйте!
Помогите пожалуста, у меня вот такая проблемка. Есть файл-картинка мне надо её вывести на канву и несколько копий в разных частях экрана (одновременно не стирая их). Скажите как узнать координаты n-ой картинки


 
RASkov   (2007-03-07 14:37) [1]

Width*n, Height*n ?


 
ы   (2007-03-07 14:43) [2]

Width, Height - это размеры картинки, а не её кординаты


 
default ©   (2007-03-07 14:47) [3]

зато у TImage (в который можно поместить картинку)есть координаты


 
RASkov   (2007-03-07 14:56) [4]

> [2] ы   (07.03.07 14:43)

Ну зная размеры можно расчитать координаты. Например:

var W, H, N, J: Integer; B: TBitMap;
begin
 B:=TBitMap.Create;
 B.LoadFromFile("");
 W:=Form.Width div B.Width;
 H:=Form.Height div B.Height;
 for N:= 0 to W do
  for J := 0 to H do
   Canvas.CopyRect(Rect(B.Width*N, B.Height*J, B.Width*N+B.Width, B.Height*J+B.Height), B.Canvas, B.Canvas.ClipRect);
end;


 
RASkov   (2007-03-07 14:58) [5]

> [3] default ©   (07.03.07 14:47)
>зато у TImage (в который можно поместить картинку)есть координаты

Ну дык ему и надо расчитать эти самые координаты....


 
ы   (2007-03-07 15:02) [6]

Спасибо за что ответили, попробую



Страницы: 1 вся ветка

Текущий архив: 2007.04.01;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.044 c
15-1173435017
Ламот
2007-03-09 13:10
2007.04.01
Нопонятки с мышкой...


15-1173117673
nobody_1988
2007-03-05 21:01
2007.04.01
Books about win programming


2-1173437359
Polzun
2007-03-09 13:49
2007.04.01
Как задать управляющие коды принтера?


2-1173427767
Megabyte
2007-03-09 11:09
2007.04.01
Переменная типа Файл в качестве параметра


15-1173066915
Brc
2007-03-05 06:55
2007.04.01
Вирусы