Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/Giko.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 863 |
procedure BrowserMaxAndFocusActionExecute(Sender: TObject); |
procedure BrowserMaxAndFocusActionExecute(Sender: TObject); |
| 864 |
procedure BrowserMaxAndFocusActionUpdate(Sender: TObject); |
procedure BrowserMaxAndFocusActionUpdate(Sender: TObject); |
| 865 |
procedure ThreadlistMaxAndFocusActionExecute(Sender: TObject); |
procedure ThreadlistMaxAndFocusActionExecute(Sender: TObject); |
| 866 |
|
procedure ListViewExit(Sender: TObject); |
| 867 |
private |
private |
| 868 |
{ Private 宣言 } |
{ Private 宣言 } |
| 869 |
//RoundList : TRoundList; |
//RoundList : TRoundList; |
| 2005 |
i : Integer; |
i : Integer; |
| 2006 |
begin |
begin |
| 2007 |
//タブクローズ |
//タブクローズ |
| 2008 |
NotSelectTabCloseAction.Execute; |
AllTabCloseAction.Execute; |
| 2009 |
BrowserTabCloseAction.Execute; |
SetContent(BrowserNullTab); |
| 2010 |
//TreeViewクリア(BBS2ch.Freeの後にクリアするとXPスタイル時にエラー出る) |
//TreeViewクリア(BBS2ch.Freeの後にクリアするとXPスタイル時にエラー出る) |
| 2011 |
TreeView.Items.Clear; |
TreeView.Items.Clear; |
| 2012 |
|
|
| 10091 |
result := true; |
result := true; |
| 10092 |
if Sender <> nil then |
if Sender <> nil then |
| 10093 |
try |
try |
| 10094 |
TOleControl(Sender).SetFocus; |
if (FActiveContent <> nil) and (FActiveContent.Browser <> nil) then |
| 10095 |
|
FActiveContent.FBrowser.SetFocus; |
| 10096 |
except |
except |
| 10097 |
end; |
end; |
| 10098 |
end; |
end; |
| 10148 |
SetFocusForThreadListAction.Execute; |
SetFocusForThreadListAction.Execute; |
| 10149 |
end; |
end; |
| 10150 |
|
|
| 10151 |
|
procedure TGikoForm.ListViewExit(Sender: TObject); |
| 10152 |
|
begin |
| 10153 |
|
ListView.Repaint; |
| 10154 |
|
end; |
| 10155 |
|
|
| 10156 |
initialization |
initialization |
| 10157 |
OleInitialize(nil); |
OleInitialize(nil); |
| 10158 |
finalization |
finalization |
|
|
Legend:
| Removed from v.1.319 |
|
| changed lines |
| |
Added in v.1.320 |
|
|
|