Follow Our FB Page << >> for Daily Laughter. We Post Funny, Viral, Comedy Videos, Memes, Vines...

How to change the shape of your forms?

How to change the shape of your forms?..

Answer / editcdc

Found this write-up online:

n general terms, the algorithm goes like this:


We adjust the form to the dimensions of the BMP file.
This is simple. For the purpose, the following two lines
will do it:

// Ajustar el área / to Ajust the area
ClientWidth := Image1.Width;
ClientHeight:= Image1.Height;


We read the first pixel of the form and take it as

We search for the first "non-transparent" pixel and
from this point we generate a polygon with the silhouette of
the "non-transparent" part (see GenRegion in the file

We get rid of the title bar (if it's still bothering
us). To do it:

BorderStyle := bsNone; // Titulo estorba / no Title


We change the shape of the form according to the
polygon. To do it we make use of the CreatePolygonRgn and
SetWindowRgn API functions (see ActiveSkin in ffigura.pas).
Unlike the example of the first part of this article, in
this one we don't define an elliptical (circular) region.

We set from the TImage the necessary events for
dragging the form like we did in the example of the first

Except for the third step, nothing seems too difficult. To
generate the polygonal region we just look for the frontier
of the figure, then we advance thru all the outline of the
figure until we reach the starting point (or run out of
memory, in this case 1024 points). This series of points
define a polygon used to generate a region with the function
CreatePolygonRgn. Then we use SetWindowRgn y we get the form
with the given shape. It works but it has limitations: our
figure must have only one frontier, therefore it can't be a
figure with a hole in the middle (in any case the algorithm
will ignore the hole in the middle).

Is This Answer Correct ?    0 Yes 0 No

Post New Answer

More Delphi Interview Questions

what is the Purpose of the interbase Client32 files?

0 Answers  

What is a good BDE Alternative?

0 Answers   IBM,

How can I create an identical binary executable in Delphi?

0 Answers  

How to Debug CORBA clients and servers?

0 Answers  

How to draw directly on the Windows Desktop?

1 Answers   Infosys,

How to get a TRichEdit to scroll in code?

0 Answers  

How to Determine if Delphi Running?

0 Answers  

How to Use escape codes with the format() function ?

0 Answers  

what are Multiple Transports?

0 Answers  

what is Client launching ?

0 Answers  

How to Load a locale file into the THTML component ?

0 Answers  

'Name Conflicting' . what does this error mean?

0 Answers