[Instantobjects-cvscommit] Source/Design InstantDesignUtils.pas,1.5,1.6

[Steven M. <sr...@us...>]

Update of /cvsroot/instantobjects/Source/Design
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21182

Modified Files:
	InstantDesignUtils.pas 
Log Message:
Added 'Remove_T_FromClassName' support function.

Index: InstantDesignUtils.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Design/InstantDesignUtils.pas,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** InstantDesignUtils.pas	11 Feb 2005 16:06:43 -0000	1.5
--- InstantDesignUtils.pas	24 Feb 2005 00:17:06 -0000	1.6
***************
*** 25,29 ****
   *
   * Contributor(s):
!  * Carlo Barazzetta, Adrea Petrelli, Nando Dessena
   *
   * ***** END LICENSE BLOCK ***** *)
--- 25,29 ----
   *
   * Contributor(s):
!  * Carlo Barazzetta, Adrea Petrelli, Steven Mitchell
   *
   * ***** END LICENSE BLOCK ***** *)
***************
*** 48,51 ****
--- 48,52 ----
  procedure EnableControl(Control: TControl; Enable: Boolean; Source: TDataSource);
  function ShortenPath(const Path: string; Canvas: TCanvas; MaxLen: Integer): string;
+ function Remove_T_FromClassName(const AClassName: string): string;
  
  implementation
***************
*** 167,169 ****
--- 168,178 ----
  end;
  
+ function Remove_T_FromClassName(const AClassName: string): string;
+ begin
+   Result := AClassName;
+   // Remove the 'T' from classname
+   if (Length(Result) > 1) and (Result[1] = 'T') then
+     Delete(Result, 1, 1);
+ end;
+ 
  end.