paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-01 18:21:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

Debugger: Apply the saved layout of Inspect Dialog

Browse Source 
git-svn-id: trunk@37424 -
This commit is contained in:
juha 2012-05-26 08:36:35 +00:00
parent b448e67ef1
commit 15294f2cb3
2 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
debugger/inspectdlg.lfm
View File

@ -11,6 +11,7 @@ inherited IDEInspectDlg: TIDEInspectDlg
Constraints.MinWidth = 200
KeyPreview = True
OnClose = FormClose
OnCreate = FormCreate
OnKeyDown = FormKeyDown
PopupMenu = PopupMenu1
object StatusBar1: TStatusBar[0]

9
debugger/inspectdlg.pas
View File

@ -57,6 +57,7 @@ type
procedure EdInspectEditingDone(Sender: TObject);
procedure EdInspectKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure menuClassTypeClick(Sender: TObject);
private
@ -130,6 +131,11 @@ begin
IDEDialogLayoutList.SaveLayout(Self);
end;
procedure TIDEInspectDlg.FormCreate(Sender: TObject);
begin
IDEDialogLayoutList.ApplyLayout(Self,300,400);
end;
procedure TIDEInspectDlg.EdInspectKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if (Key = VK_RETURN) then begin
@ -144,8 +150,7 @@ begin
UpdateData;
end;
procedure TIDEInspectDlg.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure TIDEInspectDlg.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if Key = VK_ESCAPE then
Close;