自绘控件时，调用资源图片哪种好一点
private
{ Private declarations }
Png:TPngImage;
constructor TMyAppButton.Create(AOwner: TComponent);
begin
Png:=TPngImage.Create;
Png.LoadFromResourceName(HInstance,'app_button');
inherited;
Width:=Png.Width;
Height:=Png.Height
end;
destructor TMyAppButton.Destroy;
begin
FreeAndNil(png);
inherited;
end;
procedure TMyAppButton.paint;
var
R:TRect;
begin
R := ClientRect;
Canvas.Brush.Style := bsClear;
if (FInButtonArea = True)then
begin
Canvas.StretchDraw(R,Png);
end;
end;
private
{ Private declarations }
Png:TPngImage;
constructor TMyAppButton.Create(AOwner: TComponent);
begin
Png:=TPngImage.Create;
inherited;
end;
destructor TMyAppButton.Destroy;
begin
FreeAndNil(png);
inherited;
end;
procedure TMyAppButton.paint;
var
R:TRect;
begin
R := ClientRect;
Canvas.Brush.Style := bsClear;
if (FInButtonArea = True)then
begin
Png.LoadFromResourceName(HInstance,'app_button');
Canvas.StretchDraw(R,Png);
end;
end;
procedure TMyAppButton.paint;
var
R:TRect;
Png:TPngImage;
begin
Png:=TPngImage.Create;
R := ClientRect;
Canvas.Brush.Style := bsClear;
if (FInButtonArea = True)then
begin
Png.LoadFromResourceName(HInstance,'app_button');
Canvas.StretchDraw(R,Png);
end;
FreeAndNil(png);
end;
