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

option editor made non-dockable

This commit is contained in:
Basile Burg 2015-02-19 03:19:09 +01:00
parent 75513fc0bd
commit 9f7b702417
2 changed files with 15 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
src/ce_optionseditor.lfm
View File

@ -1,11 +1,13 @@
inherited CEOptionEditorWidget: TCEOptionEditorWidget inherited CEOptionEditorWidget: TCEOptionEditorWidget
Left = 626 Left = 594
Height = 377 Height = 377
Top = 270 Top = 257
Width = 548 Width = 548
BorderIcons = [biSystemMenu, biMinimize, biMaximize]
Caption = 'Options editor' Caption = 'Options editor'
ClientHeight = 377 ClientHeight = 377
ClientWidth = 548 ClientWidth = 548
FormStyle = fsSystemStayOnTop
inherited Back: TPanel inherited Back: TPanel
Height = 377 Height = 377
Width = 548 Width = 548
@ -31,7 +33,7 @@ inherited CEOptionEditorWidget: TCEOptionEditorWidget
Left = 0 Left = 0
Height = 335 Height = 335
Top = 0 Top = 0
Width = 193 Width = 140
Align = alLeft Align = alLeft
DefaultItemHeight = 18 DefaultItemHeight = 18
ScrollBars = ssAutoBoth ScrollBars = ssAutoBoth
@ -40,31 +42,32 @@ inherited CEOptionEditorWidget: TCEOptionEditorWidget
OnSelectionChanged = selCatSelectionChanged OnSelectionChanged = selCatSelectionChanged
end end
object pnlEd: TPanel object pnlEd: TPanel
Left = 199 Left = 146
Height = 335 Height = 335
Top = 0 Top = 0
Width = 341 Width = 394
Align = alClient Align = alClient
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 335 ClientHeight = 335
ClientWidth = 341 ClientWidth = 394
TabOrder = 1 TabOrder = 1
object inspector: TTIPropertyGrid object inspector: TTIPropertyGrid
Left = 0 Left = 0
Height = 335 Height = 335
Top = 0 Top = 0
Width = 341 Width = 394
Align = alClient Align = alClient
DefaultValueFont.Color = clWindowText DefaultValueFont.Color = clWindowText
Filter = [tkInteger, tkChar, tkEnumeration, tkFloat, tkSet, tkMethod, tkSString, tkLString, tkAString, tkWString, tkVariant, tkArray, tkRecord, tkInterface, tkClass, tkObject, tkWChar, tkBool, tkInt64, tkQWord, tkDynArray, tkInterfaceRaw, tkProcVar, tkUString, tkUChar, tkHelper] Filter = [tkInteger, tkChar, tkEnumeration, tkFloat, tkSet, tkMethod, tkSString, tkLString, tkAString, tkWString, tkVariant, tkArray, tkRecord, tkInterface, tkClass, tkObject, tkWChar, tkBool, tkInt64, tkQWord, tkDynArray, tkInterfaceRaw, tkProcVar, tkUString, tkUChar, tkHelper]
Indent = 16 Indent = 16
NameFont.Color = clWindowText NameFont.Color = clWindowText
OnModified = inspectorModified OnModified = inspectorModified
SplitterX = 200
ValueFont.Color = clMaroon ValueFont.Color = clMaroon
end end
end end
object Splitter1: TSplitter object Splitter1: TSplitter
Left = 193 Left = 140
Height = 335 Height = 335
Top = 0 Top = 0
Width = 6 Width = 6

4
src/ce_optionseditor.pas
View File

@ -51,6 +51,7 @@ var
png: TPortableNetworkGraphic; png: TPortableNetworkGraphic;
begin begin
inherited; inherited;
fDockable := false;
fEdOptsSubj := TCEEditableOptionsSubject.create; fEdOptsSubj := TCEEditableOptionsSubject.create;
// //
png := TPortableNetworkGraphic.Create; png := TPortableNetworkGraphic.Create;
@ -149,6 +150,9 @@ begin
PCategoryData(selCat.Selected.Data)^ PCategoryData(selCat.Selected.Data)^
.observer .observer
.optionedEvent(oeeCancel); .optionedEvent(oeeCancel);
//
// if generic editor then
// refresh displayed value since the provider may have updated the options container
end; end;
procedure TCEOptionEditorWidget.btnAcceptClick(Sender: TObject); procedure TCEOptionEditorWidget.btnAcceptClick(Sender: TObject);