Кнопка параллелограмм

[Rusland]

Решил я сделать кнопку в виде параллелограмма, действую согласно видеоинструкции, для этого положил на форму 

Layout, на который накидал элементы: два TPath (левый и правый треугольнички), TRectangle (основа кнопки), TText (StyleName=text) и эффекты.

Основному Layout-у задал StyleName=ParallelogramBtn

Потом положил Button и задал ему StyleLookup=ParallelogramBtn - кнопка сразу принимает нужный вид.

 

 

Но мне хочется избавится от ненужных Layout-ов на форме задающих стиль и я хочу перенести все в StyleBook.

Когда я загружаю в StyleBook вот такой стиль:

 

object TStyleContainer

 

 object TLayout

   StyleName = 'Button1Style1'

   Position.X = 346.000000000000000000

   Position.Y = 276.000000000000000000

   Size.Width = 73.000000000000000000

   Size.Height = 30.000000000000000000

   Size.PlatformDefault = False

   TabOrder = 0

 

  object LayParallelogramBtn: TLayout

    StyleName = 'ParallelogramBtn'

    Position.X = 480.000000000000000000

    Position.Y = 76.000000000000000000

    Size.Width = 160.000000000000000000

    Size.Height = 26.000000000000000000

    Size.PlatformDefault = False

    TabOrder = 4

    object LayParallelogramBtn2: TLayout

      Align = Client

      Size.Width = 160.000000000000000000

      Size.Height = 26.000000000000000000

      Size.PlatformDefault = False

      TabOrder = 0

      object PthParallelogramBtn2: TPath

        Align = Right

        Data.Path = {

          040000000000000000000000000000000100000000000000000080BF01000000

          0000803F000080BF010000000000000000000000}

        Fill.Color = xFF009EFC

        HitTest = False

        Position.X = 146.000000000000000000

        Size.Width = 14.000000000000000000

        Size.Height = 26.000000000000000000

        Size.PlatformDefault = False

        Stroke.Kind = None

        object ClaParallelogramBtn2: TColorAnimation

          AnimationType = InOut

          Duration = 0.200000002980232200

          PropertyName = 'Fill.Color'

          StartValue = xFF009EFC

          StopValue = claSkyblue

          Trigger = 'IsMouseOver=true'

          TriggerInverse = 'IsMouseOver=false'

        end

        object IgeParallelogramBtn2: TInnerGlowEffect

          Softness = 0.400000005960464400

          GlowColor = claDarkcyan

          Opacity = 0.899999976158142100

          Trigger = 'IsPressed=true'

          Enabled = False

        end

      end

      object RctParallelogramBtn: TRectangle

        Align = Client

        Fill.Color = xFF009EFC

        HitTest = False

        Size.Width = 132.000000000000000000

        Size.Height = 26.000000000000000000

        Size.PlatformDefault = False

        Stroke.Kind = None

        Stroke.Dash = Custom

        object IgeParallelogramBtn3: TInnerGlowEffect

          Softness = 0.400000005960464400

          GlowColor = claDarkcyan

          Opacity = 0.899999976158142100

          Trigger = 'IsPressed=true'

          Enabled = False

        end

        object ClaParallelogramBtn3: TColorAnimation

          AnimationType = InOut

          Duration = 0.200000002980232200

          PropertyName = 'Fill.Color'

          StartValue = xFF009EFC

          StopValue = claSkyblue

          Trigger = 'IsMouseOver=true'

          TriggerInverse = 'IsMouseOver=false'

        end

      end

      object PthParallelogramBtn1: TPath

        Align = Left

        Data.Path = {

          04000000000000000000000000000000010000000000803F000080BF01000000

          0000803F00000000010000000000000000000000}

        Fill.Color = xFF009EFC

        HitTest = False

        Size.Width = 14.000000000000000000

        Size.Height = 26.000000000000000000

        Size.PlatformDefault = False

        Stroke.Kind = None

        object ClaParallelogramBtn1: TColorAnimation

          AnimationType = InOut

          Duration = 0.200000002980232200

          PropertyName = 'Fill.Color'

          StartValue = xFF009EFC

          StopValue = claSkyblue

          Trigger = 'IsMouseOver=true'

          TriggerInverse = 'IsMouseOver=false'

        end

        object IgeParallelogramBtn1: TInnerGlowEffect

          Softness = 0.400000005960464400

          GlowColor = claDarkcyan

          Opacity = 0.899999976158142100

          Trigger = 'IsPressed=true'

          Enabled = False

        end

      end

    end

    object TxtParallelogramBtn: TText

      StyleName = 'text'

      Align = Client

      HitTest = False

      Size.Width = 160.000000000000000000

      Size.Height = 26.000000000000000000

      Size.PlatformDefault = False

      Text = 'ParallelogramBtn'

      TextSettings.Font.Size = 14.000000000000000000

      TextSettings.Font.Style = [fsBold]

      TextSettings.WordWrap = False

    end

 

 

end

end

то кнопка получается пустой (прозрачной).

 

Как правильно перенести элементы стиля с формы в StyleBook?

Изменено 2 марта, 2016 пользователем Rusland

[#WAMACO]

так делайте это сразу в редакторе StyleBook, а не на форме!

[Rusland]

wamaco, да, сделал в редакторе - все хорошо. 

Вот, результат моих мучений

 

Остался только один вопрос: как удалять из редактора ненужное? Если я добавил, например, какой-нибудь эффект, то как его убрать из стиля?

 

[#WAMACO]

wamaco, да, сделал в редакторе - все хорошо. 

Вот, результат моих мучений

 

Остался только один вопрос: как удалять из редактора ненужное? Если я добавил, например, какой-нибудь эффект, то как его убрать из стиля?

выбрать его и нажать кнопку <Del>

[Rusland]

Выбираю, нажимаю <Del> - ничего не происходит, элемент остается на месте...

пока делаю так - сохраняю стиль, в редакторе вырезаю ненужное, загружаю стиль обратно в StyleBook

Изменено 4 марта, 2016 пользователем Rusland