Öffnen neuer Notizbücher mit einer nicht standardmäßigen Fenstergröße

  • Ich möchte Mathematica (8.0.4.0) so einrichten, dass neue Notizbücher mit dem Stylesheet "NaturalColor" und einem WindowSize wie {800,770} geöffnet werden. . Ich habe versucht, das Standard-Stylesheet zu ändern:

    OptionInspector -> Global Preferences -> Global Options\File Locations\Default Style Definition

    und ich bekomme dieses hässliches Notizbuch anstelle von hier .

    Und wenn ich den Wert von "WindowSize" von "Medium" in "{800,770}" unter "Notebook Options\Window Properties" macht es einfach nichts.

    Das macht mich verrückt, irgendwelche Ideen?

    25 November 2015
    KeithL
3 answers
  • Die Standardfenstergröße kann von zwei verschiedenen Orten aus gesteuert werden. Das erste ist das globale $FrontEnd WindowSize, das durch das Option Inspector > Global Preferences oder mit:

     SetOptions[$FrontEnd, WindowSize -> {300, 900}]
      
     
     

    gesetzt wird. Das zweite ist die WindowSize des Stylesheets. Wenn es definiert ist, überschreibt die WindowSize des Stylesheets die Einstellung oben. Sie können die Größe des Stylesheets über Option Inspector > Selected Notebook oder durch Auswertung im Stylesheet selbst festlegen:

     SetOptions[EvaluationNotebook[], WindowSize -> {300, 900}]
     

    Um das Standard-Stylesheet auszuwählen, klicken Sie auf die Schaltfläche rechts neben dem Einstellungsnamen und verwenden Sie den Dateibrowser:

    Öffnen neuer Notizbücher mit einer nicht standardmäßigen Fenstergröße

    27 February 2012
    Mr.Wizard
  • Für den ersten Teil Ihrer Frage: Um die Stildefinition für das Standardnotizbuch zu ändern, müssen Sie den Wert von OptionInspector -> Global Preferences -> Global Options\File Locations\Default Style Definition in

     ändern. && 2&&] 

    Screenshot:

    Öffnen neuer Notizbücher mit einer nicht standardmäßigen Fenstergröße

    Öffnen neuer Notizbücher mit einer nicht standardmäßigen Fenstergröße

    Hinweis: Sie müssen Enter drücken, nachdem Sie etwas in ein Eingabefeld in Options Inspector eingegeben haben. Durch Klicken auf die Schaltfläche Apply oder an einer beliebigen Stelle außerhalb des Eingabefelds ohne Drücken von Enter wird lediglich der Feldwert zurückgesetzt.

    27 February 2012
    David Z
  • Nach dem, was ich hier zu MSE gelesen habe, ist es nicht möglich, ein Standard-WindowSize für neue Notebooks zu erstellen. Um dies effizient zu bewältigen, habe ich die folgende Palette erstellt, die für andere ebenfalls nützlich sein könnte.

    Das Ergebnis sieht folgendermaßen aus:

    Öffnen neuer Notizbücher mit einer nicht standardmäßigen Fenstergröße

    Der vollständige Code lautet:

     (* Screen sizing buttons *)
    
    fullscreen = 
     Button[Text[Style["Full Screen", Small, FontFamily -> "Helvetica"]],
      SetOptions[SelectedNotebook[], WindowSize -> {Full}], 
      BaseStyle -> {"GenericButton", 10}, ImageSize -> Medium]
    
    autosize = Button[Text[Style["Auto Size", Small, FontFamily -> "Helvetica"]],
      SetOptions[SelectedNotebook[], WindowSize -> {Automatic}], 
      BaseStyle -> {"GenericButton", 10}, ImageSize -> Medium]
    
    medsize = Button[Text[Style["Med size", Small, FontFamily -> "Helvetica"]],
      SetOptions[SelectedNotebook[], WindowSize -> {Medium}], 
      BaseStyle -> {"GenericButton", 10}, ImageSize -> Medium]
    
    windowTwoThirds = 
     Button[Text[Style["2/3 width", Small, FontFamily -> "Helvetica"]],
      SetOptions[SelectedNotebook[], WindowSize -> {Scaled[2/3], Scaled[.98]},
       WindowMargins -> {{0, Automatic}, {Automatic, 0}}], 
      BaseStyle -> {"GenericButton", 10}, ImageSize -> Medium]
    
    windowOneHalf = 
     Button[Text[Style["1/2 width", Small, FontFamily -> "Helvetica"]],
      SetOptions[SelectedNotebook[], WindowSize -> {Scaled[1/2], Scaled[.98]},
       WindowMargins -> {{0, Automatic}, {Automatic, 0}}], 
      BaseStyle -> {"GenericButton", 10}, ImageSize -> Medium]
    
    windowOneThird = 
     Button[Text[Style["1/3 width", Small, FontFamily -> "Helvetica"]],
      SetOptions[SelectedNotebook[], WindowSize -> {Scaled[1/3], Scaled[.98]},
       WindowMargins -> {{0, Automatic}, {Automatic, 0}}], 
      BaseStyle -> {"GenericButton", 10}, ImageSize -> Medium]
    
    maxwindow = Button[Text[Style["Max size", Small, FontFamily -> "Helvetica"]],
      SetOptions[SelectedNotebook[], WindowSize -> {Scaled[1], Scaled[1]},
       WindowMargins -> {{0, Automatic}, {Automatic, 0}}], 
      BaseStyle -> {"GenericButton", 10}, ImageSize -> Medium]
    
    maxwidth = Button["\[LeftRightArrow]",
      SetOptions[SelectedNotebook[], 
       WindowSize -> {Scaled[1], Automatic}(*WindowMargins\[Rule]{{0,
       Automatic},{Automatic,0}}*)], BaseStyle -> {"GenericButton", 10}, 
      ImageSize -> Medium]
    
    maxheight = 
     Button[Text[Style["\[UpDownArrow]", Small, FontFamily -> "Helvetica"]],
      SetOptions[SelectedNotebook[], WindowSize -> {Automatic, Scaled[1]}
       (*WindowMargins\[Rule]{{0,Automatic},{Automatic,0}}*)], 
      BaseStyle -> {"GenericButton", 10}, ImageSize -> Medium]
    
    (* Screen movement buttons *)
    
    movetopleft = 
     Button[Text[
       Style["\[UpperLeftArrow] Move", Small, FontFamily -> "Helvetica"]],
      SetOptions[SelectedNotebook[], 
       WindowMargins -> {{0, Automatic}, {Automatic, 0}}], 
      BaseStyle -> {"GenericButton", 10}, ImageSize -> Medium]
    
    movetopright = 
     Button[Text[
       Style["Move \[UpperRightArrow]", Small, FontFamily -> "Helvetica"]], 
      SetOptions[SelectedNotebook[], 
       WindowMargins -> {{Automatic, 0}, {Automatic, 0}}], 
      BaseStyle -> {"GenericButton", 10}, ImageSize -> Medium]
    
    movebottomright = 
     Button[Text[
       Style["Move \[LowerRightArrow]", Small, FontFamily -> "Helvetica"]], 
      SetOptions[SelectedNotebook[], 
       WindowMargins -> {{Automatic, 0}, {0, Automatic}}], 
      BaseStyle -> {"GenericButton", 10}, ImageSize -> Medium]
    
    movebottomleft = 
     Button[Text[
       Style["\[LowerLeftArrow] Move", Small, FontFamily -> "Helvetica"]], 
      SetOptions[SelectedNotebook[], 
       WindowMargins -> {{0, Automatic}, {0, Automatic}}], 
      BaseStyle -> {"GenericButton", 10}, ImageSize -> Medium]
    
    (* Create palette *)
    
    CreatePalette[Row@{
       (*Grid@{{unlockCell,quitKernel,redColor},{lockCell, "",clearColor}},*)
    
       Grid@{{fullscreen, maxwindow, autosize}, {windowTwoThirds, windowOneHalf, 
          windowOneThird}},
       Grid@{{maxheight}, {maxwidth}},
       Grid@{{movetopleft,
          movetopright},
         {movebottomleft,
          movebottomright}}
       },
     WindowTitle -> "Screen management"
     ]
     

    Sobald die Palette in Mathematica als Dialogfenster angezeigt wurde, sollten Sie (Menü) & gt; Paletten & gt; Palette installieren ... um sicherzustellen, dass sie immer im Palettenmenü verfügbar ist.

    14 March 2015
    Kaniu