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

spktoolbar: Use LCL scaling (for Laz >= 1.8)

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5983 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2017-07-08 20:35:49 +00:00
parent b70ca5e5d2
commit 271196a1f6
9 changed files with 184 additions and 139 deletions
Download Patch File Download Diff File Expand all files Collapse all files

96
components/spktoolbar/SpkToolbar/SpkToolbar.pas
View File

@@ -23,10 +23,10 @@ unit SpkToolbar;
interface
uses
LCLType, LMessages, Graphics, SysUtils, Controls, Classes, Math, Dialogs,
Forms, Types, SpkGraphTools, SpkGUITools, SpkMath, ExtCtrls,
spkt_Appearance, spkt_BaseItem, spkt_Const, spkt_Dispatch, spkt_Tab,
spkt_Pane, spkt_Types;
LCLType, LMessages, LCLVersion, Graphics, SysUtils, Controls, Classes, Math,
Dialogs, Forms, Types, ExtCtrls,
SpkGraphTools, SpkGUITools, SpkMath, spkt_Appearance, spkt_BaseItem,
spkt_Const, spkt_Dispatch, spkt_Tab, spkt_Pane, spkt_Types;
type
{ Type describes regions of the toolbar which are used during handling
@@ -315,6 +315,11 @@ type
{ Setter for toolbar style, i.e. quick selection of new appearance theme }
procedure SetStyle(const Value: TSpkStyle);
{$IF lcl_fullversion >= 1080000}
procedure DoAutoAdjustLayout(const AMode: TLayoutAdjustmentPolicy;
const AXProportion, AYProportion: Double); override;
{$ENDIF}
public
// *************************
@@ -1783,4 +1788,87 @@ begin
FMetricsValid := True;
end;
{$IF lcl_fullversion >= 1080000}
procedure TSpkToolbar.DoAutoAdjustLayout(const AMode: TLayoutAdjustmentPolicy;
const AXProportion, AYProportion: Double);
begin
inherited;
LargeButtonDropdownFieldSize := round(LARGEBUTTON_DROPDOWN_FIELD_SIZE * AXProportion);
LargeButtonGlyphMargin := round(LARGEBUTTON_GLYPH_MARGIN * AXProportion);
LargeButtonCaptionHMargin := round(LARGEBUTTON_CAPTION_HMARGIN * AXProportion);
LargeButtonMinWidth := round(LARGEBUTTON_MIN_WIDTH * AXProportion);
LargeButtonRadius := LARGEBUTTON_RADIUS;
LargeButtonBorderSize := round(LARGEBUTTON_BORDER_SIZE * AXProportion);
LargeButtonChevronHMargin := round(LARGEBUTTON_CHEVRON_HMARGIN * AXProportion);
LargeButtonCaptionTopRail := round(LARGEBUTTON_CAPTION_TOP_RAIL * AYProportion);
LargeButtonCaptionButtomRail := round(LARGEBUTTON_CAPTION_BOTTOM_RAIL * AYProportion);
SmallButtonGlyphWidth := round(SMALLBUTTON_GLYPH_WIDTH * AXProportion);
SmallButtonBorderWidth := round(SMALLBUTTON_BORDER_WIDTH * AXProportion);
SmallButtonHalfBorderWidth := round(SMALLBUTTON_HALF_BORDER_WIDTH * AXProportion);
SmallButtonPadding := round(SMALLBUTTON_PADDING * AXProportion);
SmallButtonDropdownWidth := round(SMALLBUTTON_DROPDOWN_WIDTH * AXProportion);
SmallButtonRadius := SMALLBUTTON_RADIUS;
SmallButtonMinWidth := 2 * SmallButtonPadding + SmallButtonGlyphWidth;
MaxElementHeight := round(MAX_ELEMENT_HEIGHT * AYProportion);
PaneRowHeight := round(PANE_ROW_HEIGHT * AYProportion);
PaneFullRowHeight := 3 * PaneRowHeight;
PaneOneRowTopPadding := round(PANE_ONE_ROW_TOPPADDING * AYProportion);
PaneOneRowBottomPadding := round(PANE_ONE_ROW_BOTTOMPADDING * AYProportion);
PaneTwoRowsVSpacer := round(PANE_TWO_ROWS_VSPACER * AYProportion);
PaneTwoRowsTopPadding := round(PANE_TWO_ROWS_TOPPADDING * AYProportion);
PaneTwoRowsBottomPadding := round(PANE_TWO_ROWS_BOTTOMPADDING * AYProportion);
PaneThreeRowsVSpacer := round(PANE_THREE_ROWS_VSPACER * AYProportion);
PaneThreeRowsTopPadding := round(PANE_THREE_ROWS_TOPPADDING * AYProportion);
PaneThreeRowsBottomPadding := round(PANE_THREE_ROWS_BOTTOMPADDING * AYProportion);
PaneFullRowTopPadding := PaneThreeRowsTopPadding;
PaneFullRowBottomPadding := PaneThreeRowsBottomPadding;
PaneLeftPadding := round(PANE_LEFT_PADDING * AXProportion);
PaneRightPadding := round(PANE_RIGHT_PADDING * AXProportion);
PaneColumnSpacer := round(PANE_COLUMN_SPACER * AXProportion);
PaneGroupSpacer := round(PANE_GROUP_SPACER * AXProportion);
PaneCaptionHeight := round(PANE_CAPTION_HEIGHT * AYProportion);
PaneCornerRadius := PANE_CORNER_RADIUS;
PaneBorderSize := round(PANE_BORDER_SIZE * AXProportion);
PaneBorderHalfSize := round(PANE_BORDER_HALF_SIZE * AXProportion);
PaneHeight := MaxElementHeight + PaneCaptionHeight + 2 * PaneBorderSize;
PaneCaptionHMargin := round(PANE_CAPTION_HMARGIN * AXProportion);
TabCornerRadius := TAB_CORNER_RADIUS;
TabPaneLeftPadding := round(TAB_PANE_LEFTPADDING * AXProportion);
TabPaneRightPadding := round(TAB_PANE_RIGHTPADDING * AXProportion);
TabPaneTopPadding := round(TAB_PANE_TOPPADDING * AYProportion);
TabPaneBottomPadding := round(TAB_PANE_BOTTOMPADDING * AYProportion);
TabPaneHSpacing := round(TAB_PANE_HSPACING * AXProportion);
TabBorderSize := round(TAB_BORDER_SIZE * AXProportion);
TabHeight := PaneHeight + TabPaneTopPadding + TabPaneBottomPadding + TabBorderSize;
ToolbarBorderWidth := round(TOOLBAR_BORDER_WIDTH * AXProportion);
ToolbarCornerRadius := TOOLBAR_CORNER_RADIUS;
ToolbarTabCaptionsHeight := round(TOOLBAR_TAB_CAPTIONS_HEIGHT * AYProportion);
ToolbarTabCaptionsTextHPadding := round(TOOLBAR_TAB_CAPTIONS_TEXT_HPADDING * AXProportion);
ToolbarMinTabCaptionWidth := round(TOOLBAR_MIN_TAB_CAPTION_WIDTH * AXProportion);
ToolbarHeight := ToolbarTabCaptionsHeight + TabHeight;
// scaling radius if not square
if LargeButtonRadius > 1 then
LargeButtonRadius := round(LargeButtonRadius * AXProportion);
if SmallButtonRadius > 1 then
SmallButtonRadius := round(SmallButtonRadius * AXProportion);
if PaneCornerRadius > 1 then
PaneCornerRadius := round(PaneCornerRadius * AXProportion);
if TabCornerRadius > 1 then
TabCornerRadius := round(TabCornerRadius * AXProportion);
if ToolbarCornerRadius > 1 then
ToolbarCornerRadius := round(ToolbarCornerRadius * AXProportion);
end;
{$ENDIF}
end.

2
components/spktoolbar/SpkToolbar/spkt_Appearance.pas
View File

@@ -1605,7 +1605,7 @@ end;
procedure SetDefaultFont(AFont: TFont);
begin
AFont.Assign(Screen.MenuFont);
// AFont.Assign(Screen.MenuFont);
end;
end.

5
components/spktoolbar/SpkToolbar/spkt_Buttons.pas
View File

@@ -1082,6 +1082,7 @@ begin
// Text
ABuffer.Canvas.Font.Assign(FAppearance.Element.CaptionFont);
ABuffer.Canvas.Font.Color := fontColor;
SpkScaleFont(ABuffer.Canvas.Font);
if FButtonKind in [bkButton, bkToggle] then
FindBreakPlace(FCaption, breakPos, breakWidth)
@@ -1147,6 +1148,7 @@ begin
exit;
Bitmap.Canvas.Font.Assign(FAppearance.Element.CaptionFont);
SpkScaleFont(Bitmap.Canvas.Font);
Width := Bitmap.Canvas.TextWidth(FCaption);
@@ -1239,6 +1241,7 @@ begin
begin
// Nie ³amiemy etykiety
Bitmap.Canvas.Font.Assign(FAppearance.Element.CaptionFont);
SpkScaleFont(Bitmap.Canvas.Font);
TextWidth := 2 * LargeButtonCaptionHMargin + Bitmap.Canvas.TextWidth(FCaption);
end;
@@ -1319,6 +1322,7 @@ begin
if FShowCaption then
begin
Bitmap.Canvas.Font.Assign(FAppearance.Element.CaptionFont);
SpkScaleFont(Bitmap.Canvas.Font);
TextWidth := Bitmap.Canvas.TextWidth(FCaption);
BtnWidth := BtnWidth + SmallButtonPadding + TextWidth;
@@ -1538,6 +1542,7 @@ begin
begin
ABuffer.Canvas.Font.Assign(FAppearance.Element.CaptionFont);
ABuffer.Canvas.Font.Color := fontColor;
SpkScaleFont(ABuffer.Canvas.Font);
if (FGroupBehaviour in [gbContinuesGroup, gbEndsGroup]) then
x := FButtonRect.Left + SmallButtonHalfBorderWidth

2
components/spktoolbar/SpkToolbar/spkt_Checkboxes.pas
View File

@@ -200,6 +200,7 @@ begin
exit;
Bitmap.Canvas.Font.Assign(FAppearance.Element.CaptionFont);
SpkScaleFont(Bitmap.Canvas.Font);
TextWidth := Bitmap.Canvas.TextWidth(FCaption);
BtnWidth := SmallButtonPadding + SmallButtonGlyphWidth +
@@ -333,6 +334,7 @@ begin
// Text
ABuffer.Canvas.Font.Assign(FAppearance.Element.CaptionFont);
SpkScaleFont(ABuffer.Canvas.Font);
case FButtonState of
bsIdle : fontColor := FAppearance.Element.IdleCaptionColor;

6
components/spktoolbar/SpkToolbar/spkt_Const.pas
View File

@@ -15,7 +15,7 @@ unit spkt_Const;
interface
uses
Graphics;
Graphics, LCLVersion;
procedure SpkInitLayoutConsts(FromDPI: Integer; ToDPI: Integer = 0);
function SpkScaleX(Size: Integer; FromDPI: Integer; ToDPI: Integer = 0): integer;
@@ -260,7 +260,11 @@ var
const
{$IF lcl_fullversion < 1080000}
DPI_AWARE = true;
{$ELSE}
DPI_AWARE = false; // use lcl scaling instead
{$ENDIF}
implementation

4
components/spktoolbar/SpkToolbar/spkt_Pane.pas
View File

@@ -314,8 +314,9 @@ begin
true
);
// Etykieta tafli
// Pane label
ABuffer.Canvas.Font.Assign(FAppearance.Pane.CaptionFont);
SpkScaleFont(ABuffer.Canvas.Font);
x := FRect.Left + (FRect.Width - ABuffer.Canvas.TextWidth(FCaption)) div 2;
y := FRect.Bottom - PaneBorderSize - PaneCaptionHeight + 1 +
(PaneCaptionHeight - ABuffer.Canvas.TextHeight('Wy')) div 2;
@@ -701,6 +702,7 @@ begin
if tmpBitmap = nil then
exit;
tmpBitmap.Canvas.Font.Assign(FAppearance.Pane.CaptionFont);
SpkScaleFont(tmpBitmap.Canvas.Font);
// *** Minimalna szerokoϾ tafli (tekstu) ***
TextW := tmpBitmap.Canvas.TextWidth(FCaption);

