From 14633ea90254c09ed1bb8f195ba1ab3705c59855 Mon Sep 17 00:00:00 2001 From: wp_xxyyzz Date: Wed, 7 Feb 2018 22:05:46 +0000 Subject: [PATCH] spktoolbar: Add inherited properties. Add DoubleBuffered = true (otherwise severe flickering after recent changes in Laz trunk after r57267) git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6185 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- .../spktoolbar/SpkToolbar/SpkToolbar.pas | 21 +- components/spktoolbar/demos/actions/unit1.lfm | 90 ---- .../spktoolbar/demos/basic/Project1.res | Bin 138932 -> 139052 bytes components/spktoolbar/demos/basic/Unit1.lfm | 106 +--- components/spktoolbar/demos/styles/unit1.lfm | 478 +----------------- 5 files changed, 42 insertions(+), 653 deletions(-) diff --git a/components/spktoolbar/SpkToolbar/SpkToolbar.pas b/components/spktoolbar/SpkToolbar/SpkToolbar.pas index 6176adbd0..6b196506d 100644 --- a/components/spktoolbar/SpkToolbar/SpkToolbar.pas +++ b/components/spktoolbar/SpkToolbar/SpkToolbar.pas @@ -361,7 +361,7 @@ type // *** Drawing *** // *************** - procedure EraseBackground(DC: HDC); override; +// procedure EraseBackground(DC: HDC); override; { Method draws the content of the component } procedure Paint; override; @@ -429,6 +429,17 @@ type property OnTabChanging: TSpkTabChangingEvent read FOnTabChanging write FOnTabChanging; property OnTabChanged: TNotifyEvent read FOnTabChanged write FOnTabChanged; + + { inherited properties } + property Align default alTop; + property BorderSpacing; + property Anchors; + property Hint; + property ParentShowHint; + property ShowHint; + property Visible; + property OnResize; + end; @@ -531,7 +542,9 @@ begin inherited Create(AOwner); // Initialization of inherited property - inherited Align := alTop; + Align := alTop; + DoubleBuffered := true; // required after Laz 1.9 + //todo: not found in lcl //inherited AlignWithMargins:=true; @@ -1067,7 +1080,7 @@ begin inherited; end; - + (* procedure TSpkToolbar.EraseBackground(DC: HDC); begin // The correct implementation is doing nothing @@ -1075,7 +1088,7 @@ begin inherited; // wp: this calls FillRect! // "inherited" removed in case of no themes to fix issue #0025047 (flickering // when using standard windows theme or when manifest file is off) -end; +end; *) procedure TSpkToolbar.SetBufferInvalid; begin diff --git a/components/spktoolbar/demos/actions/unit1.lfm b/components/spktoolbar/demos/actions/unit1.lfm index aa15f8159..32fa341a0 100644 --- a/components/spktoolbar/demos/actions/unit1.lfm +++ b/components/spktoolbar/demos/actions/unit1.lfm @@ -216,42 +216,30 @@ object Form1: TForm1 CustomAppearance.Element.ActiveCaptionColor = 8405614 CustomAppearance.Element.Style = esRounded Caption = 'File' - OverrideAppearance = False - Visible = True Panes = ( 'SpkPane1' ) object SpkPane1: TSpkPane Caption = 'File commands' - Visible = True Items = ( 'SpkLargeButton1' 'SpkLargeButton2' 'SpkLargeButton3' ) object SpkLargeButton1: TSpkLargeButton - Visible = True - Enabled = True Action = AcOpen Caption = 'Open file' LargeImageIndex = 1 - ButtonKind = bkButton end object SpkLargeButton2: TSpkLargeButton - Visible = True - Enabled = True Action = AcSave Caption = 'Save file' LargeImageIndex = 2 - ButtonKind = bkButton end object SpkLargeButton3: TSpkLargeButton - Visible = True - Enabled = True Action = AcQuit Caption = 'Quit program' LargeImageIndex = 0 - ButtonKind = bkButton end end end @@ -300,54 +288,36 @@ object Form1: TForm1 CustomAppearance.Element.ActiveCaptionColor = 8405614 CustomAppearance.Element.Style = esRounded Caption = 'Edit' - OverrideAppearance = False - Visible = True Panes = ( 'SpkPane3' ) object SpkPane3: TSpkPane Caption = 'Edit commands' - Visible = True Items = ( 'SpkSmallButton1' 'SpkSmallButton2' 'SpkSmallButton7' ) object SpkSmallButton1: TSpkSmallButton - Visible = True - Enabled = True Action = AcEditCut Caption = 'Cut' - GroupBehaviour = gbSingleItem HideFrameWhenIdle = True ImageIndex = 3 - ShowCaption = True TableBehaviour = tbBeginsRow - ButtonKind = bkButton end object SpkSmallButton2: TSpkSmallButton - Visible = True - Enabled = True Action = AcEditCopy Caption = 'Copy' - GroupBehaviour = gbSingleItem HideFrameWhenIdle = True ImageIndex = 4 - ShowCaption = True TableBehaviour = tbBeginsRow - ButtonKind = bkButton end object SpkSmallButton7: TSpkSmallButton - Visible = True - Enabled = True Action = AcEditPaste Caption = 'Paste' - GroupBehaviour = gbSingleItem HideFrameWhenIdle = True ImageIndex = 5 - ShowCaption = True TableBehaviour = tbBeginsRow - ButtonKind = bkButton end end end @@ -396,14 +366,11 @@ object Form1: TForm1 CustomAppearance.Element.ActiveCaptionColor = 8405614 CustomAppearance.Element.Style = esRounded Caption = 'Format' - OverrideAppearance = False - Visible = True Panes = ( 'SpkPane2' ) object SpkPane2: TSpkPane Caption = 'Format settings' - Visible = True Items = ( 'SpkSmallButton4' 'SpkSmallButton6' @@ -413,48 +380,33 @@ object Form1: TForm1 'SpkSmallButton11' ) object SpkSmallButton4: TSpkSmallButton - Visible = True - Enabled = True Action = AcBold Caption = 'Bold' GroupBehaviour = gbBeginsGroup - HideFrameWhenIdle = False ImageIndex = 7 ShowCaption = False - TableBehaviour = tbContinuesRow ButtonKind = bkToggle end object SpkSmallButton6: TSpkSmallButton - Visible = True - Enabled = True Action = AcItalic Caption = 'Italic' GroupBehaviour = gbContinuesGroup - HideFrameWhenIdle = False ImageIndex = 8 ShowCaption = False - TableBehaviour = tbContinuesRow ButtonKind = bkToggle end object SpkSmallButton8: TSpkSmallButton - Visible = True - Enabled = True Action = AcUnderline Caption = 'Underline' GroupBehaviour = gbEndsGroup - HideFrameWhenIdle = False ImageIndex = 9 ShowCaption = False - TableBehaviour = tbContinuesRow ButtonKind = bkToggle end object SpkSmallButton9: TSpkSmallButton - Visible = True - Enabled = True Action = AcLeftJustify Caption = 'Left justify' GroupBehaviour = gbBeginsGroup - HideFrameWhenIdle = False ImageIndex = 10 ShowCaption = False TableBehaviour = tbBeginsRow @@ -462,28 +414,20 @@ object Form1: TForm1 GroupIndex = 2 end object SpkSmallButton10: TSpkSmallButton - Visible = True - Enabled = True Action = AcCenter Caption = 'Centered' GroupBehaviour = gbContinuesGroup - HideFrameWhenIdle = False ImageIndex = 11 ShowCaption = False - TableBehaviour = tbContinuesRow ButtonKind = bkToggle GroupIndex = 2 end object SpkSmallButton11: TSpkSmallButton - Visible = True - Enabled = True Action = AcRightJustify Caption = 'Right justify' GroupBehaviour = gbEndsGroup - HideFrameWhenIdle = False ImageIndex = 12 ShowCaption = False - TableBehaviour = tbContinuesRow ButtonKind = bkToggle GroupIndex = 2 end @@ -534,31 +478,23 @@ object Form1: TForm1 CustomAppearance.Element.ActiveCaptionColor = 8405614 CustomAppearance.Element.Style = esRounded Caption = 'Options' - OverrideAppearance = False - Visible = True Panes = ( 'SpkPane6' 'SpkPane5' ) object SpkPane6: TSpkPane Caption = 'User interface' - Visible = True Items = ( 'SpkRadioButton1' 'SpkRadioButton2' 'SpkSmallButton3' ) object SpkRadioButton1: TSpkRadioButton - Visible = True - Enabled = True Action = AcClassicalGUI Caption = 'Classical' - State = cbUnchecked TableBehaviour = tbBeginsRow end object SpkRadioButton2: TSpkRadioButton - Visible = True - Enabled = True Action = AcRibbonGUI Caption = 'Ribbon' Checked = True @@ -566,40 +502,26 @@ object Form1: TForm1 TableBehaviour = tbBeginsRow end object SpkSmallButton3: TSpkSmallButton - Visible = True - Enabled = True Caption = 'Style' - GroupBehaviour = gbSingleItem - HideFrameWhenIdle = False ImageIndex = 14 - ShowCaption = True - TableBehaviour = tbContinuesRow ButtonKind = bkDropdown DropdownMenu = StyleMenu end end object SpkPane5: TSpkPane Caption = 'Save settings' - Visible = True Items = ( 'SpkSmallButton5' 'SpkCheckbox1' ) object SpkSmallButton5: TSpkSmallButton - Visible = True - Enabled = True Action = AcSaveNow Caption = 'Save now' - GroupBehaviour = gbSingleItem HideFrameWhenIdle = True ImageIndex = 2 - ShowCaption = True TableBehaviour = tbBeginsRow - ButtonKind = bkButton end object SpkCheckbox1: TSpkCheckbox - Visible = True - Enabled = True Action = AcAutoSave Caption = 'Autosave' Checked = True @@ -653,24 +575,18 @@ object Form1: TForm1 CustomAppearance.Element.ActiveCaptionColor = 8405614 CustomAppearance.Element.Style = esRounded Caption = 'Help' - OverrideAppearance = False - Visible = True Panes = ( 'SpkPane4' ) object SpkPane4: TSpkPane Caption = 'Info' - Visible = True Items = ( 'SpkLargeButton4' ) object SpkLargeButton4: TSpkLargeButton - Visible = True - Enabled = True Action = AcAbout Caption = 'About...' LargeImageIndex = 6 - ButtonKind = bkButton end end end @@ -1421,9 +1337,6 @@ object Form1: TForm1 0000000000000000000000000000000000000000002E00000033000000330000 002E000000000000000000000000 } - BitmapAdv = { - 4C6900000000 - } end object LargeImageList: TImageList Height = 32 @@ -2329,8 +2242,5 @@ object Form1: TForm1 0009000000030000000000000000000000000000000000000000000000000000 0000000000000000000000000000 } - BitmapAdv = { - 4C6900000000 - } end end diff --git a/components/spktoolbar/demos/basic/Project1.res b/components/spktoolbar/demos/basic/Project1.res index 877868cb4251927ab961b2295948c0d753ecb7cd..f6e8499568f21121986c715951291349244aeef3 100644 GIT binary patch delta 61 zcmdn8mt)O7jtL5kn>Q+&vrRt2>Lh7srXQY}my%yz9GqHGl9`uYtYpW_rJ$fN*^;|?nT>J#XEr8F2>{SX3v&Pf diff --git a/components/spktoolbar/demos/basic/Unit1.lfm b/components/spktoolbar/demos/basic/Unit1.lfm index 0ea2addbc..9f96f5a0d 100644 --- a/components/spktoolbar/demos/basic/Unit1.lfm +++ b/components/spktoolbar/demos/basic/Unit1.lfm @@ -1,11 +1,11 @@ object Form2: TForm2 Left = 311 - Height = 352 + Height = 340 Top = 214 - Width = 782 + Width = 777 Caption = 'Form2' - ClientHeight = 352 - ClientWidth = 782 + ClientHeight = 340 + ClientWidth = 777 Color = clBtnFace Font.Color = clWindowText Font.Height = -11 @@ -14,7 +14,7 @@ object Form2: TForm2 object SpkToolbar1: TSpkToolbar Left = 0 Top = 0 - Width = 782 + Width = 777 Color = clBtnFace Appearance.Tab.TabHeaderFont.Color = 2763306 Appearance.Tab.BorderColor = 10921638 @@ -105,8 +105,6 @@ object Form2: TForm2 CustomAppearance.Element.ActiveCaptionColor = 8405614 CustomAppearance.Element.Style = esRounded Caption = 'Narzedzia glówne' - OverrideAppearance = False - Visible = True Panes = ( 'SpkPane2' 'SpkPane3' @@ -116,7 +114,6 @@ object Form2: TForm2 ) object SpkPane2: TSpkPane Caption = 'Plik' - Visible = True Items = ( 'SpkLargeButton4' 'SpkSmallButton2' @@ -124,50 +121,31 @@ object Form2: TForm2 'SpkSmallButton4' ) object SpkLargeButton4: TSpkLargeButton - Visible = True - Enabled = True Caption = 'Nowy' LargeImageIndex = 3 - ButtonKind = bkButton end object SpkSmallButton2: TSpkSmallButton - Visible = True - Enabled = True Caption = 'Otwórz' - GroupBehaviour = gbSingleItem HideFrameWhenIdle = True ImageIndex = 16 - ShowCaption = True TableBehaviour = tbBeginsRow - ButtonKind = bkButton DropdownMenu = PopupMenu2 end object SpkSmallButton3: TSpkSmallButton - Visible = True - Enabled = True Caption = 'Zapisz' - GroupBehaviour = gbSingleItem HideFrameWhenIdle = True ImageIndex = 56 - ShowCaption = True TableBehaviour = tbBeginsRow - ButtonKind = bkButton end object SpkSmallButton4: TSpkSmallButton - Visible = True - Enabled = True Caption = 'Zapisz jako...' - GroupBehaviour = gbSingleItem HideFrameWhenIdle = True ImageIndex = 57 - ShowCaption = True TableBehaviour = tbBeginsRow - ButtonKind = bkButton end end object SpkPane3: TSpkPane Caption = 'Edycja' - Visible = True Items = ( 'SpkSmallButton1' 'SpkSmallButton5' @@ -176,128 +154,81 @@ object Form2: TForm2 'SpkSmallButton8' ) object SpkSmallButton1: TSpkSmallButton - Visible = True - Enabled = True Caption = 'Button' GroupBehaviour = gbBeginsGroup - HideFrameWhenIdle = False ImageIndex = 0 ShowCaption = False - TableBehaviour = tbContinuesRow ButtonKind = bkButtonDropdown DropdownMenu = PopupMenu2 end object SpkSmallButton5: TSpkSmallButton - Visible = True - Enabled = True Caption = 'Button' GroupBehaviour = gbEndsGroup - HideFrameWhenIdle = False ImageIndex = 31 ShowCaption = False - TableBehaviour = tbContinuesRow ButtonKind = bkButtonDropdown DropdownMenu = PopupMenu2 end object SpkSmallButton6: TSpkSmallButton - Visible = True - Enabled = True Caption = 'Button' GroupBehaviour = gbBeginsGroup - HideFrameWhenIdle = False ImageIndex = 53 ShowCaption = False TableBehaviour = tbBeginsRow - ButtonKind = bkButton end object SpkSmallButton7: TSpkSmallButton - Visible = True - Enabled = True Caption = 'Button' GroupBehaviour = gbContinuesGroup - HideFrameWhenIdle = False ImageIndex = 51 ShowCaption = False - TableBehaviour = tbContinuesRow - ButtonKind = bkButton end object SpkSmallButton8: TSpkSmallButton - Visible = True - Enabled = True Caption = 'Button' GroupBehaviour = gbEndsGroup - HideFrameWhenIdle = False ImageIndex = 11 ShowCaption = False - TableBehaviour = tbContinuesRow - ButtonKind = bkButton end end object SpkPane4: TSpkPane Caption = 'Szukanie' - Visible = True Items = ( 'SpkLargeButton5' 'SpkSmallButton9' 'SpkSmallButton10' ) object SpkLargeButton5: TSpkLargeButton - Visible = True - Enabled = True Caption = 'Szukaj' LargeImageIndex = 4 - ButtonKind = bkButton end object SpkSmallButton9: TSpkSmallButton - Visible = True - Enabled = True Caption = 'Szukaj dalej' - GroupBehaviour = gbSingleItem - HideFrameWhenIdle = False ImageIndex = 41 - ShowCaption = True - TableBehaviour = tbContinuesRow - ButtonKind = bkButton end object SpkSmallButton10: TSpkSmallButton - Visible = True - Enabled = True Caption = 'Zamień' - GroupBehaviour = gbSingleItem - HideFrameWhenIdle = False ImageIndex = 55 - ShowCaption = True TableBehaviour = tbBeginsRow - ButtonKind = bkButton end end object SpkPane1: TSpkPane Caption = 'Large buttons' - Visible = True Items = ( 'SpkLargeButton1' 'SpkLargeButton2' 'SpkLargeButton3' ) object SpkLargeButton1: TSpkLargeButton - Visible = True - Enabled = True Caption = 'Button' LargeImageIndex = 0 - ButtonKind = bkButton DropdownMenu = PopupMenu2 end object SpkLargeButton2: TSpkLargeButton - Visible = True - Enabled = True Caption = 'ButtonDropdown' LargeImageIndex = 1 ButtonKind = bkButtonDropdown DropdownMenu = PopupMenu2 end object SpkLargeButton3: TSpkLargeButton - Visible = True - Enabled = True Caption = 'Dropdown' LargeImageIndex = 2 ButtonKind = bkDropdown @@ -306,44 +237,29 @@ object Form2: TForm2 end object SpkPane6: TSpkPane Caption = 'Small buttons' - Visible = True Items = ( 'SpkSmallButton11' 'SpkSmallButton12' 'SpkSmallButton13' ) object SpkSmallButton11: TSpkSmallButton - Visible = True - Enabled = True Caption = 'Button' - GroupBehaviour = gbSingleItem HideFrameWhenIdle = True ImageIndex = 20 - ShowCaption = True - TableBehaviour = tbContinuesRow - ButtonKind = bkButton DropdownMenu = PopupMenu2 end object SpkSmallButton12: TSpkSmallButton - Visible = True - Enabled = True Caption = 'ButtonDropdown' - GroupBehaviour = gbSingleItem HideFrameWhenIdle = True ImageIndex = 21 - ShowCaption = True TableBehaviour = tbBeginsRow ButtonKind = bkButtonDropdown DropdownMenu = PopupMenu2 end object SpkSmallButton13: TSpkSmallButton - Visible = True - Enabled = True Caption = 'Dropdown' - GroupBehaviour = gbSingleItem HideFrameWhenIdle = True ImageIndex = 22 - ShowCaption = True TableBehaviour = tbBeginsRow ButtonKind = bkDropdown DropdownMenu = PopupMenu2 @@ -395,40 +311,28 @@ object Form2: TForm2 CustomAppearance.Element.ActiveCaptionColor = 8405614 CustomAppearance.Element.Style = esRounded Caption = 'Katalogi' - OverrideAppearance = False - Visible = True Panes = ( 'SpkPane5' ) object SpkPane5: TSpkPane Caption = 'Tafla' - Visible = True Items = ( 'SpkLargeButton6' 'SpkLargeButton7' 'SpkLargeButton8' ) object SpkLargeButton6: TSpkLargeButton - Visible = True - Enabled = True Caption = 'Blender' LargeImageIndex = 2 - ButtonKind = bkButton end object SpkLargeButton7: TSpkLargeButton - Visible = True - Enabled = True Caption = 'Dokumenty' LargeImageIndex = 1 - ButtonKind = bkButton DropdownMenu = PopupMenu1 end object SpkLargeButton8: TSpkLargeButton - Visible = True - Enabled = True Caption = 'Lazarus' LargeImageIndex = 0 - ButtonKind = bkButton end end end diff --git a/components/spktoolbar/demos/styles/unit1.lfm b/components/spktoolbar/demos/styles/unit1.lfm index 2299c8cb4..ff36d7fc5 100644 --- a/components/spktoolbar/demos/styles/unit1.lfm +++ b/components/spktoolbar/demos/styles/unit1.lfm @@ -2,27 +2,27 @@ object Form1: TForm1 Left = 280 Height = 667 Top = 130 - Width = 664 + Width = 636 Caption = 'spkToolbar Styles' ClientHeight = 667 - ClientWidth = 664 + ClientWidth = 636 Color = clMedGray LCLVersion = '1.9.0.0' object ScrollBox1: TScrollBox Left = 0 Height = 667 Top = 0 - Width = 664 + Width = 636 HorzScrollBar.Page = 75 VertScrollBar.Page = 660 Align = alClient ClientHeight = 663 - ClientWidth = 660 + ClientWidth = 632 TabOrder = 0 object SpkToolbar1: TSpkToolbar Left = 0 Top = 0 - Width = 660 + Width = 632 Color = clMedGray Appearance.Tab.TabHeaderFont.Color = 9126421 Appearance.Tab.BorderColor = 14922381 @@ -106,8 +106,6 @@ object Form1: TForm1 CustomAppearance.Element.ActiveCaptionColor = 8405614 CustomAppearance.Element.Style = esRounded Caption = 'Office2007 Blue' - OverrideAppearance = False - Visible = True Panes = ( 'SpkPane1' 'SpkPane10' @@ -116,7 +114,6 @@ object Form1: TForm1 ) object SpkPane1: TSpkPane Caption = 'File commands' - Visible = True Items = ( 'SpkLargeButton1' 'SpkLargeButton14' @@ -125,52 +122,34 @@ object Form1: TForm1 'SpkLargeButton15' ) object SpkLargeButton1: TSpkLargeButton - Visible = True - Enabled = True Caption = 'New' LargeImageIndex = 0 ButtonKind = bkDropdown end object SpkLargeButton14: TSpkLargeButton - Visible = True - Enabled = True Caption = 'Open file...' LargeImageIndex = 1 ButtonKind = bkButtonDropdown end object SpkSmallButton29: TSpkSmallButton - Visible = True - Enabled = True Caption = 'Save' - GroupBehaviour = gbSingleItem HideFrameWhenIdle = True ImageIndex = 0 - ShowCaption = True - TableBehaviour = tbContinuesRow ButtonKind = bkButtonDropdown end object SpkSmallButton30: TSpkSmallButton - Visible = True - Enabled = True Caption = 'Save as...' - GroupBehaviour = gbSingleItem HideFrameWhenIdle = True ImageIndex = 1 - ShowCaption = True TableBehaviour = tbBeginsRow - ButtonKind = bkButton end object SpkLargeButton15: TSpkLargeButton - Visible = True - Enabled = True Caption = 'Exit program' LargeImageIndex = 3 - ButtonKind = bkButton end end object SpkPane10: TSpkPane Caption = 'Edit commands' - Visible = True Items = ( 'SpkSmallButton31' 'SpkSmallButton32' @@ -179,62 +158,33 @@ object Form1: TForm1 'SpkSmallButton35' ) object SpkSmallButton31: TSpkSmallButton - Visible = True - Enabled = True Caption = 'Cut' - GroupBehaviour = gbSingleItem HideFrameWhenIdle = True ImageIndex = 2 - ShowCaption = True - TableBehaviour = tbContinuesRow - ButtonKind = bkButton end object SpkSmallButton32: TSpkSmallButton - Visible = True - Enabled = True Caption = 'Copy' - GroupBehaviour = gbSingleItem HideFrameWhenIdle = True ImageIndex = 3 - ShowCaption = True TableBehaviour = tbBeginsRow - ButtonKind = bkButton end object SpkSmallButton33: TSpkSmallButton - Visible = True - Enabled = True Caption = 'Paste' - GroupBehaviour = gbSingleItem HideFrameWhenIdle = True ImageIndex = 4 - ShowCaption = True TableBehaviour = tbBeginsRow - ButtonKind = bkButton end object SpkSmallButton34: TSpkSmallButton - Visible = True - Enabled = True Caption = 'Select all' - GroupBehaviour = gbSingleItem - HideFrameWhenIdle = False - ShowCaption = True TableBehaviour = tbBeginsColumn - ButtonKind = bkButton end object SpkSmallButton35: TSpkSmallButton - Visible = True - Enabled = True Caption = 'Unselect' - GroupBehaviour = gbSingleItem - HideFrameWhenIdle = False - ShowCaption = True TableBehaviour = tbBeginsRow - ButtonKind = bkButton end end object SpkPane16: TSpkPane Caption = 'Format commands' - Visible = True Items = ( 'SpkSmallButton41' 'SpkSmallButton42' @@ -245,55 +195,36 @@ object Form1: TForm1 'SpkSmallButton47' ) object SpkSmallButton41: TSpkSmallButton - Visible = True - Enabled = True Caption = 'Button' GroupBehaviour = gbBeginsGroup - HideFrameWhenIdle = False ImageIndex = 5 ShowCaption = False - TableBehaviour = tbContinuesRow ButtonKind = bkToggle end object SpkSmallButton42: TSpkSmallButton - Visible = True - Enabled = True Caption = 'Button' GroupBehaviour = gbContinuesGroup - HideFrameWhenIdle = False ImageIndex = 6 ShowCaption = False - TableBehaviour = tbContinuesRow ButtonKind = bkToggle end object SpkSmallButton44: TSpkSmallButton - Visible = True - Enabled = True Caption = 'Button' GroupBehaviour = gbContinuesGroup - HideFrameWhenIdle = False ImageIndex = 7 ShowCaption = False - TableBehaviour = tbContinuesRow ButtonKind = bkToggle end object SpkSmallButton43: TSpkSmallButton - Visible = True - Enabled = True Caption = 'Button' GroupBehaviour = gbEndsGroup - HideFrameWhenIdle = False ImageIndex = 8 ShowCaption = False - TableBehaviour = tbContinuesRow ButtonKind = bkToggle end object SpkSmallButton45: TSpkSmallButton - Visible = True - Enabled = True Caption = 'Button' GroupBehaviour = gbBeginsGroup - HideFrameWhenIdle = False ImageIndex = 9 ShowCaption = False TableBehaviour = tbBeginsRow @@ -302,52 +233,34 @@ object Form1: TForm1 GroupIndex = 1 end object SpkSmallButton46: TSpkSmallButton - Visible = True - Enabled = True Caption = 'Button' GroupBehaviour = gbContinuesGroup - HideFrameWhenIdle = False ImageIndex = 10 ShowCaption = False - TableBehaviour = tbContinuesRow ButtonKind = bkToggle GroupIndex = 1 end object SpkSmallButton47: TSpkSmallButton - Visible = True - Enabled = True Caption = 'Button' GroupBehaviour = gbEndsGroup - HideFrameWhenIdle = False ImageIndex = 11 ShowCaption = False - TableBehaviour = tbContinuesRow ButtonKind = bkToggle GroupIndex = 1 end end object SpkPane11: TSpkPane Caption = 'Settings' - Visible = True Items = ( 'SpkSmallButton36' 'SpkCheckbox1' ) object SpkSmallButton36: TSpkSmallButton - Visible = True - Enabled = True Caption = 'Save now' - GroupBehaviour = gbSingleItem - HideFrameWhenIdle = False - ShowCaption = True TableBehaviour = tbBeginsRow - ButtonKind = bkButton end object SpkCheckbox1: TSpkCheckbox - Visible = True - Enabled = True Caption = 'Auto save' - State = cbUnchecked TableBehaviour = tbBeginsRow end end @@ -356,7 +269,7 @@ object Form1: TForm1 object SpkToolbar2: TSpkToolbar Left = 0 Top = 137 - Width = 660 + Width = 632 Color = clMedGray Style = spkOffice2007Silver Appearance.Tab.TabHeaderFont.Color = 8016716 @@ -441,8 +354,6 @@ object Form1: TForm1 CustomAppearance.Element.ActiveCaptionColor = 8405614 CustomAppearance.Element.Style = esRounded Caption = 'Office2007 Silver' - OverrideAppearance = False - Visible = True Panes = ( 'SpkPane2' 'SpkPane3' @@ -451,7 +362,6 @@ object Form1: TForm1 ) object SpkPane2: TSpkPane Caption = 'File commands' - Visible = True Items = ( 'SpkLargeButton2' 'SpkLargeButton12' @@ -460,52 +370,34 @@ object Form1: TForm1 'SpkLargeButton13' ) object SpkLargeButton2: TSpkLargeButton - Visible = True - Enabled = True Caption = 'New' LargeImageIndex = 0 ButtonKind = bkDropdown end object SpkLargeButton12: TSpkLargeButton - Visible = True - Enabled = True Caption = 'Open file...' LargeImageIndex = 1 ButtonKind = bkButtonDropdown end object SpkSmallButton22: TSpkSmallButton - Visible = True - Enabled = True Caption = 'Save' - GroupBehaviour = gbSingleItem HideFrameWhenIdle = True ImageIndex = 0 - ShowCaption = True - TableBehaviour = tbContinuesRow ButtonKind = bkButtonDropdown end object SpkSmallButton23: TSpkSmallButton - Visible = True - Enabled = True Caption = 'Save as...' - GroupBehaviour = gbSingleItem HideFrameWhenIdle = True ImageIndex = 1 - ShowCaption = True TableBehaviour = tbBeginsRow - ButtonKind = bkButton end object SpkLargeButton13: TSpkLargeButton - Visible = True - Enabled = True Caption = 'Exit program' LargeImageIndex = 3 - ButtonKind = bkButton end end object SpkPane3: TSpkPane Caption = 'Edit commands' - Visible = True Items = ( 'SpkSmallButton24' 'SpkSmallButton25' @@ -514,62 +406,33 @@ object Form1: TForm1 'SpkSmallButton28' ) object SpkSmallButton24: TSpkSmallButton - Visible = True - Enabled = True Caption = 'Cut' - GroupBehaviour = gbSingleItem HideFrameWhenIdle = True ImageIndex = 2 - ShowCaption = True - TableBehaviour = tbContinuesRow - ButtonKind = bkButton end object SpkSmallButton25: TSpkSmallButton - Visible = True - Enabled = True Caption = 'Copy' - GroupBehaviour = gbSingleItem HideFrameWhenIdle = True ImageIndex = 3 - ShowCaption = True TableBehaviour = tbBeginsRow - ButtonKind = bkButton end object SpkSmallButton26: TSpkSmallButton - Visible = True - Enabled = True Caption = 'Paste' - GroupBehaviour = gbSingleItem HideFrameWhenIdle = True ImageIndex = 4 - ShowCaption = True TableBehaviour = tbBeginsRow - ButtonKind = bkButton end object SpkSmallButton27: TSpkSmallButton - Visible = True - Enabled = True Caption = 'Select all' - GroupBehaviour = gbSingleItem - HideFrameWhenIdle = False - ShowCaption = True TableBehaviour = tbBeginsColumn - ButtonKind = bkButton end object SpkSmallButton28: TSpkSmallButton - Visible = True - Enabled = True Caption = 'Unselect' - GroupBehaviour = gbSingleItem - HideFrameWhenIdle = False - ShowCaption = True TableBehaviour = tbBeginsRow - ButtonKind = bkButton end end object SpkPane17: TSpkPane Caption = 'Format commands' - Visible = True Items = ( 'SpkSmallButton48' 'SpkSmallButton49' @@ -580,55 +443,36 @@ object Form1: TForm1 'SpkSmallButton54' ) object SpkSmallButton48: TSpkSmallButton - Visible = True - Enabled = True Caption = 'Button' GroupBehaviour = gbBeginsGroup - HideFrameWhenIdle = False ImageIndex = 5 ShowCaption = False - TableBehaviour = tbContinuesRow ButtonKind = bkToggle end object SpkSmallButton49: TSpkSmallButton - Visible = True - Enabled = True Caption = 'Button' GroupBehaviour = gbContinuesGroup - HideFrameWhenIdle = False ImageIndex = 6 ShowCaption = False - TableBehaviour = tbContinuesRow ButtonKind = bkToggle end object SpkSmallButton50: TSpkSmallButton - Visible = True - Enabled = True Caption = 'Button' GroupBehaviour = gbContinuesGroup - HideFrameWhenIdle = False ImageIndex = 7 ShowCaption = False - TableBehaviour = tbContinuesRow ButtonKind = bkToggle end object SpkSmallButton51: TSpkSmallButton - Visible = True - Enabled = True Caption = 'Button' GroupBehaviour = gbEndsGroup - HideFrameWhenIdle = False ImageIndex = 8 ShowCaption = False - TableBehaviour = tbContinuesRow ButtonKind = bkToggle end object SpkSmallButton52: TSpkSmallButton - Visible = True - Enabled = True Caption = 'Button' GroupBehaviour = gbBeginsGroup - HideFrameWhenIdle = False ImageIndex = 9 ShowCaption = False TableBehaviour = tbBeginsRow @@ -637,52 +481,33 @@ object Form1: TForm1 GroupIndex = 1 end object SpkSmallButton53: TSpkSmallButton - Visible = True - Enabled = True Caption = 'Button' GroupBehaviour = gbContinuesGroup - HideFrameWhenIdle = False ImageIndex = 10 ShowCaption = False - TableBehaviour = tbContinuesRow ButtonKind = bkToggle GroupIndex = 1 end object SpkSmallButton54: TSpkSmallButton - Visible = True - Enabled = True Caption = 'Button' GroupBehaviour = gbEndsGroup - HideFrameWhenIdle = False ImageIndex = 11 ShowCaption = False - TableBehaviour = tbContinuesRow ButtonKind = bkToggle GroupIndex = 1 end end object SpkPane12: TSpkPane Caption = 'Settings' - Visible = True Items = ( 'SpkSmallButton37' 'SpkCheckbox2' ) object SpkSmallButton37: TSpkSmallButton - Visible = True - Enabled = True Caption = 'Save now' - GroupBehaviour = gbSingleItem - HideFrameWhenIdle = False - ShowCaption = True - TableBehaviour = tbContinuesRow - ButtonKind = bkButton end object SpkCheckbox2: TSpkCheckbox - Visible = True - Enabled = True Caption = 'Auto save' - State = cbUnchecked TableBehaviour = tbBeginsRow end end @@ -691,7 +516,7 @@ object Form1: TForm1 object SpkToolbar3: TSpkToolbar Left = 0 Top = 274 - Width = 660 + Width = 632 Color = clMedGray Style = spkOffice2007SilverTurquoise Appearance.Tab.TabHeaderFont.Color = 8016716 @@ -776,8 +601,6 @@ object Form1: TForm1 CustomAppearance.Element.ActiveCaptionColor = 8405614 CustomAppearance.Element.Style = esRounded Caption = 'Office2007 Silver/turquoise' - OverrideAppearance = False - Visible = True Panes = ( 'SpkPane4' 'SpkPane9' @@ -786,7 +609,6 @@ object Form1: TForm1 ) object SpkPane4: TSpkPane Caption = 'File commands' - Visible = True Items = ( 'SpkLargeButton3' 'SpkLargeButton10' @@ -795,52 +617,34 @@ object Form1: TForm1 'SpkLargeButton11' ) object SpkLargeButton3: TSpkLargeButton - Visible = True - Enabled = True Caption = 'New' LargeImageIndex = 0 ButtonKind = bkDropdown end object SpkLargeButton10: TSpkLargeButton - Visible = True - Enabled = True Caption = 'Open file...' LargeImageIndex = 1 ButtonKind = bkButtonDropdown end object SpkSmallButton15: TSpkSmallButton - Visible = True - Enabled = True Caption = 'Save' - GroupBehaviour = gbSingleItem HideFrameWhenIdle = True ImageIndex = 0 - ShowCaption = True - TableBehaviour = tbContinuesRow ButtonKind = bkButtonDropdown end object SpkSmallButton16: TSpkSmallButton - Visible = True - Enabled = True Caption = 'Save as...' - GroupBehaviour = gbSingleItem HideFrameWhenIdle = True ImageIndex = 1 - ShowCaption = True TableBehaviour = tbBeginsRow - ButtonKind = bkButton end object SpkLargeButton11: TSpkLargeButton - Visible = True - Enabled = True Caption = 'Exit program' LargeImageIndex = 3 - ButtonKind = bkButton end end object SpkPane9: TSpkPane Caption = 'Edit commands' - Visible = True Items = ( 'SpkSmallButton17' 'SpkSmallButton18' @@ -849,62 +653,33 @@ object Form1: TForm1 'SpkSmallButton21' ) object SpkSmallButton17: TSpkSmallButton - Visible = True - Enabled = True Caption = 'Cut' - GroupBehaviour = gbSingleItem HideFrameWhenIdle = True ImageIndex = 2 - ShowCaption = True - TableBehaviour = tbContinuesRow - ButtonKind = bkButton end object SpkSmallButton18: TSpkSmallButton - Visible = True - Enabled = True Caption = 'Copy' - GroupBehaviour = gbSingleItem HideFrameWhenIdle = True ImageIndex = 3 - ShowCaption = True TableBehaviour = tbBeginsRow - ButtonKind = bkButton end object SpkSmallButton19: TSpkSmallButton - Visible = True - Enabled = True Caption = 'Paste' - GroupBehaviour = gbSingleItem HideFrameWhenIdle = True ImageIndex = 4 - ShowCaption = True TableBehaviour = tbBeginsRow - ButtonKind = bkButton end object SpkSmallButton20: TSpkSmallButton - Visible = True - Enabled = True Caption = 'Select all' - GroupBehaviour = gbSingleItem - HideFrameWhenIdle = False - ShowCaption = True TableBehaviour = tbBeginsColumn - ButtonKind = bkButton end object SpkSmallButton21: TSpkSmallButton - Visible = True - Enabled = True Caption = 'Unselect' - GroupBehaviour = gbSingleItem - HideFrameWhenIdle = False - ShowCaption = True TableBehaviour = tbBeginsRow - ButtonKind = bkButton end end object SpkPane18: TSpkPane Caption = 'Format commands' - Visible = True Items = ( 'SpkSmallButton55' 'SpkSmallButton56' @@ -915,55 +690,36 @@ object Form1: TForm1 'SpkSmallButton61' ) object SpkSmallButton55: TSpkSmallButton - Visible = True - Enabled = True Caption = 'Button' GroupBehaviour = gbBeginsGroup - HideFrameWhenIdle = False ImageIndex = 5 ShowCaption = False - TableBehaviour = tbContinuesRow ButtonKind = bkToggle end object SpkSmallButton56: TSpkSmallButton - Visible = True - Enabled = True Caption = 'Button' GroupBehaviour = gbContinuesGroup - HideFrameWhenIdle = False ImageIndex = 6 ShowCaption = False - TableBehaviour = tbContinuesRow ButtonKind = bkToggle end object SpkSmallButton57: TSpkSmallButton - Visible = True - Enabled = True Caption = 'Button' GroupBehaviour = gbContinuesGroup - HideFrameWhenIdle = False ImageIndex = 7 ShowCaption = False - TableBehaviour = tbContinuesRow ButtonKind = bkToggle end object SpkSmallButton58: TSpkSmallButton - Visible = True - Enabled = True Caption = 'Button' GroupBehaviour = gbEndsGroup - HideFrameWhenIdle = False ImageIndex = 8 ShowCaption = False - TableBehaviour = tbContinuesRow ButtonKind = bkToggle end object SpkSmallButton59: TSpkSmallButton - Visible = True - Enabled = True Caption = 'Button' GroupBehaviour = gbBeginsGroup - HideFrameWhenIdle = False ImageIndex = 9 ShowCaption = False TableBehaviour = tbBeginsRow @@ -972,52 +728,33 @@ object Form1: TForm1 GroupIndex = 1 end object SpkSmallButton60: TSpkSmallButton - Visible = True - Enabled = True Caption = 'Button' GroupBehaviour = gbContinuesGroup - HideFrameWhenIdle = False ImageIndex = 10 ShowCaption = False - TableBehaviour = tbContinuesRow ButtonKind = bkToggle GroupIndex = 1 end object SpkSmallButton61: TSpkSmallButton - Visible = True - Enabled = True Caption = 'Button' GroupBehaviour = gbEndsGroup - HideFrameWhenIdle = False ImageIndex = 11 ShowCaption = False - TableBehaviour = tbContinuesRow ButtonKind = bkToggle GroupIndex = 1 end end object SpkPane13: TSpkPane Caption = 'Settings' - Visible = True Items = ( 'SpkSmallButton38' 'SpkCheckbox3' ) object SpkSmallButton38: TSpkSmallButton - Visible = True - Enabled = True Caption = 'Save now' - GroupBehaviour = gbSingleItem - HideFrameWhenIdle = False - ShowCaption = True - TableBehaviour = tbContinuesRow - ButtonKind = bkButton end object SpkCheckbox3: TSpkCheckbox - Visible = True - Enabled = True Caption = 'Auto save' - State = cbUnchecked TableBehaviour = tbBeginsRow end end @@ -1027,7 +764,7 @@ object Form1: TForm1 Left = 0 Height = 25 Top = 112 - Width = 660 + Width = 632 Align = alTop BevelOuter = bvNone TabOrder = 3 @@ -1036,7 +773,7 @@ object Form1: TForm1 Left = 0 Height = 25 Top = 523 - Width = 660 + Width = 632 Align = alTop BevelOuter = bvNone TabOrder = 4 @@ -1045,7 +782,7 @@ object Form1: TForm1 Left = 0 Height = 25 Top = 386 - Width = 660 + Width = 632 Align = alTop BevelOuter = bvNone TabOrder = 5 @@ -1053,7 +790,7 @@ object Form1: TForm1 object SpkToolbar4: TSpkToolbar Left = 0 Top = 411 - Width = 660 + Width = 632 Color = clMedGray Style = spkMetroLight Appearance.Tab.TabHeaderFont.Color = 9787178 @@ -1139,8 +876,6 @@ object Form1: TForm1 CustomAppearance.Element.ActiveCaptionColor = 8405614 CustomAppearance.Element.Style = esRounded Caption = 'Metro light' - OverrideAppearance = False - Visible = True Panes = ( 'SpkPane5' 'SpkPane8' @@ -1149,7 +884,6 @@ object Form1: TForm1 ) object SpkPane5: TSpkPane Caption = 'File commands' - Visible = True Items = ( 'SpkLargeButton4' 'SpkLargeButton8' @@ -1158,52 +892,34 @@ object Form1: TForm1 'SpkLargeButton9' ) object SpkLargeButton4: TSpkLargeButton - Visible = True - Enabled = True Caption = 'New' LargeImageIndex = 0 ButtonKind = bkDropdown end object SpkLargeButton8: TSpkLargeButton - Visible = True - Enabled = True Caption = 'Open file...' LargeImageIndex = 1 ButtonKind = bkButtonDropdown end object SpkSmallButton8: TSpkSmallButton - Visible = True - Enabled = True Caption = 'Save' - GroupBehaviour = gbSingleItem HideFrameWhenIdle = True ImageIndex = 0 - ShowCaption = True - TableBehaviour = tbContinuesRow ButtonKind = bkButtonDropdown end object SpkSmallButton9: TSpkSmallButton - Visible = True - Enabled = True Caption = 'Save as...' - GroupBehaviour = gbSingleItem HideFrameWhenIdle = True ImageIndex = 1 - ShowCaption = True TableBehaviour = tbBeginsRow - ButtonKind = bkButton end object SpkLargeButton9: TSpkLargeButton - Visible = True - Enabled = True Caption = 'Exit program' LargeImageIndex = 3 - ButtonKind = bkButton end end object SpkPane8: TSpkPane Caption = 'Edit commands' - Visible = True Items = ( 'SpkSmallButton10' 'SpkSmallButton11' @@ -1212,62 +928,33 @@ object Form1: TForm1 'SpkSmallButton14' ) object SpkSmallButton10: TSpkSmallButton - Visible = True - Enabled = True Caption = 'Cut' - GroupBehaviour = gbSingleItem HideFrameWhenIdle = True ImageIndex = 2 - ShowCaption = True - TableBehaviour = tbContinuesRow - ButtonKind = bkButton end object SpkSmallButton11: TSpkSmallButton - Visible = True - Enabled = True Caption = 'Copy' - GroupBehaviour = gbSingleItem HideFrameWhenIdle = True ImageIndex = 3 - ShowCaption = True TableBehaviour = tbBeginsRow - ButtonKind = bkButton end object SpkSmallButton12: TSpkSmallButton - Visible = True - Enabled = True Caption = 'Paste' - GroupBehaviour = gbSingleItem HideFrameWhenIdle = True ImageIndex = 4 - ShowCaption = True TableBehaviour = tbBeginsRow - ButtonKind = bkButton end object SpkSmallButton13: TSpkSmallButton - Visible = True - Enabled = True Caption = 'Select all' - GroupBehaviour = gbSingleItem - HideFrameWhenIdle = False - ShowCaption = True TableBehaviour = tbBeginsColumn - ButtonKind = bkButton end object SpkSmallButton14: TSpkSmallButton - Visible = True - Enabled = True Caption = 'Unselect' - GroupBehaviour = gbSingleItem - HideFrameWhenIdle = False - ShowCaption = True TableBehaviour = tbBeginsRow - ButtonKind = bkButton end end object SpkPane19: TSpkPane Caption = 'Format commands' - Visible = True Items = ( 'SpkSmallButton68' 'SpkSmallButton62' @@ -1278,55 +965,37 @@ object Form1: TForm1 'SpkSmallButton67' ) object SpkSmallButton68: TSpkSmallButton - Visible = True - Enabled = True Caption = 'Button' GroupBehaviour = gbBeginsGroup - HideFrameWhenIdle = False ImageIndex = 5 ShowCaption = False TableBehaviour = tbBeginsRow ButtonKind = bkToggle end object SpkSmallButton62: TSpkSmallButton - Visible = True - Enabled = True Caption = 'Button' GroupBehaviour = gbContinuesGroup - HideFrameWhenIdle = False ImageIndex = 6 ShowCaption = False - TableBehaviour = tbContinuesRow ButtonKind = bkToggle end object SpkSmallButton63: TSpkSmallButton - Visible = True - Enabled = True Caption = 'Button' GroupBehaviour = gbContinuesGroup - HideFrameWhenIdle = False ImageIndex = 7 ShowCaption = False - TableBehaviour = tbContinuesRow ButtonKind = bkToggle end object SpkSmallButton64: TSpkSmallButton - Visible = True - Enabled = True Caption = 'Button' GroupBehaviour = gbEndsGroup - HideFrameWhenIdle = False ImageIndex = 8 ShowCaption = False - TableBehaviour = tbContinuesRow ButtonKind = bkToggle end object SpkSmallButton65: TSpkSmallButton - Visible = True - Enabled = True Caption = 'Button' GroupBehaviour = gbBeginsGroup - HideFrameWhenIdle = False ImageIndex = 9 ShowCaption = False TableBehaviour = tbBeginsRow @@ -1335,52 +1004,33 @@ object Form1: TForm1 GroupIndex = 1 end object SpkSmallButton66: TSpkSmallButton - Visible = True - Enabled = True Caption = 'Button' GroupBehaviour = gbContinuesGroup - HideFrameWhenIdle = False ImageIndex = 10 ShowCaption = False - TableBehaviour = tbContinuesRow ButtonKind = bkToggle GroupIndex = 1 end object SpkSmallButton67: TSpkSmallButton - Visible = True - Enabled = True Caption = 'Button' GroupBehaviour = gbEndsGroup - HideFrameWhenIdle = False ImageIndex = 11 ShowCaption = False - TableBehaviour = tbContinuesRow ButtonKind = bkToggle GroupIndex = 1 end end object SpkPane14: TSpkPane Caption = 'Settings' - Visible = True Items = ( 'SpkSmallButton39' 'SpkCheckbox4' ) object SpkSmallButton39: TSpkSmallButton - Visible = True - Enabled = True Caption = 'Save now' - GroupBehaviour = gbSingleItem - HideFrameWhenIdle = False - ShowCaption = True - TableBehaviour = tbContinuesRow - ButtonKind = bkButton end object SpkCheckbox4: TSpkCheckbox - Visible = True - Enabled = True Caption = 'Auto save' - State = cbUnchecked TableBehaviour = tbBeginsRow end end @@ -1390,7 +1040,7 @@ object Form1: TForm1 Left = 0 Height = 25 Top = 249 - Width = 660 + Width = 632 Align = alTop BevelOuter = bvNone Color = clMedGray @@ -1400,7 +1050,7 @@ object Form1: TForm1 object SpkToolbar5: TSpkToolbar Left = 0 Top = 548 - Width = 660 + Width = 632 Color = clMedGray Style = spkMetroDark Appearance.Tab.TabHeaderFont.Color = clWhite @@ -1487,8 +1137,6 @@ object Form1: TForm1 CustomAppearance.Element.ActiveCaptionColor = 8405614 CustomAppearance.Element.Style = esRounded Caption = 'Metro dark' - OverrideAppearance = False - Visible = True Panes = ( 'SpkPane6' 'SpkPane7' @@ -1497,7 +1145,6 @@ object Form1: TForm1 ) object SpkPane6: TSpkPane Caption = 'File commands' - Visible = True Items = ( 'SpkLargeButton7' 'SpkLargeButton5' @@ -1506,52 +1153,34 @@ object Form1: TForm1 'SpkLargeButton6' ) object SpkLargeButton7: TSpkLargeButton - Visible = True - Enabled = True Caption = 'New' LargeImageIndex = 0 ButtonKind = bkDropdown end object SpkLargeButton5: TSpkLargeButton - Visible = True - Enabled = True Caption = 'Open file...' LargeImageIndex = 1 ButtonKind = bkButtonDropdown end object SpkSmallButton2: TSpkSmallButton - Visible = True - Enabled = True Caption = 'Save' - GroupBehaviour = gbSingleItem HideFrameWhenIdle = True ImageIndex = 0 - ShowCaption = True - TableBehaviour = tbContinuesRow ButtonKind = bkButtonDropdown end object SpkSmallButton1: TSpkSmallButton - Visible = True - Enabled = True Caption = 'Save as...' - GroupBehaviour = gbSingleItem HideFrameWhenIdle = True ImageIndex = 1 - ShowCaption = True TableBehaviour = tbBeginsRow - ButtonKind = bkButton end object SpkLargeButton6: TSpkLargeButton - Visible = True - Enabled = True Caption = 'Exit program' LargeImageIndex = 3 - ButtonKind = bkButton end end object SpkPane7: TSpkPane Caption = 'Edit commands' - Visible = True Items = ( 'SpkSmallButton3' 'SpkSmallButton4' @@ -1560,62 +1189,33 @@ object Form1: TForm1 'SpkSmallButton7' ) object SpkSmallButton3: TSpkSmallButton - Visible = True - Enabled = True Caption = 'Cut' - GroupBehaviour = gbSingleItem HideFrameWhenIdle = True ImageIndex = 2 - ShowCaption = True - TableBehaviour = tbContinuesRow - ButtonKind = bkButton end object SpkSmallButton4: TSpkSmallButton - Visible = True - Enabled = True Caption = 'Copy' - GroupBehaviour = gbSingleItem HideFrameWhenIdle = True ImageIndex = 3 - ShowCaption = True TableBehaviour = tbBeginsRow - ButtonKind = bkButton end object SpkSmallButton5: TSpkSmallButton - Visible = True - Enabled = True Caption = 'Paste' - GroupBehaviour = gbSingleItem HideFrameWhenIdle = True ImageIndex = 4 - ShowCaption = True TableBehaviour = tbBeginsRow - ButtonKind = bkButton end object SpkSmallButton6: TSpkSmallButton - Visible = True - Enabled = True Caption = 'Select all' - GroupBehaviour = gbSingleItem - HideFrameWhenIdle = False - ShowCaption = True TableBehaviour = tbBeginsColumn - ButtonKind = bkButton end object SpkSmallButton7: TSpkSmallButton - Visible = True - Enabled = True Caption = 'Unselect' - GroupBehaviour = gbSingleItem - HideFrameWhenIdle = False - ShowCaption = True TableBehaviour = tbBeginsRow - ButtonKind = bkButton end end object SpkPane20: TSpkPane Caption = 'Format commands' - Visible = True Items = ( 'SpkSmallButton69' 'SpkSmallButton70' @@ -1626,55 +1226,36 @@ object Form1: TForm1 'SpkSmallButton75' ) object SpkSmallButton69: TSpkSmallButton - Visible = True - Enabled = True Caption = 'Button' - GroupBehaviour = gbSingleItem - HideFrameWhenIdle = False + GroupBehaviour = gbBeginsGroup ImageIndex = 5 ShowCaption = False - TableBehaviour = tbContinuesRow ButtonKind = bkToggle end object SpkSmallButton70: TSpkSmallButton - Visible = True - Enabled = True Caption = 'Button' - GroupBehaviour = gbSingleItem - HideFrameWhenIdle = False + GroupBehaviour = gbContinuesGroup ImageIndex = 6 ShowCaption = False - TableBehaviour = tbContinuesRow ButtonKind = bkToggle end object SpkSmallButton71: TSpkSmallButton - Visible = True - Enabled = True Caption = 'Button' - GroupBehaviour = gbSingleItem - HideFrameWhenIdle = False + GroupBehaviour = gbContinuesGroup ImageIndex = 7 ShowCaption = False - TableBehaviour = tbContinuesRow ButtonKind = bkToggle end object SpkSmallButton72: TSpkSmallButton - Visible = True - Enabled = True Caption = 'Button' - GroupBehaviour = gbSingleItem - HideFrameWhenIdle = False + GroupBehaviour = gbEndsGroup ImageIndex = 8 ShowCaption = False - TableBehaviour = tbContinuesRow ButtonKind = bkToggle end object SpkSmallButton73: TSpkSmallButton - Visible = True - Enabled = True Caption = 'Button' - GroupBehaviour = gbSingleItem - HideFrameWhenIdle = False + GroupBehaviour = gbBeginsGroup ImageIndex = 9 ShowCaption = False TableBehaviour = tbBeginsRow @@ -1683,52 +1264,33 @@ object Form1: TForm1 GroupIndex = 1 end object SpkSmallButton74: TSpkSmallButton - Visible = True - Enabled = True Caption = 'Button' - GroupBehaviour = gbSingleItem - HideFrameWhenIdle = False + GroupBehaviour = gbContinuesGroup ImageIndex = 10 ShowCaption = False - TableBehaviour = tbContinuesRow ButtonKind = bkToggle GroupIndex = 1 end object SpkSmallButton75: TSpkSmallButton - Visible = True - Enabled = True Caption = 'Button' - GroupBehaviour = gbSingleItem - HideFrameWhenIdle = False + GroupBehaviour = gbEndsGroup ImageIndex = 11 ShowCaption = False - TableBehaviour = tbContinuesRow ButtonKind = bkToggle GroupIndex = 1 end end object SpkPane15: TSpkPane Caption = 'Settings' - Visible = True Items = ( 'SpkSmallButton40' 'SpkCheckbox5' ) object SpkSmallButton40: TSpkSmallButton - Visible = True - Enabled = True Caption = 'Save now' - GroupBehaviour = gbSingleItem - HideFrameWhenIdle = False - ShowCaption = True - TableBehaviour = tbContinuesRow - ButtonKind = bkButton end object SpkCheckbox5: TSpkCheckbox - Visible = True - Enabled = True Caption = 'auto ssave' - State = cbUnchecked TableBehaviour = tbBeginsRow end end