суббота, 27 апреля 2013 г.

Ещё правки VCL (13)


procedure TCustomForm.WMSize(var Message: TWMSize); {V}
 function IsMDIMaximized: Boolean;
  var
    I: Integer;
  begin
   with Application.MainForm do
    for I := 0 to Pred(MDIChildCount) do
     if MDIChildren[I].WindowState = wsMaximized then
     begin
      Result := True;
      Exit;
     end;
   Result := False;
  end;

begin
 // а то взяли моду ресайзить максимизированные MDIChild'ы
 If (FormStyle = fsMDIChild) and
    IsMDIMaximized and
    (fsCreatedMDIChild in FFormState) and
    (Application.MainForm.ActiveMDIChild <> self) then
 else
  inherited;
end;

Комментариев нет:

Отправить комментарий