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

richmemo: removing TWinLangOptions from the unit interface, due to issues with x64 compilation. The type has not been used by anyone yet.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5295 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2016-10-27 13:05:30 +00:00
parent a31f259f9d
commit 1bdb92bd6e
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -178,7 +178,7 @@ function GetOleObject(ole: IRichEditOle; SelStart: Integer; out res: TREOBJECT):
function SetOleObjectSize(ARichMemo: TCustomRichMemo; SelStart: Integer; const ASize: TSize): Boolean;
function GetOleObjectSize(ARichMemo: TCustomRichMemo; SelStart: Integer; var ASize: TSize): Boolean;
type
(*type
TWinLangOptions = set of (
wloAutokeyboard // IMF_AUTOKEYBOARD = $0001
, wloAutoFont // IMF_AUTOFONT = $0002
@ -193,7 +193,7 @@ function GetLangOptions(hnd: THandle): TWinLangOptions; overload;
function GetLangOptions(rm: TCustomRichMemo): TWinLangOptions; overload;
procedure SetLangOptions(hnd: THandle; const opts: TWinLangOptions); overload;
procedure SetLangOptions(rm: TCustomRichMemo; const opts: TWinLangOptions); overload;
*)
implementation
const
@ -1660,7 +1660,7 @@ begin
ASize.cx:=round(res.sizel.cx*RevSizeFactor);
ASize.cy:=round(res.sizel.cy*RevSizeFactor);
end;
(*
function GetLangOptions(hnd: THandle): TWinLangOptions;
var
r: LRESULT;
@ -1696,7 +1696,7 @@ begin
SetLangOptions(rm.Handle, opts);
end;
end;
*)
initialization
NCPaint := @ThemedNCPaint;
AllocOLEObject := @DefAllocOleObject;