paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-06 23:37:17 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: Add an {$IF FPC_FullVersion >= 30101} around registration of TFileName property editor - see discussion in Issue #33410.

Browse Source 
git-svn-id: trunk@57521 -
This commit is contained in:
wp 2018-03-17 15:43:57 +00:00
parent c47fffce1e
commit 9e2c7686af
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/ideintf/propedits.pp
View File

@ -7939,7 +7939,9 @@ begin
RegisterPropertyEditor(TypeInfo(TTabOrder), TControl, 'TabOrder', TTabOrderPropertyEditor);
RegisterPropertyEditor(TypeInfo(ShortString), nil, '', TCaptionPropertyEditor);
RegisterPropertyEditor(TypeInfo(TStrings), nil, '', TStringsPropertyEditor);
{$IF FPC_FULLVERSION > 30101}
RegisterPropertyEditor(TypeInfo(TFileName), nil, '', TFileNamePropertyEditor);
{$ENDIF}
RegisterPropertyEditor(TypeInfo(AnsiString), nil, 'SessionProperties', TSessionPropertiesPropertyEditor);
RegisterPropertyEditor(TypeInfo(TModalResult), nil, 'ModalResult', TModalResultPropertyEditor);
RegisterPropertyEditor(TypeInfo(TShortCut), nil, '', TShortCutPropertyEditor);