pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

richmemo: win32 fix for theme border drawing. #28269, based on the patch by Andrey Korol

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4190 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2015-06-15 16:52:31 +00:00
parent 22e5adbb82
commit 51cb7240d2
1 changed files with 1 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
components/richmemo/win32/win32richmemo.pas
View File

@ -1291,6 +1291,7 @@ begin
Handled:=(GetWindowLong(AWindow, GWL_EXSTYLE) and WS_EX_CLIENTEDGE <> 0) and (ThemeServices.ThemesEnabled); Handled:=(GetWindowLong(AWindow, GWL_EXSTYLE) and WS_EX_CLIENTEDGE <> 0) and (ThemeServices.ThemesEnabled);
if Handled then begin if Handled then begin
// Paint into this DC // Paint into this DC
WindowProc(AWindow, WM_NCPAINT, WParam, LParam);
ThemeServices.PaintBorder(RichMemo, True); ThemeServices.PaintBorder(RichMemo, True);
Result := 0; Result := 0;
end; end;