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

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

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