paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-17 23:29:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

Debugger: Apply the saved layout of Evaluate Dialog

Browse Source 
git-svn-id: trunk@37423 -
This commit is contained in:
juha 2012-05-26 08:36:30 +00:00
parent 48d4107e26
commit b448e67ef1
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/evaluatedlg.lfm
View File

@ -12,6 +12,7 @@ inherited EvaluateDlg: TEvaluateDlg
Constraints.MinWidth = 300
KeyPreview = True
OnClose = FormClose
OnCreate = FormCreate
OnKeyDown = FormKeyDown
object Label1: TLabel[0]
AnchorSideLeft.Control = Owner

9
debugger/evaluatedlg.pp
View File

@ -62,6 +62,7 @@ type
procedure cmbNewValueKeyDown(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 FormShow(Sender: TObject);
procedure cmbExpressionChange(Sender: TObject);
@ -201,12 +202,16 @@ begin
txtResult.Lines.Text := R;
end;
procedure TEvaluateDlg.FormClose(Sender: TObject;
var CloseAction: TCloseAction);
procedure TEvaluateDlg.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
IDEDialogLayoutList.SaveLayout(Self);
end;
procedure TEvaluateDlg.FormCreate(Sender: TObject);
begin
IDEDialogLayoutList.ApplyLayout(Self,400,300);
end;
procedure TEvaluateDlg.cmbNewValueKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin