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.427 by yoffy, Sun Sep 12 13:38:18 2004 UTC revision 1.428 by yoffy, Sun Sep 12 14:18:58 2004 UTC
# Line 2976  end; Line 2976  end;
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;
# Line 4548  procedure TGikoForm.ListViewMouseDown(Se Line 4571  procedure TGikoForm.ListViewMouseDown(Se
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
# Line 4571  begin Line 4595  begin
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;

Legend:
Removed from v.1.427  
changed lines
  Added in v.1.428

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