paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-23 11:19:10 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazReport, stop designer from processing ContextMenu default action, fix unable to close form designer, issue #23248

Browse Source 
git-svn-id: trunk@39240 -
This commit is contained in:
jesus 2012-11-03 05:59:36 +00:00
parent 583565199b
commit 745b108b6f
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/lazreport/source/lr_desgn.pas
View File

@ -174,6 +174,7 @@ type
protected
procedure Paint; override;
procedure WMEraseBkgnd(var {%H-}Message: TLMEraseBkgnd); message LM_ERASEBKGND;
procedure DoContextPopup(MousePos: TPoint; var Handled: Boolean); override;
public
constructor Create(AOwner: TComponent); override;
@ -712,6 +713,12 @@ begin
//do nothing to avoid flicker
end;
procedure TfrDesignerPage.DoContextPopup(MousePos: TPoint; var Handled: Boolean
);
begin
Handled := true;
end;
procedure TfrDesignerPage.NormalizeCoord(t: TfrView);
begin
if t.dx < 0 then