source: cprs/branches/GUI-config/AboutU.pas@ 789

unit AboutU;
   (* 
   WorldVistA Configuration Utility
   (c) 8/2008 Kevin Toppenberg
   Programmed by Kevin Toppenberg, Eddie Hagood  
   
   Family Physicians of Greeneville, PC
   1410 Tusculum Blvd, Suite 2600
   Greeneville, TN 37745
   kdtop@yahoo.com
                                                 
   This library is free software; you can redistribute it and/or
   modify it under the terms of the GNU Lesser General Public
   License as published by the Free Software Foundation; either
   version 2.1 of the License, or (at your option) any later version.

   This library 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
   Lesser General Public License for more details.

   You should have received a copy of the GNU Lesser General Public
   License along with this library; if not, write to the Free Software
   Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
  *)   

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, jpeg, ExtCtrls;

type
  TAboutForm = class(TForm)
    Image1: TImage;
    Memo1: TMemo;
    Timer1: TTimer;
    procedure FormClick(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
    FadeIn : boolean;
  public
    { Public declarations }
  end;

var
  AboutForm: TAboutForm;

implementation

uses MainU;

{$R *.dfm}

  const MIN_ALPHA = 50;
       TIMER_SPEED = 10;

  procedure TAboutForm.FormClick(Sender: TObject);
  begin
    Timer1.Enabled := true;
    FadeIn := false;
    Timer1.Interval := TIMER_SPEED;
    AboutForm.AlphaBlendValue := 255;
  end;

  procedure TAboutForm.Timer1Timer(Sender: TObject);
  var i : integer;
  const delta = 5;
  begin
    if FadeIn then begin
      if AboutForm.AlphaBlendValue < 255 then begin
        i := AboutForm.AlphaBlendValue;
        i := i +delta;
        if i > 255 then begin
          i := 255;
          Timer1.Enabled := false;
        end;  
        AboutForm.AlphaBlendValue := i;
      end else begin
        Timer1.Enabled := false;
      end;
    end else begin
      if AboutForm.AlphaBlendValue > MIN_ALPHA then begin
        i := AboutForm.AlphaBlendValue;
        i := i - delta;
        if i < MIN_ALPHA then i := MIN_ALPHA;
        AboutForm.AlphaBlendValue := i;
      end else begin
        Timer1.Enabled := false;
        MainForm.Show;        
        Close;        
      end;
    end;  
  end;

  procedure TAboutForm.FormShow(Sender: TObject);
  var  FileName : string;
  begin
    FileName := ExtractFilePath(ParamStr(0))+ 'splash.jpg';
    if FileExists(FileName) then begin
      Image1.Picture.LoadFromFile(FileName);
    end;
    Image1.Width := Image1.Picture.Width;
    Image1.Height := Image1.Picture.Height;
    Self.Width := Image1.Picture.Width;
    Self.Height := Image1.Picture.Height + Memo1.Height + 35;  //not sure why 35 extra needed...
    Self.Left:=(Screen.Width - Self.Width) div 2;
    Self.Top := (Screen.Height - Self.Height) div 2;
    MainForm.Hide;

    Timer1.Enabled := true;
    FadeIn := true;
    Timer1.Interval := TIMER_SPEED;
    AboutForm.AlphaBlendValue := MIN_ALPHA;
  end;

end.