Главная страница
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.047 c
3-1168515637
Alexander_K
2007-01-11 14:40
2007.04.01
Подключение к Екселю как к БД через ADO


2-1173433604
Ega23
2007-03-09 12:46
2007.04.01
Механизм цветопередачи картинок к TAction при Enabled/Disabled


1-1170856465
Badhabit
2007-02-07 16:54
2007.04.01
DBGrid и поле DateTime


1-1170775820
Krants
2007-02-06 18:30
2007.04.01
Прокрутка для WebBrowser


1-1171015510
DelphiLexx
2007-02-09 13:05
2007.04.01
FreeAndNil