Вниз
Скачать: 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.037 c
2-1173796728
валидол
2007-03-13 17:38
2007.04.01
Позиция мыши


4-1163717621
Dmitry_177
2006-11-17 01:53
2007.04.01
Часы на API


2-1173789900
ANB
2007-03-13 15:45
2007.04.01
Как возврат каретки заставить ввестись при работе с TWebBrowser


2-1173121140
Riply
2007-03-05 21:59
2007.04.01
Сравнение строк.


15-1173480005
Тот самый
2007-03-10 01:40
2007.04.01
Task Bar




   Наверх