1
0
mirror of https://github.com/FunkyFr3sh/cnc-ddraw.git synced 2025-03-14 22:03:27 +01:00

add upscaling hint for shaders

This commit is contained in:
FunkyFr3sh 2024-07-11 00:17:53 +02:00
parent 560a7222e9
commit 4b4a6663ba
2 changed files with 150 additions and 72 deletions

View File

@ -181,17 +181,26 @@ void TConfigForm::ApplyTranslation(TIniFile *ini)
MaxgameticksCbx->AddItem(L"25tick每秒", NULL);
MaxgameticksCbx->AddItem(L"15tick每秒", NULL);
auto upscaleHint =
L"必须启用升级才能使此设置发挥作用。\n\n"
"要启用放大功能,请将演示文稿设置为'拉伸至全屏'、\n"
System::UnicodeString shaderHint =
L"某些着色器仅在启用升级时才起作用。\n\n";
System::UnicodeString upscaleHint =
L"必须启用升级才能使此设置发挥作用。\n\n";
System::UnicodeString enableUpscaleHint =
L"要启用放大功能,请将演示文稿设置为'拉伸至全屏'、\n"
"'无边框'或以'窗口化'模式启动游戏并调整窗口大小。";
MaintasLbl->Hint = upscaleHint;
MaintasChk->Hint = upscaleHint;
AdjmouseLbl->Hint = upscaleHint;
AdjmouseChk->Hint = upscaleHint;
BoxingLbl->Hint = upscaleHint;
BoxingChk->Hint = upscaleHint;
ShaderLbl->Hint = shaderHint + enableUpscaleHint;
ShaderD3DCbx->Hint = shaderHint + enableUpscaleHint;
ShaderCbx->Hint = shaderHint + enableUpscaleHint;
MaintasLbl->Hint = upscaleHint + enableUpscaleHint;
MaintasChk->Hint = upscaleHint + enableUpscaleHint;
AdjmouseLbl->Hint = upscaleHint + enableUpscaleHint;
AdjmouseChk->Hint = upscaleHint + enableUpscaleHint;
BoxingLbl->Hint = upscaleHint + enableUpscaleHint;
BoxingChk->Hint = upscaleHint + enableUpscaleHint;
}
else if (lang == "spanish" || (lang == "auto" && priID == LANG_SPANISH)) {
LanguageImg->Visible = true;
@ -252,18 +261,27 @@ void TConfigForm::ApplyTranslation(TIniFile *ini)
MaxgameticksCbx->AddItem(L"25 tics por segundo", NULL);
MaxgameticksCbx->AddItem(L"15 tics por segundo", NULL);
auto upscaleHint =
L"La ampliación debe estar habilitada para que esta configuración funcione. \n\n"
"Para habilitar la mejora, configura tu presentación en 'Sin bordes', \n"
System::UnicodeString shaderHint =
L"Algunos de los sombreadores solo funcionan cuando la ampliación está habilitada. \n\n";
System::UnicodeString upscaleHint =
L"La ampliación debe estar habilitada para que esta configuración funcione. \n\n";
System::UnicodeString enableUpscaleHint =
L"Para habilitar la mejora, configura tu presentación en 'Sin bordes', \n"
"'Pantalla completa ampliada' o inicia el juego en modo 'Ventana' \n"
"y cambia el tamaño de la ventana.";
MaintasLbl->Hint = upscaleHint;
MaintasChk->Hint = upscaleHint;
AdjmouseLbl->Hint = upscaleHint;
AdjmouseChk->Hint = upscaleHint;
BoxingLbl->Hint = upscaleHint;
BoxingChk->Hint = upscaleHint;
ShaderLbl->Hint = shaderHint + enableUpscaleHint;
ShaderD3DCbx->Hint = shaderHint + enableUpscaleHint;
ShaderCbx->Hint = shaderHint + enableUpscaleHint;
MaintasLbl->Hint = upscaleHint + enableUpscaleHint;
MaintasChk->Hint = upscaleHint + enableUpscaleHint;
AdjmouseLbl->Hint = upscaleHint + enableUpscaleHint;
AdjmouseChk->Hint = upscaleHint + enableUpscaleHint;
BoxingLbl->Hint = upscaleHint + enableUpscaleHint;
BoxingChk->Hint = upscaleHint + enableUpscaleHint;
}
else if (lang == "german" || (lang == "auto" && priID == LANG_GERMAN)) {
LanguageImg->Visible = true;
@ -324,18 +342,27 @@ void TConfigForm::ApplyTranslation(TIniFile *ini)
MaxgameticksCbx->AddItem(L"25 Ticks pro Sekunde", NULL);
MaxgameticksCbx->AddItem(L"15 Ticks pro Sekunde", NULL);
auto upscaleHint =
L"Damit diese Einstellung funktioniert, muss die Hochskalierung aktiviert sein. \n\n"
"Um die Hochskalierung zu aktivieren, stellen Sie Ihre Darstellung \n"
System::UnicodeString shaderHint =
L"Einige der Shader funktionieren nur, wenn die Hochskalierung aktiviert ist. \n\n";
System::UnicodeString upscaleHint =
L"Damit diese Einstellung funktioniert, muss die Hochskalierung aktiviert sein. \n\n";
System::UnicodeString enableUpscaleHint =
L"Um die Hochskalierung zu aktivieren, stellen Sie Ihre Darstellung \n"
"entweder auf 'Ränderfreies Fenster', 'Hochskaliertes Vollbild' ein \n"
"oder starten Sie das Spiel im 'Fenstermodus' und ändern Sie die Fenstergröße.";
MaintasLbl->Hint = upscaleHint;
MaintasChk->Hint = upscaleHint;
AdjmouseLbl->Hint = upscaleHint;
AdjmouseChk->Hint = upscaleHint;
BoxingLbl->Hint = upscaleHint;
BoxingChk->Hint = upscaleHint;
ShaderLbl->Hint = shaderHint + enableUpscaleHint;
ShaderD3DCbx->Hint = shaderHint + enableUpscaleHint;
ShaderCbx->Hint = shaderHint + enableUpscaleHint;
MaintasLbl->Hint = upscaleHint + enableUpscaleHint;
MaintasChk->Hint = upscaleHint + enableUpscaleHint;
AdjmouseLbl->Hint = upscaleHint + enableUpscaleHint;
AdjmouseChk->Hint = upscaleHint + enableUpscaleHint;
BoxingLbl->Hint = upscaleHint + enableUpscaleHint;
BoxingChk->Hint = upscaleHint + enableUpscaleHint;
}
else if (lang == "russian" || (lang == "auto" && priID == LANG_RUSSIAN)) {
LanguageImg->Visible = true;
@ -397,18 +424,27 @@ void TConfigForm::ApplyTranslation(TIniFile *ini)
MaxgameticksCbx->AddItem(L"25 тиков в секунду", NULL);
MaxgameticksCbx->AddItem(L"15 тиков в секунду", NULL);
auto upscaleHint =
L"Чтобы этот параметр работал, необходимо включить масштабирование. \n\n"
"Чтобы включить масштабирование, установите для презентации режим \n"
System::UnicodeString shaderHint =
L"Некоторые шейдеры работают только при включенном масштабировании. \n\n";
System::UnicodeString upscaleHint =
L"Чтобы этот параметр работал, необходимо включить масштабирование. \n\n";
System::UnicodeString enableUpscaleHint =
L"Чтобы включить масштабирование, установите для презентации режим \n"
"'Без границ', 'Полноэкранный масштабированный' или запустите игру \n"
"в 'Оконный' режиме и измените размер окна.";
MaintasLbl->Hint = upscaleHint;
MaintasChk->Hint = upscaleHint;
AdjmouseLbl->Hint = upscaleHint;
AdjmouseChk->Hint = upscaleHint;
BoxingLbl->Hint = upscaleHint;
BoxingChk->Hint = upscaleHint;
ShaderLbl->Hint = shaderHint + enableUpscaleHint;
ShaderD3DCbx->Hint = shaderHint + enableUpscaleHint;
ShaderCbx->Hint = shaderHint + enableUpscaleHint;
MaintasLbl->Hint = upscaleHint + enableUpscaleHint;
MaintasChk->Hint = upscaleHint + enableUpscaleHint;
AdjmouseLbl->Hint = upscaleHint + enableUpscaleHint;
AdjmouseChk->Hint = upscaleHint + enableUpscaleHint;
BoxingLbl->Hint = upscaleHint + enableUpscaleHint;
BoxingChk->Hint = upscaleHint + enableUpscaleHint;
}
else if (lang == "hungarian" || (lang == "auto" && priID == LANG_HUNGARIAN)) {
LanguageImg->Visible = true;
@ -469,18 +505,27 @@ void TConfigForm::ApplyTranslation(TIniFile *ini)
MaxgameticksCbx->AddItem(L"25 tick másodpercenként", NULL);
MaxgameticksCbx->AddItem(L"15 tick másodpercenként", NULL);
auto upscaleHint =
L"A beállítás működéséhez engedélyezni kell a felskálázást. \n\n"
"A felskálázás engedélyezéséhez állítsa be a prezentációt 'Keret nélkül', \n"
System::UnicodeString shaderHint =
L"Néhány árnyékoló csak akkor működik, ha a felskálázás engedélyezve van. \n\n";
System::UnicodeString upscaleHint =
L"A beállítás működéséhez engedélyezni kell a felskálázást. \n\n";
System::UnicodeString enableUpscaleHint =
L"A felskálázás engedélyezéséhez állítsa be a prezentációt 'Keret nélkül', \n"
"'Teljes képernyő felskálázva' értékre, vagy indítsa el a játékot 'Ablakban' \n"
"módban, és méretezze át az ablakot.";
MaintasLbl->Hint = upscaleHint;
MaintasChk->Hint = upscaleHint;
AdjmouseLbl->Hint = upscaleHint;
AdjmouseChk->Hint = upscaleHint;
BoxingLbl->Hint = upscaleHint;
BoxingChk->Hint = upscaleHint;
ShaderLbl->Hint = shaderHint + enableUpscaleHint;
ShaderD3DCbx->Hint = shaderHint + enableUpscaleHint;
ShaderCbx->Hint = shaderHint + enableUpscaleHint;
MaintasLbl->Hint = upscaleHint + enableUpscaleHint;
MaintasChk->Hint = upscaleHint + enableUpscaleHint;
AdjmouseLbl->Hint = upscaleHint + enableUpscaleHint;
AdjmouseChk->Hint = upscaleHint + enableUpscaleHint;
BoxingLbl->Hint = upscaleHint + enableUpscaleHint;
BoxingChk->Hint = upscaleHint + enableUpscaleHint;
}
else if (lang == "french" || (lang == "auto" && priID == LANG_FRENCH)) {
LanguageImg->Visible = true;
@ -541,18 +586,27 @@ void TConfigForm::ApplyTranslation(TIniFile *ini)
MaxgameticksCbx->AddItem(L"25 tics par seconde", NULL);
MaxgameticksCbx->AddItem(L"15 tics par seconde", NULL);
auto upscaleHint =
L"La mise à l'échelle doit être activée pour que ce paramètre fonctionne. \n\n"
"Pour activer la mise à l'échelle, définissez votre présentation sur 'Sans Bordure', \n"
System::UnicodeString shaderHint =
L"Certains shaders ne fonctionnent que lorsque la mise à l'échelle est activée. \n\n";
System::UnicodeString upscaleHint =
L"La mise à l'échelle doit être activée pour que ce paramètre fonctionne. \n\n";
System::UnicodeString enableUpscaleHint =
L"Pour activer la mise à l'échelle, définissez votre présentation sur 'Sans Bordure', \n"
"'Plein Écran Mis à l'Échelle' ou démarrez le jeu en mode 'Fenêtré' \n"
"et redimensionnez la fenêtre.";
MaintasLbl->Hint = upscaleHint;
MaintasChk->Hint = upscaleHint;
AdjmouseLbl->Hint = upscaleHint;
AdjmouseChk->Hint = upscaleHint;
BoxingLbl->Hint = upscaleHint;
BoxingChk->Hint = upscaleHint;
ShaderLbl->Hint = shaderHint + enableUpscaleHint;
ShaderD3DCbx->Hint = shaderHint + enableUpscaleHint;
ShaderCbx->Hint = shaderHint + enableUpscaleHint;
MaintasLbl->Hint = upscaleHint + enableUpscaleHint;
MaintasChk->Hint = upscaleHint + enableUpscaleHint;
AdjmouseLbl->Hint = upscaleHint + enableUpscaleHint;
AdjmouseChk->Hint = upscaleHint + enableUpscaleHint;
BoxingLbl->Hint = upscaleHint + enableUpscaleHint;
BoxingChk->Hint = upscaleHint + enableUpscaleHint;
}
else if (lang == "italian" || (lang == "auto" && priID == LANG_ITALIAN)) {
LanguageImg->Visible = true;
@ -613,18 +667,27 @@ void TConfigForm::ApplyTranslation(TIniFile *ini)
MaxgameticksCbx->AddItem(L"25 tick al secondo", NULL);
MaxgameticksCbx->AddItem(L"15 tick al secondo", NULL);
auto upscaleHint =
L"Affinché questa impostazione funzioni, è necessario abilitare l'upscaling. \n\n"
"Per abilitare l'upscaling, imposta la presentazione su 'Senza Bordi', \n"
System::UnicodeString shaderHint =
L"Alcuni shader funzionano solo quando l'upscaling è abilitato. \n\n";
System::UnicodeString upscaleHint =
L"Affinché questa impostazione funzioni, è necessario abilitare l'upscaling. \n\n";
System::UnicodeString enableUpscaleHint =
L"Per abilitare l'upscaling, imposta la presentazione su 'Senza Bordi', \n"
"'Schermo Intero Ridimensionato' oppure avvia il gioco in modalità \n"
"'In Finestra' e ridimensiona la finestra.";
MaintasLbl->Hint = upscaleHint;
MaintasChk->Hint = upscaleHint;
AdjmouseLbl->Hint = upscaleHint;
AdjmouseChk->Hint = upscaleHint;
BoxingLbl->Hint = upscaleHint;
BoxingChk->Hint = upscaleHint;
ShaderLbl->Hint = shaderHint + enableUpscaleHint;
ShaderD3DCbx->Hint = shaderHint + enableUpscaleHint;
ShaderCbx->Hint = shaderHint + enableUpscaleHint;
MaintasLbl->Hint = upscaleHint + enableUpscaleHint;
MaintasChk->Hint = upscaleHint + enableUpscaleHint;
AdjmouseLbl->Hint = upscaleHint + enableUpscaleHint;
AdjmouseChk->Hint = upscaleHint + enableUpscaleHint;
BoxingLbl->Hint = upscaleHint + enableUpscaleHint;
BoxingChk->Hint = upscaleHint + enableUpscaleHint;
}
else {
IsEnglish = true;
@ -731,18 +794,27 @@ void TConfigForm::ApplyTranslation(TIniFile *ini)
MaxgameticksCbx->AddItem(L"15 ticks per second", NULL);
*/
auto upscaleHint =
L"Upscaling must be enabled for this setting to work. \n\n"
"To enable upscaling, set your presentation to either 'Borderless', \n"
System::UnicodeString shaderHint =
L"Some of the shaders only work when upscaling is enabled. \n\n";
System::UnicodeString upscaleHint =
L"Upscaling must be enabled for this setting to work. \n\n";
System::UnicodeString enableUpscaleHint =
L"To enable upscaling, set your presentation to either 'Borderless', \n"
"'Fullscreen Upscaled' or start the game in 'Windowed' mode and \n"
"resize the window.";
MaintasLbl->Hint = upscaleHint;
MaintasChk->Hint = upscaleHint;
AdjmouseLbl->Hint = upscaleHint;
AdjmouseChk->Hint = upscaleHint;
BoxingLbl->Hint = upscaleHint;
BoxingChk->Hint = upscaleHint;
ShaderLbl->Hint = shaderHint + enableUpscaleHint;
ShaderD3DCbx->Hint = shaderHint + enableUpscaleHint;
ShaderCbx->Hint = shaderHint + enableUpscaleHint;
MaintasLbl->Hint = upscaleHint + enableUpscaleHint;
MaintasChk->Hint = upscaleHint + enableUpscaleHint;
AdjmouseLbl->Hint = upscaleHint + enableUpscaleHint;
AdjmouseChk->Hint = upscaleHint + enableUpscaleHint;
BoxingLbl->Hint = upscaleHint + enableUpscaleHint;
BoxingChk->Hint = upscaleHint + enableUpscaleHint;
}
ToggleWindowedKeyLbl->Caption = GetKeyText(VK_MENU) + L" +";

View File

@ -3125,6 +3125,8 @@ object ConfigForm: TConfigForm
Font.Name = 'Segoe UI'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
end
object MaxfpsLbl: TLabel
Left = 40
@ -3200,6 +3202,8 @@ object ConfigForm: TConfigForm
Font.Name = 'Segoe UI'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 6
Visible = False
OnChange = ShaderD3DCbxChange
@ -3266,6 +3270,8 @@ object ConfigForm: TConfigForm
Font.Name = 'Segoe UI'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 3
OnChange = ShaderCbxChange
end