paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-03 22:40:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

gtk2, qt, qt5: header sort arrows are not supported

Browse Source 
git-svn-id: trunk@57755 -
This commit is contained in:
ondrej 2018-05-01 09:04:52 +00:00
parent 9b8424c65b
commit f6e8568dde
3 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -596,6 +596,11 @@ begin
end else
Result := GetBaseDetailsSize(Details);
{$ENDIF}
teHeader:
if Details.Part = HP_HEADERSORTARROW then
Result := Size(-1, -1) // not yet supported
else
Result := GetBaseDetailsSize(Details);
else
Result := GetBaseDetailsSize(Details);
end;

5
lcl/interfaces/qt/qtthemes.pas
View File

@ -880,6 +880,11 @@ begin
Result.cx := QStyle_pixelMetric(Style, QStylePM_MenuButtonIndicator, nil, nil);
end else
Result := inherited;
teHeader:
if Details.Part = HP_HEADERSORTARROW then
Result := Size(-1, -1) // not yet supported
else
Result := inherited;
else
Result := inherited;
end;

5
lcl/interfaces/qt5/qtthemes.pas
View File

@ -878,6 +878,11 @@ begin
Result.cx := QStyle_pixelMetric(Style, QStylePM_MenuButtonIndicator, nil, nil);
end else
Result := inherited;
teHeader:
if Details.Part = HP_HEADERSORTARROW then
Result := Size(-1, -1) // not yet supported
else
Result := inherited;
else
Result := inherited;
end;