Object inspector: Set "Checkbox for Booleans" as the default. Also use the themed Checkbox, can be changed with define UseOINormalCheckBox.

git-svn-id: trunk@49914 -

components/ideintf/objectinspector.pp

@@ -32,7 +32,7 @@ uses
   // FCL
   SysUtils, Types, Classes, TypInfo, FPCanvas,
   // LCL
-  {$IFDEF UseOIThemedCheckBox} CheckBoxThemed, {$ENDIF}
+  {$IFnDEF UseOINormalCheckBox} CheckBoxThemed, {$ENDIF}
   InterfaceBase, Forms, Buttons, Graphics, GraphType, LCLProc, StdCtrls,
   LCLType, LCLIntf, Controls, ComCtrls, ExtCtrls, LMessages,
   LazConfigStorage, Menus, Dialogs, Themes, TreeFilterEdit, ObjInspStrConsts,
@@ -304,7 +304,7 @@ type
 
     ValueEdit: TEdit;
     ValueComboBox: TComboBox;
-    {$IFDEF UseOIThemedCheckBox}
+    {$IFnDEF UseOINormalCheckBox}
     ValueCheckBox: TCheckBoxThemed;
     {$ELSE}
     ValueCheckBox: TCheckBox;
@@ -966,13 +966,13 @@ begin
     OnMouseWheel:=@OnGridMouseWheel;
   end;
 
-  ValueCheckBox:={$IFDEF UseOIThemedCheckBox} TCheckBoxThemed.Create(Self); {$ELSE} TCheckBox.Create(Self); {$ENDIF}
+  ValueCheckBox:={$IFnDEF UseOINormalCheckBox} TCheckBoxThemed.Create(Self); {$ELSE} TCheckBox.Create(Self); {$ENDIF}
   with ValueCheckBox do
   begin
     Name:='ValueCheckBox';
     Visible:=false;
     Enabled:=false;
-    {$IFDEF UseOIThemedCheckBox}
+    {$IFnDEF UseOINormalCheckBox}
     AutoSize := false;
     {$ELSE}
     AutoSize := true;    // SetBounds does not work for CheckBox, AutoSize does.
@@ -2090,7 +2090,7 @@ begin
     SetActiveControl(FCurrentEdit);
     if (FCurrentEdit is TCustomEdit) then
       TCustomEdit(FCurrentEdit).SelectAll
-    {$IFDEF UseOIThemedCheckBox}
+    {$IFnDEF UseOINormalCheckBox}
     else if (FCurrentEdit is TCheckBoxThemed) and WasValueClick then
       TCheckBoxThemed(FCurrentEdit).Checked:=not TCheckBoxThemed(FCurrentEdit).Checked;
     {$ELSE}
@@ -3673,6 +3673,7 @@ begin
   FGutterColor := DefGutterColor;
   FGutterEdgeColor := DefGutterEdgeColor;
 
+  FCheckboxForBoolean := True;
   FBoldNonDefaultValues := True;
   FDrawGridLines := True;
   FShowGutter := True;
@@ -3729,7 +3730,7 @@ begin
 
     FShowHints:=ConfigStore.GetValue(Path+'ShowHints',FileVersion>=3);
     FAutoShow := ConfigStore.GetValue(Path+'AutoShow',True);
-    FCheckboxForBoolean := ConfigStore.GetValue(Path+'CheckboxForBoolean',False);
+    FCheckboxForBoolean := ConfigStore.GetValue(Path+'CheckboxForBoolean',True);
     FBoldNonDefaultValues := ConfigStore.GetValue(Path+'BoldNonDefaultValues',True);
     FDrawGridLines := ConfigStore.GetValue(Path+'DrawGridLines',True);
     FShowGutter := ConfigStore.GetValue(Path+'ShowGutter',True);

components/ideintf/propedits.pp

@@ -23,7 +23,7 @@ interface
 
 uses
   Classes, TypInfo, SysUtils, types, RtlConsts, Forms, Controls, LCLProc,
-  {$IFDEF UseOIThemedCheckBox} CheckBoxThemed, {$ENDIF}
+  {$IFnDEF UseOINormalCheckBox} CheckBoxThemed, {$ENDIF}
   GraphType, FPCAdds, // for StrToQWord in older fpc versions
   StringHashList, ButtonPanel, Graphics, StdCtrls, Buttons, Menus, LCLType,
   ExtCtrls, ComCtrls, LCLIntf, Dialogs, EditBtn, PropertyStorage, Grids, ValEdit,
@@ -3467,12 +3467,12 @@ procedure TBoolPropertyEditor.PropDrawValue(ACanvas: TCanvas; const ARect: TRect
                                             AState: TPropEditDrawState);
 var
   TxtRect: TRect;
-  {$IFDEF UseOIThemedCheckBox}
+  {$IFnDEF UseOINormalCheckBox}
   str: string;
   stat: TCheckBoxState;
   {$ENDIF}
 begin
-  {$IFDEF UseOIThemedCheckBox}
+  {$IFnDEF UseOINormalCheckBox}
   if FPropertyHook.GetCheckboxForBoolean then begin
     if GetOrdValue<>0 then begin
       stat := cbChecked;

ide/frames/oi_options.pas

@@ -129,7 +129,7 @@ const
       { ooShowComponentTree  } True,
       { ooShowHints          } False,
       { ooAutoShow           } True,
-      { ooCheckboxForBoolean } False,
+      { ooCheckboxForBoolean } True,
       { ooBoldNonDefault     } True,
       { ooDrawGridLines      } True,
       { ooShowGutter         } True,