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.241 by h677, Mon Apr 5 10:27:29 2004 UTC revision 1.242 by yoffy, Mon Apr 5 10:49:03 2004 UTC
# Line 3852  end; Line 3852  end;
3852    
3853  procedure TGikoForm.ListViewMouseDown(Sender: TObject;  procedure TGikoForm.ListViewMouseDown(Sender: TObject;
3854          Button: TMouseButton; Shift: TShiftState; X, Y: Integer);          Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
3855  //var  var
3856            listItem                : TListItem;
3857            threadItem      : TThreadItem;
3858  //      t: Cardinal;  //      t: Cardinal;
3859  begin  begin
3860            case Button of
3861            mbMiddle:
3862                    begin
3863                            if not (GetActiveList is TBoard) then Exit;
3864                            listItem := ListView.GetItemAt( X, Y );
3865                            if listItem = nil then Exit;
3866                            if not (TObject(listItem.Data) is TThreadItem) then Exit;
3867    
3868                            threadItem := TThreadItem(ListItem.Data);
3869                            if threadItem.IsLogFile then begin
3870                                    InsertBrowserTab(listItem.Data);
3871                                    ListView.UpdateItems(listItem.Index, listItem.Index);
3872                            end else begin
3873                                    InsertBrowserTab(listItem.Data);
3874                            end;
3875                    end;
3876            end;
3877  {       if ssDouble in Shift then begin  {       if ssDouble in Shift then begin
3878                  DoubleClickOccurred[Button] := True;                  DoubleClickOccurred[Button] := True;
3879          end else begin          end else begin

Legend:
Removed from v.1.241  
changed lines
  Added in v.1.242

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