| 2976 |
|
|
| 2977 |
procedure TGikoForm.ListViewKeyDown(Sender: TObject; var Key: Word; |
procedure TGikoForm.ListViewKeyDown(Sender: TObject; var Key: Word; |
| 2978 |
Shift: TShiftState); |
Shift: TShiftState); |
| 2979 |
|
var |
| 2980 |
|
pos : TPoint; |
| 2981 |
|
rect : TRect; |
| 2982 |
begin |
begin |
| 2983 |
if GetActiveList is TBoard then begin |
if GetActiveList is TBoard then begin |
| 2984 |
if Key = VK_BACK then begin |
case Key of |
| 2985 |
// UpFolderButtonClick(Sender); |
VK_BACK:; // UpFolderButtonClick(Sender); |
| 2986 |
end else if Key = VK_SPACE then begin |
VK_SPACE: ListDoubleClick(Shift); |
| 2987 |
ListDoubleClick(Shift); |
VK_RETURN: ListClick; |
| 2988 |
end else if Key = VK_RETURN then begin |
VK_APPS: |
| 2989 |
ListClick; |
begin |
| 2990 |
|
if ListView.Selected <> nil then begin |
| 2991 |
|
pos.X := ListView.Column[ 0 ].Width; |
| 2992 |
|
pos.Y := ListView.Selected.Top; |
| 2993 |
|
end else begin |
| 2994 |
|
pos.X := ListView.Left; |
| 2995 |
|
pos.Y := ListView.Top; |
| 2996 |
|
end; |
| 2997 |
|
Windows.ClientToScreen( ListView.Handle, pos ); |
| 2998 |
|
ListPopupMenu.Popup( pos.X, pos.Y ); |
| 2999 |
|
end; |
| 3000 |
end; |
end; |
| 3001 |
end else begin // TBBS, TCategory |
end else begin // TBBS, TCategory |
| 3002 |
if Key = VK_BACK then begin |
case Key of |
| 3003 |
// UpFolderButtonClick(Sender); |
VK_BACK:; // UpFolderButtonClick(Sender); |
| 3004 |
end else if Key = VK_SPACE then begin |
VK_SPACE: ListClick; |
| 3005 |
ListClick; |
VK_RETURN: ListDoubleClick(Shift); |
| 3006 |
end else if Key = VK_RETURN then begin |
VK_APPS: |
| 3007 |
ListDoubleClick(Shift); |
begin |
| 3008 |
|
if ListView.Selected <> nil then begin |
| 3009 |
|
pos.X := ListView.Column[ 0 ].Width; |
| 3010 |
|
pos.Y := ListView.Selected.Top; |
| 3011 |
|
end else begin |
| 3012 |
|
pos.X := ListView.Left; |
| 3013 |
|
pos.Y := ListView.Top; |
| 3014 |
|
end; |
| 3015 |
|
Windows.ClientToScreen( ListView.Handle, pos ); |
| 3016 |
|
ListPopupMenu.Popup( pos.X, pos.Y ); |
| 3017 |
|
end; |
| 3018 |
end; |
end; |
| 3019 |
end; |
end; |
| 3020 |
end; |
end; |
| 4571 |
var |
var |
| 4572 |
listItem : TListItem; |
listItem : TListItem; |
| 4573 |
threadItem : TThreadItem; |
threadItem : TThreadItem; |
| 4574 |
|
pos : TPoint; |
| 4575 |
// t: Cardinal; |
// t: Cardinal; |
| 4576 |
begin |
begin |
| 4577 |
case Button of |
case Button of |
| 4595 |
else |
else |
| 4596 |
ListClick; |
ListClick; |
| 4597 |
end; |
end; |
| 4598 |
|
mbRight: |
| 4599 |
|
begin |
| 4600 |
|
pos.X := X; |
| 4601 |
|
pos.Y := Y; |
| 4602 |
|
Windows.ClientToScreen( ListView.Handle, pos ); |
| 4603 |
|
ListPopupMenu.Popup( pos.X, pos.Y ); |
| 4604 |
|
end; |
| 4605 |
end; |
end; |
| 4606 |
{ if ssDouble in Shift then begin |
{ if ssDouble in Shift then begin |
| 4607 |
DoubleClickOccurred[Button] := True; |
DoubleClickOccurred[Button] := True; |