Permit hiding restart message in printer prefs

When the printer preferences page of the preferences dialogue box is
displayed as part of the full dialogue box it displays a message to
inform that the settings won't take place until the program is
restarted. But we don't want that message when frame is displayed on
its own when displayed from print dialogue box. The new mechanism to
pass custom flags to frames is used to pass a flag that hides the
message.

Also the message label was changed from static text to a TLabel to
enable it to be displayed in the program's warning colour.

Author: delphidabbler

Src/FmPrintDlg.pas

@@ -130,7 +130,11 @@ procedure TPrintDlg.btnPrefencesClick(Sender: TObject);
   sMessage = 'Your preferences will take effect the next time you start the '
     + 'application';
 begin
-  if TPreferencesDlg.Execute(Self, [TPrintingPrefsFrame]) then
+  if TPreferencesDlg.Execute(
+    Self,
+    [TPrintingPrefsFrame],
+    TPrintingPrefsFrame.MakeFrameFlag(TPrintingPrefsFrame.HideRestartMessage)
+  ) then
   begin
     if TMessageBox.Confirm(Self, sQuery) then
     begin

Src/FrPrintingPrefs.dfm

@@ -6,6 +6,17 @@ inherited PrintingPrefsFrame: TPrintingPrefsFrame
   DesignSize = (
     396
     311)
+  object lblInfo: TLabel
+    Left = 0
+    Top = 264
+    Width = 329
+    Height = 13
+    Alignment = taCenter
+    Anchors = [akLeft, akTop, akRight]
+    Caption = 
+      'Your changes will take effect the next time you start the applic' +
+      'ation.'
+  end
   object gpOutputOptions: TGroupBox
     Left = 0
     Top = 2
@@ -126,17 +137,4 @@ inherited PrintingPrefsFrame: TPrintingPrefsFrame
       OnKeyPress = NumEditKeyPress
     end
   end
-  object stInfo: TStaticText
-    Left = 0
-    Top = 256
-    Width = 393
-    Height = 25
-    Alignment = taCenter
-    Anchors = [akLeft, akTop, akRight]
-    AutoSize = False
-    Caption = 
-      'Your changes will take effect the next time you start the applic' +
-      'ation.'
-    TabOrder = 2
-  end
 end

Src/FrPrintingPrefs.pas

@@ -44,7 +44,7 @@   TPrintingPrefsFrame = class(TPrefsBaseFrame)
     edLeft: TEdit;
     edRight: TEdit;
     edTop: TEdit;
-    stInfo: TStaticText;
+    lblInfo: TLabel;
     procedure CheckboxClick(Sender: TObject);
     procedure NumEditKeyPress(Sender: TObject; var Key: Char);
   strict private
@@ -56,6 +56,9 @@   TPrintingPrefsFrame = class(TPrefsBaseFrame)
       {Displays preview of appearance of document according to current state of
       controls.
       }
+  public
+    const
+      HideRestartMessage = 1;
   public
     constructor Create(AOwner: TComponent); override;
       {Class constructor. Sets up frame object.
@@ -97,9 +100,9 @@ implementation
   // Delphi
   SysUtils, Windows, Graphics, Math, ComCtrls,
   // Project
-  FmPreferencesDlg, Hiliter.UAttrs, Hiliter.UHiliters, IntfCommon, UConsts,
-  UEncodings, UKeysHelper, UPrintInfo, URTFBuilder, URTFStyles, URTFUtils,
-  UStrUtils, UUtils;
+  FmPreferencesDlg, Hiliter.UAttrs, Hiliter.UHiliters, IntfCommon, UColours,
+  UConsts, UEncodings, UFontHelper, UKeysHelper, UPrintInfo, URTFBuilder,
+  URTFStyles, URTFUtils, UStrUtils, UUtils;
 
 
 {$R *.dfm}
@@ -195,13 +198,25 @@ procedure TPrintingPrefsFrame.Activate(const Prefs: IPreferences;
   // Record current user highlighting choices and display initial preview
   (fHiliteAttrs as IAssignable).Assign(Prefs.HiliteAttrs);
   DisplayPreview;
+
+  // Show or hide info label depending on custom flag
+  if IsFlagSupported(Flags) then
+    lblInfo.Visible := not (
+      ExtractFrameFlag(Flags) and HideRestartMessage = HideRestartMessage
+    )
+  else
+    lblInfo.Visible := True;
 end;
 
 procedure TPrintingPrefsFrame.ArrangeControls;
   {Arranges controls on frame. Called after frame has been sized.
   }
 begin
-  // Do nothing: all controls arrange themselves using Anchors property
+  // No alignment needed:
+  //   all controls use Anchors property to arrange themselves
+  // Set warning font for info label
+  TFontHelper.SetDefaultFont(lblInfo.Font);
+  lblInfo.Font.Color := clWarningText;
 end;
 
 procedure TPrintingPrefsFrame.CheckboxClick(Sender: TObject);