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

fix for win richmemo scrollbars

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@988 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2009-10-24 21:36:20 +00:00
parent 0538d2218f
commit 526c860186
1 changed files with 6 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
components/richmemo/win32/win32richmemoproc.pas
View File

@ -304,11 +304,16 @@ begin
end;
class procedure TRichEditManager.SetHideSelection(RichEditWnd: Handle; AValue: Boolean);
var
style : LResult;
begin
// res-setting options might RichEdit style. Must restore it, after option is changed
style := GetWindowLong(RichEditWnd, GWL_STYLE);
if AValue then
SendMessage(RichEditWnd, EM_SETOPTIONS, ECOOP_AND, not ECO_NOHIDESEL)
else
SendMessage(RichEditWnd, EM_SETOPTIONS, ECOOP_OR, ECO_NOHIDESEL);
SetWindowLong(RichEditWnd, GWL_STYLE, style);
end;
type