View Issue Details

IDProjectCategoryView StatusLast Update
0001783JEDI VCL04 Feature Requestpublic2004-05-24 00:25
ReporteranonymousAssigned Touser72 
PrioritynormalSeverityfeatureReproducibilityalways
Status resolvedResolutionfixed 
Product Version 
Target VersionFixed in Version 
Summary0001783: Change tabs in TjvTabControl and TjvPageControl with the right mouse button
DescriptionIn some situations it would be useable to let the user change the active tab of a TjvTabControl or a TjvPageControl with the right mouse button (e.g. if the tab has a popup menu that deals with teh content of the corresponding page)

Currently i do this with a code that looks like this:

procedure TMyForm.JvTabControlMouseDown(
  Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,
  Y: Integer);
var
  r : TRect;
  i : Integer;
begin
  for i := 0 to JvTabControl.Tabs.Count - 1 do begin
    r := JvTabControl.TabRect(i);
    if PtInRect(r, Point(x, y)) then begin
      JvTabControl.TabIndex := i;
      // call a method that updates or handles the new tab
      Break;
    end;
  end;
end;

Maybe ths could be controlled by a new property (ChangeTabOnRightMouseButton??) or an event that "asks" the application when the right mouse button was clicked if the tab should be changed?

Would that be usefull?

TagsNo tags attached.

Activities

user72

2004-05-21 04:39

  ~0004314

An implementation has been added to JvComCtrls in CVS. PLease try and comment.

anonymous

2004-05-23 03:51

viewer   ~0004316

This implementation is workig but it does not generate the events OnChanging and OnChange. See newsgroup for a sample implementation that will do this

user72

2004-05-23 08:50

  ~0004317

Try the new version in CVS (rev 1.50)

anonymous

2004-05-24 00:18

viewer   ~0004326

With the new version (rev 1.5) it works as expected. The events are generated when the user changes the page with the right mouse button.

user72

2004-05-24 00:25

  ~0004327

Great! I'm closing this issue now

Issue History

Date Modified Username Field Change
2004-05-20 02:48 anonymous New Issue
2004-05-21 04:39 user72 Status new => assigned
2004-05-21 04:39 user72 Assigned To => user72
2004-05-21 04:39 user72 Note Added: 0004314
2004-05-23 03:51 anonymous Note Added: 0004316
2004-05-23 08:50 user72 Note Added: 0004317
2004-05-24 00:18 anonymous Note Added: 0004326
2004-05-24 00:25 user72 Status assigned => resolved
2004-05-24 00:25 user72 Resolution open => fixed
2004-05-24 00:25 user72 Note Added: 0004327