trichview.com

trichview.support




Re: Is Empty?


Return to index


Author

Message

Jonas Bilinkevicius

Posted: 11/24/2003 17:23:31


Thank you Yernar for this translation.

This solve does not work correct if only image is present in RicViewEdit,

it show that RichView is empty.


Any better suggestions?


"Yernar Shambayev" <[email protected]> wrote in message

news:[email protected]...

>

> function isEmpty(MyRichView: TCustomRichView): Boolean;

> begin

>   Result := (MyRichView.ItemCount = 0) or ((MyRichView.ItemCount = 1) and

>     (MyRichView.GetItemStyle(0) >= 0) and

>     (MyRichView.GetItemText(0) = ''));

> end;

>





Powered by ABC Amber Outlook Express Converter