82 lines
1.9 KiB
ObjectPascal
82 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:
|
|
Various utilities and functions
|
|
|
|
}
|
|
unit frmGradientLegend;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
|
|
StdCtrls, ExtCtrls;
|
|
|
|
type
|
|
|
|
{ TGradientLegendForm }
|
|
|
|
TGradientLegendForm = class(TForm)
|
|
lbInfo: TLabel;
|
|
lbMax: TLabel;
|
|
lbMin: TLabel;
|
|
lbUnknow: TLabel;
|
|
lbNonAppl: TLabel;
|
|
pnMax: TPanel;
|
|
pnUnknow: TPanel;
|
|
pnMin: TPanel;
|
|
pnNonAppl: TPanel;
|
|
procedure FormShow(Sender: TObject);
|
|
private
|
|
{ private declarations }
|
|
public
|
|
{ public declarations }
|
|
end;
|
|
|
|
var
|
|
GradientLegendForm: TGradientLegendForm;
|
|
|
|
implementation
|
|
|
|
uses
|
|
uConst;
|
|
|
|
{ TGradientLegendForm }
|
|
|
|
procedure TGradientLegendForm.FormShow(Sender: TObject);
|
|
begin
|
|
pnMin.Color := clGradientMin;
|
|
pnMax.Color := clGradientMax;
|
|
pnUnknow.Color := clGradientUnknow;
|
|
pnNonAppl.Color := clGradientNonApp;
|
|
end;
|
|
|
|
initialization
|
|
{$I frmgradientlegend.lrs}
|
|
|
|
end.
|
|
|