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

richmemo: implementing Redo and CanRedo for Win32

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5844 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2017-04-30 02:22:02 +00:00
parent a11167faac
commit d9a05ba0b9
3 changed files with 47 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -136,6 +136,9 @@ type
class function Print(const AWinControl: TWinControl; APrinter: TPrinter;
const AParams: TPrintParams; DoPrint: Boolean): Integer; override;
class procedure Redo(const AWinControl: TWinControl); override;
class function GetCanRedo(const AWinControl: TWinControl): Boolean; override;
end;
{ TWin32Inline }
@@ -531,7 +534,7 @@ begin
end;
class function TWin32WSCustomRichMemo.CanPasteFromClipboard(
const AWinControl: TWinControl): Boolean;
const AWinControl: TWinControl): boolean;
begin
Result:=Assigned(AWinControl) and (SendMessage(AWinControl.Handle, EM_CANPASTE, 0, 0)<>0);
end;
@@ -1437,6 +1440,17 @@ begin
end;
end;
class procedure TWin32WSCustomRichMemo.Redo(const AWinControl: TWinControl);
begin
SendMessage( AWinControl.Handle, EM_REDO, 0, 0);
end;
class function TWin32WSCustomRichMemo.GetCanRedo(const AWinControl: TWinControl
): Boolean;
begin
Result:=SendMessage( AWinControl.Handle, EM_CANREDO, 0, 0)<>0;
end;
// 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;