paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 06:38:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

AnchorDocking: Fixed saving/loading option FloatingWindowsOnTop. Issue #19272

Browse Source 
git-svn-id: trunk@65044 -
This commit is contained in:
michl 2021-04-21 18:59:48 +00:00
parent 77035b28a4
commit 47972a31b7
3 changed files with 23 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/anchordocking/anchordocking.pas
View File

@ -1444,7 +1444,7 @@ begin
FDockParentMargin := Source.FDockParentMargin;
FDockSitesCanBeMinimized := Source.FDockSitesCanBeMinimized;
FDragTreshold := Source.FDragTreshold;
FloatingWindowsOnTop := Source.FFloatingWindowsOnTop;
FFloatingWindowsOnTop := Source.FFloatingWindowsOnTop;
FHeaderAlignLeft := Source.FHeaderAlignLeft;
FHeaderAlignTop := Source.FHeaderAlignTop;
FHeaderFilled := Source.FHeaderFilled;
@ -1474,7 +1474,7 @@ begin
DockParentMargin := Config.GetValue('DockParentMargin',10);
DockSitesCanBeMinimized := Config.GetValue('DockSitesCanBeMinimized',False);
DragTreshold := Config.GetValue('DragThreshold',4);
FloatingWindowsOnTop := Config.GetValue('FFloatingWindowsOnTop',false);
FloatingWindowsOnTop := Config.GetValue('FloatingWindowsOnTop',false);
HeaderAlignLeft := Config.GetValue('HeaderAlignLeft',120);
HeaderAlignTop := Config.GetValue('HeaderAlignTop',80);
HeaderFilled := Config.GetValue('HeaderFilled',true);
@ -1522,7 +1522,7 @@ begin
Config.SetDeleteValue('DockParentMargin',DockParentMargin,10);
Config.SetDeleteValue('DockSitesCanBeMinimized',DockSitesCanBeMinimized,False);
Config.SetDeleteValue('DragThreshold',DragTreshold,4);
Config.SetDeleteValue('FloatingWindowsOnTop',FFloatingWindowsOnTop,false);
Config.SetDeleteValue('FloatingWindowsOnTop',FloatingWindowsOnTop,false);
Config.SetDeleteValue('HeaderAlignLeft',HeaderAlignLeft,120);
Config.SetDeleteValue('HeaderAlignTop',HeaderAlignTop,80);
Config.SetDeleteValue('HeaderFilled',HeaderFilled,true);
@ -1546,7 +1546,7 @@ begin
and (DockParentMargin=Settings.DockParentMargin)
and (DockSitesCanBeMinimized=Settings.DockSitesCanBeMinimized)
and (DragTreshold=Settings.DragTreshold)
and (FloatingWindowsOnTop=Settings.FFloatingWindowsOnTop)
and (FloatingWindowsOnTop=Settings.FloatingWindowsOnTop)
and (HeaderAlignLeft=Settings.HeaderAlignLeft)
and (HeaderAlignTop=Settings.HeaderAlignTop)
and (HeaderFilled=Settings.HeaderFilled)

26
components/anchordocking/minide/miniide1.lpi
View File

@ -1,32 +1,37 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="9"/>
<Version Value="12"/>
<General>
<Flags>
<CompatibilityMode Value="True"/>
</Flags>
<SessionStorage Value="InIDEConfig"/>
<MainUnit Value="0"/>
<ResourceType Value="res"/>
<UseXPManifest Value="True"/>
</General>
<VersionInfo>
<Language Value=""/>
<CharSet Value=""/>
<StringTable ProductVersion=""/>
</VersionInfo>
<BuildModes Count="1">
<Item1 Name="default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<IgnoreBinaries Value="False"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
<FormatVersion Value="2"/>
<Modes Count="1">
<Mode0 Name="default">
<local>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
</Mode0>
</Modes>
</RunParams>
<RequiredPackages Count="2">
<Item1>
@ -55,7 +60,9 @@
<Filename Value="simplefrm.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="SimpleForm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="SimpleFrm"/>
</Unit2>
</Units>
</ProjectOptions>
@ -78,6 +85,9 @@
<VerifyObjMethodCallValidity Value="True"/>
</CodeGeneration>
<Linking>
<Debugging>
<DebugInfoType Value="dsDwarf2"/>
</Debugging>
<Options>
<Win32>
<GraphicApplication Value="True"/>

1
components/anchordocking/minide/miniide1.lpr
View File

@ -12,6 +12,7 @@ uses
{$R *.res}
begin
Application.Title := '';
Application.Initialize;
Application.CreateForm(TMainIDE, MainIDE);
if (Paramcount>0) then