Solved

# How to give my form an organic shape ?

Posted on 2000-04-30
182 Views
I want to give my delphi form an organic shape.
How do I do that ?
What if I also want a permanent canvas ?
0
Question by:Azerthur

LVL 17

Expert Comment

ID: 2764345
have a look at coolform:

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

LVL 1

Author Comment

ID: 2764364
sorry I have delphi 3 only !
0

LVL 3

Accepted Solution

ckaneta earned 10 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

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

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

## Join & Write a Comment Already a member? Login.

### Suggested Solutions

Objective: - This article will help user in how to convert their numeric value become words. How to use 1. You can copy this code in your Unit as function 2. than you can perform your function by type this code The Code   (CODE) The Im…
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…
This video discusses moving either the default database or any database to a new volume.
Here's a very brief overview of the methods PRTG Network Monitor (https://www.paessler.com/prtg) offers for monitoring bandwidth, to help you decide which methods you´d like to investigate in more detail.  The methods are covered in more detail in o…

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

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

#### Need Help in Real-Time?

Connect with top rated Experts

16 Experts available now in Live!