mirror of
https://github.com/FunkyFr3sh/cnc-ddraw.git
synced 2025-03-25 01:57:47 +01:00
add "Fullscreen Upscaled" setting
This commit is contained in:
FunkyFr3sh
parent
8fcf6ae71f
commit
1f7909990c
@ -56,10 +56,13 @@ void __fastcall TConfigForm::FormCreate(TObject *Sender)
|
|||||||
bool fullscreen = GetBool(ini, "fullscreen", false);
|
bool fullscreen = GetBool(ini, "fullscreen", false);
|
||||||
|
|
||||||
if (windowed && fullscreen) {
|
if (windowed && fullscreen) {
|
||||||
PresentationCbx->ItemIndex = 1;
|
PresentationCbx->ItemIndex = 2;
|
||||||
}
|
}
|
||||||
else if (windowed) {
|
else if (windowed) {
|
||||||
PresentationCbx->ItemIndex = 2;
|
PresentationCbx->ItemIndex = 3;
|
||||||
|
}
|
||||||
|
else if (fullscreen) {
|
||||||
|
PresentationCbx->ItemIndex = 1;
|
||||||
}
|
}
|
||||||
else {
|
else {
|
||||||
PresentationCbx->ItemIndex = 0;
|
PresentationCbx->ItemIndex = 0;
|
||||||
@ -183,10 +186,14 @@ void TConfigForm::SaveSettings()
|
|||||||
ini->WriteString("ddraw", "fullscreen", "false");
|
ini->WriteString("ddraw", "fullscreen", "false");
|
||||||
break;
|
break;
|
||||||
case 1:
|
case 1:
|
||||||
ini->WriteString("ddraw", "windowed", "true");
|
ini->WriteString("ddraw", "windowed", "false");
|
||||||
ini->WriteString("ddraw", "fullscreen", "true");
|
ini->WriteString("ddraw", "fullscreen", "true");
|
||||||
break;
|
break;
|
||||||
case 2:
|
case 2:
|
||||||
|
ini->WriteString("ddraw", "windowed", "true");
|
||||||
|
ini->WriteString("ddraw", "fullscreen", "true");
|
||||||
|
break;
|
||||||
|
case 3:
|
||||||
ini->WriteString("ddraw", "windowed", "true");
|
ini->WriteString("ddraw", "windowed", "true");
|
||||||
ini->WriteString("ddraw", "fullscreen", "false");
|
ini->WriteString("ddraw", "fullscreen", "false");
|
||||||
break;
|
break;
|
||||||
|
|||||||
@ -2682,189 +2682,6 @@ object ConfigForm: TConfigForm
|
|||||||
OnCreate = FormCreate
|
OnCreate = FormCreate
|
||||||
PixelsPerInch = 96
|
PixelsPerInch = 96
|
||||||
TextHeight = 13
|
TextHeight = 13
|
||||||
object CompatibilityPnl: TPanel
|
|
||||||
Left = 191
|
|
||||||
Top = 8
|
|
||||||
Width = 499
|
|
||||||
Height = 465
|
|
||||||
BevelOuter = bvNone
|
|
||||||
Color = clWhite
|
|
||||||
ParentBackground = False
|
|
||||||
ShowCaption = False
|
|
||||||
TabOrder = 3
|
|
||||||
Visible = False
|
|
||||||
StyleElements = [seFont, seBorder]
|
|
||||||
object MaxgameticksLbl: TLabel
|
|
||||||
Left = 40
|
|
||||||
Top = 28
|
|
||||||
Width = 123
|
|
||||||
Height = 21
|
|
||||||
Caption = 'Limit game speed'
|
|
||||||
Font.Charset = DEFAULT_CHARSET
|
|
||||||
Font.Color = clWindowText
|
|
||||||
Font.Height = -16
|
|
||||||
Font.Name = 'Segoe UI'
|
|
||||||
Font.Style = []
|
|
||||||
ParentFont = False
|
|
||||||
StyleElements = [seClient, seBorder]
|
|
||||||
end
|
|
||||||
object NoactivateappLbl: TLabel
|
|
||||||
Left = 40
|
|
||||||
Top = 105
|
|
||||||
Width = 129
|
|
||||||
Height = 21
|
|
||||||
Margins.Top = 18
|
|
||||||
Caption = 'Fix broken Alt+Tab'
|
|
||||||
Font.Charset = DEFAULT_CHARSET
|
|
||||||
Font.Color = clWindowText
|
|
||||||
Font.Height = -16
|
|
||||||
Font.Name = 'Segoe UI'
|
|
||||||
Font.Style = []
|
|
||||||
ParentFont = False
|
|
||||||
StyleElements = [seClient, seBorder]
|
|
||||||
end
|
|
||||||
object HookLbl: TLabel
|
|
||||||
Left = 40
|
|
||||||
Top = 173
|
|
||||||
Width = 281
|
|
||||||
Height = 21
|
|
||||||
Margins.Top = 18
|
|
||||||
Caption = 'Fix broken windowed mode or upscaling'
|
|
||||||
Font.Charset = DEFAULT_CHARSET
|
|
||||||
Font.Color = clWindowText
|
|
||||||
Font.Height = -16
|
|
||||||
Font.Name = 'Segoe UI'
|
|
||||||
Font.Style = []
|
|
||||||
ParentFont = False
|
|
||||||
StyleElements = [seClient, seBorder]
|
|
||||||
end
|
|
||||||
object MinfpsLbl: TLabel
|
|
||||||
Left = 40
|
|
||||||
Top = 241
|
|
||||||
Width = 350
|
|
||||||
Height = 21
|
|
||||||
Margins.Top = 18
|
|
||||||
Caption = 'Force high FPS / Fix stuttering on Freesync/G-Sync'
|
|
||||||
Font.Charset = DEFAULT_CHARSET
|
|
||||||
Font.Color = clWindowText
|
|
||||||
Font.Height = -16
|
|
||||||
Font.Name = 'Segoe UI'
|
|
||||||
Font.Style = []
|
|
||||||
ParentFont = False
|
|
||||||
StyleElements = [seClient, seBorder]
|
|
||||||
end
|
|
||||||
object FixpitchLbl: TLabel
|
|
||||||
Left = 40
|
|
||||||
Top = 309
|
|
||||||
Width = 272
|
|
||||||
Height = 21
|
|
||||||
Margins.Top = 18
|
|
||||||
Caption = 'Fix diagonally displayed drawing issues'
|
|
||||||
Font.Charset = DEFAULT_CHARSET
|
|
||||||
Font.Color = clWindowText
|
|
||||||
Font.Height = -16
|
|
||||||
Font.Name = 'Segoe UI'
|
|
||||||
Font.Style = []
|
|
||||||
ParentFont = False
|
|
||||||
StyleElements = [seClient, seBorder]
|
|
||||||
end
|
|
||||||
object NonexclusiveLbl: TLabel
|
|
||||||
Left = 40
|
|
||||||
Top = 377
|
|
||||||
Width = 225
|
|
||||||
Height = 21
|
|
||||||
Margins.Top = 18
|
|
||||||
Caption = 'Fix invisible videos / UI elements'
|
|
||||||
Font.Charset = DEFAULT_CHARSET
|
|
||||||
Font.Color = clWindowText
|
|
||||||
Font.Height = -16
|
|
||||||
Font.Name = 'Segoe UI'
|
|
||||||
Font.Style = []
|
|
||||||
ParentFont = False
|
|
||||||
StyleElements = [seClient, seBorder]
|
|
||||||
end
|
|
||||||
object MaxfpsPbox: TPaintBox
|
|
||||||
Left = 40
|
|
||||||
Top = 54
|
|
||||||
Width = 291
|
|
||||||
Height = 31
|
|
||||||
OnPaint = PboxPaint
|
|
||||||
end
|
|
||||||
object MaxgameticksCbx: TComboBox
|
|
||||||
Left = 41
|
|
||||||
Top = 55
|
|
||||||
Width = 289
|
|
||||||
Height = 29
|
|
||||||
BevelEdges = []
|
|
||||||
BevelInner = bvNone
|
|
||||||
BevelOuter = bvSpace
|
|
||||||
Style = csDropDownList
|
|
||||||
DropDownCount = 9
|
|
||||||
Font.Charset = DEFAULT_CHARSET
|
|
||||||
Font.Color = clWindowText
|
|
||||||
Font.Height = -16
|
|
||||||
Font.Name = 'Segoe UI'
|
|
||||||
Font.Style = []
|
|
||||||
ParentFont = False
|
|
||||||
TabOrder = 0
|
|
||||||
OnChange = MaxgameticksCbxChange
|
|
||||||
Items.Strings = (
|
|
||||||
'No limit'
|
|
||||||
'Sync with monitor refresh rate'
|
|
||||||
'Emulate 60hz refresh rate monitor'
|
|
||||||
'1000 ticks per second'
|
|
||||||
'500 ticks per second'
|
|
||||||
'60 ticks per second'
|
|
||||||
'30 ticks per second'
|
|
||||||
'25 ticks per second'
|
|
||||||
'15 ticks per second')
|
|
||||||
end
|
|
||||||
object NoactivateappChk: TToggleSwitch
|
|
||||||
Left = 40
|
|
||||||
Top = 132
|
|
||||||
Width = 50
|
|
||||||
Height = 20
|
|
||||||
ShowStateCaption = False
|
|
||||||
TabOrder = 1
|
|
||||||
OnClick = NoactivateappChkClick
|
|
||||||
end
|
|
||||||
object HookChk: TToggleSwitch
|
|
||||||
Left = 40
|
|
||||||
Top = 200
|
|
||||||
Width = 50
|
|
||||||
Height = 20
|
|
||||||
ShowStateCaption = False
|
|
||||||
TabOrder = 2
|
|
||||||
OnClick = HookChkClick
|
|
||||||
end
|
|
||||||
object MinfpsChk: TToggleSwitch
|
|
||||||
Left = 40
|
|
||||||
Top = 268
|
|
||||||
Width = 50
|
|
||||||
Height = 20
|
|
||||||
ShowStateCaption = False
|
|
||||||
TabOrder = 3
|
|
||||||
OnClick = MinfpsChkClick
|
|
||||||
end
|
|
||||||
object FixpitchChk: TToggleSwitch
|
|
||||||
Left = 40
|
|
||||||
Top = 336
|
|
||||||
Width = 50
|
|
||||||
Height = 20
|
|
||||||
ShowStateCaption = False
|
|
||||||
TabOrder = 4
|
|
||||||
OnClick = FixpitchChkClick
|
|
||||||
end
|
|
||||||
object NonexclusiveChk: TToggleSwitch
|
|
||||||
Left = 40
|
|
||||||
Top = 404
|
|
||||||
Width = 50
|
|
||||||
Height = 20
|
|
||||||
ShowStateCaption = False
|
|
||||||
TabOrder = 5
|
|
||||||
OnClick = NonexclusiveChkClick
|
|
||||||
end
|
|
||||||
end
|
|
||||||
object AdvDisplayPnl: TPanel
|
object AdvDisplayPnl: TPanel
|
||||||
Left = 191
|
Left = 191
|
||||||
Top = 8
|
Top = 8
|
||||||
@ -3169,6 +2986,7 @@ object ConfigForm: TConfigForm
|
|||||||
OnChange = PresentationCbxChange
|
OnChange = PresentationCbxChange
|
||||||
Items.Strings = (
|
Items.Strings = (
|
||||||
'Fullscreen'
|
'Fullscreen'
|
||||||
|
'Fullscreen Upscaled'
|
||||||
'Borderless'
|
'Borderless'
|
||||||
'Windowed')
|
'Windowed')
|
||||||
end
|
end
|
||||||
@ -3209,6 +3027,189 @@ object ConfigForm: TConfigForm
|
|||||||
OnClick = DevmodeChkClick
|
OnClick = DevmodeChkClick
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
object CompatibilityPnl: TPanel
|
||||||
|
Left = 191
|
||||||
|
Top = 8
|
||||||
|
Width = 499
|
||||||
|
Height = 465
|
||||||
|
BevelOuter = bvNone
|
||||||
|
Color = clWhite
|
||||||
|
ParentBackground = False
|
||||||
|
ShowCaption = False
|
||||||
|
TabOrder = 3
|
||||||
|
Visible = False
|
||||||
|
StyleElements = [seFont, seBorder]
|
||||||
|
object MaxgameticksLbl: TLabel
|
||||||
|
Left = 40
|
||||||
|
Top = 28
|
||||||
|
Width = 123
|
||||||
|
Height = 21
|
||||||
|
Caption = 'Limit game speed'
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -16
|
||||||
|
Font.Name = 'Segoe UI'
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
StyleElements = [seClient, seBorder]
|
||||||
|
end
|
||||||
|
object NoactivateappLbl: TLabel
|
||||||
|
Left = 40
|
||||||
|
Top = 105
|
||||||
|
Width = 129
|
||||||
|
Height = 21
|
||||||
|
Margins.Top = 18
|
||||||
|
Caption = 'Fix broken Alt+Tab'
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -16
|
||||||
|
Font.Name = 'Segoe UI'
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
StyleElements = [seClient, seBorder]
|
||||||
|
end
|
||||||
|
object HookLbl: TLabel
|
||||||
|
Left = 40
|
||||||
|
Top = 173
|
||||||
|
Width = 281
|
||||||
|
Height = 21
|
||||||
|
Margins.Top = 18
|
||||||
|
Caption = 'Fix broken windowed mode or upscaling'
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -16
|
||||||
|
Font.Name = 'Segoe UI'
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
StyleElements = [seClient, seBorder]
|
||||||
|
end
|
||||||
|
object MinfpsLbl: TLabel
|
||||||
|
Left = 40
|
||||||
|
Top = 241
|
||||||
|
Width = 350
|
||||||
|
Height = 21
|
||||||
|
Margins.Top = 18
|
||||||
|
Caption = 'Force high FPS / Fix stuttering on Freesync/G-Sync'
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -16
|
||||||
|
Font.Name = 'Segoe UI'
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
StyleElements = [seClient, seBorder]
|
||||||
|
end
|
||||||
|
object FixpitchLbl: TLabel
|
||||||
|
Left = 40
|
||||||
|
Top = 309
|
||||||
|
Width = 272
|
||||||
|
Height = 21
|
||||||
|
Margins.Top = 18
|
||||||
|
Caption = 'Fix diagonally displayed drawing issues'
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -16
|
||||||
|
Font.Name = 'Segoe UI'
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
StyleElements = [seClient, seBorder]
|
||||||
|
end
|
||||||
|
object NonexclusiveLbl: TLabel
|
||||||
|
Left = 40
|
||||||
|
Top = 377
|
||||||
|
Width = 225
|
||||||
|
Height = 21
|
||||||
|
Margins.Top = 18
|
||||||
|
Caption = 'Fix invisible videos / UI elements'
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -16
|
||||||
|
Font.Name = 'Segoe UI'
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
StyleElements = [seClient, seBorder]
|
||||||
|
end
|
||||||
|
object MaxfpsPbox: TPaintBox
|
||||||
|
Left = 40
|
||||||
|
Top = 54
|
||||||
|
Width = 291
|
||||||
|
Height = 31
|
||||||
|
OnPaint = PboxPaint
|
||||||
|
end
|
||||||
|
object MaxgameticksCbx: TComboBox
|
||||||
|
Left = 41
|
||||||
|
Top = 55
|
||||||
|
Width = 289
|
||||||
|
Height = 29
|
||||||
|
BevelEdges = []
|
||||||
|
BevelInner = bvNone
|
||||||
|
BevelOuter = bvSpace
|
||||||
|
Style = csDropDownList
|
||||||
|
DropDownCount = 10
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -16
|
||||||
|
Font.Name = 'Segoe UI'
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 0
|
||||||
|
OnChange = MaxgameticksCbxChange
|
||||||
|
Items.Strings = (
|
||||||
|
'No limit'
|
||||||
|
'Sync with monitor refresh rate'
|
||||||
|
'Emulate 60hz refresh rate monitor'
|
||||||
|
'1000 ticks per second'
|
||||||
|
'500 ticks per second'
|
||||||
|
'60 ticks per second'
|
||||||
|
'30 ticks per second'
|
||||||
|
'25 ticks per second'
|
||||||
|
'15 ticks per second')
|
||||||
|
end
|
||||||
|
object NoactivateappChk: TToggleSwitch
|
||||||
|
Left = 40
|
||||||
|
Top = 132
|
||||||
|
Width = 50
|
||||||
|
Height = 20
|
||||||
|
ShowStateCaption = False
|
||||||
|
TabOrder = 1
|
||||||
|
OnClick = NoactivateappChkClick
|
||||||
|
end
|
||||||
|
object HookChk: TToggleSwitch
|
||||||
|
Left = 40
|
||||||
|
Top = 200
|
||||||
|
Width = 50
|
||||||
|
Height = 20
|
||||||
|
ShowStateCaption = False
|
||||||
|
TabOrder = 2
|
||||||
|
OnClick = HookChkClick
|
||||||
|
end
|
||||||
|
object MinfpsChk: TToggleSwitch
|
||||||
|
Left = 40
|
||||||
|
Top = 268
|
||||||
|
Width = 50
|
||||||
|
Height = 20
|
||||||
|
ShowStateCaption = False
|
||||||
|
TabOrder = 3
|
||||||
|
OnClick = MinfpsChkClick
|
||||||
|
end
|
||||||
|
object FixpitchChk: TToggleSwitch
|
||||||
|
Left = 40
|
||||||
|
Top = 336
|
||||||
|
Width = 50
|
||||||
|
Height = 20
|
||||||
|
ShowStateCaption = False
|
||||||
|
TabOrder = 4
|
||||||
|
OnClick = FixpitchChkClick
|
||||||
|
end
|
||||||
|
object NonexclusiveChk: TToggleSwitch
|
||||||
|
Left = 40
|
||||||
|
Top = 404
|
||||||
|
Width = 50
|
||||||
|
Height = 20
|
||||||
|
ShowStateCaption = False
|
||||||
|
TabOrder = 5
|
||||||
|
OnClick = NonexclusiveChkClick
|
||||||
|
end
|
||||||
|
end
|
||||||
object MenuPnl: TPanel
|
object MenuPnl: TPanel
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 8
|
Top = 8
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user