+ Fixed tfpgtkclist.getcelltext

This commit is contained in:
michael 2003-01-01 16:32:01 +00:00
parent d88436f131
commit 3e0ea52795

View File

@ -7941,7 +7941,7 @@ begin
if (r = 0) then
result := ''
else
result := string(s^);
result := strpas(s);
end;
procedure TFPgtkCList.SetCellText (Row:integer; Column:integer; TheValue:string);