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