105 lines
2.7 KiB
ObjectPascal
105 lines
2.7 KiB
ObjectPascal
{
|
|
********************************************************************************
|
|
|
|
YaPeTaVi - Yet another Periodic Table Viewer
|
|
Copyright (C) 2009 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 3 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:
|
|
Family legend
|
|
|
|
}
|
|
unit frmFamilyLegend;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
|
|
ExtCtrls, StdCtrls;
|
|
|
|
type
|
|
|
|
{ TLegendFamilyForm }
|
|
|
|
TLegendFamilyForm = class(TForm)
|
|
Label14: TLabel;
|
|
Label15: TLabel;
|
|
Label16: TLabel;
|
|
Label17: TLabel;
|
|
Label18: TLabel;
|
|
Label19: TLabel;
|
|
Label20: TLabel;
|
|
Label21: TLabel;
|
|
Label22: TLabel;
|
|
pnAlkalines: TPanel;
|
|
pnAlkalieMetals: TPanel;
|
|
pnNonMetals: TPanel;
|
|
pnHalogens: TPanel;
|
|
pnTransMetals: TPanel;
|
|
pnMetalloids: TPanel;
|
|
pnRareEarth: TPanel;
|
|
pnOtherMetals: TPanel;
|
|
pnNobleGas: TPanel;
|
|
procedure FormShow(Sender: TObject);
|
|
private
|
|
{ private declarations }
|
|
public
|
|
{ public declarations }
|
|
end;
|
|
|
|
var
|
|
LegendFamilyForm: TLegendFamilyForm;
|
|
|
|
implementation
|
|
|
|
uses
|
|
uConst;
|
|
|
|
{ TLegendFamilyForm }
|
|
|
|
procedure TLegendFamilyForm.FormShow(Sender: TObject);
|
|
begin
|
|
pnAlkalines.Color := clAlkalineBG;
|
|
pnAlkalines.Font.Color := clAlkalineFG;
|
|
pnAlkalieMetals.Color := clAlkalieMetalBG;
|
|
pnAlkalieMetals.Font.Color := clAlkalieMetalFG;
|
|
pnNonMetals.Color := clNonMetalBG;
|
|
pnNonMetals.Font.Color := clNonMetalFG;
|
|
pnHalogens.Color := clHalogenBG;
|
|
pnHalogens.Font.Color := clHalogenFG;
|
|
pnNobleGas.Color := clNobleGasBG;
|
|
pnNobleGas.Font.Color := clNobleGasFG;
|
|
pnTransMetals.Color := clTransMetalBG;
|
|
pnTransMetals.Font.Color := clTransMetalFG;
|
|
pnMetalloids.Color := clMetalloidBG;
|
|
pnMetalloids.Font.Color := clMetalloidFG;
|
|
pnRareEarth.Color := clRareEarthBG;
|
|
pnRareEarth.Font.Color := clRareEarthFG;
|
|
pnOtherMetals.Color := clOtherMetalBG;
|
|
pnOtherMetals.Font.Color := clOtherMetalFG;
|
|
end;
|
|
|
|
initialization
|
|
{$I frmfamilylegend.lrs}
|
|
|
|
end.
|
|
|