85 lines
1.9 KiB
ObjectPascal
85 lines
1.9 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:
|
|
Bloc legend
|
|
|
|
}
|
|
unit frmBlocLegend;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
|
|
StdCtrls, ExtCtrls;
|
|
|
|
type
|
|
|
|
{ TBlocLegendForm }
|
|
|
|
TBlocLegendForm = class(TForm)
|
|
Label14: TLabel;
|
|
Label15: TLabel;
|
|
Label16: TLabel;
|
|
Label17: TLabel;
|
|
pnS: TPanel;
|
|
pnD: TPanel;
|
|
pnP: TPanel;
|
|
pnF: TPanel;
|
|
procedure FormShow(Sender: TObject);
|
|
private
|
|
{ private declarations }
|
|
public
|
|
{ public declarations }
|
|
end;
|
|
|
|
var
|
|
BlocLegendForm: TBlocLegendForm;
|
|
|
|
implementation
|
|
|
|
uses
|
|
uConst;
|
|
|
|
{ TBlocLegendForm }
|
|
|
|
procedure TBlocLegendForm.FormShow(Sender: TObject);
|
|
begin
|
|
pnS.Color := clSBlocBG;
|
|
pnS.Font.Color := clSBlocFG;
|
|
pnD.Color := clDBlocBG;
|
|
pnD.Font.Color := clDBlocFG;
|
|
pnP.Color := clPBlocBG;
|
|
pnP.Font.Color := clPBlocFG;
|
|
pnF.Color := clFBlocBG;
|
|
pnF.Font.Color := clFBlocFG;
|
|
end;
|
|
|
|
initialization
|
|
{$I frmbloclegend.lrs}
|
|
|
|
end.
|
|
|