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

* Release options form after showing it

Browse Source 
git-svn-id: trunk@61455 -
This commit is contained in:
michael 2019-06-24 10:46:16 +00:00
parent 1c9f5af2ca
commit f2c28d2c05
1 changed files with 16 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
tools/debugserver/frmmain.pp
View File

@ -455,21 +455,22 @@ procedure TMainForm.ShowOptions;
begin
With TOptionsForm.Create(Self) do
begin
ShowOnStartUp:=FShowOnStartUp;
ShowOnMessage:=FShowOnmessage;
NewMessageAtBottom:=FAtBottom;
NewMessageVisible:=FKeepVisible;
CleanLogOnNewProcess := FCleanLog;
If (ShowModal=mrOk) then
begin
FShowOnStartUp:=ShowOnStartUp;
FShowOnmessage:=ShowOnMessage;
FAtBottom:=NewMessageAtBottom;
FKeepVisible:=NewMessageVisible;
SaveSettings;
end;
try
ShowOnStartUp:=FShowOnStartUp;
ShowOnMessage:=FShowOnmessage;
NewMessageAtBottom:=FAtBottom;
NewMessageVisible:=FKeepVisible;
CleanLogOnNewProcess := FCleanLog;
If (ShowModal=mrOk) then
begin
FShowOnStartUp:=ShowOnStartUp;
FShowOnmessage:=ShowOnMessage;
FAtBottom:=NewMessageAtBottom;
FKeepVisible:=NewMessageVisible;
SaveSettings;
end;
finally
Free;
end;
end;