I think will do what you would like it to do, but not quite sure...
The code in case "Beheer Gebruikers" would be used if you are duplicating
the window that starts the chain.
The code in case "Beheer Opdrachten" would be used if you are duplicating a
different window.
The -20 and +20 are hacks that may not be correct on all systems. I think
this has to do with RB not knowing/allowing you to get or taking into
account the height of title bars. Though it seems to work fine if you are
duplicating the window that is calling the code.
I'm still using RB 5.5. Maybe this has changed in the newer versions or
perhaps I'm missing something.
BTW, I'm not sure why you're doing this. This seems unusual. Is it
possible that a PagePanel on a single window might be a better solution?
HTH
1) Delete App.SwitchWindow
2) Delete App.CurrentWindow
3) Alter your (NodeMouseDown?) code as follows:
Dim newWindow As Window
Select Case node.Text ' -------> using the Einhugur's Taskbar
case "Beheer Gebruikers"
newWindow = new studentswindow
newWindow.Left = Self.Left
newWindow.Top = Self.Top
newWindow.Width = Self.Width
newWindow.Height = Self.Height
Self.Close
case "Beheer Opdrachten"
newWindow = new KeyFilesWindow
newWindow.Left = Self.Left
newWindow.Top = Self.Top - 20
newWindow.Width = Self.Width
newWindow.Height = Self.Height + 20
Self.Close
end Select
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
