49a8f3acb3
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5845 8e941d3f-bd1b-0410-a28a-d453659cc2b4
64 lines
2.1 KiB
ObjectPascal
64 lines
2.1 KiB
ObjectPascal
unit RichMemoFactory;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
{$define NoRichMemo}
|
|
{$ifdef LCLWin32}{$undef NoRichMemo}{$endif}
|
|
{$ifdef LCLCarbon}{$undef NoRichMemo}{$endif}
|
|
{$ifdef LCLGtk2}{$undef NoRichMemo}{$endif}
|
|
{$ifdef LCLCocoa}{$undef NoRichMemo}{$endif}
|
|
{$ifdef LCLQt}{$undef NoRichMemo}{$endif}
|
|
{$ifdef LCLQt5}{$undef NoRichMemo}{$endif}
|
|
|
|
uses
|
|
WSLCLClasses,
|
|
RichMemo
|
|
{$ifdef NoRichMemo},WSRichMemo{$endif}
|
|
{$ifdef LCLWin32},Win32RichMemo{$endif}
|
|
{$ifdef LCLCarbon},CarbonRichMemo{$endif}
|
|
|
|
{$ifdef LCLGtk2}
|
|
//Since Gtk doesn't have a native RTF loader, RichMemo provides
|
|
//a widgetset independent loader. It's registered by default for
|
|
//Gtk. The registration can be prevented by compiling
|
|
//with RichMemoNoDefaultRTFLoader defined.
|
|
//or setting RTFLoadStream to nil (or any other routine) in runtime.
|
|
,RichMemoRTF, Gtk2RichMemo
|
|
{$endif}
|
|
{$ifdef LCLCocoa},CocoaRichMemo{$endif}
|
|
{$ifdef LCLQt},QtRichMemo{$endif}
|
|
{$ifdef LCLQt5},Qt5RichMemo{$endif}
|
|
;
|
|
|
|
function RegisterCustomRichMemo: Boolean;
|
|
|
|
implementation
|
|
|
|
function RegisterCustomRichMemo: Boolean; alias : 'WSRegisterCustomRichMemo';
|
|
begin
|
|
Result := True;
|
|
{$ifdef LCLWin32}RegisterWSComponent(TCustomRichMemo, TWin32WSCustomRichMemo);{$endif}
|
|
{$ifdef LCLCarbon}RegisterWSComponent(TCustomRichMemo, TCarbonWSCustomRichMemo);{$endif}
|
|
{$ifdef LCLGtk2}
|
|
RegisterWSComponent(TCustomRichMemo, TGtk2WSCustomRichMemo);
|
|
{$ifndef RichMemoNoDefaultRTFLoader}
|
|
RegisterRTFLoader;
|
|
RegisterRTFSaver;
|
|
{$endif}
|
|
{$endif}
|
|
{$ifdef LCLCocoa}RegisterWSComponent(TCustomRichMemo, TCocoaWSCustomRichMemo);{$endif}
|
|
{$ifdef LCLQt}RegisterWSComponent(TCustomRichMemo, TQtWSCustomRichMemo);{$endif}
|
|
{$ifdef LCLQt5}RegisterWSComponent(TCustomRichMemo, TQtWSCustomRichMemo);{$endif}
|
|
{$ifdef NoRichMemo}RegisterWSComponent(TCustomRichMemo, TWSCustomRichMemo);{$endif}
|
|
end;
|
|
|
|
initialization
|
|
// initialization is here just to prevent compiler warning about not being used
|
|
// the unit is actually used by providing an implementation for WSREgisterCustomRichMemo class
|
|
// thus it shouldn't be smart-linked out by a smartlinker. hmm
|
|
|
|
end.
|
|
|