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.259 by yoffy, Wed Apr 7 16:28:24 2004 UTC revision 1.260 by yoffy, Wed Apr 7 16:40:46 2004 UTC
# Line 566  type Line 566  type
566                          Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);                          Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
567                  procedure TreeViewExpanded(Sender: TObject; Node: TTreeNode);                  procedure TreeViewExpanded(Sender: TObject; Node: TTreeNode);
568                  procedure TreeViewDblClick(Sender: TObject);                  procedure TreeViewDblClick(Sender: TObject);
                 procedure FavoriteTreeViewClick(Sender: TObject);  
569                  procedure ListViewCustomDraw(Sender: TCustomListView;                  procedure ListViewCustomDraw(Sender: TCustomListView;
570                          const ARect: TRect; var DefaultDraw: Boolean);                          const ARect: TRect; var DefaultDraw: Boolean);
571                  procedure ListViewMouseDown(Sender: TObject; Button: TMouseButton;                  procedure ListViewMouseDown(Sender: TObject; Button: TMouseButton;
# Line 846  type Line 845  type
845      procedure MessagePanelResize(Sender: TObject);      procedure MessagePanelResize(Sender: TObject);
846      procedure OnResized;      procedure OnResized;
847      procedure TreeSelectNameCopyExecute(Sender: TObject);      procedure TreeSelectNameCopyExecute(Sender: TObject);
848        procedure FavoriteTreeViewMouseUp(Sender: TObject;
849          Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
850          private          private
851                  { Private 宣言 }                  { Private 宣言 }
852          //RoundList : TRoundList;          //RoundList : TRoundList;
# Line 906  type Line 907  type
907                  FIsIgnoreResize : Boolean;      // リサイズイベントを無視するかどうか                  FIsIgnoreResize : Boolean;      // リサイズイベントを無視するかどうか
908                  FOldFormWidth : Integer;        // 直前のウィンドウの幅                  FOldFormWidth : Integer;        // 直前のウィンドウの幅
909                  FToolBarSettingSender : TToolBarSettingSenderType;      // ツールバー設定をクリックしたクールバー                  FToolBarSettingSender : TToolBarSettingSenderType;      // ツールバー設定をクリックしたクールバー
910                  FBrowserMouseDownPos    : TPoint; // ブラウザタブでマウスを押したときの座標                  FMouseDownPos   : TPoint; // ブラウザタブでマウスを押したときの座標
911                  procedure SetBoardTreeNode( inBBS : TBBS );                  procedure SetBoardTreeNode( inBBS : TBBS );
912                  function SetCategoryListItem(ABBS2ch: TBBS): Integer;                  function SetCategoryListItem(ABBS2ch: TBBS): Integer;
913                  function SetBoardListItem(Category: TCategory): Integer;                  function SetBoardListItem(Category: TCategory): Integer;
# Line 2928  begin Line 2929  begin
2929          TreeDoubleClick( TreeView.Selected );          TreeDoubleClick( TreeView.Selected );
2930  end;  end;
2931    
 procedure TGikoForm.FavoriteTreeViewClick(Sender: TObject);  
 begin  
   
         FavoriteClick( TObject( FavoriteTreeView.Selected ) );  
   
 end;  
   
2932  procedure TGikoForm.DownloadMsg(Sender: TObject; Item: TDownloadItem; Msg: string; Icon: TGikoMessageIcon);  procedure TGikoForm.DownloadMsg(Sender: TObject; Item: TDownloadItem; Msg: string; Icon: TGikoMessageIcon);
2933  begin  begin
2934          AddMessageList(Msg, nil, Icon);          AddMessageList(Msg, nil, Icon);
# Line 5655  begin Line 5649  begin
5649  }  }
5650          end else if BUtton = mbLeft then begin          end else if BUtton = mbLeft then begin
5651                  FDragWFirst := true;                  FDragWFirst := true;
5652                  FBrowserMouseDownPos.X := X;                  FMouseDownPos.X := X;
5653                  FBrowserMouseDownPos.Y := Y;                  FMouseDownPos.Y := Y;
5654          end;          end;
5655    
5656  end;  end;
# Line 9018  procedure TGikoForm.BrowserTabMouseUp(Se Line 9012  procedure TGikoForm.BrowserTabMouseUp(Se
9012  begin  begin
9013          if FDragWFirst <> true then begin          if FDragWFirst <> true then begin
9014                  FDragWFirst := false;                  FDragWFirst := false;
9015          end else if (X = FBrowserMouseDownPos.X) and (Y = FBrowserMouseDownPos.Y) then begin          end else if (X = FMouseDownPos.X) and (Y = FMouseDownPos.Y) then begin
9016                  if GikoSys.Setting.ListOrientation = gloHorizontal then begin                  if GikoSys.Setting.ListOrientation = gloHorizontal then begin
9017                          if GikoSys.Setting.ListWidthState = glsMin then begin                          if GikoSys.Setting.ListWidthState = glsMin then begin
9018                                  BrowserMaxAction.Execute;                                  BrowserMaxAction.Execute;
# Line 9543  var Line 9537  var
9537  begin  begin
9538    
9539          case Button of          case Button of
9540            mbLeft:
9541                    begin
9542                            FMouseDownPos.X := X;
9543                            FMouseDownPos.Y := Y;
9544                    end;
9545          mbMiddle:          mbMiddle:
9546                  begin                  begin
9547                          favItem := FavoriteTreeView.GetNodeAt( X, Y );                          favItem := FavoriteTreeView.GetNodeAt( X, Y );
# Line 9590  begin Line 9589  begin
9589          Clipboard.AsText := s;          Clipboard.AsText := s;
9590  end;  end;
9591    
9592    procedure TGikoForm.FavoriteTreeViewMouseUp(Sender: TObject;
9593      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
9594    begin
9595    
9596            if (abs( X - FMouseDownPos.X ) < Mouse.DragThreshold) and
9597                     (abs( Y - FMouseDownPos.Y ) < Mouse.DragThreshold) then begin
9598                    FavoriteClick( TObject( FavoriteTreeView.Selected ) );
9599            end;
9600            
9601    end;
9602    
9603  initialization  initialization
9604                                  OleInitialize(nil);                                  OleInitialize(nil);
9605  finalization  finalization

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

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