diff --git a/config/ConfigFormUnit.cpp b/config/ConfigFormUnit.cpp index 64d0014..cae9037 100644 --- a/config/ConfigFormUnit.cpp +++ b/config/ConfigFormUnit.cpp @@ -738,10 +738,10 @@ void __fastcall TConfigForm::FormCreate(TObject *Sender) int cwidth = hd_ini->ReadInteger("Game", "Width", 0); int cheight = hd_ini->ReadInteger("Game", "Height", 0); - int reso = hd_ini->ReadInteger("Game", "Resolution", 3); + int reso = hd_ini->ReadInteger("Game", "Resolution", 4); if (!cwidth || !cheight) { - ResolutionCbx->ItemIndex = reso <= 7 ? reso : 3; + ResolutionCbx->ItemIndex = reso <= 10 ? reso : 4; } else { ResolutionCbx->AddItem(IntToStr(cwidth) + "x" + IntToStr(cheight), NULL); @@ -948,14 +948,14 @@ void TConfigForm::SaveSettings() break; } - if (ResolutionCbx->ItemIndex <= 7) { + if (ResolutionCbx->ItemIndex <= 10) { hd_ini->WriteInteger("Game", "Resolution", ResolutionCbx->ItemIndex); hd_ini->WriteInteger("Game", "Width", 0); hd_ini->WriteInteger("Game", "Height", 0); - if (ResolutionCbx->Items->Count == 9) { - ResolutionCbx->Items->Delete(8); + if (ResolutionCbx->Items->Count == 12) { + ResolutionCbx->Items->Delete(11); } } diff --git a/config/ConfigFormUnit.dfm b/config/ConfigFormUnit.dfm index 533b68b..7bcdc25 100644 --- a/config/ConfigFormUnit.dfm +++ b/config/ConfigFormUnit.dfm @@ -3539,6 +3539,7 @@ object ConfigForm: TConfigForm BevelInner = bvNone BevelOuter = bvSpace Style = csDropDownList + DropDownCount = 11 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -16 @@ -3548,14 +3549,17 @@ object ConfigForm: TConfigForm TabOrder = 6 OnChange = PresentationCbxChange Items.Strings = ( - '640x480 (4:3)' - '800x608 (4:3)' - '832x480 (16:9)' - '960x544 (16:9)' + '640x480 (4:3)' + '800x608 (4:3)' + '1024x768 (4:3)' + '832x480 (16:9)' + '960x544 (16:9)' '1280x704 (16:9)' + '1120x480 (21:9)' '1280x544 (21:9)' - '768x480 (16:10)' - '960x608 (16:10)') + '768x480 (16:10)' + '960x608 (16:10)' + '1280x800 (16:10)') end end object MenuPnl: TPanel