fix ATComboEdit popup position

Alexey-T · May 29, 2019 · c38e4a0 · c38e4a0
1 parent d96d4e6
commit c38e4a0
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/atsynedit/atsynedit_edits.pas b/atsynedit/atsynedit_edits.pas
@@ -182,8 +182,9 @@ procedure TATComboEdit.MicromapDraw(Sender: TObject; C: TCanvas;
 
 procedure TATComboEdit.DoMenu;
 var
-  i: integer;
   mi: TMenuItem;
+  P: TPoint;
+  i: integer;
 begin
   Update; //control may get focus, need repaint
   if FItems.Count=0 then exit;
@@ -201,7 +202,10 @@ procedure TATComboEdit.DoMenu;
     end;
   end;
 
-  FMenu.PopUp;
+  P:= Point(Width, 0);
+  P:= ClientToScreen(P);
+
+  FMenu.PopUp(P.X, P.Y);
 end;
 
 procedure TATComboEdit.MenuItemClick(Sender: TObject);