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

[RUSlan48]

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

//функция получения области картинки, без фона (trc)
function TForm1.RegFromPic(pict:TPicture):HRGN;
var rgn, resrgn:HRGN;
    x, y, xFirst:Integer;
    trc:Tcolor;
begin
  trc:=image1.Canvas.Pixels[1, 1]; //цвет фона
  resRgn:=CreateRectRgn(0,0,0,0);
  for y:=0 to pict.Height do begin
    x:=0;
    while x<pict.Width do begin
      if pict.Bitmap.Canvas.Pixels[x,y]<>trc then begin
        xFirst:=x;
        inc(x);
        while (x<pict.Width) and (pict.Bitmap.Canvas.Pixels[x,y]<>trc)  do inc(x);
        rgn:=CreateRectRgn(xFirst, y, x-1, y+1);
        CombineRgn(resRgn, resRgn, rgn, RGN_OR); //объединение
        DeleteObject(rgn);
      end;
      inc(x);
    end;
  end;
  Result:=resRgn;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
SetWindowRgn(image1.Picture.Bitmap.Handle, RegFromPic(Image1.Picture), true);
end;

в итоге ничего нету - просто невидимая форма.

[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.

[RUSlan48]

а для чего

procedure TForm1.WMNCHitTest (var M:TWMNCHitTest)

и что с ней делать?

а вот это

SetWindowRgn(Form1.handle, regn, true);

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

[ArtGrek]

вот, запусти ехе, ето не то что надо?

[RUSlan48]

да, действительно, - то, что надо, если ещё BorderStyle:=bsNone поставить, а то картинка съезжает. Спасибо.

Но я так и не понял:

procedure TForm1.WMNCHitTest (var M:TWMNCHitTest);
begin
  inherited;
  if M.Result = htClient then M.Result := htCaption;
end;

Если можно, объясните, пожалуйста...

И ещё: после запуска программа висит секунд так 10, это по ходу FormCreate выполняется, почему так долго? Неужели просто двойной цикл всё так тормозит?

[xexxex]

Сообщение от RUSlan48

да, действительно, - то, что надо, если ещё BorderStyle:=bsNone поставить, а то картинка съезжает. Спасибо.
Но я так и не понял:

procedure TForm1.WMNCHitTest (var M:TWMNCHitTest);
begin
  inherited;
  if M.Result = htClient then M.Result := htCaption;
end;

Если можно, объясните, пожалуйста...
И ещё: после запуска программа висит секунд так 10, это по ходу FormCreate выполняется, почему так долго? Неужели просто двойной цикл всё так тормозит?

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

Погугли компонент TPlasmaForm. Там очень удобно в делфи во время дизайна создаетя маска\регион из любой картинки, а во время выполнения регион моментально применяется к форме средствами WinAPI

[metra52]

Ребят скачал исходник который вы предложили у меня вапще ничо не запускается