inspector-based-widget: checkboxes for bool/enum

This commit is contained in:
Basile Burg 2015-03-03 09:00:21 +01:00
parent 0eb82a0dfe
commit 39daec46c1
6 changed files with 10 additions and 2 deletions

View File

@ -62,6 +62,7 @@ inherited CEOptionEditorWidget: TCEOptionEditorWidget
Top = 0 Top = 0
Width = 405 Width = 405
Align = alClient Align = alClient
CheckboxForBoolean = False
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

View File

@ -63,6 +63,7 @@ begin
fDockable := false; fDockable := false;
fModal:= true; fModal:= true;
fEdOptsSubj := TCEEditableOptionsSubject.create; fEdOptsSubj := TCEEditableOptionsSubject.create;
inspector.CheckboxForBoolean := true;
// //
png := TPortableNetworkGraphic.Create; png := TPortableNetworkGraphic.Create;
try try

View File

@ -143,13 +143,14 @@ inherited CEProjectConfigurationWidget: TCEProjectConfigurationWidget
Top = 0 Top = 0
Width = 272 Width = 272
Align = alClient Align = alClient
CheckboxForBoolean = False
DefaultValueFont.Color = clWindowText DefaultValueFont.Color = clWindowText
Filter = [tkInteger, tkChar, tkEnumeration, tkFloat, tkSet, tkMethod, tkSString, tkLString, tkAString, tkWString, tkVariant, tkArray, tkRecord, tkInterface, tkClass, 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, tkWChar, tkBool, tkInt64, tkQWord, tkDynArray, tkInterfaceRaw, tkProcVar, tkUString, tkUChar, tkHelper]
Indent = 16 Indent = 16
NameFont.Color = clWindowText NameFont.Color = clWindowText
OnModified = inspectorModified OnModified = inspectorModified
PreferredSplitterX = 145 PreferredSplitterX = 150
SplitterX = 145 SplitterX = 150
ValueFont.Color = clGreen ValueFont.Color = clGreen
end end
end end

View File

@ -78,6 +78,7 @@ begin
end; end;
Tree.Selected := Tree.Items.GetLastNode; Tree.Selected := Tree.Items.GetLastNode;
inspector.OnEditorFilter := @GridFilter; inspector.OnEditorFilter := @GridFilter;
inspector.CheckboxForBoolean := true;
// //
EntitiesConnector.addObserver(self); EntitiesConnector.addObserver(self);
end; end;

View File

@ -121,11 +121,14 @@ inherited CEToolsEditorWidget: TCEToolsEditorWidget
Top = 0 Top = 0
Width = 268 Width = 268
Align = alClient Align = alClient
CheckboxForBoolean = False
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 = propsEdModified OnModified = propsEdModified
PreferredSplitterX = 150
SplitterX = 150
ValueFont.Color = clGreen ValueFont.Color = clGreen
end end
end end

View File

@ -45,6 +45,7 @@ var
png: TPortableNetworkGraphic; png: TPortableNetworkGraphic;
begin begin
inherited; inherited;
propsEd.CheckboxForBoolean := true;
png := TPortableNetworkGraphic.Create; png := TPortableNetworkGraphic.Create;
try try
png.LoadFromLazarusResource('arrow_up'); png.LoadFromLazarusResource('arrow_up');