Иконка ресурса

Скрипт Sakura installer 27.04

Нет прав для скачивания
Обзор История Обсуждение
audiofeel

audiofeel

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

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

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

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

Если не планируете использование более одного...
Нажмите для раскрытия...

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

А если серьезно, очень достойная реплика.
 
@MarsBar,там кода на 800 строк :dance: , считай только координаты и тд.
все красивости сделал в файле стилей.
 
audiofeel написал(а):
@MarsBar,там кода на 800 строк :dance: , считай только координаты и тд.
все красивости сделал в файле стилей.
Нажмите для раскрытия...
Может сюда какую инструкцию опубликовать о новом стиле который редактируется кодом? Я так и понял, потому что комбобокс красивый на выбор языка
 
MarsBar написал(а):
Может сюда какую инструкцию опубликовать о новом стиле который редактируется кодом? Я так и понял, потому что комбобокс красивый на выбор языка
Нажмите для раскрытия...
original style.
Screenshot-2024-11-01-215827.png

modify style.
Screenshot-2024-11-01-220500.png
 
MarsBar написал(а):
Может сюда какую инструкцию опубликовать о новом стиле который редактируется кодом? Я так и понял, потому что комбобокс красивый на выбор языка
Нажмите для раскрытия...
Попробую, но думаю что будет много вопросов.

Для этого качаем стиль (можно и самому создать) (благодарность 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('ВАШЕ ИМЯ ЧЕКБОКСА')

GIF.gif
33.png

code_language.pascal: 
  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
 

Вложения

Войдите или зарегистрируйтесь для ответа.
Назад
Сверху