paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 16:59:49 +02:00
Code Issues Packages Projects Releases Wiki Activity

gtk: fix similar memory leaks

Browse Source 
git-svn-id: trunk@15646 -
This commit is contained in:
paul 2008-07-02 07:04:14 +00:00
parent 02f171c994
commit 2a5dbf5d28
1 changed files with 19 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -48,9 +48,13 @@ end;
//////// Code //////
function TGtkMemoStrings.GetTextStr: string;
var
AText: PgChar;
begin
Result := gtk_editable_get_chars(PGtkEditable(FGtkText), 0,
gtk_text_get_length(FGtkText));
AText := gtk_editable_get_chars(PGtkEditable(FGtkText), 0,
gtk_text_get_length(FGtkText));
Result := StrPas(AText);
g_free(AText);
end;
function TGtkMemoStrings.GetCount: integer;
@ -63,18 +67,22 @@ function TGtkMemoStrings.Get(Index: Integer): string;
var
LineStart,
LineEnd: Integer;
AText: PgChar;
begin
LineStart := FLineStartPos[Index];
if FCachedCount-1 = Index then begin
LineEnd := gtk_text_get_length(FGtkText);
end
else begin
LineEnd := FLineStartPos[Index+1]-Length(LineEnding);
end;
if LineStart=LineEnd then
Result := ''
if FCachedCount - 1 = Index then
LineEnd := gtk_text_get_length(FGtkText)
else
Result := gtk_editable_get_chars(@(FGtkText^.editable), LineStart, LineEnd);
LineEnd := FLineStartPos[Index + 1] - Length(LineEnding);
if LineStart <> LineEnd then
begin
AText := gtk_editable_get_chars(@(FGtkText^.editable), LineStart, LineEnd);
Result := StrPas(AText);
g_free(AText);
end
else
Result := ''
end;
procedure TGtkMemoStrings.AdjustIndices(FromIndex, ToIndex: Integer;