VPF::Помогите написать компонент на основе TCustomContr

vitalio

Дата 21.2.2010, 09:42 (ссылка)

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

Загрузка ...

Новичок

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

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

Привет всем, кто может написать небольшой исходник компонента на основе TCustomControl. Просто создать компонент и вывести на нем картинку (BitMap), пробывал вот так:

Код


unit VTSButton;

interface

uses
  SysUtils, Classes, Controls, Windows, Messages, Graphics;

type
  TVTSBtn = class(TCustomControl)
  private
    FSkin: TBitMap;
    procedure LoadSkin(Value: TBitMap);
    { Private declarations }
  protected
    { Protected declarations }
  public
    constructor Create(AOWner: TComponent); override;
    destructor Destroy; override;
    procedure Paint; override;
    { Public declarations }
  published
    property Skin: TBitMap read FSkin write LoadSkin;
    { Published declarations }
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('VTSComp', [TVTSBtn]);
end;

{ TVTSBnt }

constructor TVTSBtn.Create(AOWner: TComponent);
begin
  inherited;
  FSkin := TBitMap.Create;
end;

destructor TVTSBtn.Destroy;
begin
  inherited;
  FSkin.Destroy;
end;

procedure TVTSBtn.LoadSkin(Value: TBitMap);
begin
  Value.Assign(Value);
  Canvas.Draw(0, 0, FSkin);
  Invalidate;
end;

procedure TVTSBtn.Paint;
begin
  inherited;
end;

end.

вроде все норм но у меня на canvas не рисуется изображение, помогите кто может.

Это сообщение отредактировал(а) bems - 22.2.2010, 00:13

bems

Дата 21.2.2010, 23:02 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

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

рисуй в Paint

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

Обижено школьников: 8

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