ViewVC Help

View File | Revision Log | View Changeset | Root Listing

root/Oni2/oup/_old_/Main.pas

Comparing oup/current/Main.pas (file contents):
Revision 82 by alloc, Sun Jan 14 00:48:40 2007 UTC vs.
Revision 83 by alloc, Sun Jan 14 01:30:12 2007 UTC

#	Line 110 | Line 110 | type
110		procedure menu_metaClick(Sender: TObject);
111		procedure ToolbarDockChanged(Sender: TObject);
112		procedure menu_loaddbClick(Sender: TObject);
113	+	procedure MDITabMouseMove(Sender: TObject; Shift: TShiftState; X,
114	+	Y: Integer);
115		private
116		public
117		end;
#	Line 212 | Line 214 | begin
214		end;
215
216
217	+	procedure TForm_Main.MDITabMouseMove(Sender: TObject; Shift: TShiftState; X,
218	+	Y: Integer);
219	+	var
220	+	pt: TPoint;
221	+	tabIndex: Integer;
222	+	hint: String;
223	+	begin
224	+	pt.X := X;
225	+	pt.Y := Y;
226	+	tabIndex := MDITab.GetTabAtPos(pt);
227
228	<
229	<
228	>	if tabIndex >= 0 then
229	>	begin
230	>	if MDITab.MDIChildren[tabIndex] is TForm_ToolTemplate then
231	>	hint := 'Window: ' + MDITab.MDIChildren[tabIndex].Caption + #13+#10 +
232	>	'Selected File: ' +
233	>	TForm_ToolTemplate(MDITab.MDIChildren[tabIndex]).SelectedFile.FileName
234	>	else
235	>	hint := 'Window: ' + MDITab.MDIChildren[tabIndex].Caption;
236	>	if hint <> MDITab.Hint then
237	>	begin
238	>	MDITab.Hint := hint;
239	>	MDITab.ShowHint := True;
240	>	end;
241	>	end
242	>	else
243	>	begin
244	>	MDITab.ShowHint := False;
245	>	MDITab.Hint := '';
246	>	end;
247	>	end;
248
249		procedure TForm_Main.MDITabMouseUp(Sender: TObject; Button: TMouseButton;
250		Shift: TShiftState; X, Y: Integer);
#	Line 242 | Line 272 | begin
272		end;
273		end;
274
275	+
276	+
277	+
278		procedure TForm_Main.FormClose(Sender: TObject; var Action: TCloseAction);
279		begin
280		AssignFile(AppSettingsFile, ExtractFilepath(Application.EXEname) + '\oniunpacker.ini');

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines (old)
>	Changed lines (new)