mirror-github-bspeice/apophysis
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fearsome warning sign in FormExport

Browse Source
This commit is contained in:
zueuk
2006-04-15 15:46:50 +00:00
parent 51f8122d9b
commit 3e30ef3a49
2 changed files with 94 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
2.10/Source/FormExport.pas
View File

@ -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.