Вниз
Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.027 c
1-1170856465
Badhabit
2007-02-07 16:54
2007.04.01
DBGrid и поле DateTime


2-1173182796
wahnsinng
2007-03-06 15:06
2007.04.01
Ошибка


15-1173115580
PARUS
2007-03-05 20:26
2007.04.01
Сидюк от компа


15-1173505252
Expell
2007-03-10 08:40
2007.04.01
Сторонние компоненты


15-1173490412
Riply
2007-03-10 04:33
2007.04.01
Всего за четыре часа совершено великое открытие ! :)




   Наверх