lucent/cocco-ddraw
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix Compatibility button

Browse source
This commit is contained in:
FunkyFr3sh 2021-07-01 18:04:34 +02:00
parent 74f83131cc
commit b119d3fd9d
3 changed files with 13 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
config/ConfigFormUnit.cpp
View file

@ -21,13 +21,17 @@ void __fastcall TConfigForm::DisplayBtnClick(TObject *Sender)
CompatibilityPnl->Visible = false; CompatibilityPnl->Visible = false;
} }
void __fastcall TConfigForm::AdvSettingsBtnClick(TObject *Sender) void __fastcall TConfigForm::AdvDisplayBtnClick(TObject *Sender)
{ {
AdvDisplayPnl->Visible = true; AdvDisplayPnl->Visible = true;
DisplayPnl->Visible = false; DisplayPnl->Visible = false;
CompatibilityPnl->Visible = false; CompatibilityPnl->Visible = false;
} }
void __fastcall TConfigForm::CompatibilityBtnClick(TObject *Sender)
{
CompatibilityPnl->Visible = true;
AdvDisplayPnl->Visible = false;
DisplayPnl->Visible = false;
}

5
config/ConfigFormUnit.dfm
View file

@ -2709,7 +2709,7 @@ object ConfigForm: TConfigForm
StyleElements = [seFont, seBorder] StyleElements = [seFont, seBorder]
OnClick = DisplayBtnClick OnClick = DisplayBtnClick
end end
object AdvSettingsBtn: TSpeedButton object AdvDisplayBtn: TSpeedButton
Left = 8 Left = 8
Top = 55 Top = 55
Width = 171 Width = 171
@ -2723,7 +2723,7 @@ object ConfigForm: TConfigForm
Font.Name = 'Segoe UI' Font.Name = 'Segoe UI'
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
OnClick = AdvSettingsBtnClick OnClick = AdvDisplayBtnClick
end end
object CompatibilityBtn: TSpeedButton object CompatibilityBtn: TSpeedButton
Left = 8 Left = 8
@ -2740,6 +2740,7 @@ object ConfigForm: TConfigForm
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
Visible = False Visible = False
OnClick = CompatibilityBtnClick
end end
end end
object CompatibilityPnl: TPanel object CompatibilityPnl: TPanel

5
config/ConfigFormUnit.h
View file

@ -18,7 +18,7 @@ __published: // Von der IDE verwaltete Komponenten
TPanel *MenuPnl; TPanel *MenuPnl;
TPanel *DisplayPnl; TPanel *DisplayPnl;
TSpeedButton *DisplayBtn; TSpeedButton *DisplayBtn;
TSpeedButton *AdvSettingsBtn; TSpeedButton *AdvDisplayBtn;
TSpeedButton *CompatibilityBtn; TSpeedButton *CompatibilityBtn;
TPanel *AdvDisplayPnl; TPanel *AdvDisplayPnl;
TPanel *CompatibilityPnl; TPanel *CompatibilityPnl;
@ -45,7 +45,8 @@ __published: // Von der IDE verwaltete Komponenten
TLabel *BoxingLbl; TLabel *BoxingLbl;
TToggleSwitch *BoxingChk; TToggleSwitch *BoxingChk;
void __fastcall DisplayBtnClick(TObject *Sender); void __fastcall DisplayBtnClick(TObject *Sender);
void __fastcall AdvSettingsBtnClick(TObject *Sender); void __fastcall AdvDisplayBtnClick(TObject *Sender);
void __fastcall CompatibilityBtnClick(TObject *Sender);
private: // Benutzer-Deklarationen private: // Benutzer-Deklarationen
public: // Benutzer-Deklarationen public: // Benutzer-Deklarationen
__fastcall TConfigForm(TComponent* Owner); __fastcall TConfigForm(TComponent* Owner);