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

IDEIntf: simplification

Browse Source 
git-svn-id: trunk@38033 -
This commit is contained in:
mattias 2012-07-24 16:57:47 +00:00
parent e2a4592001
commit 51d31bea71
1 changed files with 4 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
ideintf/propedits.pp
View File

@ -6079,17 +6079,11 @@ begin
end;
function GetClassUnitName(Value: TClass): string;
var
TheTypeInfo: PTypeInfo;
TheTypeData: PTypeData;
begin
Result:='';
TheTypeInfo:=ClassTypeInfo(Value);
if TheTypeInfo=nil then exit;
TheTypeData:=GetTypeData(TheTypeInfo);
if TheTypeData=nil then exit;
Result:=TheTypeData^.UnitName;
//debugln('GetClassUnitName A Result="',Result,'"');
if Value=nil then
Result:=''
else
Result:=Value.UnitName;
end;
procedure CreateComponentEvent(AComponent: TComponent; const EventName: string);