|
@@ -453,7 +453,7 @@ end;
|
|
|
procedure TMainForm.jtsProjectsMouseDown(Sender: TObject;
|
|
procedure TMainForm.jtsProjectsMouseDown(Sender: TObject;
|
|
|
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
|
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
|
|
begin
|
|
begin
|
|
|
- if Button = mbRight then
|
|
|
|
|
|
|
+ if (Button = mbRight) and (jtsProjects.TabIndex > 0) then
|
|
|
dxpmTabSet.PopupFromCursorPos;
|
|
dxpmTabSet.PopupFromCursorPos;
|
|
|
end;
|
|
end;
|
|
|
|
|
|
