pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

GradControls, make button caption transparent

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2659 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
jesusr
2013-02-05 18:32:57 +00:00
parent b4fadb7ad8
commit 2d5f3f2b19
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
components/gradcontrols/src/ugradbtn.pas
View File

@ -1118,7 +1118,8 @@ begin
ACanvas.FillRect(FDropdownMarkAreaRect); ACanvas.FillRect(FDropdownMarkAreaRect);
ACanvas.Draw(FDropdownMarkAreaRect.Left, FDropdownMarkAreaRect.Top, FBackgroundSplitCaches[FDropDownState]); ACanvas.Draw(FDropdownMarkAreaRect.Left, FDropdownMarkAreaRect.Top, FBackgroundSplitCaches[FDropDownState]);
end; end else
ACanvas.Brush.Style := bsClear;
TextOffset := IfThen(tempState = bsDown, 1); TextOffset := IfThen(tempState = bsDown, 1);