//--------------------------------------------------------------------------- void __fastcall TLinkLabelEx::CreateParams(TCreateParams &Params) { TWinControl::CreateParams(Params); if(CheckWin32Version(5, 1) && IsLinkLabelSupported()) CreateSubClass(Params, WC_LINK); else CreateSubClass(Params, L"STATIC"); Params.WindowClass.style &= ~CS_VREDRAW; }
//--------------------------------------------------------------------------- void __fastcall TRichEdit20::CreateParams(TCreateParams & Params) { const wchar_t RichEditModuleName[] = L"RICHED20.DLL"; long int OldError; OldError = SetErrorMode(SEM_NOOPENFILEERRORBOX); FLibrary = LoadLibrary(RichEditModuleName); SetErrorMode(OldError); FVersion20 = (FLibrary != 0); if (!FVersion20) { // fallback to richedit 1.0 TRichEdit::CreateParams(Params); } else { TCustomMemo::CreateParams(Params); CreateSubClass(Params, RICHEDIT_CLASS); Params.Style = Params.Style | (HideScrollBars ? 0 : ES_DISABLENOSCROLL) | (HideSelection ? 0 : ES_NOHIDESEL); Params.WindowClass.style = Params.WindowClass.style & ~(CS_HREDRAW | CS_VREDRAW); } }