[Lazarus] SynEdit

[Martin]

On 04/04/2011 19:59, Martin wrote:
> On 04/04/2011 17:23, patspiper wrote:
>> On 04/04/2011 06:47 PM, Martin wrote:
>>>
>>> but what about using LogicalCaretXY, then getting the line, and 
>>> reading it?
>>>
>>> possible subtracting the length of CurrentString.
>> I am almost there (by giving it another shot at the ide sources):
>>
>>   Line:=SynEdit1.LineText;
>>   p1:=SynEdit1.LogicalCaretXY;
>>   if (p1.x>length(Line)+1) or (Line='') then exit;
>>   SynEdit1.GetWordBoundsAtRowCol(p1, x1, x2);
>>   // There must be a saner way than subtracting 2
>>   p1.x := x1-2;
>>   SynEdit1.GetWordBoundsAtRowCol(p1, x1, x2);
>>   WordToken := copy(Line, x1, x2);
>>
>> However, what is the correct way to go back to the previous token? 
>> Subtracting 2 is not the way.
>
> The caret is at the end of currentstring.
> So your dot should be 1 before. But if you allow spaces after the dot, 
> then it can be anything before..., and maybe you even allow it on the 
> previous line?
>
> Note that LogicalCaret is 1 based, and 1 is before the first char.
> Also you must use LogicalCaret, normal Caret will not work if there 
> are multybyte chars, or tabs.
> - LogicalCaret: BYTE (not char) pos in text
> -Caret (sometime PhysicalCaret): screenpos, a tab is one byte in the 
> text, but may be 4 chars on the screen // an a-umlaut is 2 bytes in 
> the text, but 1 on the screen)
>
> If your line is
> ABC.def
> And the caret is between the A and B, then  LogicalCaret.X = 2 (1 
> would be before the A)
>
> So if you are behind the "def" LC.x = 8
> x := LC.x - len(CurrentString);
>
> makes x = 8 - 3 = 5
> LineString[5] = 'd'
>
> so you need to subtract another one to see the char before currentstring
> x:= LC.x-length(CurrentString)
>
x:= LC.x-length(CurrentString)  -1


somehow the -1 got lost
> while (x> 1) and (linestring[x] in[#32,#9]) do dec(x);
>
> Now you should be on the first none space, before the currentstring....
>
> and so on,
> It all depends on what you believe a word/token is, what are the 
> boundaries...
>
> You can look at GetWordBoundsAtRowCol....
>
> maybe it expects to be NOT at the end of the word, so by substracting 
> one more (-2) you get into the middle (or to the start) of the word???
>
> Not sure, haven't looked at
>
>
>
>
>
>
> -- 
> _______________________________________________
> Lazarus mailing list
> Lazarus at lists.lazarus.freepascal.org
> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus