VPF::Canvas.Draw у потомков TGraphicControl - Форум программистов

StingWINg

Дата 21.12.2008, 17:45 (ссылка)

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

Загрузка ...

Новичок

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

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

Суть: есть класс, унаследованный от TGraphicControl. Необходимо отобразить картинку. Для этого есть метод Canvas.Draw, но вот на канве объекта ничего не отображается. Помогите найти в чём же ошибка. smile

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  TPic=class(TGraphicControl)

  end;

var
  Form1: TForm1;
  pic:TPic;
  gr: TBitMap;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 gr:=TBitmap.Create;
 gr.SetSize(80,80);
 gr.LoadFromFile('3.bmp');

pic:=TPic.Create(Form1);
pic.Parent:=Form1;
pic.Left:=50;
pic.Top:=30;
pic.Width:=80;
pic.Height:=80;
pic.Visible:=true;
pic.Canvas.Draw(0,0,gr);

Form1.Canvas.Draw(10,10,gr);


end;

end.

Это сообщение отредактировал(а) StingWINg - 21.12.2008, 17:50

NewDima

Дата 21.12.2008, 19:05 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 922
Регистрация: 20.2.2006
Где: <?here?>

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

Цитата

на канве объекта ничего не отображается

отображается, но сразу перерисовывается.
Помести конструкторы объектов в конструктор формы

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
pic.Canvas.Draw(0,0,gr);
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
gr:=TBitmap.Create;
gr.LoadFromFile('t:/Yoko Geri.bmp');
pic:=TPic.Create(Form1);
pic.Parent:=Form1;
pic.Left:=50;
pic.Top:=30;
pic.Width:=80;
pic.Height:=80;
pic.Visible:=true;
end;

--------------------

Начинаем черкать!

StingWINg

Дата 21.12.2008, 20:42 (ссылка)

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

Загрузка ...

Новичок

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

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

Спасибо

Только не понимаю, почему перерисовывается? Это был тест, но мне надо чтобы изображение появлялось после запуска. Как это осуществить? Ведь написав на OnCreate формы ничего не получим - опять перерисуется smile

Это сообщение отредактировал(а) StingWINg - 21.12.2008, 20:54

NewDima

Дата 22.12.2008, 09:50 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 922
Регистрация: 20.2.2006
Где: <?here?>

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

перегружай обработчик сообщения WM_PAINT, там и рисуй, если того требует необходимость. А вообще, зачем ты наследуешь этот класс без его изменения? А, тест, понимаю...

Добавлено через 2 минуты и 29 секунд

Код


TPic=class(TGraphicControl)
  private
   procedure WMPaint(var msg:TWMPaint); message WM_PAINT;
end;

procedure TPic.WMPaint(var msg:TWMPaint);
begin
inherited;
self.canvas.draw(...,...,...);
end;

--------------------

Начинаем черкать!

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