mirror of
https://github.com/FunkyFr3sh/cnc-ddraw.git
synced 2025-03-25 01:57:47 +01:00
fix borders
This commit is contained in:
FunkyFr3sh
parent
060efee9e2
commit
75babc1be4
@ -413,3 +413,9 @@ void __fastcall TConfigForm::NonexclusiveChkClick(TObject *Sender)
|
|||||||
SaveSettings();
|
SaveSettings();
|
||||||
}
|
}
|
||||||
|
|
||||||
|
void __fastcall TConfigForm::PboxPaint(TObject *Sender)
|
||||||
|
{
|
||||||
|
TPaintBox *pbox = static_cast<TPaintBox*>(Sender);
|
||||||
|
pbox->Canvas->Rectangle(pbox->ClientRect);
|
||||||
|
}
|
||||||
|
|
||||||
|
|||||||
@ -2682,150 +2682,6 @@ object ConfigForm: TConfigForm
|
|||||||
OnCreate = FormCreate
|
OnCreate = FormCreate
|
||||||
PixelsPerInch = 96
|
PixelsPerInch = 96
|
||||||
TextHeight = 13
|
TextHeight = 13
|
||||||
object DisplayPnl: TPanel
|
|
||||||
Left = 191
|
|
||||||
Top = 8
|
|
||||||
Width = 499
|
|
||||||
Height = 465
|
|
||||||
BevelOuter = bvNone
|
|
||||||
Color = clWhite
|
|
||||||
ParentBackground = False
|
|
||||||
ShowCaption = False
|
|
||||||
TabOrder = 1
|
|
||||||
StyleElements = [seFont, seBorder]
|
|
||||||
object PresentationLbl: TLabel
|
|
||||||
Left = 40
|
|
||||||
Top = 28
|
|
||||||
Width = 87
|
|
||||||
Height = 21
|
|
||||||
Caption = 'Presentation'
|
|
||||||
Font.Charset = DEFAULT_CHARSET
|
|
||||||
Font.Color = clWindowText
|
|
||||||
Font.Height = -16
|
|
||||||
Font.Name = 'Segoe UI'
|
|
||||||
Font.Style = []
|
|
||||||
ParentFont = False
|
|
||||||
StyleElements = [seClient, seBorder]
|
|
||||||
end
|
|
||||||
object MaintasLbl: TLabel
|
|
||||||
Left = 40
|
|
||||||
Top = 105
|
|
||||||
Width = 145
|
|
||||||
Height = 21
|
|
||||||
Margins.Top = 18
|
|
||||||
Caption = 'Maintain aspect ratio'
|
|
||||||
Font.Charset = DEFAULT_CHARSET
|
|
||||||
Font.Color = clWindowText
|
|
||||||
Font.Height = -16
|
|
||||||
Font.Name = 'Segoe UI'
|
|
||||||
Font.Style = []
|
|
||||||
ParentFont = False
|
|
||||||
StyleElements = [seClient, seBorder]
|
|
||||||
end
|
|
||||||
object VsyncLbl: TLabel
|
|
||||||
Left = 40
|
|
||||||
Top = 173
|
|
||||||
Width = 93
|
|
||||||
Height = 21
|
|
||||||
Margins.Top = 18
|
|
||||||
Caption = 'Enable VSync'
|
|
||||||
Font.Charset = DEFAULT_CHARSET
|
|
||||||
Font.Color = clWindowText
|
|
||||||
Font.Height = -16
|
|
||||||
Font.Name = 'Segoe UI'
|
|
||||||
Font.Style = []
|
|
||||||
ParentFont = False
|
|
||||||
StyleElements = [seClient, seBorder]
|
|
||||||
end
|
|
||||||
object AdjmouseLbl: TLabel
|
|
||||||
Left = 40
|
|
||||||
Top = 241
|
|
||||||
Width = 168
|
|
||||||
Height = 21
|
|
||||||
Margins.Top = 18
|
|
||||||
Caption = 'Adjust mouse sensitivity'
|
|
||||||
Font.Charset = DEFAULT_CHARSET
|
|
||||||
Font.Color = clWindowText
|
|
||||||
Font.Height = -16
|
|
||||||
Font.Name = 'Segoe UI'
|
|
||||||
Font.Style = []
|
|
||||||
ParentFont = False
|
|
||||||
StyleElements = [seClient, seBorder]
|
|
||||||
end
|
|
||||||
object DevmodeLbl: TLabel
|
|
||||||
Left = 40
|
|
||||||
Top = 309
|
|
||||||
Width = 216
|
|
||||||
Height = 21
|
|
||||||
Margins.Top = 18
|
|
||||||
Caption = 'Lock cursor to window / screen'
|
|
||||||
Font.Charset = DEFAULT_CHARSET
|
|
||||||
Font.Color = clWindowText
|
|
||||||
Font.Height = -16
|
|
||||||
Font.Name = 'Segoe UI'
|
|
||||||
Font.Style = []
|
|
||||||
ParentFont = False
|
|
||||||
StyleElements = [seClient, seBorder]
|
|
||||||
end
|
|
||||||
object PresentationCbx: TComboBox
|
|
||||||
Left = 48
|
|
||||||
Top = 55
|
|
||||||
Width = 185
|
|
||||||
Height = 29
|
|
||||||
BevelEdges = []
|
|
||||||
BevelInner = bvNone
|
|
||||||
BevelOuter = bvSpace
|
|
||||||
Style = csDropDownList
|
|
||||||
Font.Charset = DEFAULT_CHARSET
|
|
||||||
Font.Color = clWindowText
|
|
||||||
Font.Height = -16
|
|
||||||
Font.Name = 'Segoe UI'
|
|
||||||
Font.Style = []
|
|
||||||
ParentFont = False
|
|
||||||
TabOrder = 0
|
|
||||||
OnChange = PresentationCbxChange
|
|
||||||
Items.Strings = (
|
|
||||||
'Fullscreen'
|
|
||||||
'Borderless'
|
|
||||||
'Windowed')
|
|
||||||
end
|
|
||||||
object MaintasChk: TToggleSwitch
|
|
||||||
Left = 40
|
|
||||||
Top = 132
|
|
||||||
Width = 50
|
|
||||||
Height = 20
|
|
||||||
ShowStateCaption = False
|
|
||||||
TabOrder = 1
|
|
||||||
OnClick = MaintasChkClick
|
|
||||||
end
|
|
||||||
object VsyncChk: TToggleSwitch
|
|
||||||
Left = 40
|
|
||||||
Top = 200
|
|
||||||
Width = 50
|
|
||||||
Height = 20
|
|
||||||
ShowStateCaption = False
|
|
||||||
TabOrder = 2
|
|
||||||
OnClick = VsyncChkClick
|
|
||||||
end
|
|
||||||
object AdjmouseChk: TToggleSwitch
|
|
||||||
Left = 40
|
|
||||||
Top = 268
|
|
||||||
Width = 50
|
|
||||||
Height = 20
|
|
||||||
ShowStateCaption = False
|
|
||||||
TabOrder = 3
|
|
||||||
OnClick = AdjmouseChkClick
|
|
||||||
end
|
|
||||||
object DevmodeChk: TToggleSwitch
|
|
||||||
Left = 40
|
|
||||||
Top = 336
|
|
||||||
Width = 50
|
|
||||||
Height = 20
|
|
||||||
ShowStateCaption = False
|
|
||||||
TabOrder = 4
|
|
||||||
OnClick = DevmodeChkClick
|
|
||||||
end
|
|
||||||
end
|
|
||||||
object CompatibilityPnl: TPanel
|
object CompatibilityPnl: TPanel
|
||||||
Left = 191
|
Left = 191
|
||||||
Top = 8
|
Top = 8
|
||||||
@ -2927,8 +2783,15 @@ object ConfigForm: TConfigForm
|
|||||||
ParentFont = False
|
ParentFont = False
|
||||||
StyleElements = [seClient, seBorder]
|
StyleElements = [seClient, seBorder]
|
||||||
end
|
end
|
||||||
|
object MaxfpsPbox: TPaintBox
|
||||||
|
Left = 40
|
||||||
|
Top = 54
|
||||||
|
Width = 291
|
||||||
|
Height = 31
|
||||||
|
OnPaint = PboxPaint
|
||||||
|
end
|
||||||
object MaxgameticksCbx: TComboBox
|
object MaxgameticksCbx: TComboBox
|
||||||
Left = 48
|
Left = 41
|
||||||
Top = 55
|
Top = 55
|
||||||
Width = 289
|
Width = 289
|
||||||
Height = 29
|
Height = 29
|
||||||
@ -3103,8 +2966,22 @@ object ConfigForm: TConfigForm
|
|||||||
ParentFont = False
|
ParentFont = False
|
||||||
StyleElements = [seClient, seBorder]
|
StyleElements = [seClient, seBorder]
|
||||||
end
|
end
|
||||||
|
object RendererPbox: TPaintBox
|
||||||
|
Left = 40
|
||||||
|
Top = 54
|
||||||
|
Width = 187
|
||||||
|
Height = 31
|
||||||
|
OnPaint = PboxPaint
|
||||||
|
end
|
||||||
|
object ShaderPbox: TPaintBox
|
||||||
|
Left = 40
|
||||||
|
Top = 131
|
||||||
|
Width = 427
|
||||||
|
Height = 31
|
||||||
|
OnPaint = PboxPaint
|
||||||
|
end
|
||||||
object RendererCbx: TComboBox
|
object RendererCbx: TComboBox
|
||||||
Left = 48
|
Left = 41
|
||||||
Top = 55
|
Top = 55
|
||||||
Width = 185
|
Width = 185
|
||||||
Height = 29
|
Height = 29
|
||||||
@ -3145,7 +3022,7 @@ object ConfigForm: TConfigForm
|
|||||||
OnClick = SavesettingsChkClick
|
OnClick = SavesettingsChkClick
|
||||||
end
|
end
|
||||||
object ShaderCbx: TComboBox
|
object ShaderCbx: TComboBox
|
||||||
Left = 48
|
Left = 41
|
||||||
Top = 132
|
Top = 132
|
||||||
Width = 425
|
Width = 425
|
||||||
Height = 29
|
Height = 29
|
||||||
@ -3181,6 +3058,157 @@ object ConfigForm: TConfigForm
|
|||||||
OnClick = BoxingChkClick
|
OnClick = BoxingChkClick
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
object DisplayPnl: TPanel
|
||||||
|
Left = 191
|
||||||
|
Top = 8
|
||||||
|
Width = 499
|
||||||
|
Height = 465
|
||||||
|
BevelOuter = bvNone
|
||||||
|
Color = clWhite
|
||||||
|
ParentBackground = False
|
||||||
|
ShowCaption = False
|
||||||
|
TabOrder = 1
|
||||||
|
StyleElements = [seFont, seBorder]
|
||||||
|
object PresentationLbl: TLabel
|
||||||
|
Left = 40
|
||||||
|
Top = 28
|
||||||
|
Width = 87
|
||||||
|
Height = 21
|
||||||
|
Caption = 'Presentation'
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -16
|
||||||
|
Font.Name = 'Segoe UI'
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
StyleElements = [seClient, seBorder]
|
||||||
|
end
|
||||||
|
object MaintasLbl: TLabel
|
||||||
|
Left = 40
|
||||||
|
Top = 105
|
||||||
|
Width = 145
|
||||||
|
Height = 21
|
||||||
|
Margins.Top = 18
|
||||||
|
Caption = 'Maintain aspect ratio'
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -16
|
||||||
|
Font.Name = 'Segoe UI'
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
StyleElements = [seClient, seBorder]
|
||||||
|
end
|
||||||
|
object VsyncLbl: TLabel
|
||||||
|
Left = 40
|
||||||
|
Top = 173
|
||||||
|
Width = 93
|
||||||
|
Height = 21
|
||||||
|
Margins.Top = 18
|
||||||
|
Caption = 'Enable VSync'
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -16
|
||||||
|
Font.Name = 'Segoe UI'
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
StyleElements = [seClient, seBorder]
|
||||||
|
end
|
||||||
|
object AdjmouseLbl: TLabel
|
||||||
|
Left = 40
|
||||||
|
Top = 241
|
||||||
|
Width = 168
|
||||||
|
Height = 21
|
||||||
|
Margins.Top = 18
|
||||||
|
Caption = 'Adjust mouse sensitivity'
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -16
|
||||||
|
Font.Name = 'Segoe UI'
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
StyleElements = [seClient, seBorder]
|
||||||
|
end
|
||||||
|
object DevmodeLbl: TLabel
|
||||||
|
Left = 40
|
||||||
|
Top = 309
|
||||||
|
Width = 216
|
||||||
|
Height = 21
|
||||||
|
Margins.Top = 18
|
||||||
|
Caption = 'Lock cursor to window / screen'
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -16
|
||||||
|
Font.Name = 'Segoe UI'
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
StyleElements = [seClient, seBorder]
|
||||||
|
end
|
||||||
|
object PresentationPbox: TPaintBox
|
||||||
|
Left = 40
|
||||||
|
Top = 54
|
||||||
|
Width = 187
|
||||||
|
Height = 31
|
||||||
|
OnPaint = PboxPaint
|
||||||
|
end
|
||||||
|
object PresentationCbx: TComboBox
|
||||||
|
Left = 41
|
||||||
|
Top = 55
|
||||||
|
Width = 185
|
||||||
|
Height = 29
|
||||||
|
BevelEdges = []
|
||||||
|
BevelInner = bvNone
|
||||||
|
BevelOuter = bvSpace
|
||||||
|
Style = csDropDownList
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -16
|
||||||
|
Font.Name = 'Segoe UI'
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 1
|
||||||
|
OnChange = PresentationCbxChange
|
||||||
|
Items.Strings = (
|
||||||
|
'Fullscreen'
|
||||||
|
'Borderless'
|
||||||
|
'Windowed')
|
||||||
|
end
|
||||||
|
object MaintasChk: TToggleSwitch
|
||||||
|
Left = 40
|
||||||
|
Top = 132
|
||||||
|
Width = 50
|
||||||
|
Height = 20
|
||||||
|
ShowStateCaption = False
|
||||||
|
TabOrder = 0
|
||||||
|
OnClick = MaintasChkClick
|
||||||
|
end
|
||||||
|
object VsyncChk: TToggleSwitch
|
||||||
|
Left = 40
|
||||||
|
Top = 200
|
||||||
|
Width = 50
|
||||||
|
Height = 20
|
||||||
|
ShowStateCaption = False
|
||||||
|
TabOrder = 2
|
||||||
|
OnClick = VsyncChkClick
|
||||||
|
end
|
||||||
|
object AdjmouseChk: TToggleSwitch
|
||||||
|
Left = 40
|
||||||
|
Top = 268
|
||||||
|
Width = 50
|
||||||
|
Height = 20
|
||||||
|
ShowStateCaption = False
|
||||||
|
TabOrder = 3
|
||||||
|
OnClick = AdjmouseChkClick
|
||||||
|
end
|
||||||
|
object DevmodeChk: TToggleSwitch
|
||||||
|
Left = 40
|
||||||
|
Top = 336
|
||||||
|
Width = 50
|
||||||
|
Height = 20
|
||||||
|
ShowStateCaption = False
|
||||||
|
TabOrder = 4
|
||||||
|
OnClick = DevmodeChkClick
|
||||||
|
end
|
||||||
|
end
|
||||||
object MenuPnl: TPanel
|
object MenuPnl: TPanel
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 8
|
Top = 8
|
||||||
|
|||||||
@ -56,6 +56,10 @@ __published: // Von der IDE verwaltete Komponenten
|
|||||||
TLabel *FixpitchLbl;
|
TLabel *FixpitchLbl;
|
||||||
TLabel *NonexclusiveLbl;
|
TLabel *NonexclusiveLbl;
|
||||||
TToggleSwitch *NonexclusiveChk;
|
TToggleSwitch *NonexclusiveChk;
|
||||||
|
TPaintBox *PresentationPbox;
|
||||||
|
TPaintBox *RendererPbox;
|
||||||
|
TPaintBox *ShaderPbox;
|
||||||
|
TPaintBox *MaxfpsPbox;
|
||||||
void __fastcall DisplayBtnClick(TObject *Sender);
|
void __fastcall DisplayBtnClick(TObject *Sender);
|
||||||
void __fastcall AdvDisplayBtnClick(TObject *Sender);
|
void __fastcall AdvDisplayBtnClick(TObject *Sender);
|
||||||
void __fastcall CompatibilityBtnClick(TObject *Sender);
|
void __fastcall CompatibilityBtnClick(TObject *Sender);
|
||||||
@ -77,6 +81,7 @@ __published: // Von der IDE verwaltete Komponenten
|
|||||||
void __fastcall MinfpsChkClick(TObject *Sender);
|
void __fastcall MinfpsChkClick(TObject *Sender);
|
||||||
void __fastcall FixpitchChkClick(TObject *Sender);
|
void __fastcall FixpitchChkClick(TObject *Sender);
|
||||||
void __fastcall NonexclusiveChkClick(TObject *Sender);
|
void __fastcall NonexclusiveChkClick(TObject *Sender);
|
||||||
|
void __fastcall PboxPaint(TObject *Sender);
|
||||||
private: // Benutzer-Deklarationen
|
private: // Benutzer-Deklarationen
|
||||||
void SaveSettings();
|
void SaveSettings();
|
||||||
bool GetBool(TIniFile *ini, System::UnicodeString key, bool defValue);
|
bool GetBool(TIniFile *ini, System::UnicodeString key, bool defValue);
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user