paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-13 09:49:22 +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; KeyPreview:=true;
FProcessingCommand := false; FProcessingCommand := false;
if EnvironmentOptions.IDEWindowLayoutList.ItemByFormID(self.Name) = nil then if EnvironmentOptions.IDEWindowLayoutList.ItemByFormID(self.Name) = nil then begin
EnvironmentOptions.CreateWindowLayout(self.name); EnvironmentOptions.CreateWindowLayout(self.name);
EnvironmentOptions.IDEWindowLayoutList.ItemByFormID(self.Name).Clear;
end;
EnvironmentOptions.IDEWindowLayoutList.Apply(Self, self.Name); EnvironmentOptions.IDEWindowLayoutList.Apply(Self, self.Name);
ControlDocker:=TLazControlDocker.Create(Self); ControlDocker:=TLazControlDocker.Create(Self);
ControlDocker.Name:='SourceEditor'; ControlDocker.Name:='SourceEditor';