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;

>