1
components/spktoolbar/demos/styles/project1.lpi
View File

@@ -7,6 +7,7 @@
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<Title Value="project1"/>
<Scaled Value="True"/>
<ResourceType Value="res"/>
<UseXPManifest Value="True"/>
</General>

5
components/spktoolbar/demos/styles/project1.lpr
View File

@@ -7,12 +7,15 @@ uses
cthreads,
{$ENDIF}{$ENDIF}
Interfaces, // this includes the LCL widgetset
Forms, Unit1
LCLVersion, Forms, Unit1
{ you can add units after this };
{$R *.res}
begin
{$IF lcl_fullversion >= 1080000}
Application.Scaled := True;
{$ENDIF}
RequireDerivedFormResource := True;
Application.Initialize;
Application.CreateForm(TForm1, Form1);

202
components/spktoolbar/demos/styles/unit1.lfm
View File

@@ -7,15 +7,13 @@ object Form1: TForm1
ClientHeight = 660
ClientWidth = 506
Color = clMedGray
LCLVersion = '1.7'
LCLVersion = '1.9.0.0'
object SpkToolbar1: TSpkToolbar
Left = 0
Top = 0
Width = 506
Color = clMedGray
Appearance.Tab.TabHeaderFont.Color = 9126421
Appearance.Tab.TabHeaderFont.Height = -12
Appearance.Tab.TabHeaderFont.Name = 'Segoe UI'
Appearance.Tab.BorderColor = 14922381
Appearance.Tab.GradientFromColor = 16115934
Appearance.Tab.GradientToColor = 15587527
@@ -25,14 +23,10 @@ object Form1: TForm1
Appearance.Pane.BorderLightColor = 16315117
Appearance.Pane.CaptionBgColor = 15849922
Appearance.Pane.CaptionFont.Color = 9126421
Appearance.Pane.CaptionFont.Height = -12
Appearance.Pane.CaptionFont.Name = 'Segoe UI'
Appearance.Pane.GradientFromColor = 16115934
Appearance.Pane.GradientToColor = 15587527
Appearance.Pane.GradientType = bkConcave
Appearance.Element.CaptionFont.Color = clMenuText
Appearance.Element.CaptionFont.Height = -12
Appearance.Element.CaptionFont.Name = 'Segoe UI'
Appearance.Element.IdleFrameColor = 14727067
Appearance.Element.IdleGradientFromColor = 15653832
Appearance.Element.IdleGradientToColor = 15323324
@@ -64,8 +58,6 @@ object Form1: TForm1
)
object SpkTab1: TSpkTab
CustomAppearance.Tab.TabHeaderFont.Color = 9126421
CustomAppearance.Tab.TabHeaderFont.Height = -12
CustomAppearance.Tab.TabHeaderFont.Name = 'Segoe UI'
CustomAppearance.Tab.BorderColor = 14922381
CustomAppearance.Tab.GradientFromColor = 16115934
CustomAppearance.Tab.GradientToColor = 15587527
@@ -75,14 +67,10 @@ object Form1: TForm1
CustomAppearance.Pane.BorderLightColor = 16315117
CustomAppearance.Pane.CaptionBgColor = 15849922
CustomAppearance.Pane.CaptionFont.Color = 9126421
CustomAppearance.Pane.CaptionFont.Height = -12
CustomAppearance.Pane.CaptionFont.Name = 'Segoe UI'
CustomAppearance.Pane.GradientFromColor = 16115934
CustomAppearance.Pane.GradientToColor = 15587527
CustomAppearance.Pane.GradientType = bkConcave
CustomAppearance.Element.CaptionFont.Color = clMenuText
CustomAppearance.Element.CaptionFont.Height = -12
CustomAppearance.Element.CaptionFont.Name = 'Segoe UI'
CustomAppearance.Element.IdleFrameColor = 14727067
CustomAppearance.Element.IdleGradientFromColor = 15653832
CustomAppearance.Element.IdleGradientToColor = 15323324
@@ -141,22 +129,22 @@ object Form1: TForm1
Visible = True
Enabled = True
Caption = 'Save'
ShowCaption = True
TableBehaviour = tbContinuesRow
GroupBehaviour = gbSingleItem
HideFrameWhenIdle = True
ImageIndex = 0
ShowCaption = True
TableBehaviour = tbContinuesRow
ButtonKind = bkButtonDropdown
end
object SpkSmallButton30: TSpkSmallButton
Visible = True
Enabled = True
Caption = 'Save as...'
ShowCaption = True
TableBehaviour = tbBeginsRow
GroupBehaviour = gbSingleItem
HideFrameWhenIdle = True
ImageIndex = 1
ShowCaption = True
TableBehaviour = tbBeginsRow
ButtonKind = bkButton
end
object SpkLargeButton15: TSpkLargeButton
@@ -181,53 +169,53 @@ object Form1: TForm1
Visible = True
Enabled = True
Caption = 'Cut'
ShowCaption = True
TableBehaviour = tbContinuesRow
GroupBehaviour = gbSingleItem
HideFrameWhenIdle = True
ImageIndex = 2
ShowCaption = True
TableBehaviour = tbContinuesRow
ButtonKind = bkButton
end
object SpkSmallButton32: TSpkSmallButton
Visible = True
Enabled = True
Caption = 'Copy'
ShowCaption = True
TableBehaviour = tbBeginsRow
GroupBehaviour = gbSingleItem
HideFrameWhenIdle = True
ImageIndex = 3
ShowCaption = True
TableBehaviour = tbBeginsRow
ButtonKind = bkButton
end
object SpkSmallButton33: TSpkSmallButton
Visible = True
Enabled = True
Caption = 'Paste'
ShowCaption = True
TableBehaviour = tbBeginsRow
GroupBehaviour = gbSingleItem
HideFrameWhenIdle = True
ImageIndex = 4
ShowCaption = True
TableBehaviour = tbBeginsRow
ButtonKind = bkButton
end
object SpkSmallButton34: TSpkSmallButton
Visible = True
Enabled = True
Caption = 'Select all'
ShowCaption = True
TableBehaviour = tbBeginsColumn
GroupBehaviour = gbSingleItem
HideFrameWhenIdle = False
ShowCaption = True
TableBehaviour = tbBeginsColumn
ButtonKind = bkButton
end
object SpkSmallButton35: TSpkSmallButton
Visible = True
Enabled = True
Caption = 'Unselect'
ShowCaption = True
TableBehaviour = tbBeginsRow
GroupBehaviour = gbSingleItem
HideFrameWhenIdle = False
ShowCaption = True
TableBehaviour = tbBeginsRow
ButtonKind = bkButton
end
end
@@ -240,8 +228,6 @@ object Form1: TForm1
Color = clMedGray
Style = spkOffice2007Silver
Appearance.Tab.TabHeaderFont.Color = 8016716
Appearance.Tab.TabHeaderFont.Height = -12
Appearance.Tab.TabHeaderFont.Name = 'Segoe UI'
Appearance.Tab.BorderColor = 12500670
Appearance.Tab.GradientFromColor = 16052978
Appearance.Tab.GradientToColor = 15722209
@@ -251,14 +237,10 @@ object Form1: TForm1
Appearance.Pane.BorderLightColor = clWhite
Appearance.Pane.CaptionBgColor = 15000804
Appearance.Pane.CaptionFont.Color = 3552822
Appearance.Pane.CaptionFont.Height = -12
Appearance.Pane.CaptionFont.Name = 'Segoe UI'
Appearance.Pane.GradientFromColor = 16316664
Appearance.Pane.GradientToColor = 15329769
Appearance.Pane.GradientType = bkConcave
Appearance.Element.CaptionFont.Color = 9126421
Appearance.Element.CaptionFont.Height = -12
Appearance.Element.CaptionFont.Name = 'Segoe UI'
Appearance.Element.IdleFrameColor = 12104105
Appearance.Element.IdleGradientFromColor = 16053490
Appearance.Element.IdleGradientToColor = 15132131
@@ -290,8 +272,6 @@ object Form1: TForm1
)
object SpkTab2: TSpkTab
CustomAppearance.Tab.TabHeaderFont.Color = 9126421
CustomAppearance.Tab.TabHeaderFont.Height = -12
CustomAppearance.Tab.TabHeaderFont.Name = 'Segoe UI'
CustomAppearance.Tab.BorderColor = 14922381
CustomAppearance.Tab.GradientFromColor = 16115934
CustomAppearance.Tab.GradientToColor = 15587527
@@ -301,14 +281,10 @@ object Form1: TForm1
CustomAppearance.Pane.BorderLightColor = 16315117
CustomAppearance.Pane.CaptionBgColor = 15849922
CustomAppearance.Pane.CaptionFont.Color = 9126421
CustomAppearance.Pane.CaptionFont.Height = -12
CustomAppearance.Pane.CaptionFont.Name = 'Segoe UI'
CustomAppearance.Pane.GradientFromColor = 16115934
CustomAppearance.Pane.GradientToColor = 15587527
CustomAppearance.Pane.GradientType = bkConcave
CustomAppearance.Element.CaptionFont.Color = clMenuText
CustomAppearance.Element.CaptionFont.Height = -12
CustomAppearance.Element.CaptionFont.Name = 'Segoe UI'
CustomAppearance.Element.IdleFrameColor = 14727067
CustomAppearance.Element.IdleGradientFromColor = 15653832
CustomAppearance.Element.IdleGradientToColor = 15323324
@@ -367,22 +343,22 @@ object Form1: TForm1
Visible = True
Enabled = True
Caption = 'Save'
ShowCaption = True
TableBehaviour = tbContinuesRow
GroupBehaviour = gbSingleItem
HideFrameWhenIdle = True
ImageIndex = 0
ShowCaption = True
TableBehaviour = tbContinuesRow
ButtonKind = bkButtonDropdown
end
object SpkSmallButton23: TSpkSmallButton
Visible = True
Enabled = True
Caption = 'Save as...'
ShowCaption = True
TableBehaviour = tbBeginsRow
GroupBehaviour = gbSingleItem
HideFrameWhenIdle = True
ImageIndex = 1
ShowCaption = True
TableBehaviour = tbBeginsRow
ButtonKind = bkButton
end
object SpkLargeButton13: TSpkLargeButton
@@ -407,53 +383,53 @@ object Form1: TForm1
Visible = True
Enabled = True
Caption = 'Cut'
ShowCaption = True
TableBehaviour = tbContinuesRow
GroupBehaviour = gbSingleItem
HideFrameWhenIdle = True
ImageIndex = 2
ShowCaption = True
TableBehaviour = tbContinuesRow
ButtonKind = bkButton
end
object SpkSmallButton25: TSpkSmallButton
Visible = True
Enabled = True
Caption = 'Copy'
ShowCaption = True
TableBehaviour = tbBeginsRow
GroupBehaviour = gbSingleItem
HideFrameWhenIdle = True
ImageIndex = 3
ShowCaption = True
TableBehaviour = tbBeginsRow
ButtonKind = bkButton
end
object SpkSmallButton26: TSpkSmallButton
Visible = True
Enabled = True
Caption = 'Paste'
ShowCaption = True
TableBehaviour = tbBeginsRow
GroupBehaviour = gbSingleItem
HideFrameWhenIdle = True
ImageIndex = 4
ShowCaption = True
TableBehaviour = tbBeginsRow
ButtonKind = bkButton
end
object SpkSmallButton27: TSpkSmallButton
Visible = True
Enabled = True
Caption = 'Select all'
ShowCaption = True
TableBehaviour = tbBeginsColumn
GroupBehaviour = gbSingleItem
HideFrameWhenIdle = False
ShowCaption = True
TableBehaviour = tbBeginsColumn
ButtonKind = bkButton
end
object SpkSmallButton28: TSpkSmallButton
Visible = True
Enabled = True
Caption = 'Unselect'
ShowCaption = True
TableBehaviour = tbBeginsRow
GroupBehaviour = gbSingleItem
HideFrameWhenIdle = False
ShowCaption = True
TableBehaviour = tbBeginsRow
ButtonKind = bkButton
end
end
@@ -466,8 +442,6 @@ object Form1: TForm1
Color = clMedGray
Style = spkOffice2007SilverTurquoise
Appearance.Tab.TabHeaderFont.Color = 8016716
Appearance.Tab.TabHeaderFont.Height = -12
Appearance.Tab.TabHeaderFont.Name = 'Segoe UI'
Appearance.Tab.BorderColor = 12500670
Appearance.Tab.GradientFromColor = 16052978
Appearance.Tab.GradientToColor = 15722209
@@ -477,14 +451,10 @@ object Form1: TForm1
Appearance.Pane.BorderLightColor = clWhite
Appearance.Pane.CaptionBgColor = 15000804
Appearance.Pane.CaptionFont.Color = 3552822
Appearance.Pane.CaptionFont.Height = -12
Appearance.Pane.CaptionFont.Name = 'Segoe UI'
Appearance.Pane.GradientFromColor = 16316664
Appearance.Pane.GradientToColor = 15329769
Appearance.Pane.GradientType = bkConcave
Appearance.Element.CaptionFont.Color = 9126421
Appearance.Element.CaptionFont.Height = -12
Appearance.Element.CaptionFont.Name = 'Segoe UI'
Appearance.Element.IdleFrameColor = 12104105
Appearance.Element.IdleGradientFromColor = 16053490
Appearance.Element.IdleGradientToColor = 15132131
@@ -516,8 +486,6 @@ object Form1: TForm1
)
object SpkTab4: TSpkTab
CustomAppearance.Tab.TabHeaderFont.Color = 9126421
CustomAppearance.Tab.TabHeaderFont.Height = -12
CustomAppearance.Tab.TabHeaderFont.Name = 'Segoe UI'
CustomAppearance.Tab.BorderColor = 14922381
CustomAppearance.Tab.GradientFromColor = 16115934
CustomAppearance.Tab.GradientToColor = 15587527
@@ -527,14 +495,10 @@ object Form1: TForm1
CustomAppearance.Pane.BorderLightColor = 16315117
CustomAppearance.Pane.CaptionBgColor = 15849922
CustomAppearance.Pane.CaptionFont.Color = 9126421
CustomAppearance.Pane.CaptionFont.Height = -12
CustomAppearance.Pane.CaptionFont.Name = 'Segoe UI'
CustomAppearance.Pane.GradientFromColor = 16115934
CustomAppearance.Pane.GradientToColor = 15587527
CustomAppearance.Pane.GradientType = bkConcave
CustomAppearance.Element.CaptionFont.Color = clMenuText
CustomAppearance.Element.CaptionFont.Height = -12
CustomAppearance.Element.CaptionFont.Name = 'Segoe UI'
CustomAppearance.Element.IdleFrameColor = 14727067
CustomAppearance.Element.IdleGradientFromColor = 15653832
CustomAppearance.Element.IdleGradientToColor = 15323324
@@ -593,22 +557,22 @@ object Form1: TForm1
Visible = True
Enabled = True
Caption = 'Save'
ShowCaption = True
TableBehaviour = tbContinuesRow
GroupBehaviour = gbSingleItem
HideFrameWhenIdle = True
ImageIndex = 0
ShowCaption = True
TableBehaviour = tbContinuesRow
ButtonKind = bkButtonDropdown
end
object SpkSmallButton16: TSpkSmallButton
Visible = True
Enabled = True
Caption = 'Save as...'
ShowCaption = True
TableBehaviour = tbBeginsRow
GroupBehaviour = gbSingleItem
HideFrameWhenIdle = True
ImageIndex = 1
ShowCaption = True
TableBehaviour = tbBeginsRow
ButtonKind = bkButton
end
object SpkLargeButton11: TSpkLargeButton
@@ -633,53 +597,53 @@ object Form1: TForm1
Visible = True
Enabled = True
Caption = 'Cut'
ShowCaption = True
TableBehaviour = tbContinuesRow
GroupBehaviour = gbSingleItem
HideFrameWhenIdle = True
ImageIndex = 2
ShowCaption = True
TableBehaviour = tbContinuesRow
ButtonKind = bkButton
end
object SpkSmallButton18: TSpkSmallButton
Visible = True
Enabled = True
Caption = 'Copy'
ShowCaption = True
TableBehaviour = tbBeginsRow
GroupBehaviour = gbSingleItem
HideFrameWhenIdle = True
ImageIndex = 3
ShowCaption = True
TableBehaviour = tbBeginsRow
ButtonKind = bkButton
end
object SpkSmallButton19: TSpkSmallButton
Visible = True
Enabled = True
Caption = 'Paste'
ShowCaption = True
TableBehaviour = tbBeginsRow
GroupBehaviour = gbSingleItem
HideFrameWhenIdle = True
ImageIndex = 4
ShowCaption = True
TableBehaviour = tbBeginsRow
ButtonKind = bkButton
end
object SpkSmallButton20: TSpkSmallButton
Visible = True
Enabled = True
Caption = 'Select all'
ShowCaption = True
TableBehaviour = tbBeginsColumn
GroupBehaviour = gbSingleItem
HideFrameWhenIdle = False
ShowCaption = True
TableBehaviour = tbBeginsColumn
ButtonKind = bkButton
end
object SpkSmallButton21: TSpkSmallButton
Visible = True
Enabled = True
Caption = 'Unselect'
ShowCaption = True
TableBehaviour = tbBeginsRow
GroupBehaviour = gbSingleItem
HideFrameWhenIdle = False
ShowCaption = True
TableBehaviour = tbBeginsRow
ButtonKind = bkButton
end
end
@@ -692,8 +656,6 @@ object Form1: TForm1
Color = clMedGray
Style = spkMetroLight
Appearance.Tab.TabHeaderFont.Color = 9787178
Appearance.Tab.TabHeaderFont.Height = -12
Appearance.Tab.TabHeaderFont.Name = 'Segoe UI'
Appearance.Tab.BorderColor = 13816015
Appearance.Tab.GradientFromColor = 15856113
Appearance.Tab.GradientToColor = 15856113
@@ -703,16 +665,12 @@ object Form1: TForm1
Appearance.Pane.BorderLightColor = 16315117
Appearance.Pane.CaptionBgColor = 15856113
Appearance.Pane.CaptionFont.Color = 6908265
Appearance.Pane.CaptionFont.Height = -12
Appearance.Pane.CaptionFont.Name = 'Segoe UI'
Appearance.Pane.GradientFromColor = 15856113
Appearance.Pane.GradientToColor = 15856113
Appearance.Pane.GradientType = bkSolid
Appearance.Pane.HotTrackBrightnessChange = 0
Appearance.Pane.Style = psDividerFlat
Appearance.Element.CaptionFont.Color = 4144959
Appearance.Element.CaptionFont.Height = -12
Appearance.Element.CaptionFont.Name = 'Segoe UI'
Appearance.Element.IdleFrameColor = 13487565
Appearance.Element.IdleGradientFromColor = 14671839
Appearance.Element.IdleGradientToColor = 14671839
@@ -743,8 +701,6 @@ object Form1: TForm1
)
object SpkTab5: TSpkTab
CustomAppearance.Tab.TabHeaderFont.Color = 9126421
CustomAppearance.Tab.TabHeaderFont.Height = -12
CustomAppearance.Tab.TabHeaderFont.Name = 'Segoe UI'
CustomAppearance.Tab.BorderColor = 14922381
CustomAppearance.Tab.GradientFromColor = 16115934
CustomAppearance.Tab.GradientToColor = 15587527
@@ -754,14 +710,10 @@ object Form1: TForm1
CustomAppearance.Pane.BorderLightColor = 16315117
CustomAppearance.Pane.CaptionBgColor = 15849922
CustomAppearance.Pane.CaptionFont.Color = 9126421
CustomAppearance.Pane.CaptionFont.Height = -12
CustomAppearance.Pane.CaptionFont.Name = 'Segoe UI'
CustomAppearance.Pane.GradientFromColor = 16115934
CustomAppearance.Pane.GradientToColor = 15587527
CustomAppearance.Pane.GradientType = bkConcave
CustomAppearance.Element.CaptionFont.Color = clMenuText
CustomAppearance.Element.CaptionFont.Height = -12
CustomAppearance.Element.CaptionFont.Name = 'Segoe UI'
CustomAppearance.Element.IdleFrameColor = 14727067
CustomAppearance.Element.IdleGradientFromColor = 15653832
CustomAppearance.Element.IdleGradientToColor = 15323324
@@ -820,22 +772,22 @@ object Form1: TForm1
Visible = True
Enabled = True
Caption = 'Save'
ShowCaption = True
TableBehaviour = tbContinuesRow
GroupBehaviour = gbSingleItem
HideFrameWhenIdle = True
ImageIndex = 0
ShowCaption = True
TableBehaviour = tbContinuesRow
ButtonKind = bkButtonDropdown
end
object SpkSmallButton9: TSpkSmallButton
Visible = True
Enabled = True
Caption = 'Save as...'
ShowCaption = True
TableBehaviour = tbBeginsRow
GroupBehaviour = gbSingleItem
HideFrameWhenIdle = True
ImageIndex = 1
ShowCaption = True
TableBehaviour = tbBeginsRow
ButtonKind = bkButton
end
object SpkLargeButton9: TSpkLargeButton
@@ -860,53 +812,53 @@ object Form1: TForm1
Visible = True
Enabled = True
Caption = 'Cut'
ShowCaption = True
TableBehaviour = tbContinuesRow
GroupBehaviour = gbSingleItem
HideFrameWhenIdle = True
ImageIndex = 2
ShowCaption = True
TableBehaviour = tbContinuesRow
ButtonKind = bkButton
end
object SpkSmallButton11: TSpkSmallButton
Visible = True
Enabled = True
Caption = 'Copy'
ShowCaption = True
TableBehaviour = tbBeginsRow
GroupBehaviour = gbSingleItem
HideFrameWhenIdle = True
ImageIndex = 3
ShowCaption = True
TableBehaviour = tbBeginsRow
ButtonKind = bkButton
end
object SpkSmallButton12: TSpkSmallButton
Visible = True
Enabled = True
Caption = 'Paste'
ShowCaption = True
TableBehaviour = tbBeginsRow
GroupBehaviour = gbSingleItem
HideFrameWhenIdle = True
ImageIndex = 4
ShowCaption = True
TableBehaviour = tbBeginsRow
ButtonKind = bkButton
end
object SpkSmallButton13: TSpkSmallButton
Visible = True
Enabled = True
Caption = 'Select all'
ShowCaption = True
TableBehaviour = tbBeginsColumn
GroupBehaviour = gbSingleItem
HideFrameWhenIdle = False
ShowCaption = True
TableBehaviour = tbBeginsColumn
ButtonKind = bkButton
end
object SpkSmallButton14: TSpkSmallButton
Visible = True
Enabled = True
Caption = 'Unselect'
ShowCaption = True
TableBehaviour = tbBeginsRow
GroupBehaviour = gbSingleItem
HideFrameWhenIdle = False
ShowCaption = True
TableBehaviour = tbBeginsRow
ButtonKind = bkButton
end
end
@@ -919,8 +871,6 @@ object Form1: TForm1
Color = clMedGray
Style = spkMetroDark
Appearance.Tab.TabHeaderFont.Color = clWhite
Appearance.Tab.TabHeaderFont.Height = -12
Appearance.Tab.TabHeaderFont.Name = 'Segoe UI'
Appearance.Tab.BorderColor = clBlack
Appearance.Tab.GradientFromColor = 4605510
Appearance.Tab.GradientToColor = 4605510
@@ -930,16 +880,12 @@ object Form1: TForm1
Appearance.Pane.BorderLightColor = 10657179
Appearance.Pane.CaptionBgColor = 4605510
Appearance.Pane.CaptionFont.Color = clWhite
Appearance.Pane.CaptionFont.Height = -12
Appearance.Pane.CaptionFont.Name = 'Segoe UI'
Appearance.Pane.GradientFromColor = 4605510
Appearance.Pane.GradientToColor = 15856113
Appearance.Pane.GradientType = bkSolid
Appearance.Pane.HotTrackBrightnessChange = 0
Appearance.Pane.Style = psDividerFlat
Appearance.Element.CaptionFont.Color = 4144959
Appearance.Element.CaptionFont.Height = -12
Appearance.Element.CaptionFont.Name = 'Segoe UI'
Appearance.Element.IdleFrameColor = 9208962
Appearance.Element.IdleGradientFromColor = 4473924
Appearance.Element.IdleGradientToColor = 4473924
@@ -971,8 +917,6 @@ object Form1: TForm1
)
object SpkTab6: TSpkTab
CustomAppearance.Tab.TabHeaderFont.Color = 9126421
CustomAppearance.Tab.TabHeaderFont.Height = -12
CustomAppearance.Tab.TabHeaderFont.Name = 'Segoe UI'
CustomAppearance.Tab.BorderColor = 14922381
CustomAppearance.Tab.GradientFromColor = 16115934
CustomAppearance.Tab.GradientToColor = 15587527
@@ -982,14 +926,10 @@ object Form1: TForm1
CustomAppearance.Pane.BorderLightColor = 16315117
CustomAppearance.Pane.CaptionBgColor = 15849922
CustomAppearance.Pane.CaptionFont.Color = 9126421
CustomAppearance.Pane.CaptionFont.Height = -12
CustomAppearance.Pane.CaptionFont.Name = 'Segoe UI'
CustomAppearance.Pane.GradientFromColor = 16115934
CustomAppearance.Pane.GradientToColor = 15587527
CustomAppearance.Pane.GradientType = bkConcave
CustomAppearance.Element.CaptionFont.Color = clMenuText
CustomAppearance.Element.CaptionFont.Height = -12
CustomAppearance.Element.CaptionFont.Name = 'Segoe UI'
CustomAppearance.Element.IdleFrameColor = 14727067
CustomAppearance.Element.IdleGradientFromColor = 15653832
CustomAppearance.Element.IdleGradientToColor = 15323324
@@ -1048,22 +988,22 @@ object Form1: TForm1
Visible = True
Enabled = True
Caption = 'Save'
ShowCaption = True
TableBehaviour = tbContinuesRow
GroupBehaviour = gbSingleItem
HideFrameWhenIdle = True
ImageIndex = 0
ShowCaption = True
TableBehaviour = tbContinuesRow
ButtonKind = bkButtonDropdown
end
object SpkSmallButton1: TSpkSmallButton
Visible = True
Enabled = True
Caption = 'Save as...'
ShowCaption = True
TableBehaviour = tbBeginsRow
GroupBehaviour = gbSingleItem
HideFrameWhenIdle = True
ImageIndex = 1
ShowCaption = True
TableBehaviour = tbBeginsRow
ButtonKind = bkButton
end
object SpkLargeButton6: TSpkLargeButton
@@ -1088,53 +1028,53 @@ object Form1: TForm1
Visible = True
Enabled = True
Caption = 'Cut'
ShowCaption = True
TableBehaviour = tbContinuesRow
GroupBehaviour = gbSingleItem
HideFrameWhenIdle = True
ImageIndex = 2
ShowCaption = True
TableBehaviour = tbContinuesRow
ButtonKind = bkButton
end
object SpkSmallButton4: TSpkSmallButton
Visible = True
Enabled = True
Caption = 'Copy'
ShowCaption = True
TableBehaviour = tbBeginsRow
GroupBehaviour = gbSingleItem
HideFrameWhenIdle = True
ImageIndex = 3
ShowCaption = True
TableBehaviour = tbBeginsRow
ButtonKind = bkButton
end
object SpkSmallButton5: TSpkSmallButton
Visible = True
Enabled = True
Caption = 'Paste'
ShowCaption = True
TableBehaviour = tbBeginsRow
GroupBehaviour = gbSingleItem
HideFrameWhenIdle = True
ImageIndex = 4
ShowCaption = True
TableBehaviour = tbBeginsRow
ButtonKind = bkButton
end
object SpkSmallButton6: TSpkSmallButton
Visible = True
Enabled = True
Caption = 'Select all'
ShowCaption = True
TableBehaviour = tbBeginsColumn
GroupBehaviour = gbSingleItem
HideFrameWhenIdle = False
ShowCaption = True
TableBehaviour = tbBeginsColumn
ButtonKind = bkButton
end
object SpkSmallButton7: TSpkSmallButton
Visible = True
Enabled = True
Caption = 'Unselect'
ShowCaption = True
TableBehaviour = tbBeginsRow
GroupBehaviour = gbSingleItem
HideFrameWhenIdle = False
ShowCaption = True
TableBehaviour = tbBeginsRow
ButtonKind = bkButton
end
end