Help needed in construction of subpanels

Share icon

Hi all

I'm trying to construct a panel layout that nicely scales as the window is resized.

I've attached an image of what I currently have from hacking away at the CWT demo, and a layout of what I think I want.

I've written up this code so far, but the placement of the panels in which I want to place the plots doesn't seem to work; no notice seems to be being taken of my frameguides.

What am I doing wrong?


//---------------------------------------------------------------------------

Function BuildTestPanel()

	//parent panel
	DoWindow/F TestPanel
	if(V_Flag==1)
		return 0
	endif
	NewPanel /K=1 /W=(6,44,600,800) as "Test Panel"
	DoWindow/C TestPanel
	SetDrawLayer UserBack


	//panel to hold controls
	DefineGuide cpL={FL,5},cpR={FR,-5},cpB={FB,-5},cpT={cpB,-200}
	NewPanel /FG=(cpL,cpT,cpR,cpB) /N=controls /HOST=TestPanel
	DrawText 10,25,"Controls go here:"
	SetActiveSubwindow TestPanel
	
	//panel to holds graphs
	DefineGuide grL={cpL,0},grR={cpR,0},grB={cpT,-5},grT={FT,-5}
	NewPanel /FG=(grL,grT,grR,grB) /N=graphs /HOST=TestPanel
	SetActiveSubwindow TestPanel
	
		//panel to hold XRD plot
		DefineGuide xrdL={FL,5},xrdR={FR,-5},xrdT={FT,-5},xrdB={xrdT,-50}
		NewPanel /FG=(xrdL,xrdT,xrdR,xrdB) /N=xrdplot /HOST=TestPanel#graphs
		DrawText 10,25,"Diffraction pattern"
		SetActiveSubwindow TestPanel
		
		//panel to hold CWT plot
		DefineGuide cwtL={FL,5},cwtR={FR,-5},cwtB={FB,-5},cwtT={cwtB,-50}
		NewPanel /FG=(cwtL,cwtT,cwtR,cwtB)  /N=cwtplot /HOST=TestPanel#graphs
		DrawText 10,25,"Wavelet transform"
		SetActiveSubwindow TestPanel
	
end


The parent panel is 600x800
Any resizing of the width of the parent panel must result in the same change in all subpanels
Any resizing of height is specified below.

The bottom blue panel is 100% wide* and a fixed 200 pixels high. I've fixed it to the bottom of the parent panel. This is where I'm going to put all of my controls
The top blue panel is 100% wide, and the bottom of this panel is fixed to the top of the bottom blue panel. The top blue panel will change height, with the bottom blue panel remaining 200 pixels upon any resizing vertically

The two green panels are 100% wide and 50% high.

The red outlines in the green panels represent the plots.
The plots are 100% wide, and ~30 pixels less than the panel height, to allow for panel text.



* with 5 pixel setback all around
I swear the the best way to find the answer yourself is to ask for help. It then jumps off the page at you!

I was focussed on the wrong panels.

This is what I've got:


