Changeset 401

Timestamp:

May 22, 2016, 1:10:25 PM (9 years ago)

Author:

RBRi

Message:

remove usage of ACLStringUtility

File:

• trunk/Components/ACLDialogs.pas (modified) (4 diffs)

trunk/Components/ACLDialogs.pas

@@ -78 +78 @@
 uses
   SysUtils,
-  Forms, Dialogs, StdCtrls, Buttons,
-  ACLStringUtility
+  Forms,
+  Dialogs,
+  StdCtrls,
+  Buttons,
 {$ifdef os2}
-  , ACLLanguageUnit, ControlsUtility
+  ACLLanguageUnit, ControlsUtility,
 {$endif}
-  ;
+  CharUtilsUnit,
+  DebugUnit;
 
 // -------------------------------------------------
@@ -101 +104 @@
   TheDialog := TMessageForm.Create( nil );
   TheDialog.Caption := Caption;
-  PMessage := StrDupPas( Message );
+  PMessage := NewPCharAsCopyOfStr(Message);
   TheDialog.TheText := PMessage;
 
@@ -301 +304 @@
   CancelButtonCaption: string;
 
-Procedure OnLanguageEvent( Language: TLanguageFile;
-                           const Apply: boolean );
+Procedure OnLanguageEvent(Language: TLanguageFile; const Apply: boolean);
 begin
   if Language <> nil then
@@ -371 +373 @@
 Begin
   if QueryDlg = nil then
+  begin
     QueryDlg := TACLQueryDialog.Create( Screen.ActiveForm );
+  end;
 
   QueryDlg.Caption := ACaption;