TPNGImage и прозрачность

[kaizer131]

Узнал причину игнорирования прозрачности , ноне знаю как её исправить.
Суть вот в чём TCustomControl , на канве которого выводятся изображения
рисует по своей области заливку.
Вопрос как от неё избавиться или сделать прозрачной?

[x128]

Сообщение от kaizer131

Всё что касается картинок

Это не код, а полный бардак...

немного причесал код:

  TMyS = class(TCustomControl)
    s: TPNGImage;
  protected
    procedure Paint; override;
  public
    constructor Create(AOwner: TComponent; fname: string);
  end;

var
  Form1: TForm1;
  My_Component: TMyS;

...

constructor TMyS.Create(AOwner: TComponent; fname: string);
begin
  inherited Create(AOwner);
  Parent:=TWinControl(AOwner);
  s:=TPNGImage.Create;
  s.LoadFromFile(fname);
  Width:=s.Width;
  Height:=s.Height;
end;

procedure TMyS.Paint;
begin
  Canvas.Draw(0,0,s);
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  My_Component:=TMyS.Create(Panel1, 's.png');
end;

Вариант конечно не идеальный, но рабочий.

[kaizer131]

Я уже решил эту проблему