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

[Veiron]

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

Можно ли как нибудь сделать прозрачную форму по двум или более TransparentColorValue? В том смысле что бы на форме например $000000+$FFFFFF черный и белый были прозрачными.

Можно ли как нибудь сделать полупрозрачность формы по середине например? В том смысле что бы на форме например AlphaBlendValue относился только к какой нибудь отдельной части формы.

Можно ли как нибудь сделать борд формы в своей программе таким же большим как в проводнике Vista?

Просто сейчас нужно заготовку сделать программы с хорошим оформлением, а с одним TransparentColorValue например на закругленных краях (скорее можно сказать на заквадратенных) появляются острые углы которые ни как не катят, что называется.

[Zeraim]

Почитай про регионы http://msdn.microsoft.com/en-us/libr...78(VS.85).aspx

[AlexandrSid]

Просто сейчас нужно заготовку сделать программы с хорошим оформлением

Для красивого оформления формы есть компоненты Alpha..., я пробовал пользователям нравится

[Veiron]

Если вы имеете ввиду AlphaSkin то он и так уже используется, но его одного мало, более того нужно сделать по уже готовому изображению.

[Showy]

Смотри тут -> Gooooogle

[Veiron]

Такой ответ можно было дать на любой из здесь задаваемых вопросов на этом форуме, по этому я и задал вопрос на форуме по тому что нужен четкий ответ на русском языке.

[Showy]

Форма по PNG:
http://tripsin.narod.ru/notes/VariableTransparency.htm
но для этого надо GDI+, можно с помощью pnglib но чуток подругому.
с помощью 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[i];
    pB := PNG.AlphaScanline[i];
    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);