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

* DisplayName should not set name

Browse Source 
git-svn-id: trunk@25619 -
This commit is contained in:
michael 2013-10-02 07:52:30 +00:00
parent 50b9b65395
commit 1f0c70508f
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
packages/fcl-web/src/base/fphttp.pp
View File

@ -435,16 +435,20 @@ end;
function TCustomWebAction.GetDisplayName: String;
begin
If (FName='') then
FName:=ClassName+IntToStr(self.Index);
Result:=FName;
If (Result='') then
begin
Result:=ClassName+IntToStr(self.Index);
if Result[1]='T' then
Delete(Result,1,1)
end;
end;
Function TCustomWebAction.GetNamePath : String;
begin
If (FName='') then
FName:=ClassName+IntToStr(self.Index);
Result:=FName;
If (Result='') then
FName:=ClassName+IntToStr(self.Index);
end;
procedure TCustomWebAction.SetDisplayName(const AValue: String);