luisgulo/gambas-source-code
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Correctly refresh the debug panel contents when fonts are changed in the option dialog.

Browse Source 
[DEVELOPMENT ENVIRONMENT]
* BUG: Correctly refresh the debug panel contents when fonts are changed in the option dialog.
This commit is contained in:
gambas 2018-11-01 01:19:55 +01:00
parent 52d0fe2a6a
commit 64ea8c3a79
2 changed files with 35 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
app/src/gambas3/.src/Debug/FDebugInfo.class
View File

@ -762,18 +762,23 @@ End
Private Sub AfterRefreshTask() Private Sub AfterRefreshTask()
Dim I As Integer
$aTask.Sort $aTask.Sort
$cRefreshTask.Clear $cRefreshTask.Clear
gvwTask.Rows.Count = $aTask.Count gvwTask.Rows.Count = $aTask.Count
gvwTask_Font
gvwTask.Refresh gvwTask.Refresh
End
Public Sub gvwTask_Font()
Dim I As Integer
For I = 0 To gvwTask.Columns.Max - 1 For I = 0 To gvwTask.Columns.Max - 1
gvwTask.Columns[I].W = -1 gvwTask.Columns[I].W = -1
Next Next
End End
Public Sub UpdateTask() Public Sub UpdateTask()
@ -932,8 +937,7 @@ Public Sub SetCompilation(Optional sOutput As String)
Next Next
gvwCompilation.Rows.Count = I gvwCompilation.Rows.Count = I
gvwCompilation.Columns[0].Width = -1 gvwCompilation_Font
gvwCompilation.Columns[1].Width = -1
ShowTab(TAB_COMPILATION) ShowTab(TAB_COMPILATION)
'wizDebug[TAB_COMPILATION].Text = ("Warnings") & " (" & gvwCompilation.Rows.Count & ")" 'wizDebug[TAB_COMPILATION].Text = ("Warnings") & " (" & gvwCompilation.Rows.Count & ")"
@ -943,6 +947,14 @@ Public Sub SetCompilation(Optional sOutput As String)
End End
Public Sub gvwCompilation_Font()
gvwCompilation.Columns[0].Width = -1
gvwCompilation.Columns[1].Width = -1
End
Public Sub gvwCompilation_Select() Public Sub gvwCompilation_Select()
Dim I As Integer = gvwCompilation.Row Dim I As Integer = gvwCompilation.Row
@ -1088,13 +1100,20 @@ Public Sub RefreshBreakpointView()
If wizDebug.Index <> TAB_BREAK Then Return If wizDebug.Index <> TAB_BREAK Then Return
gvwBreakpoint.Rows.Count = Design.GetBreakpoints().Count gvwBreakpoint.Rows.Count = Design.GetBreakpoints().Count
gvwBreakpoint.Columns[1].Width = -1 gvwBreakpoint_Font()
gvwBreakpoint.Columns[2].Width = -1
gvwBreakpoint.Refresh gvwBreakpoint.Refresh
gvwBreakpoint_Click gvwBreakpoint_Click
End End
Public Sub gvwBreakpoint_Font()
gvwBreakpoint.Columns[1].Width = -1
gvwBreakpoint.Columns[2].Width = -1
End
Public Sub RemoveAllBreakpoints() Public Sub RemoveAllBreakpoints()
Dim aBreakPoint As String[] Dim aBreakPoint As String[]

13
app/src/gambas3/.src/Search/FSearch.class
View File

@ -59,6 +59,8 @@ Public Sub Form_Open()
chkWordOnly.Value = Settings["/FSearch/WordOnly", False] chkWordOnly.Value = Settings["/FSearch/WordOnly", False]
'radSourceFileOnly.Value = Settings["/FSearch/SourceOnly", False] 'radSourceFileOnly.Value = Settings["/FSearch/SourceOnly", False]
gvwFind_Font
End End
Public Sub Form_Close() Public Sub Form_Close()
@ -86,8 +88,6 @@ Public Sub ReadConfig()
Dec $hFont.Size Dec $hFont.Size
If $hFont.Size < 6 Then Break If $hFont.Size < 6 Then Break
Wend Wend
$CW = $hFont.TextWidth("W")
gvwFind.Refresh
$hStyle = MTheme.GetStyles() $hStyle = MTheme.GetStyles()
For I = 0 To $aBrowse.Max For I = 0 To $aBrowse.Max
@ -996,10 +996,13 @@ End
Public Sub gvwFind_Font() Public Sub gvwFind_Font()
$CW = gvwFind.Font $CW = $hFont.TextWidth("W")
gvwFind.Rows.Height = Max(gvwFind.Font.Height, $hFont.Height) + 4
End gvwFind.Columns[0].Width = -1
gvwFind.Columns[1].Width = -1
gvwFind.Refresh
End
Public Sub gvwFind_Draw(X As Integer, Y As Integer, Width As Integer, Height As Integer, Row As Integer, Column As Integer) Public Sub gvwFind_Draw(X As Integer, Y As Integer, Width As Integer, Height As Integer, Row As Integer, Column As Integer)