Форум: "Потрепаться";
Текущий архив: 2002.02.07;
Скачать: [xml.tar.bz2];
ВнизПроблема при разработке графического компонента. Найти похожие ветки
← →
VEG (2001-12-15 21:35) [0]Ну, вот решился начать учиться разработке компонентов... Это ДЕЙСТВИТЕЛЬНО не трудно, если РАЗОБРАТЬСЯ... Так вот, пытаюсь сделать компонент типа TImage. Вот куски кода:
unit Muar;
interface
uses
Classes, Graphics, Controls, ExtCtrls;
type
TMuar = class(TImage)
private
protected
procedure Paint; override;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
published
end;
procedure Register;
implementation
{$R Resources.res}
procedure TMuar.Paint;
var
FTD:integer;
bm:TBitmap;
begin
bm:=TBitmap.Create;
bm.Width:=Width;
bm.Height:=Height;
{Обрабатываю BitMap bm}
Canvas.Draw(0,0,bm);//А здась чего-то виснет(ошибки не происходит)
bm.Free;
end;
constructor TMuar.Create(AOwner: TComponent);
var
i:integer;
begin
inherited;
Align:=alTop;
Height:=50;
Transparent:=True;
AutoSize:=False;
Paint;
end;
destructor TMuar.Destroy;
begin
inherited;
end;
procedure Register;
begin
RegisterComponents("Samples", [TMuar]);
end;
end.
Так вот, в строке "Canvas.Draw(0,0,bm);" прога с этим компонентом чего-то виснет...
Страницы: 1 вся ветка
Форум: "Потрепаться";
Текущий архив: 2002.02.07;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.005 c