Вниз
Скачать: 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.031 c
2-1173249432
Zergik
2007-03-07 09:37
2007.04.01
Помогите с RaveReport


15-1173177660
Novice
2007-03-06 13:41
2007.04.01
Что в имени тебе моем? (Опрос железа)


2-1173165804
Sapos
2007-03-06 10:23
2007.04.01
Поиск!


3-1168292568
allrussia
2007-01-09 00:42
2007.04.01
Не открываются базы из Delphi, содержащие символ ";" (semicolon)


2-1173442023
AMW
2007-03-09 15:07
2007.04.01
Invalid pointer operation при FreeMem




   Наверх