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

richmemo: cleanup registering richmemo class

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1227 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2010-05-20 10:28:35 +00:00
parent a5f834253f
commit 9238e84017
1 changed files with 0 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/richmemo/richmemofactory.pas
View File

@ -24,16 +24,12 @@ implementation
{$ifdef LCLGtk2}{$undef NoRichMemo}{$endif}
function RegisterCustomRichMemo: Boolean; alias : 'WSRegisterCustomRichMemo';
var
cls : TWSLCLComponentClass;
begin
Result := True;
{$ifdef LCLWin32}RegisterWSComponent(TCustomRichMemo, TWin32WSCustomRichMemo);{$endif}
{$ifdef LCLCarbon}RegisterWSComponent(TCustomRichMemo, TCarbonWSCustomRichMemo);{$endif}
{$ifdef LCLGtk2}RegisterWSComponent(TCustomRichMemo, TGtk2WSCustomRichMemo);{$endif}
{$ifdef NoRichMemo}RegisterWSComponent(TCustomRichMemo, TWSCustomRichMemo);{$endif}
cls:=FindWSComponentClass(TCustomRichMemo);
if not Assigned(cls) then RegisterWSComponent(TCustomRichMemo, TWSCustomRichMemo);
end;