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

richmemo: win32 - cleanup warnings

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6526 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2018-06-25 02:12:35 +00:00
parent b66e16bb76
commit 9df1d93d35
1 changed files with 7 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -400,6 +400,7 @@ begin
end else begin
sz.cx:=0;
sz.cy:=0;
pts:=Point(0,0);
end;
rminline.Draw(canvas, sz);
@ -1194,7 +1195,7 @@ var
p : POINTL;
begin
if not Assigned(AWinControl) then
inherited
Result:=0
else begin
p.x:=x;
p.y:=y;
@ -1205,7 +1206,10 @@ end;
class function TWin32WSCustomRichMemo.Search(const AWinControl: TWinControl;
const ANiddle: string; const SearchOpts: TIntSearchOpt): Integer;
begin
if not Assigned(RichEditManager) or not Assigned(AWinControl) then Exit;
if not Assigned(RichEditManager) or not Assigned(AWinControl) then begin
Result:=-1;
Exit;
end;
Result:=RichEditManager.Find(AWinControl.Handle, UTF8Decode(ANiddle), SearchOpts);
end;
@ -1488,11 +1492,11 @@ begin
// When theming is enabled, and the component should have a border around it,
// let the theme manager handle it
Handled:=(GetWindowLong(AWindow, GWL_EXSTYLE) and WS_EX_CLIENTEDGE <> 0) and (ThemeServices.ThemesEnabled);
Result := 0;
if Handled then begin
// Paint into this DC
WindowProc(AWindow, WM_NCPAINT, WParam, LParam);
ThemeServices.PaintBorder(RichMemo, True);
Result := 0;
end;
end;