Function to Use Relative Window Sizes

// structure to store screen parameters
// values are RELATIVE SIZES
// POINTS: used for /W=() in tables and graphs
// PIXELS: used for /W=() in panels
 
STRUCTURE ScreenSizeParameters
    variable scrwpxl
    variable scrhpxl
    variable scrwpnt
    variable scrhpnt
ENDSTRUCTURE
 
// initialize the screen sizes
 
Static Function InitScreenParameters(ScrP)
    STRUCT ScreenSizeParameters &ScrP
    
    // get screen pixel sizes
    
    if (cmpstr(IgorInfo(2),"Macintosh")==0)
    
        // MacOS
        
        string IgorStuff=""
        variable scr0,scr1,scr2
    
        IgorStuff=IgorInfo(0)
        scr0 = strsearch(IgorStuff,"RECT",0)
        scr1 = strsearch(IgorStuff,",",scr0+9)
        scr2 = strlen(IgorStuff)-2      
        ScrP.scrwpxl = str2num(IgorStuff[scr0+9,scr1-1])/100
        ScrP.scrhpxl = str2num(IgorStuff[scr1+1,scr2])/100
    else
 
        // WinXX (must maximize the frame)
 
        MoveWindow/F 2, 2, 2, 2
        GetWindow kwFrameInner wsizeDC
 
        ScrP.scrwpxl = (v_right-v_left)/100
        ScrP.scrhpxl = (v_bottom-v_top)/100
    endif
 
    // set screen point sizes
    
    ScrP.scrwpnt = ScrP.scrwpxl*72/ScreenResolution
    ScrP.scrhpnt = ScrP.scrhpxl*72/ScreenResolution
    
    return 0
end
 
// EXAMPLE USEAGE
// Show Examples displays a graph and panel at 60%x40% of screen
 
Function ShowExamples()
    
    // define the screen parameter structure
    
    STRUCT ScreenSizeParameters ScrP
    
    // initialize it
    
    InitScreenParameters(ScrP)
    
    // show a graph window at 60% x 40% of screen
    
    display/W=(0,0,60*ScrP.scrwpnt,40*ScrP.scrhpnt) as "60 x 40 Graph"
    
        // show a table window at 60% x 40% of screen
    
    edit/W=(0,0,60*ScrP.scrwpnt,40*ScrP.scrhpnt) as "60 x 40 Table"
    
    // show a panel at 60% x 40% of screen
    
    NewPanel/W=(0,0,60*ScrP.scrwpxl,40*ScrP.scrhpxl) as "60 x 40 Panel"
 
    return 0
end