paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-24 01:20:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL, grids, fix Title.Caption is not changed if new value is one char and current caption value starts with the same char, seems FCaption^ is not anymore treated as a string but as a char)

Browse Source 
git-svn-id: trunk@45343 -
This commit is contained in:
jesus 2014-06-04 22:50:38 +00:00
parent ec6d63f4a5
commit f303a96881
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/grids.pas
View File

@ -10841,7 +10841,7 @@ end;
procedure TGridColumnTitle.SetCaption(const AValue: TCaption);
begin
if (FCaption=nil)or(AValue<>FCaption^) then begin
if (FCaption=nil)or(AValue<>StrPas(FCaption)) then begin
if FCaption<>nil then
StrDispose(FCaption);
FCaption := StrNew(PChar(AValue));