paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-27 21:20:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: give better explanation why non-Flat toolbars draws their buttons with Hot state

Browse Source 
git-svn-id: trunk@41256 -
This commit is contained in:
paul 2013-05-18 13:56:08 +00:00
parent cd1166e74b
commit ac646e98b7
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/include/toolbutton.inc
View File

@ -316,7 +316,13 @@ begin
// draw button
if (Style in [tbsButton, tbsDropDown, tbsCheck]) then
begin
// if toolbar is not flat then normal and disabled state is drawn as hot
// non-Flat toolbars come from old windows where you was able to set how
// to draw it by adjusting toolbar window options
// with current windows toolbars should be drawn using Theme
// so let's treat flat toolbars as starndard toolbars and draw them using ThemeManager
// and to draw a non-Flat toolbars we need to somehow mimic always raised state
// of their buttons - a good way is to draw them using Hot style also for
// normal and disables states
TempDetails := Details;
if ((FToolBar <> nil) and not FToolBar.Flat) and (TempDetails.State in [1, 4]) then
TempDetails.State := 2;