Re: analysing paragraphs

Return to index

Author

Message

Marius Zemaitis

Posted: 10/31/2003 14:09:11

No matter, thanks anyway.

Yes, I meant an empty text item.

I just now wonder why this code (shows item id on mouse move):

procedure TfrmMain.RVEditAMouseMove(Sender: TObject; Shift: TShiftState; X,

  Y: Integer);

  var Msg : string;

      ARVData : TCustomRVFormattedData;

      AItemNo, Offs, St : integer;

begin

  msg := Format ( 'Pozicija: %d, %d ', [X, Y] );

  StatusBar1.Panels[0].Text := Msg;

  St := -1;

  RVEditA.GetItemAt(X,Y, ARVData, AItemNo, Offs, True);

  if (AItemNo>-1) then St := RVEditA.GetItemStyle(AItemNo);

  StatusBar1.Panels[1].TExt := Format ('It: %d, St: %d, Offs: %d', [AItemNo,

St, Offs] );

end;

it works ok, but it returns for exmaple 0 (not real item number) for the

first item in visual RVE area,

for example if scrolled down to end of document, it could show "0", for item

no 25, but if it is the first

visible item in RVE window.

Marko.

> What is this gap? Do you mean SpaceBefore/SpaceAfter/LineSpacing of

> paragraphs, or it is an empty text item?

>

> > Example of text:

> >

> > "any line of text here (item1)

> >  another line of text here as new para(item2)

> >

> >  and again another line of text (item3)"

> >

> > How to know if there is such gap between item2 and item3?

> > Is there an empty item between item2 and item3?

> > I do simple traversing through items.