Steema Central

Code: Select all

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, TeeProcs, TeeTree, StdCtrls;

type
  TForm1 = class(TForm)
    Tree1: TTree;
    btnLoad: TButton;
    btnModify: TButton;
    btnSave: TButton;
    OpenDialog1: TOpenDialog;
    procedure btnLoadClick(Sender: TObject);
    procedure btnSaveClick(Sender: TObject);
    procedure btnModifyClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btnLoadClick(Sender: TObject);
begin
  if OpenDialog1.Execute then begin
    Tree1.Clear;
    LoadTreeFromFile(TCustomTree(Tree1),OpenDialog1.FileName);
  end;
end;

procedure TForm1.btnSaveClick(Sender: TObject);
var
  BackupName : String;
begin
    if FileExists(OpenDialog1.FileName) then
    begin
      BackupName := ExtractFileName(OpenDialog1.FileName);
      BackupName := ChangeFileExt(BackupName, '.ttr.BAK');
      DeleteFile(BackupName);
      if not RenameFile(OpenDialog1.FileName, BackupName) then
        raise Exception.Create('Unable to create backup file.');
      SaveTreeToFile(TCustomTree(Tree1), OpenDialog1.FileName);
    end;
end;

procedure TForm1.btnModifyClick(Sender: TObject);
var
  i: integer;
  tmpNode: TTreeNodeShape;
begin
  // modify text / font
  for i := 0 to Tree1.Shapes.Count - 1 do
  begin
    Tree1.Shapes[i].SimpleText := 'mod_of_'+Tree1.Shapes[i].SimpleText;
    Tree1.Shapes[i].Font.Style := Tree1.Shapes[i].Font.Style + [fsBold];
  end;
  // add child to root if exists
  tmpNode := nil;
  if Tree1.Roots.Count > 0 then
    tmpNode := Tree1.Roots[0].AddChild('new node!');
  // modify new added node if exists
  if (tmpNode <> nil) then
  begin
    tmpNode.Font.Style := tmpNode.Font.Style + [fsItalic];
    tmpNode.Font.Color := clRed;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Tree1.NoOwnerShapes := false;
  Tree1.AssignParent := false;
end;

end.

Code: Select all

the teeTree was built in november 2002