Changeset 39 for trunk/Components/RichTextStyleUnit.pas

Timestamp:

Jan 2, 2007, 8:18:36 PM (19 years ago)

Author:

RBRi

Message:

• ACLProfile calls

File:

• trunk/Components/RichTextStyleUnit.pas (modified) (2 diffs)

trunk/Components/RichTextStyleUnit.pas

@@ -144 +144 @@
 uses
   SysUtils,
-  ACLStringUtility, ACLProfile;
+  ACLStringUtility;
+//  ACLProfile;
 
 Procedure ApplyStyle( const Style: TTextDrawStyle;
@@ -525 +526 @@
 Procedure TRichTextSettings.SetHeading1Font( NewFont: TFont );
 begin
-  ProfileEvent( 'TRichTextSettings.SetHeading1Font' );
+//  ProfileEvent( 'TRichTextSettings.SetHeading1Font' );
   AssignFont( FHeading1Font, NewFont );
 
-  if FHeading1FOnt = nil then
-    ProfileEvent( '  Set to nil' );
+//  if FHeading1FOnt = nil then
+//    ProfileEvent( '  Set to nil' );
 
 end;