VPF::картинка на форме - Форум программистов

vacsan

Дата 6.12.2009, 20:13 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 16.11.2009

Репутация: нет
Всего: нет

Картинка выведена на форму.На картинке несколько объектов.
Пытаюсь показать нужный объект стрелкой.Так вот стрелка рисуется , а картинка исчезает.
Подскажите кто знает, как правильно.Вот код:

Код


var
  Form1: TForm1;
   data:TStringList;
implementation

{$R *.dfm}

  Function Upstring(s:string):string;
const
 s1=('qwertyuiopasdfghjklzxcvbnm  йцукенгшщзхъфывапролджэячсмитьбюё');
 s2=('QWERTYUIOPASDFGHJKLZXCVBNM  ЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮЁ');
var
 i:integer;
begin
 upstring:=s;
 if length(s)=0 then exit;
 for i:= 1 to length(s) do
  if pos(s[i],s1)>0 then
   s[i]:=s2[pos(s[i],s1)];
 upstring:=s;
end;

procedure TForm1.Arrow(x, y: integer);
begin
 image1.Picture.Bitmap.Canvas.Brush.Color:=clwhite;
 image1.Picture.Bitmap.Canvas.FillRect(image1.Picture.Bitmap.Canvas.ClipRect);

 image1.Picture.Bitmap.Canvas.Pen.Color:=clred;
 image1.Picture.Bitmap.Canvas.Pen.Width:=8;

 image1.Picture.Bitmap.Canvas.MoveTo(x-100,y-100);
 image1.Picture.Bitmap.Canvas.LineTo(x,y);

 image1.Picture.Bitmap.Canvas.LineTo(x-30,y);

 image1.Picture.Bitmap.Canvas.MoveTo(x,y);
 image1.Picture.Bitmap.Canvas.LineTo(x,y-30);
end;

Это сообщение отредактировал(а) THandle - 6.12.2009, 21:53

Proxin

Дата 6.12.2009, 20:16 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 363
Регистрация: 21.6.2008

Репутация: 1
Всего: 3

А зачем вам филлрект?

Код


image1.Picture.Bitmap.Canvas.FillRect(image1.Picture.Bitmap.Canvas.ClipRect);

Его не нужно.

Это сообщение отредактировал(а) Proxin - 6.12.2009, 20:16

vacsan

Дата 6.12.2009, 21:36 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 16.11.2009

Репутация: нет
Всего: нет

Proxin ,большое Вам спасибо.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »