paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 15:40:41 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: buttonglyph: remove hot and down states from glyph drawing to comply with TToolButton.

Browse Source 
win32 doesn't use hot/down glyph states. Linux uses them.
This is probably theme-dependent (not WS-dependent!). The decision if to use hot/down glyphs should be made on theme-level.

git-svn-id: trunk@50897 -
This commit is contained in:
ondrej 2015-12-18 09:35:45 +00:00
parent 03af99a053
commit a974fc4459
1 changed files with 8 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
lcl/include/buttonglyph.inc
View File

@ -93,29 +93,19 @@ begin
AEffect := gdeNormal;
case State of
bsDisabled:
begin
if NumGlyphs > 1 then
AStoredState := State
else
AEffect := gdeDisabled;
end;
bsDown:
begin
if NumGlyphs > 2 then
AStoredState := State
else
AEffect := gdeShadowed;
end;
bsExclusive:
if NumGlyphs > 3 then
if NumGlyphs > 1 then
AStoredState := State
else
AEffect := gdeNormal;
AEffect := gdeDisabled;
bsDown:
if NumGlyphs > 2 then
AStoredState := State;
bsExclusive:
if NumGlyphs > 3 then
AStoredState := State;
bsHot:
if NumGlyphs > 4 then
AStoredState := State
else
AEffect := gdeHighlighted;
end;
AIndex := FImageIndexes[AStoredState];
end;