source: cprs/branches/GUI-config/backups/8-23-08/SkinFormU.~pas@ 476

unit SkinFormU;
   (* 
   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
   *)   


  //==========================================================================
  //==========================================================================
  //  NOTICE BELOW...
  //==========================================================================
  //==========================================================================
   (*
   NOTICE:  
   This unit makes use of propriatary, commercial, binary files
   (.DCU files) that are bound by a *separate* license.  Please see that
   license which is in the \GUI-Config\SkinStuff\ folder
   *)

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ipSkinManager, StdCtrls, ExtCtrls, ComCtrls, Buttons, DBCtrls, Mask;

type
  TSkinForm = class(TForm)
    Panel3: TPanel;
    SkinsListBox: TListBox;
    ApplySkinButton: TButton;
    btnDisable: TButton;
    Label12: TLabel;
    Button6: TButton;
    Button1: TButton;
    cbSkinAtStartup: TCheckBox;
    procedure FormCreate(Sender: TObject);
    procedure ApplySkinButtonClick(Sender: TObject);
    procedure SkinsListBoxDblClick(Sender: TObject);
    procedure SkinsListBoxKeyPress(Sender: TObject; var Key: Char);
    procedure Button6Click(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
    SkinManager : TipSkinManager;
    FINIFileName : string;
    procedure FillSkinList;
  public
    { Public declarations }
    CurrentSkinFile : string;
    procedure ActivateCurrentSkin;
    procedure InactivateSkin;
  end;

var
  SkinForm: TSkinForm;

CONST
   SKIN_NONE = '<TURN OFF SKINS>'  ;

implementation

{$R *.DFM}

uses ShellAPI, inifiles;

  procedure TSkinForm.FillSkinList;
  var
    SRec : TSearchRec;
    R : Integer;
  begin
    SkinsListBox.Items.Clear;
    SkinsListBox.Items.Add (SKIN_NONE);
    R := FindFirst (ExtractFilePath (Application.ExeName) + '\SkinStuff\Skins\*.ipz', faAnyFile, SRec);
    while R = 0 do
    begin
      SkinsListBox.Items.Add (SRec.Name);
      R := FindNext (SRec);
    end;
    SkinsListBox.Sorted := true;
    SkinsListBox.ItemIndex := 0;
  end;


  procedure TSkinForm.FormCreate(Sender: TObject);
  var  iniFile : TIniFile;
  begin
    SkinManager := TipSkinManager.Create(self);   
    FINIFileName := ExtractFilePath(ParamStr(0)) + 'GUI_Config.ini';
    iniFile := TIniFile.Create(FINIFileName);
    cbSkinAtStartup.Checked := iniFile.ReadBool('Skin','Load At Startup',false);
    CurrentSkinFile := iniFile.ReadString('Skin','Default Skin','.\SkinStuff\Skins\ICQ_Longhorn_v.1.2.ipz');
    iniFile.Free;
  end;

  procedure TSkinForm.FormDestroy(Sender: TObject);
  var iniFile : TIniFile;
  begin
    iniFile := TIniFile.Create(FINIFileName);
    iniFile.WriteString('Skin','Default Skin',CurrentSkinFile);
    iniFile.WriteBool('Skin','Load At Startup',cbSkinAtStartup.Checked);
    iniFile.Free;
    SkinManager.Free;
  end;

  procedure TSkinForm.ApplySkinButtonClick(Sender: TObject);
  var fileS : String;
  begin
    fileS := '';
    if SkinsListBox.ItemIndex > -1 then begin
      fileS := SkinsListBox.Items [SkinsListBox.ItemIndex];
    end;  
    if fileS = SKIN_NONE then fileS := '';
    CurrentSkinFile := ExtractFilePath (Application.ExeName) +'\SkinStuff\Skins\' +fileS;
    ModalResult := mrOK;
  end;

  procedure TSkinForm.SkinsListBoxDblClick(Sender: TObject);
  begin
    ApplySkinButtonClick (Self);
  end;

  procedure TSkinForm.SkinsListBoxKeyPress(Sender: TObject; var Key: Char);
  begin
    if Key = #13 then ApplySkinButtonClick (Self);
  end;

  procedure TSkinForm.Button6Click(Sender: TObject);
  begin
    ShellExecute (Handle, 'open', 'http://www2.wincustomize.com/Skins.aspx?LibID=12&view=1&sortby=9&sortdir=DESC&p=1&advanced=0&mode=1&u=0', nil, nil, SW_SHOWNORMAL);
  end;

  procedure TSkinForm.ActivateCurrentSkin;
  begin
    SkinManager.SkinFile := CurrentSkinFile;
    if CurrentSkinFile <>'' then begin
      try
        SkinManager.Active := true;
      except
        on EInvalidOperation do begin
          MessageDlg('Error Applying Skin.  Please try another.',mtInformation,[mbOK],0);
        end;
        else  begin
          MessageDlg('Error Applying Skin.  Please try another.',mtInformation,[mbOK],0);
        end;
      end;     
    end else begin
      SkinManager.Active := false;
    end;  
  end;
  

  procedure TSkinForm.InactivateSkin;
  begin
    SkinManager.Active := false;
  end;
  
  procedure TSkinForm.FormShow(Sender: TObject);
  begin
    FillSkinList;
  end;

  end.