Jump to content

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


MSMK

Recommended Posts

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;

 

Link to comment
Share on other sites

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;

 

Спасибо, Шерзод! это решение помогло. Можно ли как нибудь убрать скролл с контекстного меню?
b2cc-862d-0f57-9ba8.jpg.34a3151847af0ebe397fb371bc230b96.jpg

Link to comment
Share on other sites

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;

 

Link to comment
Share on other sites

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

Link to comment
Share on other sites

Please sign in to comment

You will be able to leave a comment after signing in



Sign In Now
×
×
  • Create New...