Vollständige Sichtbarkeit eines Forms

[taaktaak]

Von RWarnecke wurde in meinem aktuellen Projekt "rzDelphiGuide" ein Fehler entdeckt, der von der Prozedur FitFormFullInView() produziert wird. Für alle Interessierten hier die kleine aber wichtige Korrektur:

Position/Größe dürfen nicht korrigiert werden, wenn das Formular maximiert dargestellt wird.
Der Anfang der Prozedur ist daher wie folgt zu ändern:

Delphi-Quellcode:

procedure FitFormFullInView(AForm: TCustomForm); 
var 
  MonNo, 
  MonL, MonW, 
  MonT, MonH: Integer; 
begin 
  if (AForm.WindowState<>wsMaximized) and
     not (FormFullInView(AForm))      then 
  begin 
    ..
    ..