Changeset 83 for oup/current

Timestamp:

Jan 14, 2007, 2:30:12 AM (18 years ago)

Author:

alloc

Message:

 

Location:

oup/current

Files:

• Main.dfm (modified) (3 diffs)
• Main.pas (modified) (3 diffs)
• Tools/Template.pas (modified) (4 diffs)
• exe/OniUnPacker.exe (modified) ( previous)

oup/current/Main.dfm

@@ -70 +70 @@
           Caption = 'Open level-&db ...'
           ImageIndex = 1
-          ShortCut = 16452
           OnClick = menu_loaddbClick
         end
@@ -109 +108 @@
         end
         object menu_binedit: TTBItem
-          Caption = '&Binary .dat editor ...'
+          Caption = 'Binary .&dat editor ...'
           ImageIndex = 5
-          ShortCut = 16450
+          ShortCut = 16452
           OnClick = menu_bineditClick
         end
@@ -332 +331 @@
         ShowOnChange = True
         TabOrder = 0
+        OnMouseMove = MDITabMouseMove
         OnMouseUp = MDITabMouseUp
       end

oup/current/Main.pas

@@ -111 +111 @@
     procedure ToolbarDockChanged(Sender: TObject);
     procedure menu_loaddbClick(Sender: TObject);
+    procedure MDITabMouseMove(Sender: TObject; Shift: TShiftState; X,
+      Y: Integer);
   private
   public
@@ -213 +215 @@
 
 
-
-
-
+procedure TForm_Main.MDITabMouseMove(Sender: TObject; Shift: TShiftState; X,
+  Y: Integer);
+var
+  pt: TPoint;
+  tabIndex: Integer;
+  hint: String;
+begin
+  pt.X := X;
+  pt.Y := Y;
+  tabIndex := MDITab.GetTabAtPos(pt);
+
+  if tabIndex >= 0 then
+  begin
+    if MDITab.MDIChildren[tabIndex] is TForm_ToolTemplate then
+      hint := 'Window: ' + MDITab.MDIChildren[tabIndex].Caption + #13+#10 +
+            'Selected File: ' +
+            TForm_ToolTemplate(MDITab.MDIChildren[tabIndex]).SelectedFile.FileName
+    else
+      hint := 'Window: ' + MDITab.MDIChildren[tabIndex].Caption;
+    if hint <> MDITab.Hint then
+    begin
+      MDITab.Hint := hint;
+      MDITab.ShowHint := True;
+    end;
+  end
+  else
+  begin
+    MDITab.ShowHint := False;
+    MDITab.Hint := '';
+  end;
+end;
 
 procedure TForm_Main.MDITabMouseUp(Sender: TObject; Button: TMouseButton;
@@ -242 +272 @@
   end;
 end;
+
+
+
 
 procedure TForm_Main.FormClose(Sender: TObject; var Action: TCloseAction);

oup/current/Tools/Template.pas

@@ -61 +61 @@
     FAllowedExts: String;
     FAllowMultiSelect: Boolean;
+    FSelectedFile: TFileInfo;
     procedure SetAllowedExts(exts: String);
     procedure SetMultiSelect(allow: Boolean);
@@ -70 +71 @@
     property AllowedExts: String read FAllowedExts write SetAllowedExts;
     property AllowMultiSelect: Boolean read FAllowMultiSelect write SetMultiSelect;
+    property SelectedFile: TFileInfo read FSelectedFile;
   end;
 
@@ -203 +205 @@
   inherited;
   RecreateList;
+  FSelectedFile.ID := -1;
+  FSelectedFile.FileName := '';
+  FSelectedFile.FileNameHex := '';
   if Length(ToolList) > 0 then
   begin
@@ -267 +272 @@
     fileid := OniDataConnection.ExtractFileID(
           filelist.Items.Strings[filelist.ItemIndex]);
+    FSelectedFile := OniDataConnection.GetFileInfo(fileid);
     if Assigned(FOnNewFileSelected) then
-      FOnNewFileSelected(OniDataConnection.GetFileInfo(fileid));
+      FOnNewFileSelected(FSelectedFile);
   end;
 end;