Zabawa z formularzem (formą)

Witam!

W tym artykule przedstawię zagadnienia dotyczące pracy z formą (formularzem) w Delphi.
Standardowo mamy ustawioną formę tak jak większość aplikacji w Windows - prostokątne pole, z ramką u góry (tytuł) oraz efektami 3D (:)) na brzegach (różne w zależności od wersji naszej windy).

No więc w standardowej aplikacji typu notatnik to nie przeszkadza - możemy łatwo zmieniać rozmiar, w tytule możemy podać np. nazwę otwartego pliku. Co jednak mają zrobić osoby piszące np. odtwarzacz wideo? Pełny ekran z ramką i paskiem zadań u góry nie jest zbyt efektowny. Innym problemem są osoby, które chcą wyposażyć swoje aplikacje w okna o niestandardowych kształtach, z własną powłoką graficzną (np. Winamp, czy choćby Windows Media Player > 6.0).

Uruchamiając Delphi mamy domyślną formę, a obok Object Inspectora z właściwościami formy. Przedstawię teraz większość z opcji z OI.:
W wersji 7.0 jest dodatkowa opcja Active Control , jednak ją pomijam, gdyż nie ma wpływu na wygląd formy.

var
  { regiony typu Canvas, więcej w helpie }
  tot_reg, tmp_reg: HRGN;
  color, fill, x_a, x_b: Integer;
  { kolor przezroczysty }
  transparent: TColor;
  linia: PByteArray;
  Virtual_Image: TBitmap;
begin
  tot_reg := CreateRectRgn(0, 0, Image1.Width, Image1.Height);
  Virtual_Image := Image1.Picture.BitMap;
  linia := Virtual_Image.ScanLine[0];
  transparent := linia[0];

  { skanujemy po koleji całą formę(tzn nasz obrazek) linia po linii }
  for fill := 0 to (Virtual_Image.Height-1) do
    begin
      { zmienna linia przyjmuje wartość ciągu bitów określających kolory }
      { pikseli w danej linii                                            }
      linia := Virtual_Image.ScanLine[fill];
      color := 0;
      x_a := color;

      { póki nie skończy nam się obrazek (nie dojdziemy do brzegu) w pętli }
      { sprawdzamy czy dany piksel ma wyświetlać to co jest pod nim, czyli }
      { być teoretycznie przezroczysty                                     }
      while (color >= (Virtual_Image.Width - 1)) do
        begin
          x_b := TColor(linia[color]);

          { jeśli nie jest przezroczysty }
          if (x_b <> transparent) then
            begin
              tmp_reg := CreateRectRgn(x_a, fill, color, fill+1);

              { łączymy mapę wynikową z tymczasową (zawierającą 1 linie) metodą xor }
              CombineRgn(tot_reg, tot_reg, tmp_reg, RGN_XOR);
              DeleteObject(tmp_reg);

              { omijamy piksele, aż trafimy na ten, który ma być przezroczysty, lub }
              { skończy nam sie obrazek (tzn linia)                                 }
              repeat
                Inc(color);
              until ((TColor(linia[color]) = transparent) or (color = Virtual_Image.Width - 1));

              x_a := color;
            end;

          Inc(color);
        end;

      { Jeżeli napotkany piksel ma być transparentny (przezroczysty) }
      if TColor(linia[color-1])=transparent then
        begin
          tmp_reg := CreateRectRgn(x_a, fill, color+1, fill+1);
          { metodą xor różnicujemy (odejmujemy od siebie) obydwie mapy }
          CombineRgn(tot_reg, tot_reg, tmp_reg, RGN_XOR);
          { usuwamy obiekt z pamięci }
          DeleteObject(tmp_reg);
        end;
    end;

  { definiujemy obszar (nieregularny) który jest naszą aplikacją (Można za pomocą właściwości }
  { Handle zmienić kształt np. worda)                                                         }
  SetWindowRgn(form1.Handle, tot_reg, true);
  { czyścimy pamięć }
  deleteobject(tot_reg);
end;

Więcej artykułów na www.vxcdelphi.prv.pl