david
0f24be348b
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@261 f4e31baf-9722-1c47-927c-6f952f962d4b
113 lines
3.1 KiB
ObjectPascal
113 lines
3.1 KiB
ObjectPascal
unit uEditorConfiguracion;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinCaramel, dxSkinCoffee,
|
|
dxSkinGlassOceans, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky,
|
|
dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMoneyTwins, dxSkinOffice2007Black,
|
|
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
|
|
dxSkinOffice2007Silver, dxSkinSilver, dxSkinStardust, dxSkinsDefaultPainters,
|
|
dxSkinValentine, dxSkinXmas2008Blue, dxSkinsdxNavBar2Painter, StdCtrls,
|
|
ExtCtrls, cxControls, dxNavBar, dxNavBarCollns, cxClasses, dxNavBarBase,
|
|
ComCtrls, uViewConfiguracionBase;
|
|
|
|
type
|
|
TfConfiguracionEditor = class(TForm)
|
|
dxNavBar: TdxNavBar;
|
|
Panel2: TPanel;
|
|
bCancelar: TButton;
|
|
bAceptar: TButton;
|
|
GroupCategorias: TdxNavBarGroup;
|
|
PageControlMain: TPageControl;
|
|
procedure dxNavBarLinkClick(Sender: TObject; ALink: TdxNavBarItemLink);
|
|
procedure FormShow(Sender: TObject);
|
|
procedure FormDestroy(Sender: TObject);
|
|
procedure FormCreate(Sender: TObject);
|
|
private
|
|
FListaVistas : TStringList;
|
|
public
|
|
procedure CargarValores;
|
|
procedure GuardarValores;
|
|
procedure AnadirVista(AVista : TfrViewConfiguracionBase; const AEtiqueta : String);
|
|
end;
|
|
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
{ TfConfiguracionEditor }
|
|
|
|
procedure TfConfiguracionEditor.AnadirVista(AVista: TfrViewConfiguracionBase;
|
|
const AEtiqueta: String);
|
|
var
|
|
AItem : TdxNavBarItem;
|
|
ATab : TTabSheet;
|
|
begin
|
|
if Assigned(AVista) then
|
|
begin
|
|
ATab := TTabSheet.Create(PageControlMain);
|
|
ATab.PageControl := PageControlMain;
|
|
ATab.TabVisible := False;
|
|
|
|
AVista.Parent := ATab;
|
|
|
|
AItem := dxNavBar.Items.Add;
|
|
AItem.Tag := ATab.PageIndex;
|
|
AItem.Caption := AEtiqueta;
|
|
AItem.Name := 'ItemName' + IntToStr(ATab.PageIndex);
|
|
dxNavBar.Groups.Items[0].CreateLink(AItem);
|
|
|
|
FListaVistas.AddObject(AEtiqueta, AVista);
|
|
end;
|
|
end;
|
|
|
|
procedure TfConfiguracionEditor.CargarValores;
|
|
var
|
|
I: Integer;
|
|
begin
|
|
for I := 0 to FListaVistas.Count - 1 do
|
|
TfrViewConfiguracionBase(FListaVistas.Objects[i]).CargarValores;
|
|
end;
|
|
|
|
procedure TfConfiguracionEditor.dxNavBarLinkClick(Sender: TObject;
|
|
ALink: TdxNavBarItemLink);
|
|
var
|
|
APageIndex : Integer;
|
|
begin
|
|
APageIndex := ALink.Item.Tag;
|
|
if (APageIndex > -1) and (APageIndex < PageControlMain.PageCount) then
|
|
PageControlMain.ActivePageIndex := APageIndex;
|
|
end;
|
|
|
|
procedure TfConfiguracionEditor.FormCreate(Sender: TObject);
|
|
begin
|
|
FListaVistas := TStringList.Create;
|
|
end;
|
|
|
|
procedure TfConfiguracionEditor.FormDestroy(Sender: TObject);
|
|
begin
|
|
FreeANDNIL(FListaVistas);
|
|
end;
|
|
|
|
procedure TfConfiguracionEditor.FormShow(Sender: TObject);
|
|
begin
|
|
PageControlMain.ActivePageIndex := 0;
|
|
dxNavBar.Groups[0].Links[0].Selected := True;
|
|
end;
|
|
|
|
procedure TfConfiguracionEditor.GuardarValores;
|
|
var
|
|
I: Integer;
|
|
begin
|
|
for I := 0 to FListaVistas.Count - 1 do
|
|
TfrViewConfiguracionBase(FListaVistas.Objects[i]).GuardarValores;
|
|
end;
|
|
|
|
end.
|
|
|
|
|
|
|