Модуль "Настройки" (часть 1) - определение переменных и типов данных

Рубрика: Исходники
Среда, 21 апреля 2010 г.
Просмотров: 151
последняя версия: 3.0.9 build 961 beta
от 07 декабря 2007 г.
unit uOptions;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, uOptions_General, IniFiles, SkinCtrls, DynamicSkinForm;
type
  TfrmOptions = class(TForm)
    spSkinPanel1: TspSkinPanel;
    AdvGlowButton3: TspSkinSpeedButton;

   AdvGlowButton2: TspSkinSpeedButton;
    AdvGlowButton1: TspSkinSpeedButton;
    InspectorBar1: TspSkinButtonsBar;
    spDynamicSkinForm1: TspDynamicSkinForm;
    AdvPanel4: TspSkinPanel;
    GradientLabel1: TspSkinLabel;
    spSkinPanel2: TspSkinPanel;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure AdvGlowButton1Click(Sender: TObject);
    procedure AdvGlowButton2Click(Sender: TObject);
    procedure AdvGlowButton3Click(Sender: TObject);
    procedure spSkinButtonsBar1Sections0Items0Click(Sender: TObject);
    procedure InspectorBar1Sections0Items1Click(Sender: TObject);
    procedure InspectorBar1Sections0Items2Click(Sender: TObject);
    procedure InspectorBar1Sections0Items3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure HidePanels;
  end;
var
  frmOptions: TfrmOptions;
implementation
uses uMain, uOptions_P2K, uOptions_AT, uOptions_OBEX, uOptions_Flash,
  uAT_PhoneBook, uLng,
  SkinBoxCtrls, uAT;
{$R *.dfm}
Rambler's Top100