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

save input history of evaluate/modify dialog in a better way (as it was designed)

Browse Source 
git-svn-id: trunk@14696 -
This commit is contained in:
paul 2008-03-31 07:45:23 +00:00
parent 875e30cdd3
commit 6e210ebe71
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
debugger/evaluatedlg.pp
View File

@ -136,7 +136,6 @@ procedure TEvaluateDlg.FormClose(Sender: TObject;
var CloseAction: TCloseAction); var CloseAction: TCloseAction);
begin begin
IDEDialogLayoutList.SaveLayout(Self); IDEDialogLayoutList.SaveLayout(Self);
InputHistories.HistoryLists.GetList(ClassName, True).Assign(cmbExpression.Items);
end; end;
procedure TEvaluateDlg.FormShow(Sender: TObject); procedure TEvaluateDlg.FormShow(Sender: TObject);
@ -156,6 +155,7 @@ var
S, R: String; S, R: String;
begin begin
S := cmbExpression.Text; S := cmbExpression.Text;
InputHistories.HistoryLists.Add(ClassName, S);
if DebugBoss.Evaluate(S, R) if DebugBoss.Evaluate(S, R)
then begin then begin
if cmbExpression.Items.IndexOf(S) = -1 if cmbExpression.Items.IndexOf(S) = -1