paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-04 12:58:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

gtk1: Memo.SelStart does not change, when adding new lines with Memo.Lines.Add (bug #0008360)

Browse Source 
git-svn-id: trunk@18821 -
This commit is contained in:
paul 2009-02-25 02:58:44 +00:00
parent 59cea6c0ba
commit eeb0f872f1
1 changed files with 1 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/interfaces/gtk/gtk1memostrings.inc
View File

@ -277,7 +277,6 @@ procedure TGtkMemoStrings.Insert(Index: integer; const S: string);
var
LineStart: Integer;
NewLine: String;
NeedMoveCursor: Boolean;
LocalFreeze: Boolean;
begin
LocalFreeze:=FGtkText^.freeze_count = 0;
@ -286,13 +285,10 @@ begin
LockOnChange(PGtkObject(FGtkText),+1);
NeedMoveCursor := False;
if Index < FCachedCount then begin
//insert with LineEnding
LineStart := FLineStartPos[Index];
NewLine := S+LineEnding;
NeedMoveCursor := LineStart = gtk_editable_get_position(PGtkEditable(FGtkText));
gtk_editable_insert_text(PGtkEditable(FGtkText),PChar(NewLine), Length(NewLine), @LineStart);
end
else begin
@ -302,14 +298,13 @@ begin
NewLine := LineEnding+S+LineEnding
else
NewLine := S+LineEnding;
NeedMoveCursor := LineStart = gtk_editable_get_position(PGtkEditable(FGtkText));
gtk_editable_insert_text(PGtkEditable(FGtkText),PChar(NewLine), Length(NewLine), @LineStart);
end;
// when we are thawed out we will move the cursor
if LocalFreeze then begin
gtk_text_thaw(FGtkText);
if NeedMoveCursor and (LineStart <> -1) then
if (LineStart <> -1) then
gtk_editable_set_position(PGtkEditable(FGtkText), LineStart);
end;