mirror-github-bspeice/apophysis7x
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
master
apophysis7x/Forms/Options.pas

1399 lines
50 KiB
ObjectPascal
Raw Permalink Normal View History

ADMIN: migration complete git-svn-id: https://svn.code.sf.net/p/apophysis7x/svn/trunk@1 a5d1c0f9-a0e9-45c6-87dd-9d276e40c949
2013-07-28 04:58:33 -04:00
{
Apophysis Copyright (C) 2001-2004 Mark Townsend
Apophysis Copyright (C) 2005-2006 Ronald Hordijk, Piotr Borys, Peter Sdobnov
Apophysis Copyright (C) 2007-2008 Piotr Borys, Peter Sdobnov
Apophysis "3D hack" Copyright (C) 2007-2008 Peter Sdobnov
Apophysis "7X" Copyright (C) 2009-2010 Georg Kiehne
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
}
//{$D-,L-,O+,Q-,R-,Y-,S-}
unit Options;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ComCtrls, ExtCtrls, Buttons, Registry, Mask, CheckLst,
MMSystem, Translation, RegexHelper, FileCtrl, StrUtils, ShellAPI, ShlObj;
type
TOptionsForm = class(TForm)
btnOK: TButton;
btnCancel: TButton;
OpenDialog: TOpenDialog;
Label45: TLabel;
GroupBox15: TGroupBox;
btnBrowseSound: TSpeedButton;
btnPlay: TSpeedButton;
Label44: TLabel;
txtSoundFile: TEdit;
chkPlaysound: TCheckBox;
Tabs: TPageControl;
GeneralPage: TTabSheet;
SpeedButton1: TSpeedButton;
pnlJPEGQuality: TPanel;
chkConfirmDel: TCheckBox;
chkOldPaletteFormat: TCheckBox;
chkConfirmExit: TCheckBox;
chkConfirmStopRender: TCheckBox;
cbUseTemplate: TCheckBox;
cbMissingPlugin: TCheckBox;
cbEmbedThumbs: TCheckBox;
chkShowRenderStats: TCheckBox;
pnlMultithreading: TPanel;
cbNrTheads: TComboBox;
pnlPNGTransparency: TPanel;
grpGuidelines: TGroupBox;
cbGL: TCheckBox;
pnlCenterLine: TPanel;
shCenterLine: TShape;
pnlThirdsLine: TPanel;
shThirdsLine: TShape;
pnlGRLine: TPanel;
shGRLine: TShape;
pnlCenter: TPanel;
pnlThirds: TPanel;
pnlGoldenRatio: TPanel;
rgRotationMode: TRadioGroup;
rgZoomingMode: TRadioGroup;
Panel46: TPanel;
txtLanguageFile: TComboBox;
cbPNGTransparency: TComboBox;
txtJPEGquality: TComboBox;
cbSinglePrecision: TCheckBox;
EditorPage: TTabSheet;
GroupBox1: TGroupBox;
chkUseXFormColor: TCheckBox;
chkHelpers: TCheckBox;
rgReferenceMode: TRadioGroup;
GroupBox21: TGroupBox;
chkAxisLock: TCheckBox;
chkExtendedEdit: TCheckBox;
chkXaosRebuild: TCheckBox;
grpEditorColors: TGroupBox;
pnlBackground: TPanel;
pnlReferenceC: TPanel;
pnlHelpers: TPanel;
pnlGrid: TPanel;
pnlBackColor: TPanel;
shBackground: TShape;
pnlReference: TPanel;
shRef: TShape;
pnlHelpersColor: TPanel;
shHelpers: TShape;
pnlGridColor1: TPanel;
shGC1: TShape;
pnlGridColor2: TPanel;
shGC2: TShape;
chkShowAllXforms: TCheckBox;
chkEnableEditorPreview: TCheckBox;
Panel48: TPanel;
tbEPTransparency: TTrackBar;
DisplayPage: TTabSheet;
GroupBox2: TGroupBox;
Panel8: TPanel;
Panel9: TPanel;
Panel10: TPanel;
txtHighQuality: TEdit;
txtMediumQuality: TEdit;
txtLowQuality: TEdit;
grpRendering: TGroupBox;
Panel1: TPanel;
Panel2: TPanel;
Panel3: TPanel;
Panel4: TPanel;
Panel5: TPanel;
Panel6: TPanel;
Panel7: TPanel;
txtGammaThreshold: TEdit;
txtFilterRadius: TEdit;
txtOversample: TEdit;
txtVibrancy: TEdit;
txtBrightness: TEdit;
txtGamma: TEdit;
txtSampleDensity: TEdit;
GroupBox20: TGroupBox;
Label48: TLabel;
chkShowTransparency: TCheckBox;
chkExtendMainPreview: TCheckBox;
pnlExtension: TPanel;
cbExtendPercent: TComboBox;
chkUseSmallThumbs: TCheckBox;
RandomPage: TTabSheet;
gpNumberOfTransforms: TGroupBox;
udMinXforms: TUpDown;
udMaxXForms: TUpDown;
Panel15: TPanel;
Panel16: TPanel;
txtMaxXforms: TEdit;
txtMinXForms: TEdit;
gpFlameTitlePrefix: TGroupBox;
udBatchSize: TUpDown;
chkKeepBackground: TCheckBox;
Panel11: TPanel;
Panel12: TPanel;
txtBatchSize: TEdit;
txtRandomPrefix: TEdit;
gpMutationTransforms: TGroupBox;
udMinMutate: TUpDown;
udMaxMutate: TUpDown;
Panel13: TPanel;
Panel14: TPanel;
txtMaxMutate: TEdit;
txtMinMutate: TEdit;
gpForcedSymmetry: TGroupBox;
udSymOrder: TUpDown;
udSymNVars: TUpDown;
Panel17: TPanel;
Panel18: TPanel;
Panel19: TPanel;
txtSymNVars: TEdit;
txtSymOrder: TEdit;
cmbSymType: TComboBox;
grpGradient: TRadioGroup;
GroupBox16: TGroupBox;
btnGradientsFile: TSpeedButton;
txtGradientsFile: TEdit;
VariationsPage: TTabSheet;
btnSetAll: TButton;
btnClearAll: TButton;
clbVarEnabled: TCheckListBox;
TabSheet1: TTabSheet;
GroupBox13: TGroupBox;
Panel28: TPanel;
Panel29: TPanel;
txtTryLength: TEdit;
txtNumtries: TEdit;
GroupBox17: TGroupBox;
udMinHue: TUpDown;
Panel20: TPanel;
Panel21: TPanel;
udMaxHue: TUpDown;
txtMaxHue: TEdit;
txtMinHue: TEdit;
GroupBox18: TGroupBox;
Panel22: TPanel;
Panel23: TPanel;
udMinSat: TUpDown;
txtMinSat: TEdit;
udmaxSat: TUpDown;
txtMaxSat: TEdit;
GroupBox22: TGroupBox;
Panel24: TPanel;
Panel25: TPanel;
udMinLum: TUpDown;
txtMinLum: TEdit;
udMaxLum: TUpDown;
txtMaxLum: TEdit;
GroupBox23: TGroupBox;
Panel26: TPanel;
Panel27: TPanel;
udMinNodes: TUpDown;
txtMinNodes: TEdit;
udMaxNodes: TUpDown;
txtMaxNodes: TEdit;
TabSheet6: TTabSheet;
chkAdjustDensity: TCheckBox;
UPRPage: TPageControl;
GroupBox11: TGroupBox;
Panel37: TPanel;
Panel38: TPanel;
txtUPRHeight: TEdit;
txtUPRWidth: TEdit;
GroupBox9: TGroupBox;
Panel34: TPanel;
Panel35: TPanel;
Panel36: TPanel;
txtUPROversample: TEdit;
txtUPRFilterRadius: TEdit;
txtFIterDensity: TEdit;
GroupBox4: TGroupBox;
Panel30: TPanel;
Panel31: TPanel;
txtFCFile: TEdit;
txtFCIdent: TEdit;
GroupBox5: TGroupBox;
Panel32: TPanel;
Panel33: TPanel;
txtFFFile: TEdit;
txtFFIdent: TEdit;
TabSheet2: TTabSheet;
GroupBox6: TGroupBox;
Label5: TLabel;
Label6: TLabel;
Label15: TLabel;
txtNick: TEdit;
txtURL: TEdit;
txtPassword: TEdit;
GroupBox8: TGroupBox;
Label17: TLabel;
txtServer: TEdit;
PathsPage: TTabSheet;
btnDefGradient: TSpeedButton;
btnSmooth: TSpeedButton;
SpeedButton2: TSpeedButton;
btnRenderer: TSpeedButton;
btnHelp: TSpeedButton;
Label49: TLabel;
btnFindDefaultSaveFile: TSpeedButton;
chkRememberLastOpen: TCheckBox;
Panel39: TPanel;
txtDefParameterFile: TEdit;
Panel40: TPanel;
txtDefSmoothFile: TEdit;
Panel41: TPanel;
Panel42: TPanel;
Panel43: TPanel;
txtLibrary: TEdit;
txtRenderer: TEdit;
txtHelp: TEdit;
cbEnableAutosave: TCheckBox;
Panel44: TPanel;
txtDefaultSaveFile: TEdit;
Panel45: TPanel;
cbFreq: TComboBox;
btnPluginPath: TSpeedButton;
Panel50: TPanel;
txtPluginFolder: TEdit;
procedure chkEnableEditorPreviewClick(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure btnCancelClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure btnOKClick(Sender: TObject);
procedure btnDefGradientClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure btnSmoothClick(Sender: TObject);
procedure cmbSymTypeChange(Sender: TObject);
procedure btnSetAllClick(Sender: TObject);
procedure btnClearAllClick(Sender: TObject);
procedure txtMinNodesChange(Sender: TObject);
procedure txtMaxNodesChange(Sender: TObject);
procedure txtMaxHueChange(Sender: TObject);
procedure txtMaxSatChange(Sender: TObject);
procedure txtMaxLumChange(Sender: TObject);
procedure txtMinHueChange(Sender: TObject);
procedure txtMinSatChange(Sender: TObject);
procedure txtMinLumChange(Sender: TObject);
procedure txtMinXFormsChange(Sender: TObject);
procedure txtMaxXformsChange(Sender: TObject);
procedure txtMinMutateChange(Sender: TObject);
procedure txtMaxMutateChange(Sender: TObject);
procedure btnRendererClick(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure pnlBackColorClick(Sender: TObject);
procedure pnlReferenceClick(Sender: TObject);
procedure pnlGridColor1Click(Sender: TObject);
procedure pnlGridColor2Click(Sender: TObject);
procedure pnlHelpersColorClick(Sender: TObject);
procedure btnBrowseSoundClick(Sender: TObject);
procedure pnlCenterLineClick(Sender: TObject);
procedure pnlThirdsLineClick(Sender: TObject);
procedure pnlGRLineClick(Sender: TObject);
procedure btnPlayClick(Sender: TObject);
procedure btnGradientsFileClick(Sender: TObject);
procedure shCenterLineMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure shThirdsLineMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure shGRLineMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure UpdateShapeColors;
procedure shBackgroundMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure shGC1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure shGC2MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure shRefMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure shHelpersMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure chkRememberLastOpenClick(Sender: TObject);
procedure chkUseSmallThumbsClick(Sender: TObject);
procedure btnFindDefaultSaveFileClick(Sender: TObject);
procedure cbEnableAutosaveClick(Sender: TObject);
procedure btnHelpClick(Sender: TObject);
procedure cbGLClick(Sender: TObject);
procedure btnPluginPathClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
OptionsForm: TOptionsForm;
implementation
{$R *.DFM}
uses
Main, Global, Editor, ControlPoint, XFormMan, Adjust;
procedure TOptionsForm.btnCancelClick(Sender: TObject);
begin
Close;
end;
procedure TOptionsForm.UpdateShapeColors;
begin
shBackground.Brush.Color := pnlBackColor.Color;
shGC1.Brush.Color := pnlGridColor1.Color;
shGC2.Brush.Color := pnlGridColor2.Color;
shRef.Brush.Color := pnlReference.Color;
shHelpers.Brush.Color := pnlHelpersColor.Color;
shCenterLine.Brush.Color := pnlCenterLine.Color;
shThirdsLine.Brush.Color := pnlThirdsLine.Color;
shGRLine.Brush.Color := pnlGRLine.Color;
end;
procedure TOptionsForm.FormShow(Sender: TObject);
var
Registry: TRegistry;
i, j: integer;
s1, s2: string;
begin
{ Read position from registry }
Registry := TRegistry.Create;
try
Registry.RootKey := HKEY_CURRENT_USER;
if Registry.OpenKey('Software\' + APP_NAME + '\Forms\Options', False) then
begin
if Registry.ValueExists('Left') then
OptionsForm.Left := Registry.ReadInteger('Left');
if Registry.ValueExists('Top') then
OptionsForm.Top := Registry.ReadInteger('Top');
end;
Registry.CloseKey;
finally
Registry.Free;
end;
{ General tab }
txtDefParameterFile.Text := DefFlameFile;
txtDefSmoothFile.Text := defSmoothPaletteFile;
txtNumtries.text := IntToStr(Numtries);
txtTryLength.text := IntToStr(Trylength);
udBatchSize.Position := BatchSize;
// chkResize.checked := ResizeOnLoad;
if NrTreads <= 1 then
cbNrTheads.ItemIndex := 0
else begin
// not with fucking Delphi 2005... :(
//cbNrTheads.text := intTostr(NrTreads);
// Hack
cbNrTheads.ItemIndex := 0;
case NrTreads of
2: cbNrTheads.ItemIndex := 1;
3: cbNrTheads.ItemIndex := 2;
4: cbNrTheads.ItemIndex := 3;
5: cbNrTheads.ItemIndex := 4;
6: cbNrTheads.ItemIndex := 5;
7: cbNrTheads.ItemIndex := 6;
8: cbNrTheads.ItemIndex := 7;
9: cbNrTheads.ItemIndex := 8;
10: cbNrTheads.ItemIndex := 9;
11: cbNrTheads.ItemIndex := 10;
12: cbNrTheads.ItemIndex := 11;
end;
end;
chkConfirmDel.Checked := ConfirmDelete;
chkOldPaletteFormat.Checked := OldPaletteFormat;
chkConfirmExit.Checked := ConfirmExit;
chkConfirmStopRender.Checked := ConfirmStopRender;
chkRememberLastOpen.Checked := RememberLastOpenFile;
chkUseSmallThumbs.Checked := UseSmallThumbnails;
cbUseTemplate.Checked := AlwaysCreateBlankFlame;
cbMissingPlugin.Checked := WarnOnMissingPlugin;
cbEmbedThumbs.Checked := EmbedThumbnails;
//cbSinglePrecision.Checked := SingleBuffer;
rgRotationMode.ItemIndex := MainForm_RotationMode;
if PreserveQuality then
rgZoomingMode.ItemIndex := 0
else
rgZoomingMode.ItemIndex := 1;
txtJPEGQuality.text := IntToStr(JPEGQuality);
chkPlaySound.Checked := PlaySoundOnRenderComplete;
txtSoundFile.Text := RenderCompleteSoundFile;
//cbInternalBitsPerSample.ItemIndex := InternalBitsPerSample;
{ Editor }
// rgReferenceMode.ItemIndex := ReferenceMode;
chkUseXFormColor.checked := UseTransformColors;
chkHelpers.Checked := HelpersEnabled;
chkExtendedEdit.Checked := ExtEditEnabled;
chkAxisLock.Checked := TransformAxisLock;
chkXaosRebuild.Checked := RebuildXaosLinks;
chkShowAllXforms.Checked := ShowAllXforms;
chkEnableEditorPreview.Checked := EnableEditorPreview;
tbEPTransparency.Position := EditorPreviewTransparency;
chkEnableEditorPreviewClick(self);
{ Display tab }
txtSampleDensity.Text := FloatToStr(defSampleDensity);
txtGamma.Text := FloatToStr(defGamma);
txtBrightness.Text := FloatToStr(defBrightness);
txtVibrancy.Text := FloatToStr(defVibrancy);
txtOversample.Text := IntToStr(defOversample);
txtFilterRadius.Text := FloatToStr(defFilterRadius);
txtGammaThreshold.Text := FloatToStr(defGammaThreshold);
txtLowQuality.Text := FloatToStr(prevLowQuality);
txtMediumQuality.Text := FloatToStr(prevMediumQuality);
txtHighQuality.Text := FloatToStr(prevHighQuality);
pnlBackColor.Color := TColor(EditorBkgColor);
pnlGridColor1.Color := GridColor1;
pnlGridColor2.Color := GridColor2;
pnlReference.color := TColor(ReferenceTriangleColor);
cbPNGTransparency.ItemIndex := PNGTransparency;
chkShowTransparency.Checked := ShowTransparency;
cbExtendPercent.Text := FloatToStr((MainPreviewScale - 1) / 0.02);
chkExtendMainPreview.Checked := ExtendMainPreview;
chkShowRenderStats.Checked := ShowRenderStats;
{ Random tab }
udMinXforms.Position := randMinTransforms;
udMaxXforms.Position := randMaxTransforms;
udMinMutate.Position := mutantMinTransforms;
udMaxMutate.Position := mutantMaxTransforms;
txtRandomPrefix.text := RandomPrefix;
chkKeepbackground.Checked := KeepBackground;
cmbSymType.ItemIndex := SymmetryType;
if (SymmetryType = 0) or (SymmetryType = 1) then
begin
txtSymOrder.enabled := false;
txtSymNVars.enabled := false;
end;
udSymOrder.Position := SymmetryOrder;
udSymNVars.Position := SymmetryNVars;
{ Variations tab }
//UnpackVariations(VariationOptions);
for i := 0 to NRVAR -1 do
clbVarEnabled.Checked[i] := Variations[i];
{ Gradient tab }
grpGradient.ItemIndex := randGradient;
txtGradientsFile.Text := randGradientFile;
udMinNodes.Position := MinNodes;
udMaxNodes.Position := MaxNodes;
udMinHue.Position := MinHue;
udMinSat.Position := MinSat;
udMinLum.Position := MinLum;
udMaxHue.Position := MaxHue;
udMaxSat.Position := MaxSat;
udMaxLum.Position := MaxLum;
{ UPR tab }
txtFIterDensity.text := IntToStr(UPRSampleDensity);
txtUPRFilterRadius.text := FloatToStr(UPRFilterRadius);
txtUPROversample.text := IntToStr(UPROversample);
txtFCIdent.text := UPRColoringIdent;
txtFCFile.text := UPRColoringFile;
txtFFIdent.text := UPRFormulaIdent;
txtFFFile.text := UPRFormulaFile;
txtUPRWidth.text := IntToStr(UPRWidth);
txtUPRHeight.text := IntToStr(UPRHeight);
chkAdjustDensity.checked := UPRAdjustDensity;
{ UPR tab }
txtNick.Text := SheepNick;
txtURL.Text := SheepURL;
txtPassword.Text := SheepPW;
txtRenderer.Text := flam3Path;
txtServer.Text := SheepServer;
txtHelp.Text := HelpPath;
txtLibrary.text := defLibrary;
Label45.Visible := false;
cbEnableAutosave.Checked := AutoSaveEnabled;
txtDefaultSaveFile.Text := AutoSavePath;
cbFreq.ItemIndex := AutoSaveFreq;
cbEnableAutosaveClick(nil);
pnlCenterLine.Color := TColor(LineCenterColor);
pnlThirdsLine.Color := TColor(LineThirdsColor);
pnlGRLine.Color := TColor(LineGRColor);
cbGL.Checked := EnableGuides;
cbGLClick(nil);
txtPluginFolder.Text := PluginPath;
UpdateShapeColors;
j := -1;
txtLanguageFile.Items.Clear;
for i := 0 to AvailableLanguages.Count-1 do begin
if AvailableLanguages.Strings[i] = '' then begin
txtLanguageFile.Items.Add('Default (English)');
end else begin
LanguageInfo(AvailableLanguages.Strings[i], s1, s2);
if (s2 <> '') then s1 := s2 + ' (' + s1 + ')';
txtLanguageFile.Items.Add(s1);
end;
if (lowercase(AvailableLanguages.Strings[i]) = lowercase(languagefile)) then
j := i;
end;
txtLanguageFile.ItemIndex := j;
end;
procedure TOptionsForm.btnOKClick(Sender: TObject);
var
vars: boolean;
i: integer;
warn: boolean;
begin
{ Variations tab }
{ Get option values from controls. Disallow bad values }
vars := false;
for i := 0 to NRVAR-1 do begin
Variations[i] := clbVarEnabled.Checked[i];
vars := vars or Variations[i];
end;
if vars = false then begin
//Application.MessageBox('You must select at least one variation.', 'Apophysis', 48);
//Tabs.ActivePage := VariationsPage;
//Exit;
Variations[0] := true;
end;
warn := (LanguageFile <> AvailableLanguages[txtLanguageFile.ItemIndex]) or (UseSmallThumbnails <> chkUseSmallThumbs.Checked);
{ General tab }
JPEGQuality := StrToInt(txtJPEGQuality.text);
Numtries := StrToInt(txtNumtries.text);
if NumTries < 1 then Numtries := 1;
Trylength := StrToInt(txtTrylength.text);
if Trylength < 100 then trylength := 100;
if JPEGQuality > 100 then JPEGQuality := 100;
if JPEGQuality < 1 then JPEGQuality := 100;
BatchSize := udBatchSize.Position;
if BatchSize < 1 then BatchSize := 1;
if BatchSize > 300 then BatchSize := 300;
PNGTransparency := cbPNGTransparency.ItemIndex;
ShowTransparency := chkShowTransparency.Checked;
NrTreads := StrToIntDef(cbNrTheads.text, 0);
ConfirmDelete := chkConfirmDel.Checked;
OldPaletteFormat := chkOldPaletteFormat.Checked;
ConfirmExit := chkConfirmExit.Checked;
ConfirmStopRender := chkConfirmStopRender.Checked;
RememberLastOpenFile := chkRememberLastOpen.Checked;
UseSmallThumbnails := chkUseSmallThumbs.Checked;
AlwaysCreateBlankFlame := cbUseTemplate.Checked;
EmbedThumbnails := cbEmbedThumbs.Checked;
WarnOnMissingPlugin := cbMissingPlugin.Checked;
LanguageFile := AvailableLanguages.Strings[txtLanguageFile.ItemIndex];
//SingleBuffer := cbSinglePrecision.Checked;
MainForm_RotationMode := rgRotationMode.ItemIndex;
PreserveQuality := (rgZoomingMode.ItemIndex = 0);
// ResizeOnLoad := chkResize.checked;
//InternalBitsPerSample := cbInternalBitsPerSample.ItemIndex;
LineCenterColor := pnlCenterLine.Color;
LineThirdsColor := pnlThirdsLine.Color;
LineGRColor := pnlGRLine.Color;
EnableGuides := cbGL.Checked;
// Editor
// ReferenceMode := rgReferenceMode.ItemIndex;
UseTransformColors := chkUseXFormColor.checked;
HelpersEnabled := chkHelpers.Checked;
ShowAllXforms := chkShowAllXforms.Checked;
ExtEditEnabled := chkExtendedEdit.Checked;
TransformAxisLock := chkAxisLock.Checked;
RebuildXaosLinks := chkXaosRebuild.Checked;
EnableEditorPreview := chkEnableEditorPreview.Checked;
EditorPreviewTransparency := tbEPTransparency.Position;
{ Display tab }
defSampleDensity := StrToFloat(txtSampleDensity.Text);
if defSampleDensity > 100 then defSampleDensity := 100;
if defSampleDensity <= 0 then defSampleDensity := 0.1;
defGamma := StrToFloat(txtGamma.Text);
if defGamma < 0.1 then defGamma := 0.1;
defBrightness := StrToFloat(txtBrightness.Text);
if defBrightness < 0.1 then defBrightness := 0.1;
defVibrancy := StrToFloat(txtVibrancy.Text);
if defVibrancy < 0 then defVibrancy := 0.1;
defFilterRadius := StrToFloat(txtFilterRadius.Text);
if defFilterRadius <= 0 then defFilterRadius := 0.1;
defGammaThreshold := StrToFloat(txtGammaThreshold.Text);
if defGammaThreshold < 0 then defGammaThreshold := 0;
defOversample := StrToInt(txtOversample.Text);
if defOversample > 4 then defOversample := 4;
if defOversample < 1 then defOversample := 1;
prevLowQuality := StrToFloat(txtLowQuality.Text);
if prevLowQuality > 100 then prevLowQuality := 100;
if prevLowQuality < 0.01 then prevLowQuality := 0.01;
prevMediumQuality := StrToFloat(txtMediumQuality.Text);
if prevMediumQuality > 1000 then prevMediumQuality := 1000;
if prevMediumQuality < 0.01 then prevMediumQuality := 0.01;
prevHighQuality := StrToFloat(txtHighQuality.Text);
if prevHighQuality > 10000 then prevHighQuality := 10000;
if prevHighQuality < 0.01 then prevHighQuality := 0.01;
MainPreviewScale := 1 + 0.02 * StrToFloatDef(cbExtendPercent.Text, 0);
if MainPreviewScale < 1 then MainPreviewScale := 1
else if MainPreviewScale > 5 then MainPreviewScale := 5;
ExtendMainPreview := chkExtendMainPreview.Checked;
ShowRenderStats := chkShowRenderStats.Checked;
{ Random tab }
randMinTransforms := udMinXforms.Position;
randMaxTransforms := udMaxXforms.Position;
mutantMinTransforms := udMinMutate.Position;
mutantMaxTransforms := udMaxMutate.Position;
RandomPrefix := txtRandomPrefix.text;
SymmetryType := cmbSymType.ItemIndex;
SymmetryOrder := udSymOrder.Position;
SymmetryNVars := udSymNVars.Position;
KeepBackground := chkKeepbackground.Checked;
{Gradient tab }
randGradient := grpGradient.ItemIndex;
randGradientFile := txtGradientsFile.Text;
MinNodes := udMinNodes.Position;
MaxNodes := udMaxNodes.Position;
MinHue := udMinHue.Position;
MinSat := udMinSat.Position;
MinLum := udMinLum.Position;
MaxHue := udMaxHue.Position;
MaxSat := udMaxSat.Position;
MaxLum := udMaxLum.Position;
{ UPR options }
UPRSampleDensity := StrToInt(txtFIterDensity.text);
UPRFilterRadius := StrToFloat(txtUPRFilterRadius.text);
UPROversample := StrToInt(txtUPROversample.text);
UPRColoringIdent := txtFCIdent.text;
UPRColoringFile := txtFCFile.text;
UPRFormulaIdent := txtFFIdent.text;
UPRFormulaFile := txtFFFile.text;
UPRAdjustDensity := chkAdjustDensity.checked;
UPRWidth := StrToInt(txtUPRWidth.text);
UPRHeight := StrToInt(txtUPRHeight.text);
{ Sheep options }
SheepNick := txtNick.Text;
SheepURL := txtURL.Text;
SheepPW := txtPassword.text;
flam3Path := txtRenderer.text;
SheepServer := txtServer.text;
{Paths}
defLibrary := txtLibrary.text;
if (not RememberLastOpenFile) then defFlameFile := txtDefParameterFile.Text;
defSmoothPaletteFile := txtDefSmoothFile.Text;
PlaySoundOnRenderComplete := chkPlaySound.Checked;
RenderCompleteSoundFile := txtSoundFile.Text;
HelpPath := txtHelp.Text;
//{$ifdef Apo7X64}
//{$else}
PluginPath := txtPluginFolder.Text;
if (RightStr(PluginPath, 1) <> '\') and (PluginPath <> '') then
PluginPath := PluginPath + '\';
//{$endif}
AutoSaveEnabled := cbEnableAutosave.Checked;
AutoSavePath := txtDefaultSaveFile.Text;
AutoSaveFreq := cbFreq.ItemIndex;
MainForm.mnuExportFLame.Enabled := FileExists(flam3Path);
if (warn) then
Application.MessageBox(PChar(TextByKey('options-restartnotice')), PChar('Apophysis'), MB_ICONWARNING);
Close;
end;
procedure TOptionsForm.btnDefGradientClick(Sender: TObject);
var
fn:string;
begin
OpenDialog.Filter := TextByKey('common-filter-flamefiles') + '|*.flame|' + TextBykey('common-filter-allfiles') + '|*.*';
OpenDialog.FileName := '';
if OpenSaveFileDialog(OptionsForm, '.flame', OpenDialog.Filter, OpenDialog.InitialDir, TextByKey('common-browse'), fn, true, false, false, true) then
//if OpenDialog.Execute then
begin
txtDefParameterFile.text := fn;
end;
end;
procedure TOptionsForm.FormClose(Sender: TObject; var Action: TCloseAction);
var
Registry: TRegistry;
begin
{ Write position to registry }
Registry := TRegistry.Create;
try
Registry.RootKey := HKEY_CURRENT_USER;
if Registry.OpenKey('\Software\' + APP_NAME + '\Forms\Options', True) then
begin
Registry.WriteInteger('Top', OptionsForm.Top);
Registry.WriteInteger('Left', OptionsForm.Left);
end;
finally
Registry.Free;
end;
end;
procedure TOptionsForm.btnSmoothClick(Sender: TObject);
var
fn:string;
begin
OpenDialog.Filter := TextByKey('common-filter-gradientfiles') + '|*.gradient;*.ugr|' + TextBykey('common-filter-allfiles') + '|*.*';
OpenDialog.InitialDir := ExtractFilePath(defSmoothPaletteFile);
OpenDialog.FileName := '';
OpenDialog.DefaultExt := 'ugr';
if OpenSaveFileDialog(OptionsForm, OpenDialog.DefaultExt, OpenDialog.Filter, OpenDialog.InitialDir, TextByKey('common-browse'), fn, true, false, false, true) then
//if OpenDialog.Execute then
begin
txtDefSmoothFile.text := fn;
end;
end;
procedure TOptionsForm.cmbSymTypeChange(Sender: TObject);
begin
if (cmbSymType.ItemIndex = 0) or (cmbSymType.ItemIndex = 1) then
begin
txtSymOrder.enabled := false;
txtSymNVars.enabled := false;
end else
begin
txtSymOrder.enabled := true;
txtSymNVars.enabled := true;
end;
end;
procedure TOptionsForm.btnSetAllClick(Sender: TObject);
var
i: integer;
begin
for i := 0 to NRVAR - 1 do
clbVarEnabled.Checked[i] := True;
end;
procedure TOptionsForm.btnClearAllClick(Sender: TObject);
var
i: integer;
begin
for i := 0 to NRVAR - 1 do
clbVarEnabled.Checked[i] := False;
end;
procedure TOptionsForm.txtMinNodesChange(Sender: TObject);
begin
if StrToInt(txtMinNodes.Text) > udMaxNodes.position then
udMaxNodes.Position := StrToInt(txtMinNodes.Text);
end;
procedure TOptionsForm.txtMaxNodesChange(Sender: TObject);
begin
if StrToInt(txtMaxNodes.Text) < udMinNodes.position then
udMinNodes.Position := StrToInt(txtMaxNodes.Text);
end;
procedure TOptionsForm.txtMaxHueChange(Sender: TObject);
begin
if StrToInt(txtMaxHue.Text) < udMinHue.position then
udMinHue.Position := StrToInt(txtMaxHue.Text);
end;
procedure TOptionsForm.txtMaxSatChange(Sender: TObject);
begin
if StrToInt(txtMaxSat.Text) < udMinSat.position then
udMinSat.Position := StrToInt(txtMaxSat.Text);
end;
procedure TOptionsForm.txtMaxLumChange(Sender: TObject);
begin
if StrToInt(txtMaxLum.Text) < udMinLum.position then
udMinLum.Position := StrToInt(txtMaxLum.Text);
end;
procedure TOptionsForm.txtMinHueChange(Sender: TObject);
begin
if StrToInt(txtMinHue.Text) > udMaxHue.position then
udMaxHue.Position := StrToInt(txtMinHue.Text);
end;
procedure TOptionsForm.txtMinSatChange(Sender: TObject);
begin
if StrToInt(txtMinSat.Text) > udMaxSat.position then
udMaxSat.Position := StrToInt(txtMinSat.Text);
end;
procedure TOptionsForm.txtMinLumChange(Sender: TObject);
begin
if StrToInt(txtMinLum.Text) > udMaxLum.position then
udMaxLum.Position := StrToInt(txtMinLum.Text);
end;
procedure TOptionsForm.txtMinXFormsChange(Sender: TObject);
begin
if StrToInt(txtMinXForms.Text) > udMaxXForms.position then
udMaxXFOrms.Position := StrToInt(txtMinXForms.Text);
end;
procedure TOptionsForm.txtMaxXformsChange(Sender: TObject);
begin
if StrToInt(txtMaxXForms.Text) < udMinXForms.position then
udMinXForms.Position := StrToInt(txtMaxXforms.Text);
end;
procedure TOptionsForm.txtMinMutateChange(Sender: TObject);
begin
if StrToInt(txtMinMutate.Text) > udMaxMutate.position then
udMaxMutate.Position := StrToInt(txtMinMutate.Text);
end;
procedure TOptionsForm.txtMaxMutateChange(Sender: TObject);
begin
if StrToInt(txtMaxMutate.Text) < udMinMutate.position then
udMinMutate.Position := StrToInt(txtMaxMutate.Text);
end;
procedure TOptionsForm.btnRendererClick(Sender: TObject);
var
fn:string;
begin
OpenDialog.Filter := TextBykey('common-filter-allfiles') + '|*.*';
OpenDialog.InitialDir := ExtractFilePath(flam3Path);
OpenDialog.FileName := '';
if OpenSaveFileDialog(OptionsForm, '', OpenDialog.Filter, OpenDialog.InitialDir, TextByKey('common-browse'), fn, true, false, false, true) then
//if OpenDialog.Execute then
begin
txtRenderer.text := fn;
end;
end;
procedure TOptionsForm.SpeedButton2Click(Sender: TObject);
var
fn:string;
begin
OpenDialog.Filter := TextByKey('common-filter-scriptfiles') + '|*.aposcript;*.asc|' + TextBykey('common-filter-allfiles') + '|*.*';;
OpenDialog.InitialDir := ExtractFilePath(defLibrary);
OpenDialog.FileName := '';
if OpenSaveFileDialog(OptionsForm, '.asc', OpenDialog.Filter, OpenDialog.InitialDir, TextByKey('common-browse'), fn, true, false, false, true) then
//if OpenDialog.Execute then
begin
txtLibrary.text := fn;
end;
end;
procedure TOptionsForm.FormCreate(Sender: TObject);
var
i: integer;
begin
btnOK.Caption := TextByKey('common-ok');
btnCancel.Caption := TextByKey('common-cancel');
Panel8.Caption := TextByKey('common-lowquality');
Panel9.Caption := TextByKey('common-mediumquality');
Panel10.Caption := TextByKey('common-highquality');
Panel37.Caption := TextByKey('common-width');
Panel38.Caption := TextByKey('common-height');
Panel31.Caption := TextByKey('common-filename');
Panel33.Caption := TextByKey('common-filename');
Panel44.Caption := TextByKey('common-filename');
Panel7.Caption := TextByKey('common-filterradius');
Panel35.Caption := TextByKey('common-filterradius');
Panel1.Caption := TextByKey('common-density');
Panel34.Caption := TextByKey('common-density');
Panel6.Caption := TextByKey('common-oversample');
Panel36.Caption := TextByKey('common-oversample');
Panel2.Caption := TextByKey('common-gamma');
Panel3.Caption := TextByKey('common-brightness');
Panel4.Caption := TextByKey('common-vibrancy');
Panel5.Caption := TextByKey('common-gammathreshold');
cbPNGTransparency.Items[1] := TextByKey('common-enabled');
cbPNGTransparency.Items[0] := TextByKey('common-disabled');
Panel13.Caption := TextByKey('common-minimum');
Panel15.Caption := TextByKey('common-minimum');
Panel21.Caption := TextByKey('common-minimum');
Panel22.Caption := TextByKey('common-minimum');
Panel25.Caption := TextByKey('common-minimum');
Panel26.Caption := TextByKey('common-minimum');
Panel14.Caption := TextByKey('common-maximum');
Panel16.Caption := TextByKey('common-maximum');
Panel20.Caption := TextByKey('common-maximum');
Panel23.Caption := TextByKey('common-maximum');
Panel24.Caption := TextByKey('common-maximum');
Panel27.Caption := TextByKey('common-maximum');
Label49.Caption := TextByKey('common-minutes');
Panel50.Caption := TextByKey('options-tab-general-pluginpath');
//Panel49.Caption := TextByKey('common-filename') + ' (x64)';
Panel48.Caption := TextByKey('options-tab-editor-previewtransparency');
chkEnableEditorPreview.Caption := TextByKey('options-tab-editor-enablepreview');
self.Caption := TextByKey('options-title');
GeneralPage.Caption := TextByKey('options-tab-general-title');
Panel46.Caption := TextByKey('options-tab-general-language');
pnlMultithreading.Caption := TextByKey('options-tab-general-multithreading');
cbNrTheads.Items[0] := TextByKey('options-tab-general-multithreading-off');
//pnlBufferDepth.Caption := TextByKey('options-tab-general-bufferdepth');
pnlJPEGQuality.Caption := TextByKey('options-tab-general-jpegquality');
pnlPNGTransparency.Caption := TextByKey('options-tab-general-pngtransparency');
chkShowRenderStats.Caption := TextByKey('options-tab-general-showextendedstatistics');
chkConfirmDel.Caption := TextByKey('options-tab-general-confirmdelete');
chkConfirmExit.Caption := TextByKey('options-tab-general-confirmexit');
chkconfirmStopRender.Caption := TextByKey('options-tab-general-confirmrenderstop');
chkOldPaletteFormat.Caption := TextByKey('options-tab-general-oldgradientformat');
cbUseTemplate.Caption := TextByKey('options-tab-general-alwaysblankflame');
cbMissingplugin.Caption := TextByKey('options-tab-general-enablemissingpluginswarning');
cbEmbedThumbs.Caption := TextByKey('options-tab-general-enablethumbnailembedding');
rgRotationMode.Caption := TextByKey('options-tab-general-rotatemode');
rgRotationMode.Items[0] := TextByKey('options-tab-general-rotateimage');
rgRotationMode.Items[1] := TextByKey('options-tab-general-rotateframe');
rgZoomingMode.Caption := TextByKey('options-tab-general-zoommode');
rgZoomingMode.Items[0] := TextByKey('options-tab-general-preservequality');
rgZoomingMode.Items[1] := TextByKey('options-tab-general-preservespeed');
grpGuidelines.Caption := TextByKey('options-tab-general-guides');
cbGl.Caption := TextByKey('options-tab-general-enableguides');
pnlCenter.Caption := TextByKey('options-tab-general-guidecentercolor');
pnlThirds.Caption := TextByKey('options-tab-general-guidethirdscolor');
pnlGoldenRatio.Caption := TextByKey('options-tab-general-guidegoldenratiocolor');
EditorPage.Caption := TextByKey('options-tab-editor-title');
GroupBox1.Caption := TextByKey('options-tab-editor-editorgraph');
GroupBox21.Caption := TextByKey('options-tab-editor-editordefaults');
rgReferenceMode.Caption := TextByKey('options-tab-editor-referencetriangle');
chkUseXFormColor.Caption := TextByKey('options-tab-editor-usetransformcolor');
chkHelpers.Caption := TextByKey('options-tab-editor-helperlines');
chkShowAllXForms.Caption := TextByKey('options-tab-editor-alwaysshowbothtransformtypes');
pnlBackground.Caption := TextByKey('options-tab-editor-backgroundcolor');
pnlGrid.Caption := TextByKey('options-tab-editor-gridcolors');
pnlReferenceC.Caption := TextByKey('options-tab-editor-referencecolor');
pnlHelpers.Caption := TextByKey('options-tab-editor-helpercolors');
chkExtendedEdit.Caption := TextByKey('options-tab-editor-extendededit');
chkAxisLock.Caption := TextByKey('options-tab-editor-locktransformaxes');
chkXaosRebuild.Caption := TextByKey('options-tab-editor-rebuildxaoslinks');
rgReferenceMode.Items[0] := TextByKey('options-tab-editor-normalreference');
rgReferenceMode.Items[1] := TextByKey('options-tab-editor-proportionalreference');
rgReferenceMode.Items[2] := TextByKey('options-tab-editor-wanderingreference');
DisplayPage.Caption := TextByKey('options-tab-display-title');
grpRendering.Caption := TextByKey('options-tab-display-rendering');
GroupBox2.Caption := TextByKey('options-tab-display-previewdensity');
GroupBox20.Caption := TextByKey('options-tab-display-mainpreview');
chkExtendMainPreview.Caption := TextByKey('options-tab-display-extendpreviewbuffer');
pnlExtension.Caption := TextByKey('options-tab-display-extenspreviewbufferlabel');
chkShowTransparency.Caption := TextByKey('options-tab-display-showtransparency');
chkUseSmallThumbs.Caption := TextByKey('options-tab-display-usesmallthumbs');
RandomPage.Caption := TextByKey('options-tab-random-title');
gpNumberOfTransforms.Caption := TextByKey('options-tab-random-numberoftransforms');
gpMutationTransforms.Caption := TextByKey('options-tab-random-mutationtransforms');
gpFlameTitlePrefix.Caption := TextByKey('options-tab-random-randombatch');
gpForcedSymmetry.Caption := TextByKey('options-tab-random-forcedsymmetry');
Panel11.Caption := TextByKey('options-tab-random-batchsize');
Panel12.Caption := TextByKey('options-tab-random-titleprefix');
chkKeepBackground.Caption := TextByKey('options-tab-random-keepbackground');
Panel17.Caption := TextByKey('options-tab-random-symtype');
Panel18.Caption := TextByKey('options-tab-random-symorder');
Panel19.Caption := TextByKey('options-tab-random-symlimit');
cmbSymType.Items[0] := TextByKey('options-tab-random-type-none');
cmbSymType.Items[1] := TextByKey('options-tab-random-type-bilateral');
cmbSymType.Items[2] := TextByKey('options-tab-random-type-rotational');
cmbSymType.Items[3] := TextByKey('options-tab-random-type-dihedral');
grpGradient.Caption := TextByKey('options-tab-random-onrandom');
grpGradient.Items[0] := TextByKey('options-tab-random-userandom');
grpGradient.Items[1] := TextByKey('options-tab-random-usedefault');
grpGradient.Items[2] := TextByKey('options-tab-random-usecurrent');
grpGradient.Items[3] := TextByKey('options-tab-random-randomcalculated');
grpGradient.Items[4] := TextByKey('options-tab-random-randomfromfile');
GroupBox16.Caption := TextByKey('options-tab-random-filetouse');
VariationsPage.Caption := TextByKey('options-tab-variations-title');
btnSetAll.Caption := TextByKey('options-tab-variations-setall');
btnClearAll.Caption := TextByKey('options-tab-variations-clearall');
TabSheet1.Caption := TextByKey('options-tab-gradient-title');
GroupBox23.Caption := TextByKey('options-tab-gradient-numberofnodes');
GroupBox13.Caption := TextByKey('options-tab-gradient-smoothpalette');
GroupBox17.Caption := TextByKey('options-tab-gradient-huebetween');
GroupBox18.Caption := TextByKey('options-tab-gradient-satbetween');
GroupBox22.Caption := TextByKey('options-tab-gradient-lumbetween');
Panel28.Caption := TextByKey('options-tab-gradient-numtries');
Panel29.Caption := TextByKey('options-tab-gradient-trylength');
TabSheet6.Caption := TextByKey('options-tab-upr-title');
GroupBox9.Caption := TextByKey('options-tab-upr-paramdefaults');
GroupBox4.Caption := TextByKey('options-tab-upr-coloralgorithm');
GroupBox11.Caption := TextByKey('options-tab-upr-uprsize');
GroupBox5.Caption := TextByKey('options-tab-upr-formula');
Panel30.Caption := TextByKey('options-tab-upr-identifier');
Panel32.Caption := TextByKey('options-tab-upr-identifier');
chkAdjustDensity.Caption := TextByKey('options-tab-upr-adjustdensity');
PathsPage.Caption := TextByKey('options-tab-environment-title');
Panel39.Caption := TextByKey('options-tab-environment-defaultparams');
Panel40.Caption := TextByKey('options-tab-environment-smoothpalette');
Panel41.Caption := TextByKey('options-tab-environment-functionlib');
//Panel42.Caption := TextByKey('options-tab-environment-exportrenderer');
Panel43.Caption := TextByKey('options-tab-environment-helpfile');
chkRememberLastOpen.Caption := TextByKey('options-tab-environment-rememberlastopen');
cbEnableAutosave.Caption := TextByKey('options-tab-environment-autosave');
panel45.Caption := TextByKey('options-tab-environment-savefrequency');
cbSinglePrecision.Caption := TextByKey('options-tab-general-singleprecision');
grpEditorColors.Caption := TextByKey('editor-tab-color-title');
{$ifdef Apo7X64}
{Panel50.Enabled := false;
btnPluginPath.Enabled := false;
txtPluginFolder.Enabled := false;
Panel50.Font.Color := clGrayText;
cbc64.Enabled := false;
cbc64.Font.Color := clGrayText; }
{$endif}
for i:= 0 to NRVAR - 1 do begin
clbVarEnabled.AddItem(varnames(i),nil);
end;
end;
procedure TOptionsForm.pnlCenterLineClick(Sender: TObject);
begin
if (not cbGL.Checked) then exit;
AdjustForm.ColorDialog.Color := pnlCenterLine.Color;
if AdjustForm.ColorDialog.Execute then
begin
pnlCenterLine.Color := AdjustForm.ColorDialog.Color;
LineCenterColor := Integer(pnlCenterLine.color);
UpdateShapeColors;
end;
end;
procedure TOptionsForm.pnlThirdsLineClick(Sender: TObject);
begin
if (not cbGL.Checked) then exit;
AdjustForm.ColorDialog.Color := pnlThirdsLine.Color;
if AdjustForm.ColorDialog.Execute then
begin
pnlThirdsLine.Color := AdjustForm.ColorDialog.Color;
LineThirdsColor := Integer(pnlThirdsLine.color);
UpdateShapeColors;
end;
end;
procedure TOptionsForm.pnlGRLineClick(Sender: TObject);
begin
if (not cbGL.Checked) then exit;
AdjustForm.ColorDialog.Color := pnlGRLine.Color;
if AdjustForm.ColorDialog.Execute then
begin
pnlGRLine.Color := AdjustForm.ColorDialog.Color;
LineGRColor := Integer(pnlGRLine.color);
UpdateShapeColors;
end;
end;
procedure TOptionsForm.pnlBackColorClick(Sender: TObject);
begin
AdjustForm.ColorDialog.Color := pnlBackColor.Color;
if AdjustForm.ColorDialog.Execute then
begin
pnlBackColor.Color := AdjustForm.ColorDialog.Color;
EditorBkgColor := Integer(pnlBackColor.color);
UpdateShapeColors;
end;
end;
procedure TOptionsForm.pnlReferenceClick(Sender: TObject);
begin
AdjustForm.ColorDialog.Color := pnlReference.Color;
if AdjustForm.ColorDialog.Execute then
begin
pnlReference.Color := AdjustForm.ColorDialog.Color;
ReferenceTriangleColor := Integer(pnlReference.color);
UpdateShapeColors;
end;
end;
procedure TOptionsForm.pnlGridColor1Click(Sender: TObject);
begin
AdjustForm.ColorDialog.Color := pnlGridColor1.Color;
if AdjustForm.ColorDialog.Execute then
begin
pnlGridColor1.Color := AdjustForm.ColorDialog.Color;
GridColor1 := Integer(pnlGridColor1.color);
UpdateShapeColors;
end;
end;
procedure TOptionsForm.pnlGridColor2Click(Sender: TObject);
begin
AdjustForm.ColorDialog.Color := pnlGridColor2.Color;
if AdjustForm.ColorDialog.Execute then
begin
pnlGridColor2.Color := AdjustForm.ColorDialog.Color;
GridColor2 := Integer(pnlGridColor2.color);
UpdateShapeColors;
end;
end;
procedure TOptionsForm.pnlHelpersColorClick(Sender: TObject);
begin
AdjustForm.ColorDialog.Color := pnlHelpersColor.Color;
if AdjustForm.ColorDialog.Execute then
begin
pnlHelpersColor.Color := AdjustForm.ColorDialog.Color;
HelpersColor := Integer(pnlHelpersColor.color);
UpdateShapeColors;
end;
end;
procedure TOptionsForm.btnBrowseSoundClick(Sender: TObject);
var
fn:string;
begin
OpenDialog.InitialDir := ExtractFilePath(RenderCompleteSoundFile);
OpenDialog.Filter := 'Waveform files (*.wav)|*.wav';
OpenDialog.FileName := '';
if OpenSaveFileDialog(OptionsForm, '.wav', OpenDialog.Filter, OpenDialog.InitialDir, 'Open file...', fn, true, false, false, true) then
//if OpenDialog.Execute then
begin
txtSoundFile.text := fn;
end;
end;
procedure TOptionsForm.btnPlayClick(Sender: TObject);
begin
if txtSoundFile.text <> '' then
sndPlaySound(PChar(txtSoundFile.text), SND_FILENAME or SND_ASYNC)
else
sndPlaySound(pchar(SND_ALIAS_SYSTEMASTERISK), SND_ALIAS_ID or SND_NOSTOP or SND_ASYNC);
end;
procedure TOptionsForm.btnPluginPathClick(Sender: TObject);
var
TitleName : string;
lpItemID : PItemIDList;
BrowseInfo : TBrowseInfo;
DisplayName : array[0..MAX_PATH] of char;
TempPath : array[0..MAX_PATH] of char;
begin
FillChar(BrowseInfo, sizeof(TBrowseInfo), #0);
BrowseInfo.hwndOwner := self.Handle;
BrowseInfo.pszDisplayName := @DisplayName;
TitleName := 'Please specify the plugin folder';
BrowseInfo.lpszTitle := PChar(TitleName);
BrowseInfo.ulFlags := BIF_RETURNONLYFSDIRS;
lpItemID := SHBrowseForFolder(BrowseInfo);
if lpItemId <> nil then begin
SHGetPathFromIDList(lpItemID, TempPath);
txtPluginFolder.Text := TempPath;
GlobalFreePtr(lpItemID);
end;
end;
procedure TOptionsForm.btnGradientsFileClick(Sender: TObject);
var
fn:string;
begin
OpenDialog.Filter := TextByKey('common-filter-gradientfiles') + '|*.gradient;*.ugr|' + TextBykey('common-filter-allfiles') + '|*.*';
OpenDialog.InitialDir := ExtractFilePath(randGradientFile);
OpenDialog.FileName := '';
if OpenSaveFileDialog(OptionsForm, '.ugr', OpenDialog.Filter, OpenDialog.InitialDir, TextByKey('common-browse'), fn, true, false, false, true) then
//if OpenDialog.Execute then
begin
txtGradientsFile.text := fn;
end;
end;
procedure TOptionsForm.shBackgroundMouseUp(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
pnlBackColorClick(Sender);
end;
procedure TOptionsForm.shCenterLineMouseUp(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
pnlCenterLineClick(Sender);
end;
procedure TOptionsForm.shThirdsLineMouseUp(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
pnlThirdsLineClick(Sender);
end;
procedure TOptionsForm.shGRLineMouseUp(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
pnlGRLineClick(Sender);
end;
procedure TOptionsForm.shGC1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
pnlGridColor1Click(Sender);
end;
procedure TOptionsForm.shGC2MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
pnlGridColor2Click(Sender);
end;
procedure TOptionsForm.shRefMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
pnlReferenceClick(Sender);
end;
procedure TOptionsForm.shHelpersMouseUp(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
pnlHelpersColorClick(Sender);
end;
procedure TOptionsForm.chkRememberLastOpenClick(Sender: TObject);
begin
if chkRememberLastOpen.Checked then begin
txtDefParameterFile.Enabled := false;
txtDefParameterFile.Text := ''; //LastOpenFile;
btnDefGradient.Enabled := false;
end else begin
txtDefParameterFile.Enabled := true;
btnDefGradient.Enabled := true;
end;
Panel39.Enabled := txtDefParameterFile.Enabled;
if (Panel39.Enabled) then Panel39.Font.Color := clWindowText
else Panel39.Font.Color := clGrayText;
end;
procedure TOptionsForm.chkUseSmallThumbsClick(Sender: TObject);
begin
Label45.Visible := true;
end;
procedure TOptionsForm.btnFindDefaultSaveFileClick(Sender: TObject);
var fn:string;
begin
OpenDialog.Filter := TextByKey('common-filter-flamefiles') + '|*.flame|' + TextBykey('common-filter-allfiles') + '|*.*';
OpenDialog.FileName := '';
if OpenSaveFileDialog(OptionsForm, '.flame', OpenDialog.Filter, OpenDialog.InitialDir, TextByKey('common-browse'), fn, false, false, false, false) then
//if OpenDialog.Execute then
begin
txtDefaultSaveFile.text := fn;
end;
end;
procedure TOptionsForm.cbEnableAutosaveClick(Sender: TObject);
begin
Panel44.Enabled := cbEnableAutoSave.Checked;
Panel45.Enabled := cbEnableAutoSave.Checked;
Label49.Enabled := cbEnableAutoSave.Checked;
if (Panel44.Enabled) then Panel44.Font.Color := clWindowText
else Panel44.Font.Color := clGrayText;
if (Panel45.Enabled) then Panel45.Font.Color := clWindowText
else Panel45.Font.Color := clGrayText;
txtDefaultSaveFile.Enabled := cbEnableAutoSave.Checked;
btnFindDefaultSaveFile.Enabled := cbEnableAutoSave.Checked;
cbFreq.Enabled := cbEnableAutoSave.Checked;
end;
procedure TOptionsForm.btnHelpClick(Sender: TObject);
var
fn:string;
begin
OpenDialog.Filter := TextBykey('common-filter-allfiles') + '|*.*';
OpenDialog.InitialDir := ExtractFilePath(helpPath);
OpenDialog.FileName := '';
if OpenSaveFileDialog(OptionsForm, '', OpenDialog.Filter, OpenDialog.InitialDir, TextByKey('common-browse'), fn, true, false, false, true) then
//if OpenDialog.Execute then
begin
txtHelp.text := fn;
end;
end;
procedure TOptionsForm.cbGLClick(Sender: TObject);
begin
pnlCenter.Enabled := cbGL.Checked;
pnlThirds.Enabled := cbGL.Checked;
pnlGoldenRatio.Enabled := cbGL.Checked;
if (pnlCenter.Enabled) then pnlCenter.Font.Color := clWindowText
else pnlCenter.Font.Color := clGrayText;
if (pnlThirds.Enabled) then pnlThirds.Font.Color := clWindowText
else pnlThirds.Font.Color := clGrayText;
if (pnlGoldenRatio.Enabled) then pnlGoldenRatio.Font.Color := clWindowText
else pnlGoldenRatio.Font.Color := clGrayText;
end;
procedure TOptionsForm.SpeedButton1Click(Sender: TObject);
var fn, fn2, s1, s2:string; i : integer;
begin
OpenDialog.Filter := 'Extensible Markup Language Files (*.xml)|*.xml';
OpenDialog.InitialDir := ExtractFilePath(helpPath);
OpenDialog.FileName := '';
if OpenSaveFileDialog(OptionsForm, '', OpenDialog.Filter, OpenDialog.InitialDir, TextByKey('common-browse'), fn, true, false, false, true) then
//if OpenDialog.Execute then
begin
fn2 := ExtractFilePath(Application.ExeName) + 'Languages\' + ExtractFileName(fn);
LanguageInfo(fn, s1, s2);
if s1 <> '' then begin
if not DirectoryExists(ExtractFilePath(Application.ExeName) + 'Languages\') then
CreateDirectory(PChar(ExtractFilePath(Application.ExeName) + 'Languages\'), nil);
if (lowercase(ExtractFilePath(fn)) <> lowercase(ExtractFilePath(Application.ExeName) + 'Languages\')) then
CopyFile(PChar(fn), PChar(fn2), False);
AvailableLanguages.Add(fn2);
i := AvailableLanguages.Count - 1;
if (s2 <> '') then
s1 := s2 + ' (' + s1 + ')';
txtLanguageFile.Items.Add(s1);
txtLanguageFile.ItemIndex := txtLanguageFile.Items.Count - 1;
end else begin
Application.MessageBox(PChar(TextByKey('common-invalidformat')), PChar('Apophysis'), MB_ICONERROR);
end;
end;
end;
procedure TOptionsForm.chkEnableEditorPreviewClick(Sender: TObject);
begin
Panel48.Enabled := chkEnableEditorPreview.Checked;
if chkEnableEditorPreview.Checked then
Panel48.Font.Color := clWindowText
else Panel48.Font.Color := clGrayText;
tbEPTransparency.Enabled := chkEnableEditorPreview.Checked;
end;
end.
Reference in New Issue Copy Permalink