RE: System Parameters get/set

Hi Bernd,

Something like the following:

 
           set self::Top to type Properties.Settings::Default::Top
           set self::Left to type Properties.Settings::Default::Left
           set self::Height to type Properties.Settings::Default::Height
           set self::Width to type Properties.Settings::Default::Width
           attach method MainWindow_Closing to  self::Closing
           *> Bildschirmgröße anpassen falls zu klein!
           declare HOEHE = type Convert::ToInt32(type System.Windows.SystemParameters::PrimaryScreenHeight)
           declare BREITE = type Convert::ToInt32(type System.Windows.SystemParameters::PrimaryScreenWidth)
           if (BREITE < 1200)
              set self::Width = type SystemParameters::PrimaryScreenWidth
              set self::MaxWidth = type SystemParameters::PrimaryScreenWidth
              set self::WindowState = type WindowState::Maximized
           end-if
           if (HOEHE < 800)
              set self::Height = type SystemParameters::PrimaryScreenHeight
              set self::MaxHeight = type SystemParameters::PrimaryScreenHeight
              set self::WindowState = type WindowState::Maximized
           end-if.
...
       end method.

       method-id MainWindow_Closing.
       procedure division using by value sender as object e as type System.ComponentModel.CancelEventArgs.
       
           if WindowState = type WindowState::Maximized
              set type Properties.Settings::Default::Top = self::RestoreBounds::Top
              set type Properties.Settings::Default::Left = self::RestoreBounds::Left
              set type Properties.Settings::Default::Height = self::RestoreBounds::Height
              set type Properties.Settings::Default::Width = self::RestoreBounds::Width
            else
              set type Properties.Settings::Default::Top = self::Top
              set type Properties.Settings::Default::Left = self::Left
              set type Properties.Settings::Default::Height = self::Height
              set type Properties.Settings::Default::Width = self::Width
            end-if
            invoke type Properties.Settings::Default::Save.

       end method.