![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
как можно создать несколько картинок на канве
ы © (2007-03-07 14:11:00)Здравствуйте!
Помогите пожалуста, у меня вот такая проблемка. Есть файл-картинка мне надо её вывести на канву и несколько копий в разных частях экрана (одновременно не стирая их). Скажите как узнать координаты n-ой картинки
ы (2007-03-07 15:02:00) [1]Спасибо за что ответили, попробую
RASkov (2007-03-07 14:58:00) [2]> [3] default © (07.03.07 14:47)
>зато у TImage (в который можно поместить картинку)есть координаты
Ну дык ему и надо расчитать эти самые координаты....
RASkov (2007-03-07 14:56:00) [3]> [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;
default (2007-03-07 14:47:00) [4]зато у TImage (в который можно поместить картинку)есть координаты
ы (2007-03-07 14:43:00) [5]Width, Height - это размеры картинки, а не её кординаты
RASkov (2007-03-07 14:37:00) [6]Width*n, Height*n ?