Форма без рамок

[dmitriegorovih]

Вообще я пишу редактор электронных схем и работаю с фреймами мне надо чтоб фрейм был как png на форме :||

[DomiNick]

Хм... Layered используется только для создания полупрозрачных окон... Вы уверены что это точно то что вам нужно?

работаю с фреймами мне надо чтоб фрейм был как png на форме

Почему именно фреймы? А TImage не подойдёт?

[dmitriegorovih]

Почему именно фреймы? А TImage не подойдёт?

Понимаете если использовать Timage то он не копируеться а фреймы можно, притом на фрейме можно события прописать image(а).

[DomiNick]

Как так не копируется? При желании можно...

Кстати если загружать в TImage картинки в формате Ico (32хбитный), то полупрозрачность будет сама собою...

[dmitriegorovih]

Всем спасибо кто откликнулся.Помогли в Королевство Делфи
вот сам компонент - http://slil.ru/29453397
а вот сам код

uses
  ..., pngimage;

type
  pRGBQuadArray = ^TRGBQuadArray;
  TRGBQuadArray = array [WORD] of TRGBQuad;

...

procedure TForm1.FormCreate(Sender: TObject);
var
  DC: HDC;
  WS: Cardinal;
  R: TRect;
  i, j: integer;
  Row: pRGBQuadArray;
  PNGAlpha: pByteArray;
  Blend: TBlendFunction;
  BmpSize: TSize;
  TopLeft, BmpTopLeft: TPoint;
  FWorkPNG: TPNGObject;
  FWorkBMP: TBitmap;
begin
  Form1.BorderStyle:=bsNone;
  WS := GetWindowLong(Self.Handle, GWL_EXSTYLE);
  SetWindowLong(Self.Handle, GWL_EXSTYLE, WS or WS_EX_LAYERED);
  SetWindowLong(Self.Handle, GWL_EXSTYLE, WS_EX_LAYERED);

  GetWindowRect(Self.Handle, R);
  TopLeft.X := R.Left;
  TopLeft.Y := R.Top;

  BmpTopLeft := Point(0, 0);

  FWorkPNG := TPNGObject.Create;
  FWorkPNG.LoadFromFile('C:\...\Image.png'); \\Загрузка PNG картинки из файла

  BmpSize.cx := FWorkPNG.Width;
  BmpSize.cy := FWorkPNG.Height;

  FWorkBMP := TBitmap.Create;
  FWorkBMP.PixelFormat := pf32Bit;
  FWorkBMP.Width := BmpSize.cx;
  FWorkBMP.Height := BmpSize.cy;
  FWorkBMP.Canvas.Draw(0, 0, FWorkPNG);

  for i := 0 to FWorkBMP.Height - 1 do
  begin
    Row := FWorkBMP.Scanline[i];
    PNGAlpha := FWorkPNG.AlphaScanline[i];
    for j := 0 to FWorkBMP.Width - 1 do
    begin
      Row[j].rgbReserved := PNGAlpha[j];
      Row[j].rgbBlue := Round(Row[j].rgbBlue * Row[j].rgbReserved / 255);
      Row[j].rgbGreen := Round(Row[j].rgbGreen * Row[j].rgbReserved / 255);
      Row[j].rgbRed := Round(Row[j].rgbRed * Row[j].rgbReserved / 255);
    end;
  end;

  DC := GetDC(0);

  with Blend do
  begin
    BlendOp := AC_SRC_OVER;
    BlendFlags := 0;
    SourceConstantAlpha := 255;
    AlphaFormat := AC_SRC_ALPHA;
  end;
  
  UpdateLayeredWindow(Self.Handle, DC, @TopLeft, @BmpSize,
    FWorkBMP.Canvas.Handle, @BmpTopLeft, clNone, @Blend, ULW_ALPHA);

  ReleaseDC(0, DC);
  FWorkPNG.Free;
  FWorkBMP.Free;
end;