roberto
f9c4563427
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@83 c93665c3-c93d-084d-9b98-7d5f4a9c3376
340 lines
9.2 KiB
ObjectPascal
340 lines
9.2 KiB
ObjectPascal
unit uViewAgrupaciones;
|
||
|
||
interface
|
||
|
||
uses
|
||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||
Dialogs, ActnList, Menus, dxLayoutLookAndFeels, dxLayoutControl, uViewBase,
|
||
TBXDkPanels, cxControls, StdCtrls, ImgList, uViewInformeBaseGrid,
|
||
PngImageList, uViewInformeBaseParametros, JvExControls, JvComponent,
|
||
JvArrowButton, cxLookAndFeelPainters, cxButtons;
|
||
|
||
type
|
||
IViewAgrupaciones = interface(IViewInformeBaseParametros)
|
||
['{42030B8F-B12D-43D2-AEB2-F642F11D78DA}']
|
||
function GetAgrupaciones: TStringList;
|
||
end;
|
||
|
||
TfrViewAgrupaciones = class(TfrViewInformeBaseParametros, IViewAgrupaciones)
|
||
TBXButton1: TTBXButton;
|
||
TBXButton2: TTBXButton;
|
||
TBXButton3: TTBXButton;
|
||
PopupMenu1: TPopupMenu;
|
||
PopupMenu2: TPopupMenu;
|
||
PopupMenu3: TPopupMenu;
|
||
ActionList1: TActionList;
|
||
actBoton2: TAction;
|
||
actBoton3: TAction;
|
||
actBoton1: TAction;
|
||
actMenuClick: TAction;
|
||
TBXLabel1: TTBXLabel;
|
||
Label1: TLabel;
|
||
Label2: TLabel;
|
||
Label3: TLabel;
|
||
pnlAgrupaciones: TTBXAlignmentPanel;
|
||
procedure actBoton2Update(Sender: TObject);
|
||
procedure actBoton3Update(Sender: TObject);
|
||
procedure actBoton2Execute(Sender: TObject);
|
||
procedure actBoton3Execute(Sender: TObject);
|
||
procedure actBoton1Execute(Sender: TObject);
|
||
procedure AMenuItemClick(Sender: TObject);
|
||
protected
|
||
FColumns : TStringList;
|
||
|
||
FBotonPulsado : TTBXButton;
|
||
procedure MarcarItem(AMenuItem : TMenuItem); overload;
|
||
procedure MarcarItem(AMenu : TPopupMenu; const ACaption : String); overload;
|
||
procedure DesmarcarItem(AMenu : TPopupMenu; const ACaption : String);
|
||
procedure DesmarcarItems(AMenu : TPopupMenu);
|
||
|
||
procedure OnButtonPopup(Sender: TTBXCustomButton; var AllowDropDown: Boolean);
|
||
procedure RellenarListaColumnas;
|
||
procedure RellenarAgrupaciones;
|
||
procedure SetModificable(const Value: Boolean); override;
|
||
public
|
||
function GetAgrupaciones: TStringList;
|
||
constructor Create(AOwner: TComponent); override;
|
||
destructor Destroy; override;
|
||
procedure Refresh; override;
|
||
procedure Execute; override;
|
||
end;
|
||
|
||
implementation
|
||
|
||
uses
|
||
cxGridDBTableView, JclStrings;
|
||
|
||
{$R *.dfm}
|
||
|
||
const
|
||
SIN_AGRUPACION = '(Quitar agrupaci<63>n)';
|
||
|
||
{ TfrAgrupaciones }
|
||
|
||
procedure TfrViewAgrupaciones.MarcarItem(AMenuItem : TMenuItem);
|
||
var
|
||
AItem : TMenuItem;
|
||
begin
|
||
AMenuItem.Checked := True;
|
||
|
||
AItem := PopupMenu1.Items.Find(AMenuItem.Caption);
|
||
if Assigned(AItem) then
|
||
AItem.Enabled := False;
|
||
|
||
AItem := PopupMenu2.Items.Find(AMenuItem.Caption);
|
||
if Assigned(AItem) then
|
||
AItem.Enabled := False;
|
||
|
||
AItem := PopupMenu3.Items.Find(AMenuItem.Caption);
|
||
if Assigned(AItem) then
|
||
AItem.Enabled := False;
|
||
end;
|
||
|
||
procedure TfrViewAgrupaciones.MarcarItem(AMenu : TPopupMenu; const ACaption : String);
|
||
var
|
||
AItem : TMenuItem;
|
||
begin
|
||
AItem := AMenu.Items.Find(ACaption);
|
||
if Assigned(AItem) then
|
||
MarcarItem(AItem);
|
||
end;
|
||
|
||
procedure TfrViewAgrupaciones.DesmarcarItem(AMenu : TPopupMenu; const ACaption : String);
|
||
var
|
||
AItem : TMenuItem;
|
||
begin
|
||
AItem := AMenu.Items.Find(ACaption);
|
||
if Assigned(AItem) then
|
||
begin
|
||
AItem.Enabled := True;
|
||
AItem.Checked := False;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrViewAgrupaciones.DesmarcarItems(AMenu : TPopupMenu);
|
||
var
|
||
i : integer;
|
||
begin
|
||
for i := 0 to AMenu.Items.Count - 1 do
|
||
begin
|
||
AMenu.Items[i].Enabled := True;
|
||
AMenu.Items[i].Checked := False;
|
||
end;
|
||
end;
|
||
|
||
|
||
function TfrViewAgrupaciones.GetAgrupaciones: TStringList;
|
||
var
|
||
aux : String;
|
||
AIndex : Integer;
|
||
begin
|
||
Result := TStringList.Create;
|
||
if actBoton1.Enabled then
|
||
begin
|
||
aux := TBXButton1.Caption;
|
||
aux := StringReplace(aux, '&', '', [rfReplaceAll, rfIgnoreCase]);
|
||
if Length(Trim(aux)) > 0 then
|
||
Result.Add(aux);
|
||
|
||
if actBoton2.Enabled then
|
||
begin
|
||
aux := TBXButton2.Caption;
|
||
aux := StringReplace(aux, '&', '', [rfReplaceAll, rfIgnoreCase]);
|
||
if Length(Trim(aux)) > 0 then
|
||
Result.Add(aux);
|
||
|
||
if actBoton3.Enabled then
|
||
begin
|
||
aux := TBXButton3.Caption;
|
||
aux := StringReplace(aux, '&', '', [rfReplaceAll, rfIgnoreCase]);
|
||
if Length(Trim(aux)) > 0 then
|
||
Result.Add(aux);
|
||
end;
|
||
end;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrViewAgrupaciones.actBoton2Update(Sender: TObject);
|
||
begin
|
||
(Sender as TAction).Enabled := Length(TBXButton1.Caption) > 0;
|
||
end;
|
||
|
||
procedure TfrViewAgrupaciones.actBoton3Update(Sender: TObject);
|
||
begin
|
||
(Sender as TAction).Enabled := Length(TBXButton2.Caption) > 0;
|
||
end;
|
||
|
||
procedure TfrViewAgrupaciones.actBoton2Execute(Sender: TObject);
|
||
begin
|
||
//
|
||
end;
|
||
|
||
procedure TfrViewAgrupaciones.actBoton3Execute(Sender: TObject);
|
||
begin
|
||
//
|
||
end;
|
||
|
||
procedure TfrViewAgrupaciones.actBoton1Execute(Sender: TObject);
|
||
begin
|
||
//
|
||
end;
|
||
|
||
procedure TfrViewAgrupaciones.AMenuItemClick(Sender: TObject);
|
||
var
|
||
i : integer;
|
||
begin
|
||
if (Sender as TMenuItem).MenuIndex > 0 then // El 0 es 'Sin agrupacion'
|
||
begin
|
||
DesmarcarItem(PopupMenu1, FBotonPulsado.Caption);
|
||
DesmarcarItem(PopupMenu2, FBotonPulsado.Caption);
|
||
DesmarcarItem(PopupMenu3, FBotonPulsado.Caption);
|
||
FBotonPulsado.Caption := (Sender as TMenuItem).Caption;
|
||
MarcarItem(Sender as TMenuItem);
|
||
end
|
||
else begin
|
||
DesmarcarItems(PopupMenu1);
|
||
DesmarcarItems(PopupMenu2);
|
||
DesmarcarItems(PopupMenu3);
|
||
// Anular los botones que est<73>n por debajo del actual
|
||
for i := 3 downto FBotonPulsado.Tag do
|
||
TTBXButton(FindComponent('TBXButton' + IntToStr(i))).Caption := '';
|
||
end;
|
||
end;
|
||
|
||
constructor TfrViewAgrupaciones.Create(AOwner: TComponent);
|
||
begin
|
||
inherited;
|
||
FColumns := TStringList.Create;
|
||
|
||
TBXButton1.OnDropDown := OnButtonPopup;
|
||
TBXButton2.OnDropDown := OnButtonPopup;
|
||
TBXButton3.OnDropDown := OnButtonPopup;
|
||
end;
|
||
|
||
procedure TfrViewAgrupaciones.OnButtonPopup(Sender: TTBXCustomButton;
|
||
var AllowDropDown: Boolean);
|
||
begin
|
||
FBotonPulsado := (Sender as TTBXButton);
|
||
end;
|
||
|
||
procedure TfrViewAgrupaciones.Execute;
|
||
var
|
||
AgrBotones : TStringList;
|
||
i : Integer;
|
||
begin
|
||
AgrBotones := GetAgrupaciones;
|
||
for i := 0 to FColumns.Count - 1 do
|
||
(FColumns.Objects[i] as TcxGridDBColumn).GroupIndex := AgrBotones.IndexOf(FColumns.Strings[i]);
|
||
end;
|
||
|
||
procedure TfrViewAgrupaciones.Refresh;
|
||
begin
|
||
RellenarListaColumnas;
|
||
RellenarAgrupaciones;
|
||
end;
|
||
|
||
procedure TfrViewAgrupaciones.RellenarListaColumnas;
|
||
var
|
||
i : integer;
|
||
|
||
function DarItem (const ACaption : string):TMenuItem;
|
||
begin
|
||
Result := NewItem(ACaption, 0, false, true, AMenuItemClick, 0, '');
|
||
end;
|
||
|
||
begin
|
||
PopupMenu1.Items.Clear;
|
||
PopupMenu2.Items.Clear;
|
||
PopupMenu3.Items.Clear;
|
||
|
||
PopupMenu1.Items.Add(DarItem(SIN_AGRUPACION));
|
||
PopupMenu2.Items.Add(DarItem(SIN_AGRUPACION));
|
||
PopupMenu3.Items.Add(DarItem(SIN_AGRUPACION));
|
||
|
||
for i := 0 to ViewInformeBaseGrid.ColumnCount - 1 do
|
||
begin
|
||
FColumns.AddObject(ViewInformeBaseGrid.Columns[i].Caption, ViewInformeBaseGrid.Columns[i]);
|
||
PopupMenu1.Items.Add(DarItem(ViewInformeBaseGrid.Columns[i].Caption));
|
||
PopupMenu2.Items.Add(DarItem(ViewInformeBaseGrid.Columns[i].Caption));
|
||
PopupMenu3.Items.Add(DarItem(ViewInformeBaseGrid.Columns[i].Caption));
|
||
end;
|
||
end;
|
||
|
||
destructor TfrViewAgrupaciones.Destroy;
|
||
begin
|
||
FreeAndNIL(FColumns);
|
||
inherited;
|
||
end;
|
||
|
||
procedure TfrViewAgrupaciones.RellenarAgrupaciones;
|
||
var
|
||
i : integer;
|
||
AList : TStringList;
|
||
begin
|
||
AList := TStringList.Create;
|
||
|
||
try
|
||
// Recuperar las agrupaciones del grid
|
||
for i := 0 to ViewInformeBaseGrid.GroupedColumnCount - 1 do
|
||
begin
|
||
if i = 3 then
|
||
Break; // S<>lo meter las 3 primera agrupaciones
|
||
AList.Add(ViewInformeBaseGrid.GroupedColumns[i].Caption);
|
||
end;
|
||
|
||
if AList.Count > 0 then
|
||
begin
|
||
DesmarcarItems(PopupMenu1);
|
||
DesmarcarItems(PopupMenu2);
|
||
DesmarcarItems(PopupMenu3);
|
||
|
||
// Anular los botones que est<73>n por debajo del actual
|
||
for i := 1 to 3 do
|
||
TTBXButton(FindComponent('TBXButton' + IntToStr(i))).Caption := '';
|
||
|
||
TBXButton1.Caption := AList.Strings[0];
|
||
MarcarItem(TBXButton1.DropDownMenu, AList.Strings[0]);
|
||
|
||
if AList.Count > 1 then
|
||
begin
|
||
TBXButton2.Caption := AList.Strings[1];
|
||
MarcarItem(TBXButton2.DropDownMenu, AList.Strings[1]);
|
||
|
||
if AList.Count > 2 then
|
||
begin
|
||
TBXButton3.Caption := AList.Strings[2];
|
||
MarcarItem(TBXButton3.DropDownMenu, AList.Strings[2]);
|
||
end;
|
||
end;
|
||
end;
|
||
finally
|
||
FreeAndNil(AList);
|
||
end;
|
||
end;
|
||
|
||
procedure TfrViewAgrupaciones.SetModificable(const Value: Boolean);
|
||
begin
|
||
inherited;
|
||
pnlAgrupaciones.Enabled := Value;
|
||
|
||
if pnlAgrupaciones.Enabled then
|
||
begin
|
||
Label1.Font.Color := clWindowText;
|
||
Label2.Font.Color := clWindowText;
|
||
Label3.Font.Color := clWindowText;
|
||
TBXButton1.Font.Color := clWindowText;
|
||
TBXButton2.Font.Color := clWindowText;
|
||
TBXButton3.Font.Color := clWindowText;
|
||
end
|
||
else begin
|
||
Label1.Font.Color := clBtnShadow;
|
||
Label2.Font.Color := clBtnShadow;
|
||
Label3.Font.Color := clBtnShadow;
|
||
TBXButton1.Font.Color := clBtnShadow;
|
||
TBXButton2.Font.Color := clBtnShadow;
|
||
TBXButton3.Font.Color := clBtnShadow;
|
||
end
|
||
end;
|
||
|
||
end.
|