{
********************************************************************************

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.

