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

SourceEditor: Default to restore geometry

Browse Source 
git-svn-id: trunk@24786 -
This commit is contained in:
martin 2010-04-21 11:02:14 +00:00
parent d9939ecbe6
commit 43590ff2fe
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/sourceeditor.pp
View File

@ -4630,8 +4630,10 @@ begin
KeyPreview:=true;
FProcessingCommand := false;
if EnvironmentOptions.IDEWindowLayoutList.ItemByFormID(self.Name) = nil then
if EnvironmentOptions.IDEWindowLayoutList.ItemByFormID(self.Name) = nil then begin
EnvironmentOptions.CreateWindowLayout(self.name);
EnvironmentOptions.IDEWindowLayoutList.ItemByFormID(self.Name).Clear;
end;
EnvironmentOptions.IDEWindowLayoutList.Apply(Self, self.Name);
ControlDocker:=TLazControlDocker.Create(Self);
ControlDocker.Name:='SourceEditor';