Изменение параметров формы, Границы формы Опции

[Dead.MorozZ]

Господа, у меня такой вопрос:
Как можно изменить форму ФОРМЫ (извините за тофтологию, чтоб она скажем имела форму элипса или звезды... а еще лучше чтоб формой была произвольная картинка (БэкГроунд) картинка??

[volvo]

To: Dead.MorozZ
Смотри в DRKB, там были статьи на эту тему...
(VCL -> TForm -> Формы нестандартного вида)

[Fang]

а еще лучше чтоб формой была произвольная картинка (БэкГроунд) картинка?? boredom.gif

Вот функция для создания области по картинке (из книги "Дельфи глазами хакера"). Может быть поможет.

Код

function CreateRgnFromBitmap(rgnBitmap: TBitmap): HRGN;
var
 TransColor: TColor;
 i, j: Integer;
 i_width, i_height: Integer;
 i_left, i_right: Integer;
 rectRgn: HRGN;
begin
Result := 0;
i_width := rgnBitmap.Width;
i_height := rgnBitmap.Height;
transColor := rgnBitmap.Canvas.Pixels[0, 0];
for i := 0 to i_height - 1 do
 begin
  i_left := -1;
  for j := 0 to i_width - 1 do
   begin
    if i_left < 0 then
     begin
      if rgnBitmap.Canvas.Pixels[j, i] <> transColor then
       i_left := j;
     end
    else
     if rgnBitmap.Canvas.Pixels[j, i] = transColor then
      begin
       i_right := j;
       rectRgn := CreateRectRgn(i_left, i, i_right, i + 1);
       if Result = 0 then
        Result := rectRgn
       else
        begin
         CombineRgn(Result, Result, rectRgn, RGN_OR);
         DeleteObject(rectRgn);
        end;
       i_left := -1;
      end;
   end;
  if i_left >= 0 then
   begin
    rectRgn := CreateRectRgn(i_left, i, i_width, i + 1);
    if Result = 0 then
     Result := rectRgn
    else
     begin
      CombineRgn(Result, Result, rectRgn, RGN_OR);
      DeleteObject(rectRgn);
     end;
   end;
 end;
end;

[Dead.MorozZ]

А как изменить форму окраску и тд. у заголовка формы(того где кнопки Свернуть, Закрыть ...)