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

[kaizer131]

Здравствуйте ,
Подскажите, загружаю png 24 бита изображение с прозрачным фоном
Но прозрачность не воспринимается , как установить её программно ?

s:Tpngimage;
s := Tpngimage.Create; // создаем
s.LoadFromFile('s.png');
s.Transparent:= true;

Вывожу непосредственно на канву созданного объекта наследуемого от TCustomControl
(наследование от TImage не подходит в силу задачи)

Canvas.Draw(0,0,s);

[ArtGrek]

а если без

s.Transparent:= true;

[kaizer131]

тоже без прозрачности

[ArtGrek]

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

[kaizer131]

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

      uses
       Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
       Dialogs, ExtCtrls, StdCtrls, jpeg, pngimage;
   type
      TForm1 = class(TForm)
         Image1: TImage;
         GroupBox1: TGroupBox;
         Panel1: TPanel;
         Button1: TButton;
    Timer1: TTimer;
    procedure G;
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

 type


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


  var
  Form1: TForm1;
  My_Component:TMyS;
  s:Tpngimage;
  

implementation
{$R *.dfm}

constructor TMySmile.Create(AOwner: TComponent);
begin
 inherited Create(AOwner);
 Parent := Form1.Panel1;
  Width := 50;
 Height := 50;
end
procedure TMySmile.G;
    begin
       Canvas.Draw(0,0,s);
    end;

procedure TForm1.FormShow(Sender: TObject);
var
 My_Component : TMyS;
  i: Integer;
begin
Timer1.Enabled:=true;
s := Tpngimage.Create; 
s.LoadFromFile('s.png');
//smile1.Transparent:= true;
end;
end.

[ArtGrek]

попробуи в новом проекте

s := TpngImage.Create; 
s.LoadFromFile('s.png');
Canvas.Draw(0,0,s);

если прозрачность будет значит у тебя что то при создании не так
кстати зачем тебе ето?

TMyS = class(TCustomControl)

[kaizer131]

TMyS = class(TCustomControl)

это я создаю и динамически перемещаю объекты , на канве которых и рисуются png
Интересно если я просто отрисую на канве png прозрачность есть, если её на динамическом объекте рисую то прозрачности нет

[kaizer131]

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

[ArtGrek]

это я создаю и динамически перемещаю объекты

ето тебе нужно, если нет, убери и работаи дальше

[kaizer131]

Ну да это мне нужно для работы со своими классами