Function BuildPeakPanel()

	NVAR startScale  =root:Packages:PeakPanelFolder:startScale
	NVAR endScale    =root:Packages:PeakPanelFolder:endScale
	NVAR noise       =root:Packages:PeakPanelFolder:cwtNoise
	NVAR ridgeLength =root:Packages:PeakPanelFolder:ridgeLength
	NVAR ridgeSum    =root:Packages:PeakPanelFolder:ridgeSum
	NVAR delta       =root:Packages:PeakPanelFolder:delta
	NVAR cwtColour   =root:Packages:PeakPanelFolder:cwtColour

	NVAR xAxisMin    =root:Packages:PeakPanelFolder:xAxisMin
	NVAR xAxisMax    =root:Packages:PeakPanelFolder:xAxisMax
	NVAR xrdYAxisMin =root:Packages:PeakPanelFolder:xrdYAxisMin
	NVAR xrdYAxisMax =root:Packages:PeakPanelFolder:xrdYAxisMax 
	NVAR cwtYAxisMin =root:Packages:PeakPanelFolder:cwtYAxisMin
	NVAR cwtYAxisMax =root:Packages:PeakPanelFolder:cwtYAxisMax
	
	NVAR initial_xAxisMin    =root:Packages:PeakPanelFolder:initial_xAxisMin 
	NVAR initial_xAxisMax    =root:Packages:PeakPanelFolder:initial_xAxisMax 
	NVAR initial_xrdYAxisMin =root:Packages:PeakPanelFolder:initial_xrdYAxisMin
	NVAR initial_xrdYAxisMax =root:Packages:PeakPanelFolder:initial_xrdYAxisMax
	NVAR initial_cwtYAxisMin =root:Packages:PeakPanelFolder:initial_cwtYAxisMin
	NVAR initial_cwtYAxisMax =root:Packages:PeakPanelFolder:initial_cwtYAxisMax

	//parent panel
	DoWindow/F PeakPanel
	if(V_Flag==1)
		return 0
	endif
	NewPanel /K=1 /W=(6,44,880,800) as "Peak Search"
	DoWindow/C PeakPanel
	SetDrawLayer UserBack


	//panel to hold controls
	SetActiveSubwindow PeakPanel
	DefineGuide cpL={FL,5},cpR={FR,-5},cpB={FB,-5},cpT={cpB,-170}
	NewPanel /FG=(cpL,cpT,cpR,cpB) /N=controls /HOST=PeakPanel
	
	//panel to holds graphs
	SetActiveSubwindow PeakPanel
	DefineGuide grL={cpL,0},grR={cpR,0},grB={cpT,-5},grT={FT,-5}
	NewPanel /FG=(grL,grT,grR,grB) /N=graphs /HOST=PeakPanel
	
		//panel to hold XRD plot
		SetActiveSubwindow PeakPanel#graphs
		DefineGuide xrdL={FL,5},xrdR={FR,-5},xrdT={FT,-5},xrdB={FT,0.5,FB}
		NewPanel /FG=(xrdL,xrdT,xrdR,xrdB) /N=xrdPanel /HOST=PeakPanel#graphs
		DrawText 10,25,"Diffraction pattern"
		
		//panel to hold CWT plot
		SetActiveSubwindow PeakPanel#graphs
		DefineGuide cwtL={FL,5},cwtR={FR,-5},cwtB={FB,-5},cwtT={FT,0.5,FB}
		NewPanel /FG=(cwtL,cwtT,cwtR,cwtB)  /N=cwtPanel /HOST=PeakPanel#graphs
		DrawText 10,25,"Wavelet transform"
		
	
	//let'a make the plots!
	//XRD plot
	SetActiveSubwindow PeakPanel#graphs#xrdPanel
	DefineGuide plotL={FL,10},plotR={FR,-10},plotT={FT,30},plotB={FB,-10}
	Display /FG=(plotL,plotT,plotR,plotB) /N=xrdPlot /HOST=PeakPanel#graphs#xrdPanel  xrd
	AppendToGraph w_peakPositionIntensities vs w_peakPositions
	ModifyGraph mode(w_peakPositionIntensities)=8
	ModifyGraph marker(w_peakPositionIntensities)=22
	ModifyGraph toMode(w_peakPositionIntensities)=1
	ModifyGraph rgb(w_peakPositionIntensities)=(0,0,0)	
	Label left "Intensity"
	Label bottom "Channel number"
		DoUpdate
		GetAxis /Q bottom
			xAxisMin = V_min
			xAxisMax = V_max
			initial_xAxisMin = V_min
			initial_xAxisMax = V_max
		GetAxis /Q left
			xrdYAxisMin = V_min
			xrdYAxisMax = V_max
			initial_xrdYAxisMin = V_min
			initial_xrdYAxisMax = V_max


	//CWT plot
	SetActiveSubwindow PeakPanel#graphs#cwtPanel
	DefineGuide plotL={FL,10},plotR={FR,-10},plotT={FT,30},plotB={FB,-10}
	Display /FG=(plotL,plotT,plotR,plotB) /N=cwtPlot /HOST=PeakPanel#graphs#cwtPanel
	AppendImage M_CWT vs {*,scalingWaveDisplay}
	ModifyImage M_CWT ctab= {-cwtColour,cwtColour,RedWhiteBlue,0}
	AppendImage w_peaks vs {*,scalingWaveDisplay}
	Label left "Scale"
	Label bottom "Channel number"
	ModifyGraph mirror=2
		doUpdate
		GetAxis /Q left
			cwtYAxisMin = V_min
			cwtYAxisMax = V_max
			initial_cwtYAxisMin = V_min
			initial_cwtYAxisMax = V_max


//and then a whole bunch of control inputs

September 3, 2015 at 01:48 am - Permalink
So true about finding an answer by posting. Did that this morning! Deleted the post when I found the (totally obvious) solution.

September 3, 2015 at 01:57 am - Permalink
I recommend that you execute the following on Igor's command line:

DisplayHelpTopic "Resize Controls Panel"


In case you don't already know, there's a package that ships with Igor that can be used to handle the resizing and repositioning of controls for you. It might be easier to use this package instead of doing the resizing yourself.

September 3, 2015 at 05:33 am - Permalink
Ta for that aclight.

I'll have a read in my copious spare time!

Sounds like it should help a fair bit in the next stage of the process. I'll probably have a look at your tab control thing too.

September 3, 2015 at 06:41 am - Permalink
I like that!

I didn't delete my post as I thought it might help someone else. I also got to learn about the resize commands; just about to read up on them now.

September 3, 2015 at 05:16 pm - Permalink