Urgent ! Company ORGANOGRAM

Dev Shed Forums Sponsor:

October 14th, 2012, 06:51 AM

Healwave

Registered User

Join Date: Sep 2012

Posts: 6

Time spent in forums: 1 h 4 m 25 sec
Reputation Power: 0

Urgent ! Company ORGANOGRAM

Hello, i have a really urgent thing to do and i dont know how!
I need to make an Company Organogram!.

One interesting thing i made was this one:
imageshack.us/scaled/landing/59/semttulofwg.png
But.. I dont know if it can do, i need to generate it when program is running, not before..
And i dont need database connection, because i will generate the things with programation.. i have a lot of checks to do before insert into the chart.

Please, can someone help me?

Feel free to tell me if you know other components!

thanks,
Healwave

October 14th, 2012, 02:37 PM

majlumbo

Contributing User

Join Date: Jun 2008

Posts: 257

Time spent in forums: 3 Days 9 m 16 sec
Reputation Power: 6

You can install the components found here

It will install of these components

To install create a new package, and add drawobject1.pas and drawobject2.pas files to the package, then install.

October 14th, 2012, 02:40 PM

Healwave

Registered User

Join Date: Sep 2012

Posts: 6

Time spent in forums: 1 h 4 m 25 sec
Reputation Power: 0

but how will i generate the organogram when the program is running?

October 14th, 2012, 03:12 PM

majlumbo

Contributing User

Join Date: Jun 2008

Posts: 257

Time spent in forums: 3 Days 9 m 16 sec
Reputation Power: 6

Quote:

Originally Posted by Healwave

but how will i generate the organogram when the program is running?

You can create each object and place them on your form.

Example below adds two TRectangle components, place two TText components inside of them and connects them with a TZLine.

Code:

uses DrawObjects1, DrawObjects2;

var
   Rec1, Rec2: TRectangle;
   Txt1, Txt2: TText;
   TZ: TZLine;
begin
   Rec1 := TRectangle.Create(Self);
   Rec1.Parent := Self;
   Rec1.Top := 10;
   Rec1.Left := 10;
   Txt1 := TText.Create(Self);
   Txt1.Parent := Self;
   Txt1.Left := 10;
   Txt1.Top := 10;
   Txt1.Strings.Text := 'Line 1'+sLineBreak+'Line 2';
   Rec2 := TRectangle.Create(Self);
   Rec2.Parent := Self;
   Rec2.Top := 10;
   Rec2.Left := 150;
   Txt2 := TText.Create(Self);
   Txt2.Parent := Self;
   Txt2.Left := 150;
   Txt2.Top := 10;
   Txt2.Strings.Text := 'Line 1'+sLineBreak+'Line 2';
   TZ := TZLine.Create(Self);
   TZ.Parent := Self;
   TZ.Connection1 := Rec1;
   TZ.Connection2 := Rec2;
end;

To run, the DrawObjects.dcr file needs to be in your library path along with the *.dcu files.

I also attached a demo application that came with it.

Attached Files

DrawObject_Demo.zip (550.3 KB, 39 views)

Last edited by majlumbo : October 14th, 2012 at 03:18 PM.

October 15th, 2012, 04:58 AM

Healwave

Registered User

Join Date: Sep 2012

Posts: 6

Time spent in forums: 1 h 4 m 25 sec
Reputation Power: 0

It's a nice way to do, however, not very efficient, because i can have over 50 things to design..

There isn't any component to make this easier?

And the client wont design anything! The program need to make the organogram without any interaction from the user..