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

[DEVELOPMENT ENVIRONMENT]

Browse source 
* NEW: Highlight the current procedure in the procedure list instead of
  drawing a frame. It's better.
  

git-svn-id: svn://localhost/gambas/trunk@6978 867c0c6c-44f3-4631-809d-bfa615b0a4ec
This commit is contained in:
Benoît Minisini 2015-03-11 21:13:29 +00:00
parent 76b0d73d92
commit f2277feba4
1 changed files with 7 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
app/src/gambas3/.src/Editor/Code/FProcedureList.class
View file

@ -178,7 +178,8 @@ Public Sub gvwProc_Draw(X As Integer, Y As Integer, Width As Integer, Height As
Endif
If Row = $iCurrent Then Paint.FillRect(X, Y, Width, Height, Color.Merge(Color.LightBackground, Color.TextBackground))
If Row = $iCurrent Then Paint.FillRect(X, Y, Width, Height, Color.SetAlpha(Color.LightBackground, 192))
If Row = $iInit Then Paint.FillRect(X, Y, Width, Height, Color.SetAlpha(Color.LightBackground, 128))
Paint.Background = Color.TextForeground
Paint.Font.Bold = False
@ -206,10 +207,10 @@ Public Sub gvwProc_Draw(X As Integer, Y As Integer, Width As Integer, Height As
If Row = $iInit Then Paint.DrawTextShadow(sName, X + 2, Y, Width - 4, Height, Align.Left)
Paint.DrawText(sName, X + 2, Y, Width - 4, Height, Align.Left)
If Row = $iInit Then
Paint.Rectangle(X + 0.5, Y + 0.5, Width - 1, Height - 1)
Paint.Background = Color.SelectedBackground
Paint.Stroke
Endif
' If Row = $iInit Then
' Paint.Rectangle(X + 0.5, Y + 0.5, Width - 1, Height - 1)
' Paint.Background = Color.SelectedBackground
' Paint.Stroke
' Endif
End