From: <ou...@us...> - 2009-08-09 17:36:54
|
Revision: 12441 http://jvcl.svn.sourceforge.net/jvcl/?rev=12441&view=rev Author: outchy Date: 2009-08-09 17:36:46 +0000 (Sun, 09 Aug 2009) Log Message: ----------- C5 and D5 support removal. Modified Paths: -------------- trunk/jvcl/design/JvBackgroundEditors.pas trunk/jvcl/install/JVCLInstall/JediRegInfo.pas Modified: trunk/jvcl/design/JvBackgroundEditors.pas =================================================================== --- trunk/jvcl/design/JvBackgroundEditors.pas 2009-08-09 17:11:03 UTC (rev 12440) +++ trunk/jvcl/design/JvBackgroundEditors.pas 2009-08-09 17:36:46 UTC (rev 12441) @@ -31,11 +31,7 @@ uses Classes, - {$IFDEF RTL140_UP} DesignEditors, DesignIntf, - {$ELSE} - DsgnIntf, - {$ENDIF RTL140_UP} JvBackgrounds, JvBackgroundEditForm; type @@ -82,11 +78,7 @@ Editor := TJvBackgroundClientsEditor.Create(nil); try Clients := TJvBackgroundClients(GetOrdValue); - {$IFDEF RTL140_UP} EditorAddControl(Designer.Root.Name); - {$ELSE} - EditorAddControl(Designer.GetRoot.Name); - {$ENDIF RTL140_UP} Proc := EditorAddControl; Designer.GetComponentNames(GetTypeData(TWinControl.ClassInfo), Proc); Editor.SetButtons; Modified: trunk/jvcl/install/JVCLInstall/JediRegInfo.pas =================================================================== --- trunk/jvcl/install/JVCLInstall/JediRegInfo.pas 2009-08-09 17:11:03 UTC (rev 12440) +++ trunk/jvcl/install/JVCLInstall/JediRegInfo.pas 2009-08-09 17:36:46 UTC (rev 12441) @@ -72,16 +72,6 @@ uses Windows, Registry; -{$IFNDEF RTL140_UP} -function ExcludeTrailingPathDelimiter(const Path: string): string; -begin - if (Path <> '') and (Path[Length(Path)] = '\') then - Result := Copy(Path, 1, Length(Path) - 1) - else - Result := Path; -end; -{$ENDIF ~RTL140_UP} - function InstallJediRegInformation(const IdeRegKey, ProjectName, Version, DcpDir, BplDir, RootDir: string): Boolean; var This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |