600 lines
17 KiB
ObjectPascal
600 lines
17 KiB
ObjectPascal
{
|
|
********************************************************************************
|
|
|
|
YaPeTaVi - Yet another Periodic Table Viewer
|
|
Copyright (C) 2010 Geoffray Levasseur <geoffray.levasseurbrandin@numericable.fr>.
|
|
All rights reserved.
|
|
http://www.geoffray-levasseur.org/
|
|
|
|
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., 59 Temple
|
|
Place - Suite 330, Boston, MA 02111-1307, USA.
|
|
|
|
********************************************************************************
|
|
|
|
Description:
|
|
option form
|
|
|
|
}
|
|
unit frmOptions;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
|
|
Buttons, ComCtrls, StdCtrls, EditBtn, ExtCtrls;
|
|
|
|
type
|
|
|
|
{ TOptionsForm }
|
|
|
|
TOptionsForm = class(TForm)
|
|
btnSBlocBG: TBitBtn;
|
|
btnAlkalieMetalBG: TBitBtn;
|
|
btnMetalloidBG: TBitBtn;
|
|
btnTransMetalBG: TBitBtn;
|
|
btnAlkalineFG: TBitBtn;
|
|
btnAlkalieMetalFG: TBitBtn;
|
|
btnMetalloidFG: TBitBtn;
|
|
btnTransMetalFG: TBitBtn;
|
|
btnMinGrad: TBitBtn;
|
|
btnMaxGrad: TBitBtn;
|
|
btnUnknowGrad: TBitBtn;
|
|
btnSBlocFG: TBitBtn;
|
|
btnOtherMetalBG: TBitBtn;
|
|
btnTextGrad: TBitBtn;
|
|
btnOtherMetalFG: TBitBtn;
|
|
btnNonMetalBG: TBitBtn;
|
|
btnNonMetalFG: TBitBtn;
|
|
btnHalogenBG: TBitBtn;
|
|
btnHalogenFG: TBitBtn;
|
|
btnNobleGasBG: TBitBtn;
|
|
btnPBlocBG: TBitBtn;
|
|
btnNobleGasFG: TBitBtn;
|
|
btnRareEarthBG: TBitBtn;
|
|
btnRareEarthFG: TBitBtn;
|
|
btnPBlocFG: TBitBtn;
|
|
btnFBlocBG: TBitBtn;
|
|
btnFBlocFG: TBitBtn;
|
|
btnDBlocBG: TBitBtn;
|
|
btnDBlocFG: TBitBtn;
|
|
btnAlkalineBG: TBitBtn;
|
|
btnOk: TBitBtn;
|
|
btnCancel: TBitBtn;
|
|
CheckBox1: TCheckBox;
|
|
cbIconTheme: TComboBox;
|
|
ColorDialog: TColorDialog;
|
|
DirectoryEdit1: TDirectoryEdit;
|
|
DirectoryEdit2: TDirectoryEdit;
|
|
DirectoryEdit3: TDirectoryEdit;
|
|
GroupBox1: TGroupBox;
|
|
GroupBox2: TGroupBox;
|
|
GroupBox3: TGroupBox;
|
|
Label1: TLabel;
|
|
Label2: TLabel;
|
|
Label3: TLabel;
|
|
Label4: TLabel;
|
|
pcMain: TPageControl;
|
|
pcColors: TPageControl;
|
|
pnSBloc: TPanel;
|
|
pnMaxGrad: TPanel;
|
|
pnUnknowGrad: TPanel;
|
|
pnOtherMetal: TPanel;
|
|
pnNonMetal: TPanel;
|
|
pnHalogen: TPanel;
|
|
pnNobleGas: TPanel;
|
|
pnRareEarth: TPanel;
|
|
pnPBloc: TPanel;
|
|
pnFBloc: TPanel;
|
|
pnDBloc: TPanel;
|
|
pnAlkaline: TPanel;
|
|
pnAlkalieMetal: TPanel;
|
|
pnMetalloid: TPanel;
|
|
pnTransMetal: TPanel;
|
|
pnMinGrad: TPanel;
|
|
TabSheet1: TTabSheet;
|
|
TabSheet2: TTabSheet;
|
|
TabSheet3: TTabSheet;
|
|
tsAppearance: TTabSheet;
|
|
tsAdvanced: TTabSheet;
|
|
procedure btnAlkalieMetalBGClick(Sender: TObject);
|
|
procedure btnAlkalieMetalFGClick(Sender: TObject);
|
|
procedure btnAlkalineBGClick(Sender: TObject);
|
|
procedure btnAlkalineFGClick(Sender: TObject);
|
|
procedure btnDBlocBGClick(Sender: TObject);
|
|
procedure btnDBlocFGClick(Sender: TObject);
|
|
procedure btnFBlocBGClick(Sender: TObject);
|
|
procedure btnFBlocFGClick(Sender: TObject);
|
|
procedure btnHalogenBGClick(Sender: TObject);
|
|
procedure btnHalogenFGClick(Sender: TObject);
|
|
procedure btnMaxGradClick(Sender: TObject);
|
|
procedure btnMetalloidBGClick(Sender: TObject);
|
|
procedure btnMetalloidFGClick(Sender: TObject);
|
|
procedure btnMinGradClick(Sender: TObject);
|
|
procedure btnNobleGasBGClick(Sender: TObject);
|
|
procedure btnNobleGasFGClick(Sender: TObject);
|
|
procedure btnNonMetalBGClick(Sender: TObject);
|
|
procedure btnNonMetalFGClick(Sender: TObject);
|
|
procedure btnOtherMetalBGClick(Sender: TObject);
|
|
procedure btnOtherMetalFGClick(Sender: TObject);
|
|
procedure btnPBlocBGClick(Sender: TObject);
|
|
procedure btnPBlocFGClick(Sender: TObject);
|
|
procedure btnRareEarthBGClick(Sender: TObject);
|
|
procedure btnRareEarthFGClick(Sender: TObject);
|
|
procedure btnSBlocBGClick(Sender: TObject);
|
|
procedure btnSBlocFGClick(Sender: TObject);
|
|
procedure btnTextGradClick(Sender: TObject);
|
|
procedure btnTransMetalBGClick(Sender: TObject);
|
|
procedure btnTransMetalFGClick(Sender: TObject);
|
|
procedure btnUnknowGradClick(Sender: TObject);
|
|
procedure cbIconThemeChange(Sender: TObject);
|
|
procedure FormCreate(Sender: TObject);
|
|
private
|
|
{ private declarations }
|
|
public
|
|
{ public declarations }
|
|
ChangedColors: Boolean;
|
|
ChangedIconSet: Boolean;
|
|
ChangedPaths: Boolean;
|
|
ChangedBackup: Boolean;
|
|
end;
|
|
|
|
var
|
|
OptionsForm: TOptionsForm;
|
|
|
|
implementation
|
|
|
|
uses
|
|
uIconManager, uConst;
|
|
|
|
{ TOptionsForm }
|
|
|
|
procedure TOptionsForm.FormCreate(Sender: TObject);
|
|
var
|
|
I: integer;
|
|
begin
|
|
InitBtnGlyphs(Self);
|
|
//I := 0;
|
|
for I := 0 to 127 do
|
|
if IconSetsList[I] <> '' then
|
|
begin
|
|
cbIconTheme.Items.Add(IconSetsList[I]);
|
|
end;
|
|
|
|
pnSBloc.Color := clSBlocBG;
|
|
btnSBlocBG.Glyph := CreateColorGlyph(clSBlocBG, 16, 16);
|
|
pnSBloc.Font.Color := clSBlocFG;
|
|
btnSBlocFG.Glyph := CreateColorGlyph(clSBlocFG, 16, 16);
|
|
|
|
pnPBloc.Color := clPBlocBG;
|
|
btnPBlocBG.Glyph := CreateColorGlyph(clPBlocBG, 16, 16);
|
|
pnPBloc.Font.Color := clPBlocFG;
|
|
btnPBlocFG.Glyph := CreateColorGlyph(clPBlocFG, 16, 16);
|
|
|
|
pnFBloc.Color := clFBlocBG;
|
|
btnFBlocBG.Glyph := CreateColorGlyph(clFBlocBG, 16, 16);
|
|
pnFBloc.Font.Color := clFBlocFG;
|
|
btnFBlocFG.Glyph := CreateColorGlyph(clFBlocFG, 16, 16);
|
|
|
|
pnDBloc.Color := clDBlocBG;
|
|
btnDBlocBG.Glyph := CreateColorGlyph(clDBlocBG, 16, 16);
|
|
pnDBloc.Font.Color := clDBlocFG;
|
|
btnDBlocFG.Glyph := CreateColorGlyph(clDBlocFG, 16, 16);
|
|
|
|
pnAlkaline.Color := clAlkalineBG;
|
|
btnAlkalineBG.Glyph := CreateColorGlyph(clAlkalineBG, 16, 16);
|
|
pnAlkaline.Font.Color := clAlkalineFG;
|
|
btnAlkalineFG.Glyph := CreateColorGlyph(clAlkalineFG, 16, 16);
|
|
|
|
pnAlkalieMetal.Color := clAlkalieMetalBG;
|
|
btnAlkalieMetalBG.Glyph := CreateColorGlyph(clAlkalieMetalBG, 16, 16);
|
|
pnAlkalieMetal.Font.Color := clAlkalieMetalFG;
|
|
btnAlkalieMetalFG.Glyph := CreateColorGlyph(clAlkalieMetalFG, 16, 16);
|
|
|
|
pnNonMetal.Color := clNonMetalBG;
|
|
btnNonMetalBG.Glyph := CreateColorGlyph(clNonMetalBG, 16, 16);
|
|
pnNonMetal.Font.Color := clNonMetalFG;
|
|
btnNonMetalFG.Glyph := CreateColorGlyph(clNonMetalFG, 16, 16);
|
|
|
|
pnHalogen.Color := clHalogenBG;
|
|
btnHalogenBG.Glyph := CreateColorGlyph(clHalogenBG, 16, 16);
|
|
pnHalogen.Font.Color := clHalogenFG;
|
|
btnHalogenFG.Glyph := CreateColorGlyph(clHalogenFG, 16, 16);
|
|
|
|
pnNobleGas.Color := clNobleGasBG;
|
|
btnNobleGasBG.Glyph := CreateColorGlyph(clNobleGasBG, 16, 16);
|
|
pnNobleGas.Font.Color := clNobleGasFG;
|
|
btnNobleGasFG.Glyph := CreateColorGlyph(clNobleGasFG, 16, 16);
|
|
|
|
pnTransMetal.Color := clTransMetalBG;
|
|
btnTransMetalBG.Glyph := CreateColorGlyph(clTransMetalBG, 16, 16);
|
|
pnTransMetal.Font.Color := clTransMetalFG;
|
|
btnTransMetalFG.Glyph := CreateColorGlyph(clTransMetalFG, 16, 16);
|
|
|
|
pnMetalloid.Color := clMetalloidBG;
|
|
btnMetalloidBG.Glyph := CreateColorGlyph(clMetalloidBG, 16, 16);
|
|
pnMetalloid.Font.Color := clMetalloidFG;
|
|
btnMetalloidFG.Glyph := CreateColorGlyph(clMetalloidFG, 16, 16);
|
|
|
|
pnRareEarth.Color := clRareEarthBG;
|
|
btnRareEarthBG.Glyph := CreateColorGlyph(clRareEarthBG, 16, 16);
|
|
pnRareEarth.Font.Color := clRareEarthFG;
|
|
btnRareEarthFG.Glyph := CreateColorGlyph(clRareEarthFG, 16, 16);
|
|
|
|
pnOtherMetal.Color := clOtherMetalBG;
|
|
btnOtherMetalBG.Glyph := CreateColorGlyph(clOtherMetalBG, 16, 16);
|
|
pnOtherMetal.Font.Color := clOtherMetalFG;
|
|
btnOtherMetalFG.Glyph := CreateColorGlyph(clOtherMetalFG, 16, 16);
|
|
|
|
pnMinGrad.Color := clGradientMin;
|
|
btnMinGrad.Glyph := CreateColorGlyph(clGradientMin, 16, 16);
|
|
pnMaxGrad.Color := clGradientMax;
|
|
btnMaxGrad.Glyph := CreateColorGlyph(clGradientMax, 16, 16);
|
|
pnUnknowGrad.Color := clGradientUnknow;
|
|
btnUnknowGrad.Glyph := CreateColorGlyph(clGradientUnknow, 16, 16);
|
|
pnMinGrad.Font.Color := clGradientText;
|
|
pnMaxGrad.Font.Color := clGradientText;
|
|
pnUnknowGrad.Font.Color := clGradientText;
|
|
btnTextGrad.Glyph := CreateColorGlyph(clGradientText, 16, 16);
|
|
pcMain.ActivePageIndex := 0;
|
|
pcColors.ActivePageIndex := 0;
|
|
ChangedBackup := False;
|
|
ChangedColors := False;
|
|
ChangedIconSet := False;
|
|
ChangedPaths := False;
|
|
end;
|
|
|
|
procedure TOptionsForm.btnSBlocBGClick(Sender: TObject);
|
|
begin
|
|
ColorDialog.Color := clSBlocBG;
|
|
if ColorDialog.Execute then
|
|
begin
|
|
pnSBloc.Color := ColorDialog.Color;
|
|
btnSBlocBG.Glyph := CreateColorGlyph(ColorDialog.Color, 16, 16);
|
|
ChangedColors := True;
|
|
end;
|
|
end;
|
|
|
|
procedure TOptionsForm.btnSBlocFGClick(Sender: TObject);
|
|
begin
|
|
ColorDialog.Color := clSBlocFG;
|
|
if ColorDialog.Execute then
|
|
begin
|
|
pnSBloc.Font.Color := ColorDialog.Color;
|
|
btnSBlocFG.Glyph := CreateColorGlyph(ColorDialog.Color, 16, 16);
|
|
ChangedColors := True;
|
|
end;
|
|
end;
|
|
|
|
procedure TOptionsForm.btnTextGradClick(Sender: TObject);
|
|
begin
|
|
ColorDialog.Color := clGradientText;
|
|
if ColorDialog.Execute then
|
|
begin
|
|
pnMinGrad.Font.Color := ColorDialog.Color;
|
|
pnMaxGrad.Font.Color := ColorDialog.Color;
|
|
pnUnknowGrad.Font.Color := ColorDialog.Color;
|
|
btnTextGrad.Glyph := CreateColorGlyph(ColorDialog.Color, 16, 16);
|
|
ChangedColors := True;
|
|
end;
|
|
end;
|
|
|
|
procedure TOptionsForm.btnTransMetalBGClick(Sender: TObject);
|
|
begin
|
|
ColorDialog.Color := clTransMetalBG;
|
|
if ColorDialog.Execute then
|
|
begin
|
|
pnTransMetal.Color := ColorDialog.Color;
|
|
btnTransMetalBG.Glyph := CreateColorGlyph(ColorDialog.Color, 16, 16);
|
|
ChangedColors := True;
|
|
end;
|
|
end;
|
|
|
|
procedure TOptionsForm.btnTransMetalFGClick(Sender: TObject);
|
|
begin
|
|
ColorDialog.Color := clTransMetalFG;
|
|
if ColorDialog.Execute then
|
|
begin
|
|
pnTransMetal.Font.Color := ColorDialog.Color;
|
|
btnTransMetalFG.Glyph := CreateColorGlyph(ColorDialog.Color, 16, 16);
|
|
ChangedColors := True;
|
|
end;
|
|
end;
|
|
|
|
procedure TOptionsForm.btnUnknowGradClick(Sender: TObject);
|
|
begin
|
|
ColorDialog.Color := clGradientUnknow;
|
|
if ColorDialog.Execute then
|
|
begin
|
|
pnUnknowGrad.Color := ColorDialog.Color;
|
|
btnUnknowGrad.Glyph := CreateColorGlyph(ColorDialog.Color, 16, 16);
|
|
ChangedColors := True;
|
|
end;
|
|
end;
|
|
|
|
procedure TOptionsForm.cbIconThemeChange(Sender: TObject);
|
|
begin
|
|
ChangedIconSet := True;
|
|
end;
|
|
|
|
procedure TOptionsForm.btnPBlocBGClick(Sender: TObject);
|
|
begin
|
|
ColorDialog.Color := clPBlocBG;
|
|
if ColorDialog.Execute then
|
|
begin
|
|
pnPBloc.Color := ColorDialog.Color;
|
|
btnPBlocBG.Glyph := CreateColorGlyph(ColorDialog.Color, 16, 16);
|
|
ChangedColors := True;
|
|
end;
|
|
end;
|
|
|
|
procedure TOptionsForm.btnPBlocFGClick(Sender: TObject);
|
|
begin
|
|
ColorDialog.Color := clFBlocFG;
|
|
if ColorDialog.Execute then
|
|
begin
|
|
pnFBloc.Font.Color := ColorDialog.Color;
|
|
btnFBlocFG.Glyph := CreateColorGlyph(ColorDialog.Color, 16, 16);
|
|
ChangedColors := True;
|
|
end;
|
|
end;
|
|
|
|
procedure TOptionsForm.btnRareEarthBGClick(Sender: TObject);
|
|
begin
|
|
ColorDialog.Color := clRareEarthBG;
|
|
if ColorDialog.Execute then
|
|
begin
|
|
pnRareEarth.Color := ColorDialog.Color;
|
|
btnRareEarthBG.Glyph := CreateColorGlyph(ColorDialog.Color, 16, 16);
|
|
ChangedColors := True;
|
|
end;
|
|
end;
|
|
|
|
procedure TOptionsForm.btnRareEarthFGClick(Sender: TObject);
|
|
begin
|
|
ColorDialog.Color := clRareEarthFG;
|
|
if ColorDialog.Execute then
|
|
begin
|
|
pnRareEarth.Font.Color := ColorDialog.Color;
|
|
btnRareEarthFG.Glyph := CreateColorGlyph(ColorDialog.Color, 16, 16);
|
|
ChangedColors := True;
|
|
end;
|
|
end;
|
|
|
|
procedure TOptionsForm.btnFBlocBGClick(Sender: TObject);
|
|
begin
|
|
ColorDialog.Color := clFBlocBG;
|
|
if ColorDialog.Execute then
|
|
begin
|
|
pnFBloc.Color := ColorDialog.Color;
|
|
btnFBlocBG.Glyph := CreateColorGlyph(ColorDialog.Color, 16, 16);
|
|
ChangedColors := True;
|
|
end;
|
|
end;
|
|
|
|
procedure TOptionsForm.btnFBlocFGClick(Sender: TObject);
|
|
begin
|
|
ColorDialog.Color := clFBlocFG;
|
|
if ColorDialog.Execute then
|
|
begin
|
|
pnFBloc.Font.Color := ColorDialog.Color;
|
|
btnFBlocFG.Glyph := CreateColorGlyph(ColorDialog.Color, 16, 16);
|
|
ChangedColors := True;
|
|
end;
|
|
end;
|
|
|
|
procedure TOptionsForm.btnHalogenBGClick(Sender: TObject);
|
|
begin
|
|
ColorDialog.Color := clHalogenBG;
|
|
if ColorDialog.Execute then
|
|
begin
|
|
pnHalogen.Color := ColorDialog.Color;
|
|
btnHalogenBG.Glyph := CreateColorGlyph(ColorDialog.Color, 16, 16);
|
|
ChangedColors := True;
|
|
end;
|
|
end;
|
|
|
|
procedure TOptionsForm.btnHalogenFGClick(Sender: TObject);
|
|
begin
|
|
ColorDialog.Color := clHalogenFG;
|
|
if ColorDialog.Execute then
|
|
begin
|
|
pnHalogen.Font.Color := ColorDialog.Color;
|
|
btnHalogenFG.Glyph := CreateColorGlyph(ColorDialog.Color, 16, 16);
|
|
ChangedColors := True;
|
|
end;
|
|
end;
|
|
|
|
procedure TOptionsForm.btnMaxGradClick(Sender: TObject);
|
|
begin
|
|
ColorDialog.Color := clGradientMax;
|
|
if ColorDialog.Execute then
|
|
begin
|
|
pnMaxGrad.Color := ColorDialog.Color;
|
|
btnMaxGrad.Glyph := CreateColorGlyph(ColorDialog.Color, 16, 16);
|
|
ChangedColors := True;
|
|
end;
|
|
end;
|
|
|
|
procedure TOptionsForm.btnMetalloidBGClick(Sender: TObject);
|
|
begin
|
|
ColorDialog.Color := clMetalloidBG;
|
|
if ColorDialog.Execute then
|
|
begin
|
|
pnMetalloid.Color := ColorDialog.Color;
|
|
btnMetalloidBG.Glyph := CreateColorGlyph(ColorDialog.Color, 16, 16);
|
|
ChangedColors := True;
|
|
end;
|
|
end;
|
|
|
|
procedure TOptionsForm.btnMetalloidFGClick(Sender: TObject);
|
|
begin
|
|
ColorDialog.Color := clMetalloidFG;
|
|
if ColorDialog.Execute then
|
|
begin
|
|
pnMetalloid.Font.Color := ColorDialog.Color;
|
|
btnMetalloidFG.Glyph := CreateColorGlyph(ColorDialog.Color, 16, 16);
|
|
ChangedColors := True;
|
|
end;
|
|
end;
|
|
|
|
procedure TOptionsForm.btnMinGradClick(Sender: TObject);
|
|
begin
|
|
ColorDialog.Color := clGradientMin;
|
|
if ColorDialog.Execute then
|
|
begin
|
|
pnMinGrad.Color := ColorDialog.Color;
|
|
btnMinGrad.Glyph := CreateColorGlyph(ColorDialog.Color, 16, 16);
|
|
ChangedColors := True;
|
|
end;
|
|
end;
|
|
|
|
procedure TOptionsForm.btnNobleGasBGClick(Sender: TObject);
|
|
begin
|
|
ColorDialog.Color := clNobleGasBG;
|
|
if ColorDialog.Execute then
|
|
begin
|
|
pnNobleGas.Color := ColorDialog.Color;
|
|
btnNobleGasBG.Glyph := CreateColorGlyph(ColorDialog.Color, 16, 16);
|
|
ChangedColors := True;
|
|
end;
|
|
end;
|
|
|
|
procedure TOptionsForm.btnNobleGasFGClick(Sender: TObject);
|
|
begin
|
|
ColorDialog.Color := clNobleGasFG;
|
|
if ColorDialog.Execute then
|
|
begin
|
|
pnNobleGas.Font.Color := ColorDialog.Color;
|
|
btnNobleGasFG.Glyph := CreateColorGlyph(ColorDialog.Color, 16, 16);
|
|
ChangedColors := True;
|
|
end;
|
|
end;
|
|
|
|
procedure TOptionsForm.btnNonMetalBGClick(Sender: TObject);
|
|
begin
|
|
ColorDialog.Color := clNonMetalBG;
|
|
if ColorDialog.Execute then
|
|
begin
|
|
pnOtherMetal.Color := ColorDialog.Color;
|
|
btnOtherMetalBG.Glyph := CreateColorGlyph(ColorDialog.Color, 16, 16);
|
|
ChangedColors := True;
|
|
end;
|
|
end;
|
|
|
|
procedure TOptionsForm.btnNonMetalFGClick(Sender: TObject);
|
|
begin
|
|
ColorDialog.Color := clNonMetalFG;
|
|
if ColorDialog.Execute then
|
|
begin
|
|
pnNonMetal.Font.Color := ColorDialog.Color;
|
|
btnNonMetalFG.Glyph := CreateColorGlyph(ColorDialog.Color, 16, 16);
|
|
ChangedColors := True;
|
|
end;
|
|
end;
|
|
|
|
procedure TOptionsForm.btnOtherMetalBGClick(Sender: TObject);
|
|
begin
|
|
ColorDialog.Color := clOtherMetalBG;
|
|
if ColorDialog.Execute then
|
|
begin
|
|
pnOtherMetal.Color := ColorDialog.Color;
|
|
btnOtherMetalBG.Glyph := CreateColorGlyph(ColorDialog.Color, 16, 16);
|
|
ChangedColors := True;
|
|
end;
|
|
end;
|
|
|
|
procedure TOptionsForm.btnOtherMetalFGClick(Sender: TObject);
|
|
begin
|
|
ColorDialog.Color := clOtherMetalFG;
|
|
if ColorDialog.Execute then
|
|
begin
|
|
pnOtherMetal.Font.Color := ColorDialog.Color;
|
|
btnOtherMetalFG.Glyph := CreateColorGlyph(ColorDialog.Color, 16, 16);
|
|
ChangedColors := True;
|
|
end;
|
|
end;
|
|
|
|
procedure TOptionsForm.btnDBlocBGClick(Sender: TObject);
|
|
begin
|
|
ColorDialog.Color := clDBlocBG;
|
|
if ColorDialog.Execute then
|
|
begin
|
|
pnDBloc.Color := ColorDialog.Color;
|
|
btnDBlocBG.Glyph := CreateColorGlyph(ColorDialog.Color, 16, 16);
|
|
ChangedColors := True;
|
|
end;
|
|
end;
|
|
|
|
procedure TOptionsForm.btnAlkalineBGClick(Sender: TObject);
|
|
begin
|
|
ColorDialog.Color := clAlkalineBG;
|
|
if ColorDialog.Execute then
|
|
begin
|
|
pnAlkaline.Color := ColorDialog.Color;
|
|
btnAlkalineBG.Glyph := CreateColorGlyph(ColorDialog.Color, 16, 16);
|
|
ChangedColors := True;
|
|
end;
|
|
end;
|
|
|
|
procedure TOptionsForm.btnAlkalineFGClick(Sender: TObject);
|
|
begin
|
|
ColorDialog.Color := clAlkalineFG;
|
|
if ColorDialog.Execute then
|
|
begin
|
|
pnAlkaline.Font.Color := ColorDialog.Color;
|
|
btnAlkalineFG.Glyph := CreateColorGlyph(ColorDialog.Color, 16, 16);
|
|
ChangedColors := True;
|
|
end;
|
|
end;
|
|
|
|
procedure TOptionsForm.btnAlkalieMetalBGClick(Sender: TObject);
|
|
begin
|
|
ColorDialog.Color := clAlkalieMetalBG;
|
|
if ColorDialog.Execute then
|
|
begin
|
|
pnAlkalieMetal.Color := ColorDialog.Color;
|
|
btnAlkalieMetalBG.Glyph := CreateColorGlyph(ColorDialog.Color, 16, 16);
|
|
ChangedColors := True;
|
|
end;
|
|
end;
|
|
|
|
procedure TOptionsForm.btnAlkalieMetalFGClick(Sender: TObject);
|
|
begin
|
|
ColorDialog.Color := clAlkalieMetalFG;
|
|
if ColorDialog.Execute then
|
|
begin
|
|
pnAlkalieMetal.Font.Color := ColorDialog.Color;
|
|
btnAlkalieMetalFG.Glyph := CreateColorGlyph(ColorDialog.Color, 16, 16);
|
|
ChangedColors := True;
|
|
end;
|
|
end;
|
|
|
|
procedure TOptionsForm.btnDBlocFGClick(Sender: TObject);
|
|
begin
|
|
ColorDialog.Color := clDBlocFG;
|
|
if ColorDialog.Execute then
|
|
begin
|
|
pnDBloc.Font.Color := ColorDialog.Color;
|
|
btnDBlocFG.Glyph := CreateColorGlyph(ColorDialog.Color, 16, 16);
|
|
ChangedColors := True;
|
|
end;
|
|
end;
|
|
|
|
initialization
|
|
{$I frmoptions.lrs}
|
|
|
|
end.
|
|
|