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
Width = 405
Align = alClient
CheckboxForBoolean = False
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]
Indent = 16

View File

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

View File

@ -143,13 +143,14 @@ inherited CEProjectConfigurationWidget: TCEProjectConfigurationWidget
Top = 0
Width = 272
Align = alClient
CheckboxForBoolean = False
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]
Indent = 16
NameFont.Color = clWindowText
OnModified = inspectorModified
PreferredSplitterX = 145
SplitterX = 145
PreferredSplitterX = 150
SplitterX = 150
ValueFont.Color = clGreen
end
end

View File

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

View File

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

View File

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