Скрипт Sakura installer 29.10

[audiofeel]

audiofeel добавил(а) новый ресурс:

Sakura installer - Вариант многоязычного инсталлятора (8 языков). Вы можно добавить.

Sakura
(дизайн взят гдето из нитернета).
Вариант многоязычного инсталлятора (8 языков).
Три страницы, создание ярлыков, установка компонентов и редист. пакетов.
Кастомная форма на UninstallProgressForm.
Все настраивается в файле Sakura.ini.

1. количество языков (не забывайте добавить в Modules\Language.iss).
1. название, издатель, путь установки.
2. количество ярлыков.
3. количество архивов.
4. доп. компоненты.
5. необходимое ПО.

Если не планируете использование более одного...

Узнать больше об этом ресурсе...

 

[MarsBar]

Куда дизлайк влепить? Нет мониторинга системы во время установки. Все можешь не продолжать его делать Пользователи пейджеров из забугорья не оценят...

А если серьезно, очень достойная реплика.

 

[audiofeel]

@MarsBar,там кода на 800 строк , считай только координаты и тд.
все красивости сделал в файле стилей.

 

[MarsBar]

@MarsBar,там кода на 800 строк , считай только координаты и тд.
все красивости сделал в файле стилей.

Может сюда какую инструкцию опубликовать о новом стиле который редактируется кодом? Я так и понял, потому что комбобокс красивый на выбор языка

 

[hitman797]

Может сюда какую инструкцию опубликовать о новом стиле который редактируется кодом? Я так и понял, потому что комбобокс красивый на выбор языка

original style.

modify style.

 

[asdcfcZX]

Thank you

 

[PrincePersia]

Hello, it looks very beautiful.
I haven't been able to download it yet, but I am very grateful to its creator.

 

[audiofeel]

Может сюда какую инструкцию опубликовать о новом стиле который редактируется кодом? Я так и понял, потому что комбобокс красивый на выбор языка

Попробую, но думаю что будет много вопросов.

Для этого качаем стиль (можно и самому создать) (благодарность HemulGM)
Создаем проект и в StyleBook1 добавляем наш стиль.
Все будем делать на готовом чекбоксе

Создаем на TLayout > TRoundrect.
На TRoundrect > TColorAnimation (Что бы при наведении мыши изменялся цвет с анимацией. Trigger IsMouseOver=true | IsMouseOver=false)
Также на TRoundrect > TLabel1 (Нет) и TLabel2 (Да).
Теперь на TRoundrect > сам слайд который будет перемещяться при клике (Что бы он перемещялся, на него TRectAnimation. Trigger IsChecked=true | IsChecked=false).
Сверху еще раз по лейблу TLabel1 (Нет) и TLabel2 (Да).
На эти лейблы TFloatAnimation (При клике анимация Opacity. Trigger IsChecked=true | IsChecked=false).

Называем его как вам угодно и не забываем указать на чекбоксе ВАШЧЕКБОКС.StyleLookUp('ВАШЕ ИМЯ ЧЕКБОКСА')

Спойлер: Картинка

Спойлер: CODE

  object TLayout
    StyleName = 'checkboxstyle_switch'
    Align = Center
    Size.Width = 186.000000000000000000
    Size.Height = 27.000000000000000000
    Size.PlatformDefault = False
    Visible = False
    TabOrder = 105
    object TRoundRect
      StyleName = 'background'
      Align = Client
      Fill.Color = claGhostwhite
      HitTest = False
      Size.Width = 186.000000000000000000
      Size.Height = 27.000000000000000000
      Size.PlatformDefault = False
      Stroke.Color = claNull
      Stroke.Thickness = 0.000000000000000000
      object TColorAnimation
        StyleName = 'over'
        Duration = 0.000000000000000000
        PropertyName = 'Fill.Color'
        StartValue = claGhostwhite
        StopValue = claWhite
        Trigger = 'IsMouseOver=true'
        TriggerInverse = 'IsMouseOver=false'
      end
      object TLabel
        StyleName = 'Label1Style'
        StyledSettings = []
        Size.Width = 93.000000000000000000
        Size.Height = 27.000000000000000000
        Size.PlatformDefault = False
        TextSettings.Font.Size = 16.000000000000000000
        TextSettings.Font.StyleExt = {00060000000000000004000000}
        TextSettings.HorzAlign = Center
        Text = #1053#1077#1090
        TabOrder = 0
      end
      object TLabel
        StyleName = 'Label2Style'
        StyledSettings = []
        Position.X = 93.000000000000000000
        Size.Width = 93.000000000000000000
        Size.Height = 27.000000000000000000
        Size.PlatformDefault = False
        TextSettings.Font.Size = 16.000000000000000000
        TextSettings.Font.StyleExt = {00060000000000000004000000}
        TextSettings.HorzAlign = Center
        Text = #1044#1072
        TabOrder = 1
      end
      object TRoundRect
        StyleName = 'slide'
        Align = Client
        Fill.Color = xFF393939
        HitTest = False
        Margins.Left = 1.000000000000000000
        Margins.Top = 1.000000000000000000
        Margins.Right = 92.000000000000000000
        Margins.Bottom = 1.000000000000000000
        Size.Width = 93.000000000000000000
        Size.Height = 25.000000000000000000
        Size.PlatformDefault = False
        Stroke.Color = claNull
        Stroke.Thickness = 0.000000000000000000
        object TRectAnimation
          StyleName = 'move'
          Duration = 0.200000002980232200
          PropertyName = 'Margins'
          StartValue.Left = 1.000000000000000000
          StartValue.Top = 1.000000000000000000
          StartValue.Right = 92.000000000000000000
          StartValue.Bottom = 1.000000000000000000
          StopValue.Left = 92.000000000000000000
          StopValue.Top = 1.000000000000000000
          StopValue.Right = 1.000000000000000000
          StopValue.Bottom = 1.000000000000000000
          Trigger = 'IsChecked=true'
          TriggerInverse = 'IsChecked=false'
        end
        object TLabel
          StyleName = 'label1'
          Align = Client
          StyledSettings = []
          Size.Width = 93.000000000000000000
          Size.Height = 25.000000000000000000
          Size.PlatformDefault = False
          TextSettings.Font.Size = 16.000000000000000000
          TextSettings.Font.StyleExt = {00060000000000000004000000}
          TextSettings.FontColor = claGhostwhite
          TextSettings.HorzAlign = Center
          Text = #1053#1077#1090
          TabOrder = 0
          object TFloatAnimation
            StyleName = 'opacity1'
            Duration = 0.200000002980232200
            PropertyName = 'Opacity'
            StartValue = 1.000000000000000000
            StopValue = 0.000000000000000000
            Trigger = 'IsChecked=true'
            TriggerInverse = 'IsChecked=false'
          end
        end
        object TLabel
          StyleName = 'Label2'
          Align = Client
          StyledSettings = []
          Opacity = 0.000000000000000000
          Size.Width = 93.000000000000000000
          Size.Height = 25.000000000000000000
          Size.PlatformDefault = False
          TextSettings.Font.Size = 16.000000000000000000
          TextSettings.Font.StyleExt = {00060000000000000004000000}
          TextSettings.FontColor = claGhostwhite
          TextSettings.HorzAlign = Center
          Text = #1044#1072
          TabOrder = 1
          object TFloatAnimation
            StyleName = 'opacity2'
            Duration = 0.200000002980232200
            PropertyName = 'Opacity'
            StartValue = 0.000000000000000000
            StopValue = 1.000000000000000000
            Trigger = 'IsChecked=true'
            TriggerInverse = 'IsChecked=false'
          end
        end
      end
    end