paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-27 21:20:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazReport, fix designer freeze when using Help context button, issue #14262

Browse Source 
git-svn-id: trunk@21206 -
This commit is contained in:
jesus 2009-08-12 18:52:17 +00:00
parent fbadef8c65
commit e90595ffcc
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -6002,7 +6002,7 @@ procedure TfrDesignerForm.HelpBtnClick(Sender: TObject);
begin begin
HelpBtn.Down := True; HelpBtn.Down := True;
Screen.Cursor := crHelp; Screen.Cursor := crHelp;
SetCapture(Handle); SetCaptureControl(Self);
//** THackBtn(HelpBtn).FMouseInControl := False; //** THackBtn(HelpBtn).FMouseInControl := False;
HelpBtn.Invalidate; HelpBtn.Invalidate;
end; end;
@ -6013,9 +6013,11 @@ var
c: TControl; c: TControl;
t: Integer; t: Integer;
begin begin
if HelpBtn.Down and (GetCaptureControl=Self) then
SetCaptureControl(nil);
HelpBtn.Down := False; HelpBtn.Down := False;
Screen.Cursor := crDefault; Screen.Cursor := crDefault;
c := frControlAtPos(Self, Point(X, Y)); c := FindControlAtPosition(Mouse.CursorPos, true);
if (c <> nil) and (c <> HelpBtn) then if (c <> nil) and (c <> HelpBtn) then
begin begin
t := c.Tag; t := c.Tag;
@ -6024,6 +6026,7 @@ begin
if c.Parent = Panel4 then if c.Parent = Panel4 then
Inc(t, 430) else Inc(t, 430) else
Inc(t, 400); Inc(t, 400);
//DebugLn('TODO: HelpContext for tag=%d',[t]);
//** Application.HelpCommand(HELP_CONTEXTPOPUP, t); //** Application.HelpCommand(HELP_CONTEXTPOPUP, t);
end; end;
end; end;