forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

fixes for the linux version

This commit is contained in:
Basile Burg 2014-07-18 06:48:24 +02:00
parent 305d64f6d9
commit f767c5be1b
3 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
lazproj/coedit Normal file
View File

Binary file not shown.

2
src/ce_common.pas
View File

@ -425,7 +425,7 @@ begin
result:=Folder;
{$ENDIF}
{$IFDEF UNIX}
result := ExpandFileName('~/'));
result := ExpandFileName('~/');
{$ENDIF}
result += directorySeparator + 'Coedit' + directorySeparator;
end;

5
src/ce_main.pas
View File

@ -340,6 +340,7 @@ begin
DockMaster.OnCreateControl := @DockMasterCreateControl;
DockMaster.OnShowOptions := @ShowAnchorDockOptions;
DockMaster.HeaderStyle := adhsPoints;
if DockManager is TAnchorDockManager then begin
aManager:=TAnchorDockManager(DockManager);
aManager.PreferredSiteSizeAsSiteMinimum:=false;
@ -362,8 +363,6 @@ begin
DockMaster.ManualDock(DockMaster.GetAnchorSite(fPrjCfWidg),
DockMaster.GetAnchorSite(fProjWidg), alBottom, fProjWidg);
DockMaster.GetAnchorSite(fEditWidg).Header.HeaderPosition := adlhpTop;
//
SaveDocking;
end;
procedure TCEMainForm.InitSettings;
@ -409,7 +408,7 @@ procedure TCEMainForm.SaveDocking;
var
xcfg: TXMLConfigStorage;
begin
xcfg := TXMLConfigStorage.Create(getDocPath + 'docking.xml',true);
xcfg := TXMLConfigStorage.Create(getDocPath + 'docking.xml',false);
try
// <Item1 Name="CEMainForm" Type="CustomSite" ChildCount="..."> is always missing
DockMaster.SaveLayoutToConfig(xcfg);