← Back to branch summary

~ubuntu-branches/debian/squeeze/sword/squeeze

« back to all changes in this revision

Viewing changes to bindings/clx/test1/MainFrm.pas

  • Committer: Bazaar Package Importer
  • Author(s): Daniel Glassey
  • Date: 2004-01-15 15:50:07 UTC
  • Revision ID: james.westby@ubuntu.com-20040115155007-n9mz4x0zxrs1isd3
Tags: upstream-1.5.7
Import upstream version 1.5.7

Show diffs side-by-side

added added

removed removed

Lines of Context:
bindings/clx/test1/MainFrm.pas
 
1
unit MainFrm;
 
2
 
 
3
interface
 
4
 
 
5
uses
 
6
  SysUtils, Types, Classes, Variants, QGraphics, QControls, QForms, QDialogs,
 
7
  QStdCtrls, QComCtrls, QExtCtrls, Sword;
 
8
 
 
9
type
 
10
  TForm1 = class(TForm)
 
11
    Panel1: TPanel;
 
12
    Panel2: TPanel;
 
13
    Panel3: TPanel;
 
14
    TreeView1: TTreeView;
 
15
    Button1: TButton;
 
16
    Edit1: TEdit;
 
17
    Label1: TLabel;
 
18
    TextBrowser1: TTextBrowser;
 
19
    procedure Edit1Change(Sender: TObject);
 
20
    procedure TreeView1Change(Sender: TObject; Node: TTreeNode);
 
21
    procedure Button1Click(Sender: TObject);
 
22
    procedure FormCreate(Sender: TObject);
 
23
    procedure FormShow(Sender: TObject);
 
24
  private
 
25
    procedure lookup();
 
26
  public
 
27
    { Public declarations }
 
28
  end;
 
29
 
 
30
var
 
31
   Form1: TForm1;
 
32
   mgr : SWMgr;
 
33
   
 
34
implementation
 
35
 
 
36
{$R *.xfm}
 
37
 
 
38
procedure TForm1.Edit1Change(Sender: TObject);
 
39
begin
 
40
   lookup();
 
41
end;
 
42
 
 
43
procedure TForm1.lookup();
 
44
var
 
45
   module : SWModule;
 
46
   node : TTreeNode;
 
47
   
 
48
begin
 
49
   node := TreeView1.Selected;
 
50
   if (node <> nil) then
 
51
   begin
 
52
      module := mgr.getModuleByName(node.Text);
 
53
      if (module <> nil) then
 
54
      begin
 
55
         module.setKeyText(Edit1.Text);
 
56
 
 
57
         TextBrowser1.Text := 
 
58
            '<HTML><BODY>' +
 
59
               '<small><b>' + module.getKeyText() + '<b></small> ' +
 
60
               module.getRenderText() +
 
61
            '</BODY></HTML>';
 
62
            
 
63
         Label1.Caption := ': ' + module.getKeyText();
 
64
      end;
 
65
   end;
 
66
end;
 
67
 
 
68
procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
 
69
begin
 
70
        lookup();
 
71
end;
 
72
 
 
73
procedure TForm1.Button1Click(Sender: TObject);
 
74
begin
 
75
   Application.Terminate;
 
76
end;
 
77
 
 
78
procedure TForm1.FormCreate(Sender: TObject);
 
79
begin
 
80
   mgr := SWMgr.Create;
 
81
end;
 
82
 
 
83
procedure TForm1.FormShow(Sender: TObject);
 
84
var
 
85
   root, node : TTreeNode;
 
86
   module : SWModule;
 
87
   modIt : ModIterator;
 
88
   found : Boolean;
 
89
   
 
90
begin
 
91
//   root := TreeView1.TopItem;
 
92
//   root := TreeView1.Items.AddChild(TreeView1.TopItem, 'Modules');
 
93
 
 
94
   modIt := mgr.getModulesIterator;
 
95
   module := modIt.getValue;
 
96
   while (module <> nil) do
 
97
   begin
 
98
        node := TreeView1.Items.GetFirstNode;
 
99
        found := false;
 
100
        while ((node <> nil) AND (NOT found)) do
 
101
        begin
 
102
           if (node.Text = module.getType) then
 
103
                found := true
 
104
           else node := node.getNextSibling;
 
105
        end;
 
106
        if (node = nil) then
 
107
           node := TreeView1.Items.AddChild(TreeView1.TopItem, module.GetType());
 
108
 
 
109
        TreeView1.Items.AddChild(node, module.GetName());
 
110
        
 
111
        modIt.Next;
 
112
        module := modIt.getValue;
 
113
   end;
 
114
end;
 
115
 
 
116
end.