SpkToolbar: new property HotTrackBrightnessChange of Element.Appearance.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5368 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/spktoolbar/designtime/spkte_AppearanceEditor.lfm

@@ -64,6 +64,7 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
       Appearance.Element.HotTrackInnerLightColor = 12972543
       Appearance.Element.HotTrackInnerDarkColor = 8045272
       Appearance.Element.HotTrackCaptionColor = 8864367
+      Appearance.Element.HotTrackBrightnessChange = 40
       Appearance.Element.ActiveFrameColor = 5535371
       Appearance.Element.ActiveGradientFromColor = 7126014
       Appearance.Element.ActiveGradientToColor = 4035324
@@ -114,6 +115,7 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
         CustomAppearance.Element.HotTrackInnerLightColor = 12972543
         CustomAppearance.Element.HotTrackInnerDarkColor = 8045272
         CustomAppearance.Element.HotTrackCaptionColor = 8864367
+        CustomAppearance.Element.HotTrackBrightnessChange = 40
         CustomAppearance.Element.ActiveFrameColor = 5535371
         CustomAppearance.Element.ActiveGradientFromColor = 7126014
         CustomAppearance.Element.ActiveGradientToColor = 4035324
@@ -304,6 +306,7 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
         CustomAppearance.Element.HotTrackInnerLightColor = 12972543
         CustomAppearance.Element.HotTrackInnerDarkColor = 8045272
         CustomAppearance.Element.HotTrackCaptionColor = 8864367
+        CustomAppearance.Element.HotTrackBrightnessChange = 40
         CustomAppearance.Element.ActiveFrameColor = 5535371
         CustomAppearance.Element.ActiveGradientFromColor = 7126014
         CustomAppearance.Element.ActiveGradientToColor = 4035324
@@ -324,9 +327,9 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
     Height = 395
     Top = 132
     Width = 558
-    ActivePage = TabSheet5
+    ActivePage = TabSheet2
     Align = alClient
-    TabIndex = 4
+    TabIndex = 1
     TabOrder = 1
     object TabSheet1: TTabSheet
       Caption = 'Tab'
@@ -940,7 +943,7 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
       end
       object pPaneCaptionFontColor: TPanel
         AnchorSideLeft.Control = pPaneCaptionBackground
-        AnchorSideTop.Control = ePaneHotTrackBrightnessChange
+        AnchorSideTop.Control = edPaneHotTrackBrightnessChange
         AnchorSideTop.Side = asrBottom
         AnchorSideRight.Control = pPaneCaptionBackground
         AnchorSideRight.Side = asrBottom
@@ -1138,7 +1141,7 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
         Shape = bsSpacer
       end
       object Label15: TLabel
-        AnchorSideTop.Control = ePaneHotTrackBrightnessChange
+        AnchorSideTop.Control = edPaneHotTrackBrightnessChange
         AnchorSideTop.Side = asrCenter
         AnchorSideRight.Control = LblPaneCaptionBackground
         AnchorSideRight.Side = asrBottom
@@ -1151,7 +1154,7 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
         Caption = 'HotTrack brightness'#13#10'change'
         ParentColor = False
       end
-      object ePaneHotTrackBrightnessChange: TSpinEdit
+      object edPaneHotTrackBrightnessChange: TSpinEdit
         AnchorSideLeft.Control = pPaneCaptionBackground
         AnchorSideTop.Control = pPaneCaptionBackground
         AnchorSideTop.Side = asrBottom
@@ -1165,13 +1168,13 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
         Anchors = [akTop, akLeft, akRight]
         BorderSpacing.Top = 6
         MinValue = -100
-        OnChange = ePaneHotTrackBrightnessChangeChange
+        OnChange = edPaneHotTrackBrightnessChangeChange
         TabOrder = 10
       end
       object Label16: TLabel
-        AnchorSideLeft.Control = ePaneHotTrackBrightnessChange
+        AnchorSideLeft.Control = edPaneHotTrackBrightnessChange
         AnchorSideLeft.Side = asrBottom
-        AnchorSideTop.Control = ePaneHotTrackBrightnessChange
+        AnchorSideTop.Control = edPaneHotTrackBrightnessChange
         AnchorSideTop.Side = asrCenter
         Left = 247
         Height = 15
@@ -2171,6 +2174,48 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
         Anchors = [akTop, akLeft, akBottom]
         Shape = bsSpacer
       end
