October 14th, 2012, 07:51 AM
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:
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!
October 14th, 2012, 03:37 PM
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, 03:40 PM
but how will i generate the organogram when the program is running?
October 14th, 2012, 04:12 PM
You can create each object and place them on your form.
Originally Posted by Healwave
Example below adds two TRectangle components, place two TText components inside of them and connects them with a TZLine.
To run, the DrawObjects.dcr file needs to be in your library path along with the *.dcu files.
uses DrawObjects1, DrawObjects2;
Rec1, Rec2: TRectangle;
Txt1, Txt2: TText;
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;
I also attached a demo application that came with it.
Last edited by majlumbo; October 14th, 2012 at 04:18 PM.
October 15th, 2012, 05:58 AM
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..
December 7th, 2012, 01:00 PM
how can i in TPic component instead .bmp load .jpg or .jpeg
December 15th, 2012, 07:27 AM