unit cde_SettingsForm;
{$mode delphi}
{$codepage UTF8}
interface
uses Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
  StdCtrls;
type
  { Tcde_Settings }
  Tcde_Settings = class(TForm)
    Lang: TLabel;
    Browse: TLabel;
    SettingsPages: TPageControl;
    LanguageSht: TTabSheet;
    BrowseSht: TTabSheet;
    TabsImages: TImageList;
    SettingsTree: TTreeView;
    procedure SettingsTreeChange(Sender: TObject; Node: TTreeNode);
  private
  public
  end;
var
  cde_Settings: Tcde_Settings;
implementation
{$R *.lfm}
{ Tcde_Settings }
procedure Tcde_Settings.SettingsTreeChange(Sender: TObject; Node: TTreeNode);
begin
SettingsPages.ActivePageIndex:= Node.StateIndex;
end;
end.
