Changeset 39

Timestamp:

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

Author:

RBRi

Message:

• ACLProfile calls

Location:

trunk/Components

Files:

• ACLLanguageUnit.pas (modified) (5 diffs)
• RichTextStyleUnit.pas (modified) (2 diffs)
• RichTextView.PAS (modified) (2 diffs)

trunk/Components/ACLLanguageUnit.pas

@@ -132 +132 @@
   StdCtrls, Buttons, ExtCtrls, TabCtrls, Dialogs,
   Coolbar2, Multicolumnlistbox,
-  ACLUtility, ACLStringUtility, ACLProfile, ACLFileUtility;
+  ACLUtility, ACLStringUtility,
+//  ACLProfile,
+  ACLFileUtility;
 
 var
@@ -738 +740 @@
   MinorLanguage: string;
 begin
-  ProfileEvent( 'LoadDefaultLanguage' );
+//  ProfileEvent( 'LoadDefaultLanguage' );
 
   LanguageVar := GetEnv( 'LANG' );
 
-  ProfileEvent( '  LANG='
-                + LanguageVar );
+//  ProfileEvent( '  LANG=' + LanguageVar );
   if LanguageVar = '' then
     LanguageVar := 'EN_US';
@@ -750 +751 @@
   MinorLanguage := ExtractNextValue( LanguageVar, '_' );
 
-  ProfileEvent( '  MajorLanguage='
-                + MajorLanguage );
-  ProfileEvent( '  MinorLanguage='
-                + MinorLanguage );
+//  ProfileEvent( '  MajorLanguage=' + MajorLanguage );
+//  ProfileEvent( '  MinorLanguage=' + MinorLanguage );
 
   // note there might be some other stuff on the end of LANG
@@ -760 +759 @@
   if MinorLanguage <> '' then
   begin
-    ProfileEvent( '  Trying Major_Minor' );
+//    ProfileEvent( '  Trying Major_Minor' );
     if LoadAutoLanguage( AppName,
                          MajorLanguage
@@ -767 +766 @@
     begin
       // found a specifc language
-      ProfileEvent( '    Found' );
+//      ProfileEvent( '    Found' );
       exit;
     end;
   end;
 
-  ProfileEvent( '  Trying Major only' );
+//  ProfileEvent( '  Trying Major only' );
   // try generic language?
   if LoadAutoLanguage( AppName, MajorLanguage ) then
   begin
-    ProfileEvent( '    Found' );
+//    ProfileEvent( '    Found' );
   end
   else
   begin
-    ProfileEvent( '    No language found, using default' );
+//    ProfileEvent( '    No language found, using default' );
 
     // load defaults

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;

trunk/Components/RichTextView.PAS

@@ -429 +429 @@
 Uses
   SysUtils, PMWin, BseDos, Dos, ClipBrd, Printers,
-  ACLStringUtility, ACLString, ACLProfile,
+  ACLStringUtility, ACLString,
   ControlScrolling, ControlsUtility,
   RichTextDocumentUnit, RichTextDisplayUnit;
@@ -724 +724 @@
   Msg.Result :=
     CopySelectionToBuffer( PChar( Msg.Param1 ),
-                           Msg.Param2 ); 
+                           Msg.Param2 );
 end;