Changeset 206 for oup/current/Tools

Timestamp:

May 28, 2007, 1:31:26 AM (18 years ago)

Author:

alloc

Message:

 

File:

• oup/current/Tools/TxmpReplace.pas (modified) (3 diffs)

oup/current/Tools/TxmpReplace.pas

@@ -42 +42 @@
 implementation
 {$R *.dfm}
-uses Main, ConnectionManager, ImagingTypes;
+uses Main, ConnectionManager, ImagingTypes, TXMP;
 
 
@@ -225 +225 @@
 
 procedure TForm_TxmpReplace.FormCreate(Sender: TObject);
+var
+  TXMP: TFile_TXMP;
 begin
   inherited;
@@ -232 +234 @@
   Self.OnNewFileSelected := SelectFile;
   opend.Filter := saved.Filter;
+
+  TXMP := TFile_TXMP.Create(ConnectionID, 8552);
+  TXMP.Free;
 end;