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; result:=Folder;
{$ENDIF} {$ENDIF}
{$IFDEF UNIX} {$IFDEF UNIX}
result := ExpandFileName('~/')); result := ExpandFileName('~/');
{$ENDIF} {$ENDIF}
result += directorySeparator + 'Coedit' + directorySeparator; result += directorySeparator + 'Coedit' + directorySeparator;
end; end;

5
src/ce_main.pas
View File

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