Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/Giko.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 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); |
| 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 |
|
|
|