paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-18 07:29:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL-GTK2: Draw TToolButton correctly in TGtk2ThemeServices. Issue #33536, patch from Yuriy Kopnin.

Browse Source 
git-svn-id: trunk@57583 -
This commit is contained in:
juha 2018-03-31 14:17:44 +00:00
parent 9d840e6fad
commit e12c19d97c
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/gtk2/gtk2themes.pas
View File

@ -375,7 +375,7 @@ begin
TS_PRESSED, TS_CHECKED, TS_HOTCHECKED:
Result.Shadow := GTK_SHADOW_IN;
TS_HOT:
Result.Shadow := GTK_SHADOW_ETCHED_OUT;
Result.Shadow := GTK_SHADOW_OUT;
else
Result.Shadow := GTK_SHADOW_NONE;
end;
@ -383,7 +383,6 @@ begin
begin
case Details.State of
TS_DISABLED: Result.State := GTK_STATE_INSENSITIVE;
//TS_HOT: Result.State := GTK_STATE_ACTIVE; // << painting bug in Laz+Gtk2
else
Result.State := GTK_STATE_NORMAL;
end;
@ -391,8 +390,7 @@ begin
Result.State := GtkButtonMap[Details.State];
Result.IsHot := Details.State in [TS_HOT, TS_HOTCHECKED];
if Result.Style = nil then
Result.Style := GetStyle(lgsToolButton);
Result.Style := GetStyle(lgsButton);
if (Details.Part = TP_SPLITBUTTONDROPDOWN) then
begin
Result.Detail := 'arrow';