paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-17 08:09:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

Revert r57583 #e12c19d97c because TSpeedButton.Flat stopped working. Issue #34010.

Browse Source 
git-svn-id: trunk@58588 -
This commit is contained in:
juha 2018-07-21 21:24:38 +00:00
parent 7e3ca12084
commit ddec5e7523
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
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_OUT;
Result.Shadow := GTK_SHADOW_ETCHED_OUT;
else
Result.Shadow := GTK_SHADOW_NONE;
end;
@ -390,7 +390,8 @@ begin
Result.State := GtkButtonMap[Details.State];
Result.IsHot := Details.State in [TS_HOT, TS_HOTCHECKED];
Result.Style := GetStyle(lgsButton);
if Result.Style = nil then
Result.Style := GetStyle(lgsToolButton);
if (Details.Part = TP_SPLITBUTTONDROPDOWN) then
begin
Result.Detail := 'arrow';