Synedit question (porting delphi app)

[snorkel]

Hi,
I am porting a delphi app that uses synapse and the Lazarus version is missing BufferToDisplayPos.  Anyone know if the Lazarus version can do this?

Also in the BufferToDisplayPos function is a reference to a WordWrapPlugin which does not seem to exist in Lazarus Synedit.

I am trying to port the search and replace demo from the Delphi version of Synapse.

[Martin_fr]

Maybe CharIndexToRowCol from TSynMemo?
TSynMemo is kind of deprecated, it is more or less a copy, with 4 added functions....

Note the Column is the byte in text. That differs from the pos on sreen (tab= 1 byte, but several pos on screen / utf8 = several byte, but 1 pos / full width char...)
See LogicalToPhysical


WordWrap is not yet implemented.

There is a port of the original SynEdit. But I know little about it.
http://wiki.lazarus.freepascal.org/SynEdit#Synedit_2.0.5_port

[snorkel]

Hi Martin,
The actual line I am having issue with is:

APos := SynEditor.ClientToScreen(SynEditor.RowColumnToPixels(SynEditor.BufferToDisplayPos(BufferCoord(Column, Line) ) ) );

It gets the screen cursor position so the replace prompt dialog displays under the word to be replaced.

[snorkel]

Hey, I got it working :-)

apos:= editor.ClientToScreen(Editor.RowColumnToPixels(editor.BlockBegin));

I thought hey it's selecting the word to be replaced and saw the BlockBegin returns a tpoint, so I tried it and it works exactly the same.

[Martin_fr]

Afaik RowColumnToPixels takes a ScreenPos (called Physical)

BlockBegin is "Logical" that is bytePos. So I a mno sure this works, if there are tabs, or accented chars....

CaretXY is "Physical" (sreenpos)

Or try LogicalToPhysical(BlockBegin)

Also test, if horiz scrolled

[snorkel]

hmm, it works exactly like the delphi one using BlockBegin, I tested it and it moves the prompt dialog perfectly vertically and horizontally and positions it right under the selected word.
I will test it some more and if I see issues I will try some of the suggestions, but for my purposes it seems to be working fine.

[marcov]

Use some accented chars.

[snorkel]

Tried it with propósito and it worked fine also worked fine with tabs in the text.

[snorkel]

Should I post the converted demo project so you guys can see it all? 

[snorkel]

I tried it with CaretXY, but it puts the left edge of the dialog at the end of the selected word instead of the beginning of the selected block.

[snorkel]

ok, I looked at the source and it works because
RowColumnToPixels converts the text screen pos to the client area coordinate.
So using blockbegin should be fine for getting the demo to work.

function TCustomSynEdit.RowColumnToPixels(RowCol: TPoint): TPoint;
// converts screen position (1,1) based
// to client area coordinate (0,0 based on canvas)   

[Martin_fr]

function TCustomSynEdit.RowColumnToPixels(RowCol: TPoint): TPoint;
// converts screen position (1,1) based
// to client area coordinate (0,0 based on canvas)

And again: BlockBegin is not the screen pos, not always

Code: [Select]

ÖÖÖ SelectMe
The screen pos are as follows

Code: [Select]

1 Ö 2 Ö 3 Ö 4 space 5 SelectMe

But an "Ö" is 2 bytes.

If BlockBegin is at the "S" (including the "S" in the selection) then BlockBegin.x = 8.

---

Same with tab

Code: [Select]

--->SelectMe
"--->" is one tab, with a tabwidth of 4.
If BlockBegin is at the "S"  then BlockBegin.x = 2 (tab is only 1 byte (#9)). But you can see you need a value of 4.

SynEdit.LogicalToPhysicalPos( SynEdit.BlockBegin ) gives the correct point.

[snorkel]

yep, tested with those chars it moves the start pos of the dialog over a bit on the replace word.

changed it to:

apos:= editor.ClientToScreen(Editor.RowColumnToPixels(editor.LogicalToPhysicalPos(editor.BlockBegin)));

Thanks for helping me with this.

Snorkel