paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-28 13:57:19 +01:00
Code Issues Packages Projects Releases Wiki Activity

Don't close EvaluateDialog and Debug Inspector when docked

Browse Source 
git-svn-id: trunk@60043 -
This commit is contained in:
michl 2019-01-09 14:25:58 +00:00
parent f32968dd25
commit ef57dae24f
4 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
debugger/evaluatedlg.pp
View File

@ -309,7 +309,7 @@ end;
procedure TEvaluateDlg.FormKeyDown(Sender: TObject; var Key: Word; procedure TEvaluateDlg.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState); Shift: TShiftState);
begin begin
if Key = VK_ESCAPE then if (Key = VK_ESCAPE) and not Docked then
Close Close
else else
inherited;; inherited;;

2
debugger/inspectdlg.pas
View File

@ -298,7 +298,7 @@ end;
procedure TIDEInspectDlg.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure TIDEInspectDlg.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin begin
if Key = VK_ESCAPE then if (Key = VK_ESCAPE) and not Docked then
Close; Close;
end; end;

1
lcl/controls.pp
View File

@ -1539,6 +1539,7 @@ type
KeepDockSiteSize: Boolean = true): Boolean; virtual; KeepDockSiteSize: Boolean = true): Boolean; virtual;
function ReplaceDockedControl(Control: TControl; NewDockSite: TWinControl; function ReplaceDockedControl(Control: TControl; NewDockSite: TWinControl;
DropControl: TControl; ControlSide: TAlign): Boolean; DropControl: TControl; ControlSide: TAlign): Boolean;
function Docked: Boolean;
function Dragging: Boolean; function Dragging: Boolean;
// accessibility // accessibility
function GetAccessibleObject: TLazAccessibleObject; function GetAccessibleObject: TLazAccessibleObject;

5
lcl/include/control.inc
View File

@ -4876,6 +4876,11 @@ begin
EnableAutoSizing{$IFDEF DebugDisableAutoSizing}('TControl.ReplaceDockedControl'){$ENDIF}; EnableAutoSizing{$IFDEF DebugDisableAutoSizing}('TControl.ReplaceDockedControl'){$ENDIF};
end; end;
function TControl.Docked: Boolean;
begin
Result := Assigned(Parent) and (Parent = HostDockSite) and (GetParentForm(Parent) <> Parent);
end;
procedure TControl.AddHandlerOnResize(const OnResizeEvent: TNotifyEvent; procedure TControl.AddHandlerOnResize(const OnResizeEvent: TNotifyEvent;
AsFirst: boolean); AsFirst: boolean);
begin begin