Changeset 666 for trunk/Settings.lfm


Ignore:
Timestamp:
Jul 9, 2025, 10:36:23 PM (17 hours ago)
Author:
chronos
Message:
  • Added: Music volume option in game settings form.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/Settings.lfm

    r568 r666  
    1111  DesignTimePPI = 144
    1212  Font.Color = clWindowText
    13   Font.Height = -11
     13  Font.Height = -17
    1414  Font.Name = 'MS Sans Serif'
    1515  FormStyle = fsStayOnTop
     16  Position = poScreenCenter
     17  LCLVersion = '4.0.0.4'
     18  Scaled = False
    1619  OnClose = FormClose
    1720  OnCreate = FormCreate
    … …  
    1922  OnPaint = FormPaint
    2023  OnShow = FormShow
    21   Position = poScreenCenter
    22   LCLVersion = '2.2.6.0'
    23   Scaled = False
    2424  object ListLanguages: TListBoxEx
    2525    Tag = 15360
    2626    Left = 16
    27     Height = 291
     27    Height = 280
    2828    Top = 32
    2929    Width = 144
    … …  
    3939    ParentFont = False
    4040    ScrollWidth = 144
     41    Style = lbOwnerDrawVariable
    4142    TabOrder = 1
    4243    TabStop = False
    … …  
    6263  end
    6364  object ButtonFullscreen: TButtonC
    64     Left = 24
     65    Left = 16
    6566    Height = 18
    6667    Top = 368
    … …  
    110111    ParentFont = False
    111112    ScrollWidth = 288
     113    Style = lbOwnerDrawVariable
    112114    TabOrder = 0
    113115    TabStop = False
    114116    TopIndex = -1
    115117    OnSelectionChange = ListKeyBindingsSelectionChange
    116   end
    117   object EditShortCutPrimary: TEdit
    118     Left = 176
    119     Height = 27
    120     Top = 296
    121     Width = 136
    122     BorderStyle = bsNone
    123     Color = clBlack
    124     Enabled = False
    125     Font.Color = 4176863
    126     Font.Height = -15
    127     Font.Name = 'Times New Roman'
    128     Font.Style = [fsBold]
    129     ParentFont = False
    130     TabOrder = 2
    131     OnKeyUp = EditShortCutPrimaryKeyUp
    132   end
    133   object EditShortCutSecondary: TEdit
    134     Left = 328
    135     Height = 27
    136     Top = 296
    137     Width = 136
    138     BorderStyle = bsNone
    139     Color = clBlack
    140     Enabled = False
    141     Font.Color = 4176863
    142     Font.Height = -15
    143     Font.Name = 'Times New Roman'
    144     Font.Style = [fsBold]
    145     ParentFont = False
    146     TabOrder = 3
    147     OnKeyUp = EditShortCutSecondaryKeyUp
    148118  end
    149119  object ButtonReset: TButtonA
    … …  
    157127  end
    158128  object ButtonCustomDpi: TButtonC
    159     Left = 24
     129    Left = 176
    160130    Height = 18
    161     Top = 336
     131    Top = 334
    162132    Width = 18
    163133    Down = False
    … …  
    188158    ButtonIndex = 0
    189159  end
     160  object ButtonMusicVolumeDown: TButtonC
     161    Tag = 6912
     162    Left = 136
     163    Height = 12
     164    Top = 340
     165    Width = 12
     166    Down = False
     167    Permanent = False
     168    OnClick = ButtonMusicVolumeDownClick
     169    ButtonIndex = 0
     170  end
     171  object ButtonMusicVolumeUp: TButtonC
     172    Tag = 6912
     173    Left = 136
     174    Height = 12
     175    Top = 328
     176    Width = 12
     177    Down = False
     178    Permanent = False
     179    OnClick = ButtonMusicVolumeUpClick
     180    ButtonIndex = 1
     181  end
     182  object EditShortCutPrimary: TEdit
     183    AutoSize = True
     184    ClientHeight = 27
     185    ClientWidth = 136
     186    Top = 296
     187    Left = 176
     188    Width = 136
     189    Height = 27
     190    Enabled = False
     191    ShowHint = False
     192    Font.Color = 4176863
     193    Font.Name = 'Times New Roman'
     194    Font.Style = [fsBold]
     195    Font.PixelsPerInch = 96
     196    Font.Height = -15
     197    Align = alNone
     198    Color = clBlack
     199    TabStop = True
     200    OnKeyUp = EditShortCutPrimaryKeyUp
     201    BorderStyle = bsNone
     202    ParentFont = False
     203  end
     204  object EditShortCutSecondary: TEdit
     205    AutoSize = True
     206    ClientHeight = 27
     207    ClientWidth = 136
     208    Top = 296
     209    Left = 328
     210    Width = 136
     211    Height = 27
     212    Enabled = False
     213    ShowHint = False
     214    Font.Color = 4176863
     215    Font.Name = 'Times New Roman'
     216    Font.Style = [fsBold]
     217    Font.PixelsPerInch = 96
     218    Font.Height = -15
     219    Align = alNone
     220    Color = clBlack
     221    TabStop = True
     222    OnKeyUp = EditShortCutSecondaryKeyUp
     223    BorderStyle = bsNone
     224    ParentFont = False
     225  end
    190226end
Note: See TracChangeset for help on using the changeset viewer.