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; |
|