Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Giko.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.258 by yoffy, Wed Apr 7 14:18:06 2004 UTC revision 1.259 by yoffy, Wed Apr 7 16:28:24 2004 UTC
# Line 906  type Line 906  type
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;
# Line 5653  begin Line 5654  begin
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;
# Line 9015  procedure TGikoForm.BrowserTabMouseUp(Se Line 9018  procedure TGikoForm.BrowserTabMouseUp(Se
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    

Legend:
Removed from v.1.258  
changed lines
  Added in v.1.259

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26