Rev 4 | Rev 7 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 4 | Rev 5 | ||
|---|---|---|---|
| Line 348... | Line 348... | ||
| 348 | if AMemo is TMemo then |
348 | if AMemo is TMemo then |
| 349 | begin |
349 | begin |
| 350 | Line := AMemo.Perform(EM_LINEFROMCHAR,AMemo.SelStart, 0); |
350 | Line := AMemo.Perform(EM_LINEFROMCHAR,AMemo.SelStart, 0); |
| 351 | Column := AMemo.SelStart - AMemo.Perform(EM_LINEINDEX, Line, 0); |
351 | Column := AMemo.SelStart - AMemo.Perform(EM_LINEINDEX, Line, 0); |
| 352 | end; |
352 | end; |
| 353 | *) |
- | |
| 354 | if AMemo is TSynEdit then |
353 | if AMemo is TSynEdit then |
| 355 | begin |
354 | begin |
| - | 355 | *) |
|
| 356 | Line := AMemo.CaretY-1; |
356 | Line := AMemo.CaretY-1; |
| 357 | Column := AMemo.CaretX-1; |
357 | Column := AMemo.CaretX-1; |
| - | 358 | (* |
|
| 358 | end; |
359 | end; |
| - | 360 | *) |
|
| 359 | 361 | ||
| 360 | //Validate the line number |
362 | //Validate the line number |
| 361 | if AMemo.Lines.Count-1 < Line then Exit; |
363 | if AMemo.Lines.Count-1 < Line then Exit; |
| 362 | 364 | ||
| 363 | //Get the text of the line |
365 | //Get the text of the line |
| 364 | LineText := AMemo.Lines[Line]; |
366 | LineText := AMemo.Lines[Line]; |
| 365 | 367 | ||
| - | 368 | if LineText = '' then exit(''); |
|
| - | 369 | ||
| 366 | // Column zeigt auf das Zeichen LINKS vom Cursor! |
370 | // Column zeigt auf das Zeichen LINKS vom Cursor! |
| 367 | 371 | ||
| 368 | InitPos := Column; |
372 | InitPos := Column; |
| 369 | if not ValidChar(LineText[InitPos]) then Inc(InitPos); |
373 | if not ValidChar(LineText[InitPos]) then Inc(InitPos); |
| 370 | while (InitPos-1 >= 1) and ValidChar(LineText[InitPos-1]) do Dec(InitPos); |
374 | while (InitPos-1 >= 1) and ValidChar(LineText[InitPos-1]) do Dec(InitPos); |