VCL graphics code snippet to use a custom TForm shape.


__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

  HRGN h1 = CreateEllipticRgn(0,0,100,100);

  HRGN h2 = CreateEllipticRgn(90,0,190,100);

  HRGN h3 = CreateEllipticRgn(180,0,280,100);

  CombineRgn(h1,h1,h2,RGN_OR);

  CombineRgn(h1,h1,h3,RGN_OR);

  SetWindowRgn(Handle,h1,true);

  DeleteObject(h1);

  DeleteObject(h2);

  DeleteObject(h3);

}

Go back to Richel Bilderbeek's C++ page.

Go back to Richel Bilderbeek's homepage.

(C++) TForm custom shape