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

added option, floating widget always on top

This commit is contained in:
Basile Burg 2015-09-18 07:08:00 +02:00
parent efbe83144a
commit 1ea6b7d0c4
1 changed files with 22 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
src/ce_main.pas
View File

@ -226,6 +226,7 @@ type
fMainMenuSubj: TCEMainMenuSubject;
fAppliOpts: TCEApplicationOptions;
procedure updateMainMenuProviders;
procedure updateFloatingWidgetOnTop(onTOp: boolean);
// action provider handling;
procedure clearActProviderEntries;
@ -348,10 +349,12 @@ type
TCEApplicationOptionsBase = class(TWritableLfmTextComponent)
private
fFloatingWidgetOnTop: boolean;
fReloadLastDocuments: boolean;
fMaxRecentProjs: integer;
fMaxRecentDocs: integer;
published
property floatingWidgetOnTop: boolean read fFloatingWidgetOnTop write fFloatingWidgetOnTop;
property reloadLastDocuments: boolean read fReloadLastDocuments write fReloadLastDocuments;
property maxRecentProjects: integer read fMaxRecentProjs write fMaxRecentProjs;
property maxRecentDocuments: integer read fMaxRecentDocs write fMaxRecentDocs;
@ -407,6 +410,7 @@ begin
fMaxRecentDocs:= fBackup.fMaxRecentDocs;
fMaxRecentProjs:= fBackup.fMaxRecentProjs;
fReloadLastDocuments:=fBackup.fReloadLastDocuments;
fFloatingWidgetOnTop := fBackup.fFloatingWidgetOnTop;
end
else inherited;
end;
@ -417,11 +421,13 @@ begin
begin
CEMainForm.fProjMru.maxCount := fMaxRecentProjs;
CEMainForm.fFileMru.maxCount := fMaxRecentDocs;
CEMainForm.updateFloatingWidgetOnTop(fFloatingWidgetOnTop);
end else if dst = fBackup then
begin
fBackup.fMaxRecentDocs:= fMaxRecentDocs;
fBackup.fMaxRecentProjs:= fMaxRecentProjs;
fBackup.fReloadLastDocuments:=fReloadLastDocuments;
fBackup.fFloatingWidgetOnTop:=fFloatingWidgetOnTop;
end
else inherited;
end;
@ -1958,6 +1964,22 @@ begin
layoutSaveToFile(getCoeditDocPath + 'layouts' + DirectorySeparator + fname);
layoutUpdateMenu;
end;
procedure TCEMainForm.updateFloatingWidgetOnTop(onTOp: boolean);
var
widg: TCEWidget;
const
fstyle: array[boolean] of TFormStyle = (fsNormal, fsStayOnTop);
begin
for widg in fWidgList do if (widg.Parent <> nil) and
(widg.Parent.Parent = nil) and widg.isDockable then
begin
TForm(widg.Parent).FormStyle := fstyle[onTOp];
//TODO: floating widg on top from true to false, widg remains on top
if TForm(widg.Parent).Visible then if not onTOp then
TForm(widg.Parent).SendToBack;
end;
end;
{$ENDREGION}
{$REGION project ---------------------------------------------------------------}