| 3313 |
if GikoSys.Setting.ListOrientation = gloHorizontal then begin |
if GikoSys.Setting.ListOrientation = gloHorizontal then begin |
| 3314 |
if GikoSys.Setting.ListWidthState = glsMax then begin |
if GikoSys.Setting.ListWidthState = glsMax then begin |
| 3315 |
BrowserMinAction.Execute; |
BrowserMinAction.Execute; |
| 3316 |
ListView.SetFocus; |
if GikoForm.Visible then |
| 3317 |
|
ListView.SetFocus; |
| 3318 |
end; |
end; |
| 3319 |
end else begin |
end else begin |
| 3320 |
if GikoSys.Setting.ListHeightState = glsMax then begin |
if GikoSys.Setting.ListHeightState = glsMax then begin |
| 3321 |
BrowserMinAction.Execute; |
BrowserMinAction.Execute; |
| 3322 |
ListView.SetFocus; |
if GikoForm.Visible then |
| 3323 |
|
ListView.SetFocus; |
| 3324 |
end; |
end; |
| 3325 |
end; |
end; |
| 3326 |
end; |
end; |
| 3682 |
TreeView.TopItem.Expanded := True; //ツリートップ項目だけを開く |
TreeView.TopItem.Expanded := True; //ツリートップ項目だけを開く |
| 3683 |
//ツリーのトップ項目を選択する |
//ツリーのトップ項目を選択する |
| 3684 |
if GetActiveList = nil then begin |
if GetActiveList = nil then begin |
| 3685 |
try |
try |
| 3686 |
TreeClick( TreeView.Items[0] ); |
TreeClick( TreeView.Items[0] ); |
| 3687 |
except |
except |
| 3688 |
end; |
end; |
|
|
|
| 3689 |
end else begin |
end else begin |
| 3690 |
for i := 0 to TreeView.Items.Count - 1 do begin |
for i := 0 to TreeView.Items.Count - 1 do begin |
| 3691 |
if TreeView.Items[i].Data = GetActiveList then begin |
if TreeView.Items[i].Data = GetActiveList then begin |
| 3931 |
if GikoSys.Setting.ListOrientation = gloHorizontal then begin |
if GikoSys.Setting.ListOrientation = gloHorizontal then begin |
| 3932 |
if GikoSys.Setting.ListWidthState = glsMin then begin |
if GikoSys.Setting.ListWidthState = glsMin then begin |
| 3933 |
BrowserMaxAction.Execute; |
BrowserMaxAction.Execute; |
| 3934 |
Browser.SetFocus; |
if GikoForm.Visible then |
| 3935 |
|
Browser.SetFocus; |
| 3936 |
end; |
end; |
| 3937 |
end else begin |
end else begin |
| 3938 |
if GikoSys.Setting.ListHeightState = glsMin then begin |
if GikoSys.Setting.ListHeightState = glsMin then begin |
| 3939 |
BrowserMaxAction.Execute; |
BrowserMaxAction.Execute; |
| 3940 |
Browser.SetFocus; |
if GikoForm.Visible then |
| 3941 |
|
Browser.SetFocus; |
| 3942 |
end; |
end; |
| 3943 |
end; |
end; |
| 3944 |
end; |
end; |