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

Gtk2: when style is drawing button then use style from button. issue #22901

Browse Source 
git-svn-id: trunk@38762 -
This commit is contained in:
zeljko 2012-09-20 10:38:05 +00:00
parent b056f168e4
commit 89bfe3e1de
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -262,8 +262,7 @@ begin
BP_PUSHBUTTON:
begin
Result.Widget := GetStyleWidget(lgsButton);
if Result.Style = nil then
Result.Style := GetStyle(lgsButton);
Result.Style := GetStyle(lgsButton);
Result.State := GtkButtonMap[Details.State];
if Details.State = PBS_PRESSED then
Result.Shadow := GTK_SHADOW_IN