add "Fullscreen Upscaled" setting

This commit is contained in:
FunkyFr3sh 2021-07-03 03:23:04 +02:00
parent 8fcf6ae71f
commit 1f7909990c
2 changed files with 194 additions and 186 deletions

View file

@ -56,10 +56,13 @@ void __fastcall TConfigForm::FormCreate(TObject *Sender)
bool fullscreen = GetBool(ini, "fullscreen", false);
if (windowed && fullscreen) {
PresentationCbx->ItemIndex = 1;
PresentationCbx->ItemIndex = 2;
}
else if (windowed) {
PresentationCbx->ItemIndex = 2;
PresentationCbx->ItemIndex = 3;
}
else if (fullscreen) {
PresentationCbx->ItemIndex = 1;
}
else {
PresentationCbx->ItemIndex = 0;
@ -183,10 +186,14 @@ void TConfigForm::SaveSettings()
ini->WriteString("ddraw", "fullscreen", "false");
break;
case 1:
ini->WriteString("ddraw", "windowed", "true");
ini->WriteString("ddraw", "windowed", "false");
ini->WriteString("ddraw", "fullscreen", "true");
break;
case 2:
ini->WriteString("ddraw", "windowed", "true");
ini->WriteString("ddraw", "fullscreen", "true");
break;
case 3:
ini->WriteString("ddraw", "windowed", "true");
ini->WriteString("ddraw", "fullscreen", "false");
break;