Контекстное меню выходит за границы скрина

[turan]

Доброе время суток!

Контекстное меню  выходит за границы скрина

 

[Sherzod]

19 hours ago, =GGG= said:

Контекстное меню  выходит за границы скрина

Добрый день,

Мы проанализируем.

Но как обходной путь, попробуйте это решение:

1. 

type
  TExtPopup = class(TUniPopupMenu)

  end;

2.

procedure TMainForm.UniDBGrid1CellContextClick(Column: TUniDBGridColumn; X,
  Y: Integer);
begin
  //UniPopupMenu1.Popup(X, Y, UniDBGrid1);
  with TExtPopup(UniPopupMenu1).MenuControl.JSInterface do
  begin
    JSCall('showBy', [UniDBGrid1.JSControl]);
    JSCall('setPosition', [X+27, Y+27]);
  end;

end;

 

[turan]

On 1/11/2019 at 11:28 AM, Sherzod said:

Добрый день,

Мы проанализируем.

Но как обходной путь, попробуйте это решение:

1. 

type
  TExtPopup = class(TUniPopupMenu)

  end;

2.

procedure TMainForm.UniDBGrid1CellContextClick(Column: TUniDBGridColumn; X,
  Y: Integer);
begin
  //UniPopupMenu1.Popup(X, Y, UniDBGrid1);
  with TExtPopup(UniPopupMenu1).MenuControl.JSInterface do
  begin
    JSCall('showBy', [UniDBGrid1.JSControl]);
    JSCall('setPosition', [X+27, Y+27]);
  end;

end;

 

Спасибо, Шерзод! это решение помогло. Можно ли как нибудь убрать скролл с контекстного меню?

[Sherzod]

Пожалуйста!

ОК проанализирую, но если есть возможность, прикрепите здесь простой тестовый случай.

[turan]

21 hours ago, Sherzod said:

Пожалуйста!

ОК проанализирую, но если есть возможность, прикрепите здесь простой тестовый случай.

 

PopupMenu.zip

[Sherzod]

Ок, спасибо 

Мы проверим

[Sherzod]

5 hours ago, =GGG= said:

PopupMenu.zip

Может, Вам попробовать так:

    with TExtPopup(pmMain).MenuControl.JSInterface do
    begin
        //JSCall('showBy', [UniDBGrid.JSControl]);
        JSCall('showBy', [Self.WebForm.JSName]);
        JSCall('setPosition', [X, Y]);
    end;

 

[turan]

4 minutes ago, Sherzod said:

Может, Вам попробовать так:

    with TExtPopup(pmMain).MenuControl.JSInterface do
    begin
        //JSCall('showBy', [UniDBGrid.JSControl]);
        JSCall('showBy', [Self.WebForm.JSName]);
        JSCall('setPosition', [X, Y]);
    end;

 

у меня грид находится на TUniFrame

[Sherzod]

11 minutes ago, =GGG= said:

у меня грид находится на TUniFrame

JSCall('showBy', [UniDBGrid.JSName+'.owner']); ?

 

[turan]

2 minutes ago, Sherzod said:

JSCall('showBy', [UniDBGrid.JSName+'.owner']); ?

 

да, точно! Спасибо!

[Sherzod]

Еще один способ:

    with TExtPopup(pmMain).MenuControl.JSInterface do
    begin
        JSCall('setMinHeight', [300]);
        JSCall('showBy', [UniDBGrid.JSControl]);
        JSCall('setPosition', [X, Y]);
    end;