#1
  1. No Profile Picture
    Registered User
    Devshed Newbie (0 - 499 posts)

    Join Date
    Sep 2012
    Posts
    6
    Rep Power
    0

    Exclamation 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
  2. #2
  3. No Profile Picture
    Contributing User
    Devshed Newbie (0 - 499 posts)

    Join Date
    Jun 2008
    Posts
    344
    Rep 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.
  4. #3
  5. No Profile Picture
    Registered User
    Devshed Newbie (0 - 499 posts)

    Join Date
    Sep 2012
    Posts
    6
    Rep Power
    0
    but how will i generate the organogram when the program is running?
  6. #4
  7. No Profile Picture
    Contributing User
    Devshed Newbie (0 - 499 posts)

    Join Date
    Jun 2008
    Posts
    344
    Rep Power
    6
    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
    Last edited by majlumbo; October 14th, 2012 at 03:18 PM.
  8. #5
  9. No Profile Picture
    Registered User
    Devshed Newbie (0 - 499 posts)

    Join Date
    Sep 2012
    Posts
    6
    Rep 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..
  10. #6
  11. No Profile Picture
    Registered User
    Devshed Newbie (0 - 499 posts)

    Join Date
    Dec 2012
    Posts
    2
    Rep Power
    0
    hello
    how can i in TPic component instead .bmp load .jpg or .jpeg
  12. #7
  13. No Profile Picture
    Registered User
    Devshed Newbie (0 - 499 posts)

    Join Date
    Dec 2012
    Posts
    2
    Rep Power
    0
    Zar zbilja nitko nezna?

IMN logo majestic logo threadwatch logo seochat tools logo