paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-21 07:40:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL-GTK2: Fix deleting last line of TGtk2MemoStrings. Issue #37166, patch from Joeny Ang.

Browse Source 
git-svn-id: trunk@63277 -
This commit is contained in:
juha 2020-06-02 07:14:07 +00:00
parent 9b896ca480
commit 9233619fe7
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/gtk2/gtk2memostrings.inc
View File

@ -202,10 +202,8 @@ StartIter,
EndIter: TGtkTextIter; EndIter: TGtkTextIter;
begin begin
gtk_text_buffer_get_iter_at_line(FGtkBuf, @StartIter, Index); gtk_text_buffer_get_iter_at_line(FGtkBuf, @StartIter, Index);
if Index = Count-1 then begin if Index = Count-1 then
gtk_text_iter_backward_char(@StartIter);
gtk_text_buffer_get_end_iter(FGtkBuf, @EndIter) gtk_text_buffer_get_end_iter(FGtkBuf, @EndIter)
end
else else
gtk_text_buffer_get_iter_at_line(FGtkBuf, @EndIter, Index+1); gtk_text_buffer_get_iter_at_line(FGtkBuf, @EndIter, Index+1);
gtk_text_buffer_delete(FGtkBuf, @StartIter, @EndIter); gtk_text_buffer_delete(FGtkBuf, @StartIter, @EndIter);