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

fix, dock options editor, content could be partially hidden 

put in a scrollbox
This commit is contained in:
Basile Burg 2015-06-03 11:17:26 +02:00
parent a81d15e01e
commit 14ea706981
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/ce_dockoptions.pas
View File

@ -5,8 +5,8 @@ unit ce_dockoptions;
interface
uses
Classes, SysUtils, AnchorDocking, AnchorDockOptionsDlg, XMLPropStorage, AnchorDockStr,
ce_observer, ce_interfaces;
Classes, SysUtils, AnchorDocking, AnchorDockOptionsDlg, XMLPropStorage,
AnchorDockStr, Forms, Controls, ce_observer, ce_interfaces;
type
@ -33,6 +33,7 @@ implementation
var
DockOptionsEditor: TDockOptionsEditor;
DockOptionContainer: TScrollBox;
constructor TDockOptionsEditor.Create(TheOwner: TComponent);
begin
@ -76,7 +77,7 @@ begin
fBackup.Clear;
DockMaster.SaveSettingsToConfig(fBackup);
LoadFromMaster;
exit(self);
exit(DockOptionContainer);
end;
procedure TDockOptionsEditor.optionedEvent(anEvent: TOptionEditorEvent);
@ -145,7 +146,12 @@ end;
initialization
DockOptionsEditor := TDockOptionsEditor.Create(nil);
DockOptionContainer:= TScrollBox.Create(nil);
DockOptionsEditor.Parent := DockOptionContainer;
DockOptionContainer.Align:= alClient;
DockOptionsEditor.Align:= alClient;
finalization
DockOptionsEditor.Free;
DockOptionContainer.Free;
end.