Jak zrobić przezroczystą formę

Poniższa procedura wykorzystuje regiony do tworzenia przeźroczystych miejsc na formie. Należy tylko podać ścieżkę dostępu do bitmapy oraz kolor, który na tej bitmapie ma być kolorem przeźroczystym.

Procedura ta nie jest jednak doskonała. Posiada co najmiej dwie irytujące wady:

• długo się wykonuje;
• rysunek powinien mieć dość spore marginesy o kolorze przeźroczystym.

Jest to jednak całkiem ciekawa alternatywa dla takich komponentów jak CoolForm.

procedure TMainFRM.TransparentForm(BitM_S: string; Kolor: TColor);
var
  LiczX, LiczY: Longint;
  Region, RegTMP: HRGN;
  BitM: TBitMap;
  NewC, LastC: TColor;
  Pocz: Longint;
begin
  BitM := TBitMap.Create;
  BitM.LoadFromFile(BitM_S);
  Width := BitM.Width;
  Height := BitM.Height;
  Region := CreateRectRGN(0, 0, Width, Height);
  RegTMP := CreateRectRGN(0, 0, Width, Height);
  for LiczY := 0 to Height do
  begin
    Pocz := 0;
    LastC := Kolor;
    for LiczX := 0 to Width do
    begin
      NewC := BitM.Canvas.Pixels[LiczX, LiczY];
      if (NewC = Kolor) and (LastC <> Kolor) then
        Pocz := LiczX;
      if ((NewC <> Kolor) and (LastC = Kolor)) or (LiczX = Width) then
      begin
        CombineRGN(Region, RegTMP, CreateRectRGN(Pocz, LiczY, LiczX, LiczY + 1), RGN_DIFF);
        RegTMP := Region;
      end;
    LastC := NewC;
    end;
  end;
  SetWindowRGN(MainFRM.Handle, Region, True);
  BitM.Free;
end;