DELPHI AREA Forum

OK, I'd like to give graphobjects any settings throuhg the MainForm, without changing Tsimplegraph too much. I want to write in the Main, for example:

Code: Select all

  SimpleGraph.DefaultNodeClass := TRectangularNode;
  SimpleGraph.CommandMode := cmInsertNode;
  SimpleGraph.DEFAULTNODESETTINGS(linkable, resizable, 32,32)
    //Where linkable means that I can stablish links at this Node, resizable that the node can be resized, and the number would indicate the size of this node.


Everything about making nodes unlinkables and unresizables is already written in the simplegraph.pas, but I like you to suggests me how to implement this .DEFAULTNODESETTINGS. Perhaps like a Property? I'm not sure if a Property could have more than a value. Maybe using flags? Controls like SaveDialog have a Property (Options) with a Set of boolean subproperties, but I don't know if I could use integer Subproperties? Any idea?

Maybe it would be possible to add a function like:

Code: Select all

  SimpleGraph.DefaultNodeClass := TRectangularNode;
  SimpleGraph.CommandMode := cmInsertNode;
  SimpleGraph.LastNodeInserted.Linkable:=true;
  SimpleGraph.LastNodeInserted.resizable:=false;
  etc...


I hope you understand what I mean and can give me some help ¿??

Why you don't use OnObjectInsert event? Here is an example:

Code: Select all

type
  PNodeSettings = ^TNodeSettings;
  TNodeSettings = record
    Linkable: Boolean;
    Resizable: Boolean;
  end;

var
  LastNodeInserted: TNodeSettings;

procedure TForm1.SimpleGraphObjectInsert(Graph: TSimpleGraph;
  GraphObject: TGraphObject);
var
  pSettings: PNodeSettings;
begin
  if GraphObject is TGraphNode then
  begin
    New(pSettings);
    pSettings^ := LastNodeInserted;
    GraphObject.Tag := Integer(pSettings);
  end;
end;

procedure TForm1.SimpleGraphObjectRemove(Graph: TSimpleGraph;
  GraphObject: TGraphObject);
var
  pSettings: PNodeSettings;
begin
  if GraphObject.Tag <> 0 then
  begin
    pSettings := PNodeSettings(GraphObject.Tag);
    GraphObject.Tag := 0;
    Dispose(pSettings);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  SimpleGraph.DefaultNodeClass := TRectangularNode;
  SimpleGraph.CommandMode := cmInsertNode;
  LastNodeInserted.Linkable := True;
  LastNodeInserted.Resizable := False;
end;

Hello!

There are two kinds when inserting a node in my simplegraph.pas; one of them like you wrote originally, and another one when the node should have a size predeterminated. I have implemented it at Tsimplegraph like you can see in the image:

[img][img]http://img528.imageshack.us/img528/4244/dibujo8xv.png[/img]

So the matter is that: when I insert a Unresizable predeterminated sized node, I have to modify the code (.OnMouseUp, .OnMouseDown, .OnMouseMove) to create the node: I can'not set the resizable property after inserting the node. Any idea to make it elegant?

I'm thinking

I thought that I could to use a property like DEFAULTNODESETTINGS that would contain any subproperties. I have write this code inside simplegraph.pas; I think it would be appropiate...

Code: Select all

{ TDEFAULTNODESETTINGS }

  TDEFAULTNODESETTINGS = class(TPersistent)//(TPersistent)is this right?
  private
    fResizable:boolean;
    fLinkable:boolean;
    fwidth:integer;
    fheight:integer;
    procedure SetResizable(value:boolean);
    procedure SetLinkable(value:boolean);
    procedure SetWidth(value:integer);
    procedure SetHeight(value:integer);
  published
    property Resizable: boolean read fResizable write SetResizable;
    property Linkable: boolean read fLinkable write SetLinkable;
    property Width: Integer read fWidth write SetWidth;
    property Height: Integer read fHeight write SetHeight;
  end;

¿Any comments?

PD: I have another idea:

Code: Select all

{ TDEFAULTNODESETTINGS }

  TDEFAULTNODESETTINGS = class(TPersistent)//(TPersistent)is this right?
  private
    fResizable:boolean;
    fLinkable:boolean;
    fwidth:integer;
    fheight:integer;
    fClass: TGraphNodeClass;  //THIS
    procedure SetResizable(value:boolean);
    procedure SetLinkable(value:boolean);
    procedure SetWidth(value:integer);
    procedure SetHeight(value:integer);
  published
    property Resizable: boolean read fResizable write SetResizable;
    property Linkable: boolean read fLinkable write SetLinkable;
    property Width: Integer read fWidth write SetWidth;
    property Height: Integer read fHeight write SetHeight;
    property Class: TGraphNodeClass read fDefaultNodeClass write fDefaultNodeClass;   //...AND THIS
  end;

So I could give settings from the MainForm to a certain node like follows:

Code: Select all

SimpleGraph.CommandMode := cmInsertNode;
SimpleGraph.DEFAULTNODESETTINGS.Linkable:=true;
SimpleGraph.DEFAULTNODESETTINGS.Resizable:=false;
SimpleGraph.DEFAULTNODESETTINGS.Width:=32;
SimpleGraph.DEFAULTNODESETTINGS.Height:=32;
//...
SimpleGraph.DEFAULTNODESETTINGS.brush.color:=999; //  :)
//...
SimpleGraph.DEFAULTNODESETTINGS.Class := TRectangularNode; //????????

I would be very pleased to see any suggestions you can give me... or a better idea than this one...

Thanks.

You did it in the right way.

Hi Kambiz; I had modified Simplegraph.pas like follows

Code: Select all

