Changeset 106 for oup/rewrite

Timestamp:

Feb 21, 2007, 4:09:30 AM (18 years ago)

Author:

alloc

Message:

 

Location:

oup/rewrite

Files:

• DataAccess/Access_OUP_ADB.pas (modified) (2 diffs)
• Global/TypeDefs.pas (modified) (1 diff)
• OniUnPacker.bdsproj (modified) (1 diff)
• OniUnPacker.dpr (modified) (2 diffs)
• Tools/Template.dfm (modified) (1 diff)
• Tools/Template.pas (modified) (6 diffs)
• _exe/OniUnPacker.exe (modified) ( previous)

oup/rewrite/DataAccess/Access_OUP_ADB.pas

@@ -17 +17 @@
 
     procedure UpdateListCache;
+
+    function GetLinksToFile(FileID: Integer): TLinks;
+    function GetLinksFromFile(FileID: Integer): TLinks;
 
     function GetFileInfo(FileID: Integer): TFileInfo; override;
@@ -167 +170 @@
   FQuery.Close;
 end;
+
+
+
+function TAccess_OUP_ADB.GetLinksToFile(FileID: Integer): TLinks;
+var
+  i: Integer;
+begin
+  SetLength(Result.ByName, 0);
+  FQuery.SQL.Text := 'SELECT src_link_offset, src_id FROM linkmap WHERE target_id = ' + IntToStr(FileID) + ' ORDER BY src_id ASC;';
+  FQuery.Open;
+  SetLength(Result.ByID, FQuery.RecordCount);
+  if FQuery.RecordCount > 0 then
+  begin
+    i := 0;
+    repeat
+      Result.ByID[i].SrcOffset := FQuery.FieldByName('src_link_offset').AsInteger;
+      Result.ByID[i].Destination := FQuery.FieldByName('src_id').AsInteger;
+      Inc(i);
+      FQuery.Next;
+    until FQuery.EOF;
+  end;
+  FQuery.Close;
+end;
+
+function TAccess_OUP_ADB.GetLinksFromFile(FileID: Integer): TLinks;
+var
+  i: Integer;
+begin
+  SetLength(Result.ByName, 0);
+  FQuery.SQL.Text := 'SELECT src_link_offset, target_id FROM linkmap WHERE src_id = ' + IntToStr(FileID) + ' ORDER BY target_id ASC;';
+  FQuery.Open;
+  SetLength(Result.ByID, FQuery.RecordCount);
+  if FQuery.RecordCount > 0 then
+  begin
+    i := 0;
+    repeat
+      Result.ByID[i].SrcOffset := FQuery.FieldByName('src_link_offset').AsInteger;
+      Result.ByID[i].Destination := FQuery.FieldByName('target_id').AsInteger;
+      Inc(i);
+      FQuery.Next;
+    until FQuery.EOF;
+  end;
+  FQuery.Close;
+end;
+
 
 

oup/rewrite/Global/TypeDefs.pas

@@ -73 +73 @@
 
   TToolList = array of record
-    context: String;
-    name: String;
-    exts: String;
+      context: String;
+      name: String;
+      exts: String;
+  end;
+
+  TLinkByName = record
+      SrcOffset: Integer;
+      Destination: String;
+  end;
+  TLinkByID = record
+      SrcOffset: Integer;
+      Destination: Integer;
+  end;
+  TLinks = record
+      ByName: array of TLinkByName;
+      ByID: array of TLinkByID;
   end;
 

oup/rewrite/OniUnPacker.bdsproj

@@ -178 +178 @@
                 </Language>  
     
+    
     <Excluded_Packages>
       <Excluded_Packages Name="d:\programme\borland\bds\3.0\Bin\dbwebxprt.bpl">Borland Web Wizard Package</Excluded_Packages>

oup/rewrite/OniUnPacker.dpr

@@ -25 +25 @@
   RawEdit in 'Tools\RawEdit.pas' {Form_RawEdit},
   Extractor in 'Tools\Extractor.pas' {Form_Extractor},
-  TxmpReplace in 'Tools\TxmpReplace.pas' {Form_TxmpReplace};
+  TxmpReplace in 'Tools\TxmpReplace.pas' {Form_TxmpReplace},
+  WhatLinksHere in 'Helper\WhatLinksHere.pas' {Form1};
 
 {$R *.res}
@@ -36 +37 @@
   Application.CreateForm(TForm_Settings, Form_Settings);
   Application.CreateForm(TForm_ValueEdit, Form_ValueEdit);
+  Application.CreateForm(TForm1, Form1);
   Application.Run;
 end.

oup/rewrite/Tools/Template.dfm

@@ -308 +308 @@
     Left = 72
     Top = 216
+    object popup_separator2: TMenuItem
+      Caption = '-'
+    end
+    object popup_linkshere: TMenuItem
+      Caption = 'What links here?'
+      Enabled = False
+      OnClick = popup_linkshereClick
+    end
     object popup_separator: TMenuItem
       Caption = '-'

oup/rewrite/Tools/Template.pas

@@ -41 +41 @@
     combo_connection: TComboBox;
     Bevel1: TBevel;
+    popup_linkshere: TMenuItem;
+    popup_separator2: TMenuItem;
     procedure RecreateExtList;
     procedure UpdateConList;
@@ -62 +64 @@
     procedure FormActivate(Sender: TObject);
     procedure combo_connectionChange(Sender: TObject);
+    procedure popup_linkshereClick(Sender: TObject);
   private
     FSortBy: TSortType;
@@ -94 +97 @@
 implementation
 {$R *.dfm}
-uses Main, ConnectionManager, Exporters, Functions;
+uses Main, ConnectionManager, Exporters, Functions, WhatLinksHere;
 
 
@@ -258 +261 @@
 end;
 
+procedure TForm_ToolTemplate.popup_linkshereClick(Sender: TObject);
+begin
+  Form_WhatLinksHere.ConID := FConnectionID;
+  Form_WhatLinksHere.FileID := FSelectedFile.ID;
+  Form_WhatLinksHere.SenderForm := Self;
+  Form_WhatLinksHere.Show;
+end;
+
 procedure TForm_ToolTemplate.popup_opentool(Sender: TObject);
 var
@@ -335 +346 @@
         filepopup.Items.Items[i].Enabled := False;
   end;
+  filepopup.Items.Find('What links here?').Enabled :=
+      ConManager.Connection[FConnectionID].Backend = DB_ADB;
 end;
 
@@ -386 +399 @@
   pt.X := x;
   pt.Y := y;
-//  filelist.ItemIndex := filelist.ItemAtPos(pt, true);
-//  Self.listClick(Self);
+  if Shift = [ssRight] then
+  begin
+    filelist.ItemIndex := filelist.ItemAtPos(pt, true);
+    Self.listClick(Self);
+  end;
 end;