paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-02 22:10:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Fixed tfpgtkclist.getcelltext

Browse Source
This commit is contained in:
michael 2003-01-01 16:32:01 +00:00
parent d88436f131
commit 3e0ea52795
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/extra/fpgtk/fpgtk.pp
View File

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