Changeset 83 for oup/current/Main.pas

Timestamp:

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

Author:

alloc

Message:

 

File:

• oup/current/Main.pas (modified) (3 diffs)

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);