Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/Giko.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 4125 |
end; |
end; |
| 4126 |
SetActiveList( Item ); |
SetActiveList( Item ); |
| 4127 |
end; |
end; |
| 4128 |
|
|
| 4129 |
|
if Item is TBoard then begin // not TCategory |
| 4130 |
|
if GikoSys.Setting.ListOrientation = gloHorizontal then begin |
| 4131 |
|
if GikoSys.Setting.ListWidthState = glsMax then begin |
| 4132 |
|
BrowserMinAction.Execute; |
| 4133 |
|
if GikoForm.Visible then |
| 4134 |
|
ListView.SetFocus; |
| 4135 |
|
end; |
| 4136 |
|
end else begin |
| 4137 |
|
if GikoSys.Setting.ListHeightState = glsMax then begin |
| 4138 |
|
BrowserMinAction.Execute; |
| 4139 |
|
if GikoForm.Visible then |
| 4140 |
|
ListView.SetFocus; |
| 4141 |
|
end; |
| 4142 |
|
end; |
| 4143 |
|
end; |
| 4144 |
end; |
end; |
| 4145 |
end; |
end; |
| 4146 |
|
|
| 6831 |
Exit; |
Exit; |
| 6832 |
|
|
| 6833 |
InsertBrowserTab(ThreadItem, ActiveTab); |
InsertBrowserTab(ThreadItem, ActiveTab); |
| 6834 |
|
|
| 6835 |
|
if GikoSys.Setting.ListOrientation = gloHorizontal then begin |
| 6836 |
|
if GikoSys.Setting.ListWidthState = glsMin then begin |
| 6837 |
|
BrowserMaxAction.Execute; |
| 6838 |
|
if GikoForm.Visible then |
| 6839 |
|
Browser.SetFocus; |
| 6840 |
|
end; |
| 6841 |
|
end else begin |
| 6842 |
|
if GikoSys.Setting.ListHeightState = glsMin then begin |
| 6843 |
|
BrowserMaxAction.Execute; |
| 6844 |
|
if GikoForm.Visible then |
| 6845 |
|
Browser.SetFocus; |
| 6846 |
|
end; |
| 6847 |
|
end; |
| 6848 |
end; |
end; |
| 6849 |
end; |
end; |
| 6850 |
|
|
| 9925 |
SetActiveList(Node.data); |
SetActiveList(Node.data); |
| 9926 |
end; |
end; |
| 9927 |
|
|
| 9928 |
|
if TObject( Node.Data ) is TBoard then begin // not TCategory |
| 9929 |
|
if GikoSys.Setting.ListOrientation = gloHorizontal then begin |
| 9930 |
|
if GikoSys.Setting.ListWidthState = glsMax then begin |
| 9931 |
|
BrowserMinAction.Execute; |
| 9932 |
|
if GikoForm.Visible then |
| 9933 |
|
ListView.SetFocus; |
| 9934 |
|
end; |
| 9935 |
|
end else begin |
| 9936 |
|
if GikoSys.Setting.ListHeightState = glsMax then begin |
| 9937 |
|
BrowserMinAction.Execute; |
| 9938 |
|
if GikoForm.Visible then |
| 9939 |
|
ListView.SetFocus; |
| 9940 |
|
end; |
| 9941 |
|
end; |
| 9942 |
|
end; |
| 9943 |
|
|
| 9944 |
end; |
end; |
| 9945 |
|
|
| 9946 |
// TreeView がダブルクリックされた |
// TreeView がダブルクリックされた |
|
|
Legend:
| Removed from v.1.322 |
|
| changed lines |
| |
Added in v.1.323 |
|
|
|