Go Premium for a chance to win a PS4. Enter to Win

x
?
Solved

How to give my form an organic shape ?

Posted on 2000-04-30
5
Medium Priority
?
209 Views
Last Modified: 2010-05-18
I want to give my delphi form an organic shape.
How do I do that ?
What if I also want a permanent canvas ?
0
Comment
Question by:Azerthur
5 Comments
 
LVL 17

Expert Comment

by:inthe
ID: 2764345
have a look at coolform:

http://www.lawrenz.com/coolform/
0
 
LVL 1

Author Comment

by:Azerthur
ID: 2764364
sorry I have delphi 3 only !
0
 
LVL 3

Accepted Solution

by:
ckaneta earned 30 total points
ID: 2765162
Coolform does actually have a delphi3 version I believe, but here is another one anyhow

http://practicalsoft.hypermart.net/shareware/delphi/orgshape.zip
0
 
LVL 3

Expert Comment

by:ckaneta
ID: 2765168
and then, of course, there's the one I use:
http://www.torry.webnorth.com/vcl/forms/plasma.zip
0
 
LVL 1

Expert Comment

by:DonBartholomew
ID: 2768559
Here's sompe code for a polygone as a weird shaped window. That's not exactly organic, but let yer imagination work.

procedure TForm1.FormCreate(Sender: TObject);
var
   lPoints: array [0..11] of TPoint;
begin

    (* Define the lPoints of a W shape *)
    lPoints[0] := Point(0  , 0   );
    lPoints[1] := Point(50 , 0   );
    lPoints[2] := Point(180, 200 );
    lPoints[3] := Point(218, 100 );
    lPoints[4] := Point(256, 200 );
    lPoints[5] := Point(385, 0   );
    lPoints[6] := Point(435, 0   );
    lPoints[7] := Point(256, 300 );
    lPoints[8] := Point(218, 200 );
    lPoints[9] := Point(180, 300 );

    (* Define the region *)
    prRegion := CreatePolygonRgn(lPoints,// This a pointer to the previously defined lPoints
                               10,//  The number of lPoints
                               ALTERNATE);// The mode to be used for filling the window/polygon

    (* Set the window to have the above defined region *)
    SetWindowRgn(Handle,// The handle of your form
                 prRegion,// The handle of your defined region
                 True);// Indicates the window is to be redrawn now
end;


procedure TForm1.FormDestroy(Sender: TObject);
begin
    DeleteObject(prRegion);
end;
0

Featured Post

Keep up with what's happening at Experts Exchange!

Sign up to receive Decoded, a new monthly digest with product updates, feature release info, continuing education opportunities, and more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Introduction I have seen many questions in this Delphi topic area where queries in threads are needed or suggested. I know bumped into a similar need. This article will address some of the concepts when dealing with a multithreaded delphi database…
Introduction Raise your hands if you were as upset with FireMonkey as I was when I discovered that there was no TListview.  I use TListView in almost all of my applications I've written, and I was not going to compromise by resorting to TStringGrid…
In response to a need for security and privacy, and to continue fostering an environment members can turn to for support, solutions, and education, Experts Exchange has created anonymous question capabilities. This new feature is available to our Pr…
This lesson discusses how to use a Mainform + Subforms in Microsoft Access to find and enter data for payments on orders. The sample data comes from a custom shop that builds and sells movable storage structures that are delivered to your property. …
Suggested Courses

963 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question