fearsome warning sign in FormExport

2.10/Source/FormExport.dfm

@@ -3,7 +3,7 @@ object ExportDialog: TExportDialog
   Top = 276
   BorderStyle = bsDialog
   Caption = 'Export Flame'
-  ClientHeight = 292
+  ClientHeight = 382
   ClientWidth = 419
   Color = clBtnFace
   Font.Charset = DEFAULT_CHARSET
@@ -376,6 +376,85 @@ object ExportDialog: TExportDialog
     State = cbChecked
     TabOrder = 6
   end
+  object Panel1: TPanel
+    Left = 8
+    Top = 296
+    Width = 409
+    Height = 81
+    BevelInner = bvLowered
+    Color = clBackground
+    TabOrder = 7
+    DesignSize = (
+      409
+      81)
+    object Label6: TLabel
+      Left = 152
+      Top = 4
+      Width = 104
+      Height = 24
+      Alignment = taCenter
+      Anchors = [akLeft, akTop, akRight]
+      Caption = 'WARNING!'
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clRed
+      Font.Height = -19
+      Font.Name = 'MS Sans Serif'
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label15: TLabel
+      Left = 34
+      Top = 28
+      Width = 340
+      Height = 13
+      Alignment = taCenter
+      Anchors = [akLeft, akRight]
+      Caption = 'To render your fractals properly using the "export" function,'
+      Color = clBackground
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clYellow
+      Font.Height = -11
+      Font.Name = 'MS Sans Serif'
+      Font.Style = [fsBold]
+      ParentColor = False
+      ParentFont = False
+    end
+    object Label13: TLabel
+      Left = 46
+      Top = 44
+      Width = 316
+      Height = 13
+      Alignment = taCenter
+      Anchors = [akLeft, akRight]
+      Caption = 'You need to download the latest version of FLAM3 from'
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clYellow
+      Font.Height = -11
+      Font.Name = 'MS Sans Serif'
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object lblFlam3Link: TLabel
+      Left = 141
+      Top = 60
+      Width = 127
+      Height = 13
+      Cursor = crHandPoint
+      Hint = 'http://www.flam3.com'
+      Alignment = taCenter
+      Anchors = [akLeft, akRight]
+      Caption = 'http://www.flam3.com'
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clBlue
+      Font.Height = -11
+      Font.Name = 'MS Sans Serif'
+      Font.Style = [fsBold, fsUnderline]
+      ParentFont = False
+      ParentShowHint = False
+      ShowHint = True
+      OnClick = lblFlam3LinkClick
+    end
+  end
   object SaveDialog: TSaveDialog
     DefaultExt = 'jpg'
     Filter = 

2.10/Source/FormExport.pas

@@ -22,7 +22,7 @@ interface
 
 uses
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
-  StdCtrls, Buttons, ComCtrls;
+  StdCtrls, Buttons, ComCtrls, ExtCtrls;
 
 type
   TExportDialog = class(TForm)
@@ -62,6 +62,11 @@ type
     txtEstimatorCurve: TEdit;
     Label14: TLabel;
     txtGammaTreshold: TEdit;
+    Panel1: TPanel;
+    Label6: TLabel;
+    Label15: TLabel;
+    Label13: TLabel;
+    lblFlam3Link: TLabel;
     procedure btnBrowseClick(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure btnOKClick(Sender: TObject);
@@ -78,6 +83,7 @@ type
     procedure txtEstimatorCurveChange(Sender: TObject);
     procedure txtJittersChange(Sender: TObject);
     procedure txtGammaTresholdChange(Sender: TObject);
+    procedure lblFlam3LinkClick(Sender: TObject);
   private
     FloatFormatSettings: TFormatSettings;
   public
@@ -94,7 +100,7 @@ var
   Ratio: double;
 
 implementation
-uses Global, Main;
+uses Global, Main, ShellAPI;
 
 {$R *.DFM}
 
@@ -288,5 +294,11 @@ begin
   end;
 end;
 
+procedure TExportDialog.lblFlam3LinkClick(Sender: TObject);
+begin
+  ShellExecute(ValidParentForm(Self).Handle, 'open', PChar(TLabel(Sender).Hint),
+    nil, nil, SW_SHOWNORMAL);
+end;
+
 end.