Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
Akmal
3 / 3 / 0
Регистрация: 23.03.2013
Сообщений: 58
1

Canvas.draw

07.04.2014, 07:21. Просмотров 900. Ответов 3
Метки нет (Все метки)

надо нарисовать линию над image1 при этим не повридит image1.picture
вот мой код

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Image1: TImage;
    BitBtn1: TBitBtn;
    Timer1: TTimer;
    procedure BitBtn1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  i:integer=0;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
image1.Stretch:=true;
showmessage(inttostr(image1.Width)+'   '+inttostr(image1.Height));
Timer1.Enabled:=true;
 
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
var
bmp:TBitmap;
begin
 
  bmp:=Tbitmap.Create;
  bmp.LoadFromFile('D:\\projects\\oka\\line.bmp');
 
  if (i>=image1.Height)   then
  exit
  else
  begin
 
 
  Canvas.Draw(image1.left,image1.top+i,bmp);
 
  inc(i);
  end
 
 
 
 
end;
 
end.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.04.2014, 07:21
Ответы с готовыми решениями:

Canvas.Draw
Подскажите, пожалуйста, ответ на такой вопрос: вот я создаю редактор для простенькой игры с помощью...

Можно ли одной процедурой рисовать на Image.Canvas и Printer.Canvas
Здравствуйте, пожалуйста, подскажите можно ли одной процедурой рисовать на Image.Canvas и...

Как добиться одинакового размера шрифта при выводе на Image.Canvas и Printer.Canvas
Здравствуйте! Подскажите, пожалуйста, как добиться одинакового размера шрифта при выводе на...

Рисование Draw
1)Есть картинка, допустим меч, как сделать так чтобы сопрекосновение с другим объектом считался...

Стираются картинки. ImageList1.Draw(Label4.Canvas,7,2,0,Enabled=True);
Приветствую всех! Есть некоторая проблема. На главной форме есть panel на которой есть несколько...

3
DenNik
Непрофессионал
2393 / 2010 / 333
Регистрация: 26.07.2011
Сообщений: 9,099
Записей в блоге: 1
07.04.2014, 10:31 2
Цитата Сообщение от Akmal Посмотреть сообщение
при этим не повридит image1.picture
это как?
0
Akmal
3 / 3 / 0
Регистрация: 23.03.2013
Сообщений: 58
07.04.2014, 14:24  [ТС] 3
как бы два слоя photoshope
0
DenNik
Непрофессионал
2393 / 2010 / 333
Регистрация: 26.07.2011
Сообщений: 9,099
Записей в блоге: 1
07.04.2014, 16:39 4
наложи два Image друг на друга. на втором рисуй линии с прозрачностью
0
07.04.2014, 16:39
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.04.2014, 16:39

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Canvas
Доброго времени. Небольшая проблемка. Не получается рисовать произвольную линию.Квадраты, эллипсы,...

Canvas
помогите подправить програмку,не могу сделать так что бы заяц ровно выводился,ну т.е. что бы у него...

Canvas
Помогите пожалуйста нарисовать в Canvas график какой нибудь любой функции.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.