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

richmemo: win32 smooth scroller (instead of Win32CustomMemo per-line scroller)

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5969 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2017-07-06 20:19:51 +00:00
parent ede1098cd7
commit e66ef65444
1 changed files with 14 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -139,6 +139,8 @@ type
class procedure Redo(const AWinControl: TWinControl); override; class procedure Redo(const AWinControl: TWinControl); override;
class function GetCanRedo(const AWinControl: TWinControl): Boolean; override; class function GetCanRedo(const AWinControl: TWinControl): Boolean; override;
class procedure ScrollBy(const AWinControl: TWinControl; DeltaX, DeltaY: integer); override;
end; end;
{ TWin32Inline } { TWin32Inline }
@ -1451,6 +1453,18 @@ begin
Result:=SendMessage( AWinControl.Handle, EM_CANREDO, 0, 0)<>0; Result:=SendMessage( AWinControl.Handle, EM_CANREDO, 0, 0)<>0;
end; end;
class procedure TWin32WSCustomRichMemo.ScrollBy(const AWinControl: TWinControl;
DeltaX, DeltaY: integer);
var
pt : TPoint;
begin
if not Assigned(AWinControl) or not (AWinControl.HandleAllocated) or ((DeltaX=0) and (DeltaY=0)) then Exit;
Windows.SendMessage(AWinControl.Handle, EM_GETSCROLLPOS, 0, LPARAM(@pt));
dec(pt.x,DeltaX);
dec(pt.y,Deltay);
Windows.SendMessage(AWinControl.Handle, EM_SETSCROLLPOS, 0, LPARAM(@pt));
end;
// The function doesn't use Windows 7 (Vista?) animations. And should. // The function doesn't use Windows 7 (Vista?) animations. And should.
function ThemedNCPaint(AWindow: Windows.HANDLE; RichMemo: TCustomRichMemo; WParam: WParam; LParam: LParam; var Handled: Boolean): LResult; function ThemedNCPaint(AWindow: Windows.HANDLE; RichMemo: TCustomRichMemo; WParam: WParam; LParam: LParam; var Handled: Boolean): LResult;