diff options
Diffstat (limited to 'apps/windoze/CBuilder5/BibleCS/RxRichEditX.cpp')
-rw-r--r-- | apps/windoze/CBuilder5/BibleCS/RxRichEditX.cpp | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/apps/windoze/CBuilder5/BibleCS/RxRichEditX.cpp b/apps/windoze/CBuilder5/BibleCS/RxRichEditX.cpp index f42ffb1..a304b10 100644 --- a/apps/windoze/CBuilder5/BibleCS/RxRichEditX.cpp +++ b/apps/windoze/CBuilder5/BibleCS/RxRichEditX.cpp @@ -591,10 +591,18 @@ void TRxRichEditX::fillWithVerses(SWModule *module, ListKey *verses, bool headin this->SelAttributes->Link = true; } if (Visible) { + TComponent *owner = this->Owner; + TForm *parentForm = dynamic_cast<TForm *>(owner); + TWinControl *focus = 0; + + if (parentForm) + focus = parentForm->ActiveControl; this->SetFocus(); SelStart = 0; SelLength = 0; SendMessage(Handle, EM_SCROLLCARET, 0, 0); + if (focus) + focus->SetFocus(); } Repaint(); |