Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Giko.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.633 by h677, Sun Mar 11 12:03:30 2007 UTC revision 1.634 by h677, Sat Apr 14 16:52:57 2007 UTC
# Line 768  type Line 768  type
768          // タブ削除(実装部)          // タブ削除(実装部)
769          procedure DeleteTab(index, selectIndex: Integer); overload;          procedure DeleteTab(index, selectIndex: Integer); overload;
770                  //現在表示しているスレッドをスクロール                  //現在表示しているスレッドをスクロール
771                  procedure BrowserMovement(const AName: string);                  procedure BrowserMovement(const AName: string); overload;
772                    //現在表示しているスレッドをスクロール
773                    procedure BrowserMovement(scroll: Integer); overload;
774                  //ApplicationのMainFormを取得する                  //ApplicationのMainFormを取得する
775                  function GetMainForm(): TComponent;                  function GetMainForm(): TComponent;
776                  procedure SelectTreeNode(Item: TObject; CallEvent: Boolean);                  procedure SelectTreeNode(Item: TObject; CallEvent: Boolean);
# Line 3411  begin Line 3413  begin
3413                  FActiveContent.Move(AName);                  FActiveContent.Move(AName);
3414          end;          end;
3415  end;  end;
3416    //現在表示しているスレッドをスクロール
3417    procedure TGikoForm.BrowserMovement(scroll: Integer);
3418    begin
3419            if(BrowserTab.Tabs.Count > 0) and (BrowserTab.TabIndex >= 0)
3420                    and (FActiveContent <> nil) then begin
3421                    FActiveContent.Move(scroll);
3422            end;
3423    end;
3424  procedure TGikoForm.TreeViewCollapsed(Sender: TObject; Node: TTreeNode);  procedure TGikoForm.TreeViewCollapsed(Sender: TObject; Node: TTreeNode);
3425  begin  begin
3426          if TObject(Node.Data) is TBBS then begin          if TObject(Node.Data) is TBBS then begin

Legend:
Removed from v.1.633  
changed lines
  Added in v.1.634

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26