DELPHI AREA Forum

As far as I Know, spanish is the second more spoken language in the world (well, that's they say); I'll have some time to make a translation of the Readme.html next week, and I'd like to do it. Case is: are you interested in adding it to your web?

Yes, of course! It's so kind of you.

I think this weekend I can finish v2.1. I'll send you the files before publishing them.

Mm, I thought I had this post answered; I'm having a piece of the html already translated at .txt; send me the new when you have time and I'll finish and replace the texts.
What html editor are you using? I'd use the same.

Macromedia Dreamweaver MX 2004

Thank you!

Buff! I'm yet in
function FindNextObject(StartIndex: Integer; Inclusive, Backward, Wrap: Boolean; GraphObjectClass: TGraphObjectClass = nil): TGraphObject;
I think it will take me a little...
there's a pair of errors at InsertLink functions. I guess the matter was copying/pasting.

Sorry for this inconvenience.

Here is v2.1 readme file.

Kambiz,

very interesting reading!
TSimpleGraph 2.1 does have some improvments which are very wellcomed. In fact I have been asked for some of them from the first testers of the neobook plugin.

So any timeline to release 2.1?

OnObjectChange: TGraphNotifyEvent;
TGraphNotifyEvent = procedure(Graph: TSimpleGraph; GraphObject: TGraphObject) of object;
Occurs when a graph object is changed.
---
Changed in wich way?

HPW wrote:So any timeline to release 2.1?

I think in a few days I'll release it. Currently I'm looking for a time to add some Graph algorithms to the sample program.

By the way, I updated the attached readme file. There are some more improvements.

elias wrote:OnObjectChange: TGraphNotifyEvent;
TGraphNotifyEvent = procedure(Graph: TSimpleGraph; GraphObject: TGraphObject) of object;
Occurs when a graph object is changed.
---
Changed in wich way?

Any change that causes Modified property of SimpleGraph set to True.

Could LoadFromStream/LoadFromFile with append=true get an optional set of offset parameters to load the content to a different location?

Use the following code:

Code: Select all

procedure MergeGraph(SimpleGraph: TSimpleGraph; const FileName: String;
  OffsetX, OffsetY: Integer);
var
  OldObjectCount: Integer;
  I: Integer;
begin
  with SimpleGraph do
  begin
    BeginUpdate;
    try
      OldObjectCount := Objects.Count;
      LoadFromFile(FileName, True);
      for I := OldObjectCount to Objects.Count - 1 do
        Objects[I].Selected := True;
      with Objects[Objects.Count - 1] do
      begin
        BeginDrag(Point(Left, Top), GHT_CLIENT);
        DragBy(OffsetX, OffsetY, False);
        EndDrag(True);
      end;
      ClearSelection;
    finally
      EndUpdate;
    end;
  end;
end;

Thanks for the code. Will be usefull when moving to 2.1!


Can you clarify how the new data-property can be used?
Is it possibel to store a stringlist for example with the node-object?
Something like attaching a user-defined property list?

HPW wrote:Thanks for the code. Will be usefull when moving to 2.1!


Can you clarify how the new data-property can be used?
Is it possibel to store a stringlist for example with the node-object?
Something like attaching a user-defined property list?

I guess it should be used like the Data property of the TTreeNode. It's a place you can use to associate a node with another object. See the related help of Delphi for examples.


Fotis

I have a look at the TTreenode-help and I am not sure about the storage.
The pointer points to the data, but is the data then part of the node-object and stored with it?