ErrorBoxVisibleActionExecute method

Applies to
TDUnitDialog

Declaration
Procedure ErrorBoxVisibleActionExecute(Sender: TObject);

Implementation

procedure TDUnitDialog.ErrorBoxVisibleActionExecute(Sender: TObject);
begin
   with ErrorBoxVisibleAction do
   begin
     Checked := not Checked;
     ErrorBoxSplitter.Visible := Checked;
     ErrorBoxPanel.Visible    := Checked;
     if Checked then
     begin
      // Solve bugs with Delphi4 resizing with constraints
       ErrorBoxSplitter.Top := ErrorBoxPanel.Top-8;
     end
   end;
End;


HTML generated by Time2HELP
http://www.time2help.com