paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 04:39:22 +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 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; FShowOnmessage:=ShowOnMessage;
FShowOnmessage:=ShowOnMessage; FAtBottom:=NewMessageAtBottom;
FAtBottom:=NewMessageAtBottom; FKeepVisible:=NewMessageVisible;
FKeepVisible:=NewMessageVisible; SaveSettings;
SaveSettings; end;
end; finally
Free;
end; end;
end; end;