paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-23 13:29:47 +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

5
tools/debugserver/frmmain.pp
View File

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