paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-14 10:37:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

added for Delphi compati: TPropertyEditor.GetComponent

Browse Source 
git-svn-id: trunk@5694 -
This commit is contained in:
mattias 2004-07-18 09:58:44 +00:00
parent 66d9c63226
commit b411535774
2 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/rtticontrols/examples/exampleproject1.lpi
View File

@ -9,7 +9,7 @@
<SaveOnlyProjectUnits Value="True"/>
</Flags>
<MainUnit Value="0"/>
<ActiveEditorIndexAtStart Value="1"/>
<ActiveEditorIndexAtStart Value="2"/>
<IconPath Value="./"/>
<TargetFileExt Value=""/>
<Title Value="exampleproject1"/>

6
ideintf/propedits.pp
View File

@ -304,6 +304,7 @@ type
function GetAttributes: TPropertyAttributes; virtual;
function IsReadOnly: boolean; virtual;
function GetPersistent(Index: Integer): TPersistent;
function GetComponent(Index: Integer): TComponent;// for Delphi compatibility
function GetEditLimit: Integer; virtual;
function GetName: shortstring; virtual;
procedure GetProperties(Proc: TGetPropEditProc); virtual;
@ -1910,6 +1911,11 @@ begin
Result:=FPropList^[Index].Instance;
end;
function TPropertyEditor.GetComponent(Index: Integer): TComponent;
begin
Result:=TComponent(FPropList^[Index].Instance);
end;
function TPropertyEditor.GetFloatValue:Extended;
begin
Result:=GetFloatValueAt(0);