1
0
Files
applications
bindings
components
acs
cmdline
epiktimer
fpspreadsheet
gradcontrols
jvcllaz
manualdock
multithreadprocs
onguard
orpheus
powerpdf
rgbgraphics
richmemo
carbon
samples
win32
richmemo.pas
richmemofactory.pas
richmemopackage.lpk
richmemopackage.lrs
richmemopackage.pas
richmemoregister.pas
wsrichmemo.pas
richview
rtfview
rx
svn
tparadoxdataset
tvplanit
virtualtreeview
virtualtreeview-new
xdev_toolkit
examples
lclbindings
wst
lazarus-ccr/components/richmemo/richmemofactory.pas

29 lines
537 B
ObjectPascal
Raw Normal View History

unit RichMemoFactory;
{$mode objfpc}{$H+}
interface
uses
WSLCLClasses,
RichMemo
{$ifdef LCLWin32},Win32RichMemo{$endif}
{$ifdef LCLCarbon},CarbonRichMemo{$endif}
;
function RegisterCustomRichMemo: Boolean;
implementation
function RegisterCustomRichMemo: Boolean; alias : 'WSRegisterCustomRichMemo';
begin
{$ifdef LCLWin32}RegisterWSComponent(TCustomRichMemo, TWin32WSCustomRichMemo);{$endif}
{$ifdef LCLCarbon}RegisterWSComponent(TCustomRichMemo, TCarbonWSCustomRichMemo);{$endif}
Result := False;
end;
end.