paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-05 12:57:14 +01:00
Code Issues Packages Projects Releases Wiki Activity

win32: fix drawing of bitbtn under windows vista/7 (issue #0015139)

Browse Source 
git-svn-id: trunk@30231 -
This commit is contained in:
paul 2011-04-07 06:50:57 +00:00
parent 0ab62c8fa2
commit 0962e03d29
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/interfaces/win32/win32wsbuttons.pp
View File

@ -38,7 +38,7 @@ uses
LCLType, LCLProc, LCLMessageGlue, LMessages, Themes,
////////////////////////////////////////////////////
WSProc, WSButtons, Win32WSControls, Win32WSImgList,
Win32UxTheme, Win32Themes;
UxTheme, Win32Themes;
type
@ -164,7 +164,7 @@ var
AEffect: TGraphicsDrawEffect;
TmpDC: HDC;
PaintBuffer: HPAINTBUFFER;
Options: TDTTOpts;
Options: DTTOpts;
Details: TThemedElementDetails;
ShowAccel: Boolean;
Color: TColor;
@ -285,8 +285,8 @@ var
if Color = clDefault then
Color := BitBtn.GetDefaultColor(dctFont);
Options.crText := ThemeServices.ColorToRGB(Color, @Details);
Options.crShadow := Options.crText;
Options.dwFlags := Options.dwFlags or DTT_TEXTCOLOR;
Options.iFontPropId := TMT_GLYPHFONT;
Options.dwFlags := Options.dwFlags or DTT_TEXTCOLOR or DTT_FONTPROP;
end;
TWin32ThemeServices(ThemeServices).DrawTextEx(TmpDC, Details, ButtonCaption,
Rect(XDestText, YDestText, XDestText + TextSize.cx, YDestText + TextSize.cy),