Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Allows themes selection in table options #9261

Merged
merged 5 commits into from
Nov 15, 2024
Merged

Allows themes selection in table options #9261

Changes from all commits
Commits
Show all changes
5 commits
Select commit Hold shift + click to select a range
ce039a8
Merge pull request #503 from IDEMSInternational/master
Patowhiz Nov 12, 2024
50faeef
Merge pull request #505 from IDEMSInternational/master
Patowhiz Nov 13, 2024
a1c51eb
Merge pull request #508 from IDEMSInternational/master
Patowhiz Nov 14, 2024
7c48740
Added gtextras package name
conlooptechnologies Nov 15, 2024
5077a34
Refactored the code
conlooptechnologies Nov 15, 2024
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
21 changes: 4 additions & 17 deletions instat/UserTables/sdgTableOptions.vb
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -76,25 +76,12 @@ Public Class sdgTableOptions
' Themes

Private Sub SetupTheme(clsOperator As ROperator)
clsThemeRFunction = New RFunction

' Uncheck then the check radio button to forces the panel to raise its ControlValueChanged event
rdoSelectTheme.Checked = False
rdoSelectTheme.Checked = True

If Not clsOperator.ContainsParameter("theme_format") Then
Exit Sub
End If

clsThemeRFunction = clsOperator.GetParameter("theme_format").clsArgumentCodeStructure

If clsThemeRFunction.strRCommand = "tab_options" Then
rdoManualTheme.Checked = True
If clsOperator.ContainsParameter("theme_format") Then
clsThemeRFunction = clsOperator.GetParameter("theme_format").clsArgumentCodeStructure
Else
rdoSelectTheme.Checked = True
ucrCboSelectThemes.SetName(clsThemeRFunction.strRCommand)
clsThemeRFunction = New RFunction
clsThemeRFunction.SetPackageName("gtExtras")
End If

End Sub

Private Sub ucrPnlThemes_ControlValueChanged(ucrChangedControl As ucrCore) Handles ucrPnlThemesPanel.ControlValueChanged
Expand Down
Loading