+      object Label19: TLabel
+        AnchorSideLeft.Control = edItemHotTrackBrightnessChange
+        AnchorSideBottom.Control = edItemHotTrackBrightnessChange
+        Left = 259
+        Height = 15
+        Top = 285
+        Width = 97
+        Alignment = taRightJustify
+        Anchors = [akLeft, akBottom]
+        BorderSpacing.Bottom = 4
+        Caption = 'Brightness change'
+        ParentColor = False
+      end
+      object edItemHotTrackBrightnessChange: TSpinEdit
+        AnchorSideLeft.Control = pItemHottrackInnerLight
+        AnchorSideTop.Control = cbItemStyle
+        AnchorSideTop.Side = asrCenter
+        AnchorSideRight.Control = pItemHottrackInnerLight
+        AnchorSideRight.Side = asrBottom
+        Left = 259
+        Height = 23
+        Top = 304
+        Width = 100
+        Alignment = taRightJustify
+        Anchors = [akTop, akLeft, akRight]
+        MinValue = -100
+        OnChange = edItemHotTrackBrightnessChangeChange
+        TabOrder = 24
+      end
+      object Label20: TLabel
+        AnchorSideLeft.Control = edItemHotTrackBrightnessChange
+        AnchorSideLeft.Side = asrBottom
+        AnchorSideTop.Control = edItemHotTrackBrightnessChange
+        AnchorSideTop.Side = asrCenter
+        Left = 363
+        Height = 15
+        Top = 308
+        Width = 10
+        BorderSpacing.Left = 4
+        Caption = '%'
+        ParentColor = False
+      end
     end
     object TabSheet4: TTabSheet
       Caption = 'Import / export'

components/spktoolbar/designtime/spkte_AppearanceEditor.pas

@@ -19,9 +19,12 @@ type
     CbAppearanceStyle: TComboBox;
     Label15: TLabel;
     Label16: TLabel;
+    Label19: TLabel;
+    Label20: TLabel;
     PaneHSpacer: TBevel;
     ItemHSpacer: TBevel;
-    ePaneHotTrackBrightnessChange: TSpinEdit;
+    edPaneHotTrackBrightnessChange: TSpinEdit;
+    edItemHotTrackBrightnessChange: TSpinEdit;
     TabVSpacer: TBevel;
     bInactiveTabHeaderFontColor: TSpeedButton;
     bItemActiveInnerDarkColor: TSpeedButton;
@@ -214,7 +217,8 @@ type
     procedure cbLinkItemClick(Sender: TObject);
     procedure cbLinkPaneClick(Sender: TObject);
     procedure cbLinkTabClick(Sender: TObject);
-    procedure ePaneHotTrackBrightnessChangeChange(Sender: TObject);
+    procedure edItemHotTrackBrightnessChangeChange(Sender: TObject);
+    procedure edPaneHotTrackBrightnessChangeChange(Sender: TObject);
     procedure FormActivate(Sender: TObject);
     procedure FormCloseQuery(Sender: TObject; var CanClose: boolean);
     procedure FormCreate(Sender: TObject);
@@ -808,7 +812,15 @@ begin
     Result := false;
 end;
 
-procedure TfrmAppearanceEditWindow.ePaneHotTrackBrightnessChangeChange(
+procedure TfrmAppearanceEditWindow.edItemHotTrackBrightnessChangeChange(
+  Sender: TObject);
+begin
+  with tbPreview.Appearance.Element do
+    HotTrackBrightnessChange := (Sender as TSpinEdit).Value;
+  tbPreview.Invalidate;
+end;
+
+procedure TfrmAppearanceEditWindow.edPaneHotTrackBrightnessChangeChange(
   Sender: TObject);
 begin
   with tbPreview.Appearance.Pane do
@@ -945,6 +957,7 @@ begin
       SetPanelFont(pPaneCaptionFont, CaptionFont);
       SetPanelColor(pPaneCaptionFontColor, CaptionFont.Color);
       cbPaneStyle.ItemIndex := ord(Style);
+      edPaneHotTrackBrightnessChange.Value := HotTrackBrightnessChange;
     end;
 
     with Element do
@@ -976,6 +989,7 @@ begin
       SetPanelColor(pItemActiveInnerLight, ActiveInnerLightColor);
 
       cbItemStyle.ItemIndex := ord(Style);
+      edItemHotTrackBrightnessChange.Value := HotTrackBrightnessChange;
     end;
   end;
 end;