object frmButtonEditor: TfrmButtonEditor Left = 483 Height = 560 Top = 169 Width = 727 Caption = 'Button Editor 1.1 by Lainz' ClientHeight = 560 ClientWidth = 727 Position = poScreenCenter LCLVersion = '0.9.31' object ScrollArea: TScrollBox Left = 0 Height = 100 Top = 0 Width = 727 HorzScrollBar.Increment = 72 HorzScrollBar.Page = 723 HorzScrollBar.Smooth = True HorzScrollBar.Tracking = True VertScrollBar.Increment = 9 VertScrollBar.Page = 96 VertScrollBar.Smooth = True VertScrollBar.Tracking = True Align = alTop ClientHeight = 96 ClientWidth = 723 TabOrder = 1 object vsTileBackground: TBGRAVirtualScreen Left = 0 Height = 96 Top = 0 Width = 723 OnRedraw = vsTileBackgroundRedraw Align = alClient Alignment = taLeftJustify Caption = 'vsTileBackground' ClientHeight = 96 ClientWidth = 723 Color = clWhite ParentColor = False ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 0 object buttonGraphic: TBGRAGraphicControl Left = 6 Height = 80 Top = 6 Width = 200 OnRedraw = buttonGraphicRedraw Color = clWhite ColorOpacity = 128 Alignment = taCenter Caption = 'buttonGraphic' end end end object SplitterNice: TSplitter Cursor = crVSplit Left = 0 Height = 5 Top = 100 Width = 727 Align = alTop ResizeAnchor = akTop end object ScrollBoxMain: TScrollBox Left = 0 Height = 455 Top = 105 Width = 727 HorzScrollBar.Increment = 72 HorzScrollBar.Page = 723 HorzScrollBar.Smooth = True HorzScrollBar.Tracking = True VertScrollBar.Increment = 45 VertScrollBar.Page = 451 VertScrollBar.Smooth = True VertScrollBar.Tracking = True Align = alClient ClientHeight = 451 ClientWidth = 723 ParentShowHint = False ShowHint = True TabOrder = 0 object ShadowGroup: TGroupBox Left = 533 Height = 145 Top = 5 Width = 183 Caption = 'Shadow' ChildSizing.LeftRightSpacing = 6 ChildSizing.TopBottomSpacing = 6 ChildSizing.HorizontalSpacing = 6 ChildSizing.VerticalSpacing = 6 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize ChildSizing.EnlargeVertical = crsHomogenousChildResize ChildSizing.ShrinkHorizontal = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 2 ClientHeight = 123 ClientWidth = 179 TabOrder = 3 object shdColor: TColorButton Left = 6 Height = 33 Hint = 'Color.' Top = 6 Width = 81 BorderWidth = 2 ButtonColorSize = 16 ButtonColor = clBlack OnColorChanged = UpdateButton end object shdColorAlpha: TSpinEdit Left = 93 Height = 33 Hint = 'Color opacity.' Top = 6 Width = 80 MaxValue = 255 OnChange = UpdateButton TabOrder = 0 Value = 255 end object shdHoriz: TSpinEdit Left = 6 Height = 33 Hint = 'Horizontal offset.' Top = 45 Width = 81 MaxValue = 10000 MinValue = -10000 OnChange = UpdateButton TabOrder = 1 Value = 2 end object shdVert: TSpinEdit Left = 93 Height = 33 Hint = 'Vertical offset.' Top = 45 Width = 80 MaxValue = 10000 MinValue = -10000 OnChange = UpdateButton TabOrder = 2 Value = 2 end object shdRadius: TSpinEdit Left = 6 Height = 33 Hint = 'Radius.' Top = 84 Width = 81 OnChange = UpdateButton TabOrder = 3 Value = 2 end end object BorderGroup: TGroupBox Left = 158 Height = 184 Top = 237 Width = 183 Caption = 'Border' ChildSizing.LeftRightSpacing = 6 ChildSizing.TopBottomSpacing = 6 ChildSizing.HorizontalSpacing = 6 ChildSizing.VerticalSpacing = 6 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize ChildSizing.EnlargeVertical = crsHomogenousChildResize ChildSizing.ShrinkHorizontal = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 2 ClientHeight = 162 ClientWidth = 179 TabOrder = 5 object outColor: TColorButton Left = 6 Height = 33 Hint = 'Out color.' Top = 6 Width = 81 BorderWidth = 2 ButtonColorSize = 16 ButtonColor = clBlack OnColorChanged = UpdateButton end object outAlpha: TSpinEdit Left = 93 Height = 33 Hint = 'Out color opacity.' Top = 6 Width = 80 MaxValue = 255 OnChange = UpdateButton TabOrder = 0 Value = 255 end object innerColor: TColorButton Left = 6 Height = 33 Hint = 'Inner color.' Top = 45 Width = 81 BorderWidth = 2 ButtonColorSize = 16 ButtonColor = clWhite OnColorChanged = UpdateButton end object innerAlpha: TSpinEdit Left = 93 Height = 33 Hint = 'Inner color opacity.' Top = 45 Width = 80 MaxValue = 255 OnChange = UpdateButton TabOrder = 1 Value = 200 end object roundHoriz: TFloatSpinEdit Left = 6 Height = 33 Hint = 'Horizontal rounded corner.' Top = 84 Width = 81 Increment = 1 MaxValue = 10000 MinValue = 0 OnChange = UpdateButton TabOrder = 2 Value = 10 end object roundVert: TFloatSpinEdit Left = 93 Height = 33 Hint = 'Vertical rounded corner.' Top = 84 Width = 80 Increment = 1 MaxValue = 10000 MinValue = 0 OnChange = UpdateButton TabOrder = 3 Value = 10 end object borWidth: TFloatSpinEdit Left = 6 Height = 33 Hint = 'Width.' Top = 123 Width = 81 Increment = 2 MaxValue = 10000 MinValue = 1 OnChange = UpdateButton TabOrder = 4 Value = 1 end end object GradientsGroup: TGroupBox Left = 158 Height = 223 Top = 5 Width = 183 Caption = 'Gradients' ChildSizing.LeftRightSpacing = 6 ChildSizing.TopBottomSpacing = 6 ChildSizing.HorizontalSpacing = 6 ChildSizing.VerticalSpacing = 6 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize ChildSizing.EnlargeVertical = crsHomogenousChildResize ChildSizing.ShrinkHorizontal = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 2 ClientHeight = 201 ClientWidth = 179 TabOrder = 1 object cl1: TColorButton Left = 6 Height = 33 Hint = 'Color 1.' Top = 6 Width = 81 BorderWidth = 2 ButtonColorSize = 16 ButtonColor = clSilver OnColorChanged = UpdateButton end object cl1a: TSpinEdit Left = 93 Height = 33 Hint = 'Color 1 opacity.' Top = 6 Width = 80 MaxValue = 255 OnChange = UpdateButton TabOrder = 0 Value = 100 end object cl2: TColorButton Left = 6 Height = 33 Hint = 'Color 2.' Top = 45 Width = 81 BorderWidth = 2 ButtonColorSize = 16 ButtonColor = 9145227 OnColorChanged = UpdateButton end object cl2a: TSpinEdit Left = 93 Height = 33 Hint = 'Color 2 opacity.' Top = 45 Width = 80 MaxValue = 255 OnChange = UpdateButton TabOrder = 1 Value = 200 end object cl3: TColorButton Left = 6 Height = 33 Hint = 'Color 3.' Top = 84 Width = 81 BorderWidth = 2 ButtonColorSize = 16 ButtonColor = clBlack OnColorChanged = UpdateButton end object cl3a: TSpinEdit Left = 93 Height = 33 Hint = 'Color 3 opacity.' Top = 84 Width = 80 MaxValue = 255 OnChange = UpdateButton TabOrder = 2 Value = 200 end object cl4: TColorButton Left = 6 Height = 33 Hint = 'Color 4.' Top = 123 Width = 81 BorderWidth = 2 ButtonColorSize = 16 ButtonColor = 3552822 OnColorChanged = UpdateButton end object cl4a: TSpinEdit Left = 93 Height = 33 Hint = 'Color 4 opacity.' Top = 123 Width = 80 MaxValue = 255 OnChange = UpdateButton TabOrder = 3 Value = 100 end object gradValue: TFloatSpinEdit Left = 6 Height = 33 Hint = 'Position.' Top = 162 Width = 81 Increment = 0.01 MaxValue = 1 MinValue = 0 OnChange = UpdateButton TabOrder = 4 Value = 0.5 end end object TextGroup: TGroupBox Left = 350 Height = 108 Top = 5 Width = 176 Caption = 'Text' ChildSizing.LeftRightSpacing = 6 ChildSizing.TopBottomSpacing = 6 ChildSizing.HorizontalSpacing = 6 ChildSizing.VerticalSpacing = 6 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize ChildSizing.EnlargeVertical = crsHomogenousChildResize ChildSizing.ShrinkHorizontal = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 2 ClientHeight = 86 ClientWidth = 172 TabOrder = 2 object btnText: TEdit Left = 6 Height = 35 Hint = 'Text.' Top = 6 Width = 80 OnChange = UpdateButton TabOrder = 0 Text = 'ButtonText' end object btnFont: TButton Left = 92 Height = 35 Hint = 'Font.' Top = 6 Width = 74 AutoSize = True Caption = 'Font...' OnClick = btnFontClick TabOrder = 1 end object btnColor: TColorButton Left = 6 Height = 33 Hint = 'Color 1.' Top = 47 Width = 80 BorderWidth = 2 ButtonColorSize = 16 ButtonColor = clWhite OnColorChanged = UpdateButton end object btnColorAlpha: TSpinEdit Left = 92 Height = 33 Hint = 'Color opacity.' Top = 47 Width = 74 MaxValue = 255 OnChange = UpdateButton TabOrder = 2 Value = 255 end end object DirectionsGroup: TCheckGroup Left = 6 Height = 121 Top = 237 Width = 143 AutoFill = True Caption = 'Direction' ChildSizing.LeftRightSpacing = 6 ChildSizing.TopBottomSpacing = 6 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize ChildSizing.EnlargeVertical = crsHomogenousChildResize ChildSizing.ShrinkHorizontal = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 TabOrder = 4 object gd1Horiz: TCheckBox Left = 6 Height = 29 Hint = 'Gradient 1 direction.' Top = 6 Width = 127 Caption = '1 Horizontal' OnChange = UpdateButton TabOrder = 0 end object gd2Horiz: TCheckBox Left = 6 Height = 29 Hint = 'Gradient 2 direction.' Top = 35 Width = 127 Caption = '2 Horizontal' OnChange = UpdateButton TabOrder = 1 end object gpHoriz: TCheckBox Left = 6 Height = 29 Hint = 'Graphic direction.' Top = 64 Width = 127 Caption = 'Horizontal' OnChange = UpdateButton TabOrder = 2 end end object StyleGroup: TCheckGroup Left = 350 Height = 106 Top = 237 Width = 222 AutoFill = True Caption = 'Border Style' ChildSizing.LeftRightSpacing = 6 ChildSizing.TopBottomSpacing = 6 ChildSizing.HorizontalSpacing = 6 ChildSizing.VerticalSpacing = 6 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize ChildSizing.EnlargeVertical = crsHomogenousChildResize ChildSizing.ShrinkHorizontal = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 2 TabOrder = 6 object bs1: TComboBox Left = 6 Height = 33 Hint = 'Top Left.' Top = 6 Width = 100 ItemHeight = 25 ItemIndex = 0 Items.Strings = ( 'Round' 'Bevel' 'Square' ) OnChange = UpdateButton Style = csDropDownList TabOrder = 0 Text = 'Round' end object bs2: TComboBox Left = 112 Height = 33 Hint = 'Top Right.' Top = 6 Width = 100 ItemHeight = 25 ItemIndex = 0 Items.Strings = ( 'Round' 'Bevel' 'Square' ) OnChange = UpdateButton Style = csDropDownList TabOrder = 1 Text = 'Round' end object bs3: TComboBox Left = 6 Height = 33 Hint = 'Bottom Left.' Top = 45 Width = 100 ItemHeight = 25 ItemIndex = 0 Items.Strings = ( 'Round' 'Bevel' 'Square' ) OnChange = UpdateButton Style = csDropDownList TabOrder = 2 Text = 'Round' end object bs4: TComboBox Left = 112 Height = 33 Hint = 'Bottom Right.' Top = 45 Width = 100 ItemHeight = 25 ItemIndex = 0 Items.Strings = ( 'Round' 'Bevel' 'Square' ) OnChange = UpdateButton Style = csDropDownList TabOrder = 3 Text = 'Round' end end object GeneralGroup: TGroupBox Left = 9 Height = 186 Top = 5 Width = 140 Caption = 'General' ChildSizing.LeftRightSpacing = 6 ChildSizing.TopBottomSpacing = 6 ChildSizing.HorizontalSpacing = 6 ChildSizing.VerticalSpacing = 6 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize ChildSizing.EnlargeVertical = crsHomogenousChildResize ChildSizing.ShrinkHorizontal = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 ClientHeight = 164 ClientWidth = 136 TabOrder = 0 object tileBackgroundValue: TSpinEdit Left = 6 Height = 33 Hint = 'Tiled background square size (only for preview purpose).' Top = 6 Width = 124 MaxValue = 200 MinValue = 1 OnChange = tileBackgroundValueChange TabOrder = 0 Value = 6 end object btnWidth: TSpinEdit Left = 6 Height = 33 Hint = 'Width.' Top = 45 Width = 124 MaxValue = 1000 MinValue = 1 OnChange = UpdateButton TabOrder = 1 Value = 200 end object btnHeight: TSpinEdit Left = 6 Height = 33 Hint = 'Height.' Top = 84 Width = 124 MaxValue = 1000 MinValue = 1 OnChange = UpdateButton TabOrder = 2 Value = 80 end object btnSave: TButton Left = 6 Height = 35 Hint = 'Save to file.' Top = 123 Width = 124 Caption = 'Save Bitmap' OnClick = btnSaveClick TabOrder = 3 end end object btnSaveToINI: TButton Left = 358 Height = 35 Top = 349 Width = 116 AutoSize = True Caption = 'Save To INI' OnClick = btnSaveToINIClick TabOrder = 7 end object btnLoadFromINI: TButton Left = 358 Height = 35 Top = 389 Width = 140 AutoSize = True Caption = 'Load From INI' OnClick = btnLoadFromINIClick TabOrder = 8 end end object ButtonFont: TFontDialog Font.Height = -40 MinFontSize = 0 MaxFontSize = 0 PreviewText = 'ButtonEditor' left = 488 top = 232 end object SaveBitmap: TSaveDialog Title = 'Save Bitmap' Filter = 'PNG|*.png' left = 96 top = 304 end object SaveToIni: TSaveDialog Title = 'Save To INI' Filter = 'INI|*.ini' left = 545 top = 504 end object LoadFromIni: TOpenDialog Title = 'Load From INI' Filter = 'INI|*.ini' left = 545 top = 456 end end