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

made in programmersforum 7

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

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

11th
Мар

Нестандартный вид формы

Posted by Chas under Пост-обзор

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

ArtGrek:

вот попробуи

{$R *.dfm}
procedure TForm1.WMNCHitTest (var M:TWMNCHitTest);

begin

  inherited;

  if M.Result = htClient then M.Result := htCaption;

end;
procedure TForm1.FormCreate(Sender: TObject);

var

  regn, tmpRegn: integer; // регион окна и временный регион

  x, y: integer; // координаты пикселя

  nullClr: TColor; // <прозрачный цвет>

begin

  nullClr := image1.picture.Bitmap.Canvas.Pixels[0, 0];

  // Image1 это картинка по которой создается форма окна

  regn := CreateRectRgn(0, 0, image1.picture.Graphic.Width,

  image1.picture.Graphic.Height);

  for x := 1 to image1.picture.Graphic.Width do

    for y := 1 to image1.picture.Graphic.Height do

      if image1.picture.Bitmap.Canvas.Pixels[x - 1, y - 1] = nullClr then

      begin

        tmpRegn := CreateRectRgn(x - 1, y - 1, x, y);

        CombineRgn(regn, regn, tmpRegn, RGN_DIFF);

        DeleteObject(tmpRegn);

      end;

  SetWindowRgn(Form1.handle, regn, true);

end;
end.