pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

SpkToolbar: Add property "Style" to TSpkToolbar for quick change of appearance style.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5362 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-11-17 22:01:53 +00:00
parent 86107c9c25
commit 47c02cf7e4
8 changed files with 409 additions and 393 deletions
Download Patch File Download Diff File Expand all files Collapse all files

44
components/spktoolbar/designtime/spkte_AppearanceEditor.lfm
View File

@ -324,9 +324,9 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
Height = 371
Top = 132
Width = 558
ActivePage = TabSheet3
ActivePage = TabSheet5
Align = alClient
TabIndex = 2
TabIndex = 4
TabOrder = 1
object TabSheet1: TTabSheet
Caption = 'Tab'
@ -697,8 +697,8 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
end
object TabSheet2: TTabSheet
Caption = 'Pane'
ClientHeight = 360
ClientWidth = 579
ClientHeight = 343
ClientWidth = 550
ImageIndex = 1
object Label8: TLabel
AnchorSideTop.Control = pPaneBorderDark
@ -2130,8 +2130,8 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
end
object TabSheet4: TTabSheet
Caption = 'Import / export'
ClientHeight = 360
ClientWidth = 554
ClientHeight = 343
ClientWidth = 550
ImageIndex = 3
object bImport: TButton
AnchorSideLeft.Control = bExportToXML
@ -2172,9 +2172,9 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
AnchorSideBottom.Control = TabSheet4
AnchorSideBottom.Side = asrBottom
Left = 4
Height = 323
Height = 306
Top = 33
Width = 546
Width = 542
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Left = 4
BorderSpacing.Top = 4
@ -2205,7 +2205,7 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
AnchorSideTop.Control = TabSheet4
AnchorSideRight.Control = TabSheet4
AnchorSideRight.Side = asrBottom
Left = 496
Left = 492
Height = 25
Top = 4
Width = 54
@ -2220,34 +2220,40 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
end
object TabSheet5: TTabSheet
Caption = 'Tools'
ClientHeight = 360
ClientWidth = 554
ClientHeight = 343
ClientWidth = 550
ImageIndex = 4
object Label17: TLabel
AnchorSideLeft.Control = TabSheet5
AnchorSideTop.Control = bReset
AnchorSideTop.Control = CbAppearanceStyle
AnchorSideTop.Side = asrCenter
Left = 4
Height = 15
Top = 9
Top = 8
Width = 87
BorderSpacing.Left = 4
Caption = 'Reset to defaults'
ParentColor = False
end
object bReset: TButton
object CbAppearanceStyle: TComboBox
AnchorSideLeft.Control = Label17
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = TabSheet5
Left = 115
Height = 25
Height = 23
Top = 4
Width = 54
AutoSize = True
Width = 172
BorderSpacing.Left = 24
BorderSpacing.Top = 4
Caption = 'Reset'
OnClick = bResetClick
ItemHeight = 15
Items.Strings = (
'Office2007 blue'
'Office2007 silver'
'Metro light'
'Metro dark'
)
OnChange = CbAppearanceStyleChange
Style = csDropDownList
TabOrder = 0
end
end

11
components/spktoolbar/designtime/spkte_AppearanceEditor.pas
View File

@ -16,6 +16,7 @@ type
{ TfrmAppearanceEditWindow }
TfrmAppearanceEditWindow = class(TForm)
CbAppearanceStyle: TComboBox;
PaneHSpacer: TBevel;
ItemHSpacer: TBevel;
TabVSpacer: TBevel;
@ -162,7 +163,6 @@ type
sItemRectangle: TShape;
TabSheet5: TTabSheet;
Label17: TLabel;
bReset: TButton;
procedure bExportToPascalClick(Sender: TObject);
procedure bExportToXMLClick(Sender: TObject);
@ -199,6 +199,7 @@ type
procedure bTabGradientToColorClick(Sender: TObject);
procedure bActiveTabHeaderFontColorClick(Sender: TObject);
procedure bCopyToClipboardClick(Sender: TObject);
procedure CbAppearanceStyleChange(Sender: TObject);
procedure cbItemActiveGradientKindChange(Sender: TObject);
procedure cbItemHottrackGradientKindChange(Sender: TObject);
procedure cbItemIdleGradientKindChange(Sender: TObject);
@ -285,9 +286,9 @@ type
Shift: TShiftState; X, Y: integer);
procedure ScreenshotMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: integer);
public
property Appearance : TSpkToolbarAppearance read GetAppearance write SetAppearance;
{ Public declarations }
end;
var
@ -419,6 +420,12 @@ begin
(Sender as TSpeedButton).Down := false;
end;
procedure TfrmAppearanceEditWindow.CbAppearanceStyleChange(Sender: TObject);
begin
tbPreview.Appearance.Reset(TSpkStyle(CbAppearanceStyle.ItemIndex));
LoadAppearance(tbPreview.Appearance);
end;
procedure TfrmAppearanceEditWindow.bCopyToClipboardClick(Sender: TObject);
begin
if mXML.Lines.Count > 0 then