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

Published TnamedItem.Name as in Delphi

Browse Source 
git-svn-id: trunk@7362 -
This commit is contained in:
michael 2007-05-16 15:02:49 +00:00
parent e46ecfb3d4
commit 06f27aa25c
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/fcl-db/src/db.pas
View File

@ -141,9 +141,10 @@ type
protected protected
function GetDisplayName: string; override; function GetDisplayName: string; override;
procedure SetDisplayName(const AValue: string); override; procedure SetDisplayName(const AValue: string); override;
public Public
property Name : string read FName write SetDisplayName;
property DisplayName : string read GetDisplayName write SetDisplayName; property DisplayName : string read GetDisplayName write SetDisplayName;
published
property Name : string read FName write SetDisplayName;
end; end;
{ TDefCollection } { TDefCollection }