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

LCL, do not check for default grid's column title, issue #16845

Browse Source 
git-svn-id: trunk@27320 -
This commit is contained in:
jesus 2010-09-12 00:00:13 +00:00
parent c3c3c6425c
commit a1fc7a7bee
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/grids.pas
View File

@ -9725,9 +9725,7 @@ procedure TGridColumnTitle.SetCaption(const AValue: TCaption);
begin begin
if (FCaption=nil)or(AValue<>FCaption^) then begin if (FCaption=nil)or(AValue<>FCaption^) then begin
if FCaption<>nil then if FCaption<>nil then
StrDispose(FCaption) StrDispose(FCaption);
else if (AValue=GetDefaultCaption) then
exit;
FCaption := StrNew(PChar(AValue)); FCaption := StrNew(PChar(AValue));
FColumn.ColumnChanged; FColumn.ColumnChanged;
end; end;