RxFPC:fix TRxMDICloseButton.ShowInfoLabel

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6134 8e941d3f-bd1b-0410-a28a-d453659cc2b4
2018-01-15 12:38:32 +00:00
parent 5b33f95e6e
commit 66045e97c0
4 changed files with 52 additions and 39 deletions
--- a/components/rx/trunk/rxcontrols/rxmdi.pas
+++ b/components/rx/trunk/rxcontrols/rxmdi.pas
@ -212,7 +212,7 @@ begin
    Parent.DisableAlign;
  //DebugLn(['TCustomLabeledEdit.DoPositionLabel ']);
  FInfoLabel.Parent := Parent;
-  FInfoLabel.Visible := Visible;
+  FInfoLabel.Visible := Visible and FShowInfoLabel;
 {  case FLabelPosition of
    lpAbove:
      begin