From f2277feba4197b856f79b4576e6c417b0aa439b3 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Beno=C3=AEt=20Minisini?= Date: Wed, 11 Mar 2015 21:13:29 +0000 Subject: [PATCH] [DEVELOPMENT ENVIRONMENT] * 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 --- .../gambas3/.src/Editor/Code/FProcedureList.class | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/app/src/gambas3/.src/Editor/Code/FProcedureList.class b/app/src/gambas3/.src/Editor/Code/FProcedureList.class index 5f47760bf..6bbaccc35 100644 --- a/app/src/gambas3/.src/Editor/Code/FProcedureList.class +++ b/app/src/gambas3/.src/Editor/Code/FProcedureList.class @@ -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