Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/Giko.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 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 |
|
|
|