function TSimpleGraph.InsertNode(pBounds: PRect; ANodeClass: TGraphNodeClass): TGraphNode;
begin
  BeginUpdate;
  try
    SelectedObjects.Clear;
    if ANodeClass = nil then
      ANodeClass := DEFAULTNODESETTINGS.DesiredClass;//DefaultNodeClass;
    Result := ANodeClass.Create(Self);
    if pBounds <> nil then
      Result.BoundsRect := pBounds^;
    Result.State := osNone;
    Result.Selected := True;
    Result.Resizable:=DEFAULTNODESETTINGS.Resizable;
    Result.Linkable:= DEFAULTNODESETTINGS.Linkable;
    Result.Brush:= DEFAULTNODESETTINGS.Brush;
    Result.Text:= DEFAULTNODESETTINGS.text;
    Result.Pen:= DEFAULTNODESETTINGS.Pen;
    Result.Hint:=DEFAULTNODESETTINGS.Hint;
    Result.Visible:=DEFAULTNODESETTINGS.Visible;
    Result.Font:= DEFAULTNODESETTINGS.Font;
  finally
    EndUpdate;
  end;
end;

...using DEFAULTNODESETTINGS how I explained before. The matter is that DEFAULTNODESETTINGS is not necesary to assign this properties:

Code: Select all

    Result.Linkable:= DEFAULTNODESETTINGS.Linkable;
    Result.Brush:= DEFAULTNODESETTINGS.Brush;
    Result.Text:= DEFAULTNODESETTINGS.text;
    Result.Pen:= DEFAULTNODESETTINGS.Pen;
    Result.Hint:=DEFAULTNODESETTINGS.Hint;
    Result.Visible:=DEFAULTNODESETTINGS.Visible;
    Result.Font:= DEFAULTNODESETTINGS.Font;

... except because if I change it from the main, BeginUpdate and EndUpdate will be run 7 times. You wrote a piece of code to make changes to the lastnodeinserted (LastNodeInserted), but I'm not convinced.

I think the best way to make this is using the OnInsertNodeEvent ¿What do you think?
...well, I think the problem it's that the event runs inside TSimpleGraph.ObjectListChanged, so the BeginUpdate and EndUpdate will be run 7 times again...
I suggest that the DoObjectInsert(GraphObject); should be in function TSimpleGraph.InsertNode like follows:

Code: Select all

function TSimpleGraph.InsertNode(pBounds: PRect; ANodeClass: TGraphNodeClass): TGraphNode;
begin
  BeginUpdate;
  try
    SelectedObjects.Clear;
    if ANodeClass = nil then
      ANodeClass := DEFAULTNODESETTINGS.DesiredClass;//DefaultNodeClass;
    Result := ANodeClass.Create(Self);
    if pBounds <> nil then
      Result.BoundsRect := pBounds^;
    Result.State := osNone;
    Result.Selected := True;
    Result.Resizable:=DEFAULTNODESETTINGS.Resizable;
    DoObjectInsert(GraphObject)
  finally
    EndUpdate;
  end;
end;

And too:

Code: Select all

function TSimpleGraph.LinkNodes(FromNode, ToNode: TGraphNode;
  ALinkClass: TGraphLinkClass): TGraphLink;
begin
  Result := nil;
  if IsValidLink(nil, FromNode, ToNode) then
  begin
    BeginUpdate;
    try
      SelectedObjects.Clear;
      if ALinkClass = nil then
        ALinkClass := DEFAULTLINKSETTINGS.DesiredClass;
      Result := ALinkClass.Create(Self);
      Result.FromNode := FromNode;
      Result.ToNode := ToNode;
      Result.State := osNone;
      Result.Selected := True;
      DoObjectInsert(GraphObject)
    finally
      EndUpdate;
    end;
  end;
end;

So BeginUpdate and EndUpdate will be run just once...

Well, I don't have time now to test this what I'm telling you but
What dou you think??


PD:When I have my simplegraph.pas modified at my way i will send you to you take a look (I hope you like any of my ideas)

I'm going to add an Options property to the nodes (for Resizable, Movable, Linkable, etc.), and an OnObjectCreate event to the control itself for more felexibility.

I only need some more time to do these tasks.

Looking around this topic I realized that there were not problems with BeginUpdate and EndUpdate; the problem was just in my head (these procedures were made to run just once the drawing, no matter how many times runned); so I use now the OnNodeInsert event how you did; and i have no problem; About the resizing and linking, I'm using this properties:

Code: Select all

TGraphNode = class(TGraphObject)
  published
    property Linkable: boolean read fLinkable write SetLinkable;      //Can link
    property Resizable: boolean read fResizable write SetResizable; //Can resize before inserted 

TSimpleGraph = class(TCustomControl)
  public 
    property DefaultNodeClass: TGraphNodeClass read fDefaultNodeClass write fDefaultNodeClass;//How you wrote
  published
    property DefaultNodeFixed: boolean read fDefaultNodeFixed write SetDefaultNodeFixed default false;//Can resize after inserted
    property DefaultNodeWidth: integer read fDefaultNodeWidth write SetDefaultNodeWidth default 32;// Default Width for SetDefaultNodeFixed:=true
    property DefaultNodeHeight: integer read fDefaultNodeHeight write SetDefaultNodeHeight default 32;// Default Height for SetDefaultNodeFixed:=true

I will send the SimpleGraph.pas you to see it; in order that I have it written already; maybe you like how I implemented it...

As soon as I could I sent you my changed SimpleGraph.pas at your mail; you can watch it and use whatever you want (if useful).
May use WinMerge to compare. Elías.

Kambiz wrote:I'm going to add an Options property to the nodes (for Resizable, Movable, Linkable, etc.), and an OnObjectCreate event to the control itself for more felexibility.

I only need some more time to do these tasks.

I grab the oportunity to mention this:
http://www.delphiarea.com/forum/viewtopic.php?t=614