Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/Giko.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 4516 |
SetActiveList( Item ); |
SetActiveList( Item ); |
| 4517 |
end; |
end; |
| 4518 |
end; |
end; |
| 4519 |
|
end; |
| 4520 |
|
|
| 4521 |
if Item is TBoard then begin // not TCategory |
if Item is TBoard then begin // not TCategory |
| 4522 |
if GikoSys.Setting.ListOrientation = gloHorizontal then begin |
if GikoSys.Setting.ListOrientation = gloHorizontal then begin |
| 4523 |
if GikoSys.Setting.ListWidthState = glsMax then begin |
if GikoSys.Setting.ListWidthState = glsMax then begin |
| 4524 |
BrowserMinAction.Execute; |
BrowserMinAction.Execute; |
| 4525 |
if GikoForm.Visible then |
if GikoForm.Visible then |
| 4526 |
ListView.SetFocus; |
ListView.SetFocus; |
| 4527 |
end; |
end; |
| 4528 |
end else begin |
end else begin |
| 4529 |
if GikoSys.Setting.ListHeightState = glsMax then begin |
if GikoSys.Setting.ListHeightState = glsMax then begin |
| 4530 |
BrowserMinAction.Execute; |
BrowserMinAction.Execute; |
| 4531 |
if GikoForm.Visible then |
if GikoForm.Visible then |
| 4532 |
ListView.SetFocus; |
ListView.SetFocus; |
|
end; |
|
| 4533 |
end; |
end; |
| 4534 |
end; |
end; |
| 4535 |
end; |
end; |
|
|
Legend:
| Removed from v.1.413 |
|
| changed lines |
| |
Added in v.1.414 |
|
|
|