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

richmemo: introducing zoomfactor property with win32 implementation.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3827 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2014-12-06 20:49:00 +00:00
parent fdd9b88f43
commit 9b8a8037c7
3 changed files with 46 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -103,6 +103,8 @@ type
class function Search(const AWinControl: TWinControl; const ANiddle: string;
const SearchOpts: TIntSearchOpt): Integer; override;
class procedure SetZoomFactor(const AWinControl: TWinControl; AZoomFactor: Double); override;
end;
implementation
@@ -681,6 +683,16 @@ begin
if not Assigned(RichEditManager) or not Assigned(AWinControl) then Exit;
Result:=RichEditManager.Find(AWinControl.Handle, UTF8Decode(ANiddle), SearchOpts);
end;
class procedure TWin32WSCustomRichMemo.SetZoomFactor(
const AWinControl: TWinControl; AZoomFactor: Double);
var
DN : WParam;
begin
if not Assigned(RichEditManager) or not Assigned(AWinControl) then Exit;
DN := 1000;
SendMessage( AWinControl.Handle, EM_SETZOOM, round(AZoomFactor * DN), DN);
end;
end.