paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-31 01:54:51 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: default theme text drawing remove offset from pushed text. Neither win32 nor Gtk2 do that. Needed for consequent painting of glyph and text.

Browse Source 
git-svn-id: trunk@50895 -
This commit is contained in:
ondrej 2015-12-18 09:29:35 +00:00
parent 997be6a69a
commit a511b3e510
1 changed files with 0 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/themes.pas
View File

@ -2383,15 +2383,6 @@ begin
Canvas.TextRect(R, R.Left, R.Top, S, TXTStyle); Canvas.TextRect(R, R.Left, R.Top, S, TXTStyle);
Canvas.Font.Color := clBtnShadow; Canvas.Font.Color := clBtnShadow;
OffsetRect(R, -1, -1); OffsetRect(R, -1, -1);
end
else
begin
// if pushed, move text 1 pixel right and down
if IsPushed(Details) then
begin
Inc(R.Left, 1);
Inc(R.Top, 1);
end;
end; end;
if (Details.Element = teTreeview) and (Details.Part = TVP_TREEITEM) then if (Details.Element = teTreeview) and (Details.Part = TVP_TREEITEM) then
begin begin