Последние записи

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

30th
Июл

Прозрачность формы PNG, 2xTCV и др.

Posted by obzor under Delphi

Можно ли как нибудь сделать прозрачную форму по краям рисунка PNG и вообще как его поставить на форму?

Showy

с помощью pnglib в Bitmap грузил так:

Код:

type
  AlphaRGB = packed record
    B: Byte;
    G: Byte;
    R: Byte;
    A: Byte;
  end;
  pARGB = ^TARGB;
  TARGB = array [WORD] of AlphaRGB;
...
procedure LoadFromPNGFileForBG(FileName: String);
var
 PNG:TPNGObject;
 i,j:integer;
 pA: pARGB;
 pB: pByteArray;
begin
 bmp.PixelFormat:=pf32bit;
 PNG:=TPNGObject.Create;
 PNG.LoadFromFile(FileName);
 bmp.Width:=PNG.Width;
 bmp.Height:=PNG.Height;  
 BitBlt(bmp.Canvas.Handle,0,0,bmp.Width,bmp.Height,PNG.Canvas.Handle,0,0,SRCCOPY);
  for i := 0 to Height - 1 do
   begin
    pA := bmp.Scanline;
    pB := PNG.AlphaScanline;
    for j := 0 to Width - 1 do
     begin
      pA[j].A := pB[j];
      pA[j].B := (pA[j].B * pB[j]) shr 8;
      pA[j].G := (pA[j].G * pB[j]) shr 8;
      pA[j].R := (pA[j].R * pB[j]) shr 8;
     end;
   end;
  PNG.Free;
end;

применял так:

Код:

...
var
 BF:TBlendFunction;
 DC:HDC;
 bs:TSize;
 xySrc:TPoint;
begin

 Result:=false;

 with BF do
  begin
   BlendOp := AC_SRC_OVER;
   BlendFlags := 0;
   SourceConstantAlpha := 255;
   AlphaFormat := AC_SRC_ALPHA;
  end;

 DC:=GetDC(0);

 bs.cx:=bmp.Width;
 bs.cy:=bmp.Height;
 xySrc.X:=0;
 xySrc.Y:=0;
 Result:=UpdateLayeredWindow(Handle,DC,@xy,@bs,bmp.Canvas.Handle,
  @xySrc,clNone,@BF,ULW_ALPHA);

 ReleaseDC(0,DC);

тема на форуме