diff --git a/2.10/Source/FormExport.dfm b/2.10/Source/FormExport.dfm index 35e2062..eed8705 100644 --- a/2.10/Source/FormExport.dfm +++ b/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 = diff --git a/2.10/Source/FormExport.pas b/2.10/Source/FormExport.pas index c140cbe..bc2f05d 100644 --- a/2.10/Source/FormExport.pas +++ b/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.