| 906 |
FIsIgnoreResize : Boolean; // リサイズイベントを無視するかどうか |
FIsIgnoreResize : Boolean; // リサイズイベントを無視するかどうか |
| 907 |
FOldFormWidth : Integer; // 直前のウィンドウの幅 |
FOldFormWidth : Integer; // 直前のウィンドウの幅 |
| 908 |
FToolBarSettingSender : TToolBarSettingSenderType; // ツールバー設定をクリックしたクールバー |
FToolBarSettingSender : TToolBarSettingSenderType; // ツールバー設定をクリックしたクールバー |
| 909 |
|
FBrowserMouseDownPos : TPoint; // ブラウザタブでマウスを押したときの座標 |
| 910 |
procedure SetBoardTreeNode( inBBS : TBBS ); |
procedure SetBoardTreeNode( inBBS : TBBS ); |
| 911 |
function SetCategoryListItem(ABBS2ch: TBBS): Integer; |
function SetCategoryListItem(ABBS2ch: TBBS): Integer; |
| 912 |
function SetBoardListItem(Category: TCategory): Integer; |
function SetBoardListItem(Category: TCategory): Integer; |
| 5654 |
end; |
end; |
| 5655 |
} |
} |
| 5656 |
end else if BUtton = mbLeft then begin |
end else if BUtton = mbLeft then begin |
| 5657 |
FDragWFirst := true; |
FDragWFirst := true; |
| 5658 |
|
FBrowserMouseDownPos.X := X; |
| 5659 |
|
FBrowserMouseDownPos.Y := Y; |
| 5660 |
end; |
end; |
| 5661 |
|
|
| 5662 |
end; |
end; |
| 9018 |
begin |
begin |
| 9019 |
if FDragWFirst <> true then begin |
if FDragWFirst <> true then begin |
| 9020 |
FDragWFirst := false; |
FDragWFirst := false; |
| 9021 |
|
end else if (X = FBrowserMouseDownPos.X) and (Y = FBrowserMouseDownPos.Y) then begin |
| 9022 |
|
if GikoSys.Setting.ListOrientation = gloHorizontal then begin |
| 9023 |
|
if GikoSys.Setting.ListWidthState = glsMin then begin |
| 9024 |
|
BrowserMaxAction.Execute; |
| 9025 |
|
if GikoForm.Visible then |
| 9026 |
|
Browser.SetFocus; |
| 9027 |
|
end; |
| 9028 |
|
end else begin |
| 9029 |
|
if GikoSys.Setting.ListHeightState = glsMin then begin |
| 9030 |
|
BrowserMaxAction.Execute; |
| 9031 |
|
if GikoForm.Visible then |
| 9032 |
|
Browser.SetFocus; |
| 9033 |
|
end; |
| 9034 |
|
end; |
| 9035 |
end; |
end; |
| 9036 |
end; |
end; |
| 9037 |
|
|