Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Ticket 122 - Añadir un boton de expandir todo y encoger todo cuando de agrupas las vistas

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@800 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2008-12-09 17:57:36 +00:00
parent 14bd15f14b
commit 01ece99d9c
6 changed files with 108 additions and 40 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
Source/GUIBase/GUIBase.dproj
View File

@ -59,30 +59,30 @@
<DelphiCompile Include="GUIBase.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Modulos\Facturas de cliente\Base.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\cxTreeListD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dxBarD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dxBarExtItemsD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dxComnD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dxLayoutControlD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dxPScxCommonD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dxPsPrVwAdvD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\frx11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\frxe11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\fs11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvAppFrmD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\rtl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\vcl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\vcldb.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\vclx.dcp" />
<DCCReference Include="..\Servidor\Base.dcp" />
<DCCReference Include="..\Servidor\cxLibraryD11.dcp" />
<DCCReference Include="..\Servidor\cxTreeListD11.dcp" />
<DCCReference Include="..\Servidor\dbrtl.dcp" />
<DCCReference Include="..\Servidor\dxBarD11.dcp" />
<DCCReference Include="..\Servidor\dxBarExtItemsD11.dcp" />
<DCCReference Include="..\Servidor\dxComnD11.dcp" />
<DCCReference Include="..\Servidor\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Servidor\dxLayoutControlD11.dcp" />
<DCCReference Include="..\Servidor\dxPSCoreD11.dcp" />
<DCCReference Include="..\Servidor\dxPScxCommonD11.dcp" />
<DCCReference Include="..\Servidor\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="..\Servidor\dxPsPrVwAdvD11.dcp" />
<DCCReference Include="..\Servidor\dxThemeD11.dcp" />
<DCCReference Include="..\Servidor\frx11.dcp" />
<DCCReference Include="..\Servidor\frxe11.dcp" />
<DCCReference Include="..\Servidor\fs11.dcp" />
<DCCReference Include="..\Servidor\JvAppFrmD11R.dcp" />
<DCCReference Include="..\Servidor\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Servidor\rtl.dcp" />
<DCCReference Include="..\Servidor\vcl.dcp" />
<DCCReference Include="..\Servidor\vcldb.dcp" />
<DCCReference Include="..\Servidor\vcljpg.dcp" />
<DCCReference Include="..\Servidor\vclx.dcp" />
<DCCReference Include="uDialogBase.pas">
<Form>fDialogBase</Form>
</DCCReference>

41
Source/GUIBase/uEditorGridBase.dfm
View File

@ -3,34 +3,34 @@ inherited fEditorGridBase: TfEditorGridBase
Top = 354
Caption = 'fEditorGridBase'
ClientHeight = 504
ClientWidth = 706
ClientWidth = 837
OnDestroy = CustomEditorDestroy
ExplicitWidth = 714
ExplicitWidth = 845
ExplicitHeight = 538
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
Top = 0
Width = 706
Width = 837
ExplicitTop = 0
ExplicitWidth = 706
ExplicitWidth = 837
inherited Image1: TImage
Left = 679
Left = 810
ExplicitLeft = 518
end
end
inherited TBXDock: TTBXDock
Top = 27
Width = 706
Width = 837
Height = 75
ExplicitTop = 27
ExplicitWidth = 706
ExplicitWidth = 837
ExplicitHeight = 75
inherited tbxMain: TTBXToolbar
DockPos = 0
DragHandleStyle = dhDouble
TabOrder = 1
ExplicitWidth = 600
ExplicitWidth = 705
inherited TBXItem29: TTBXItem
Visible = False
end
@ -69,6 +69,12 @@ inherited fEditorGridBase: TfEditorGridBase
Action = actAnchoAuto
DisplayMode = nbdmImageAndText
end
object TBXItem939: TTBXItem [20]
Action = actContraer
end
object TBXItem938: TTBXItem [21]
Action = actExpandir
end
inherited TBXItem28: TTBXItem
Visible = False
end
@ -111,7 +117,7 @@ inherited fEditorGridBase: TfEditorGridBase
inherited tbxMenu: TTBXToolbar
TabOrder = 2
Visible = False
ExplicitWidth = 706
ExplicitWidth = 837
inherited TBXSubmenuItem4: TTBXSubmenuItem
inherited TBXItem30: TTBXItem
Visible = False
@ -173,9 +179,9 @@ inherited fEditorGridBase: TfEditorGridBase
end
inherited StatusBar: TJvStatusBar
Top = 485
Width = 706
Width = 837
ExplicitTop = 485
ExplicitWidth = 706
ExplicitWidth = 837
end
inherited EditorActionList: TActionList
Left = 64
@ -234,9 +240,20 @@ inherited fEditorGridBase: TfEditorGridBase
OnExecute = actExportarExcelExecute
OnUpdate = actExportarExcelUpdate
end
object actExpandir: TAction
Category = 'Ver'
Caption = 'Expandir'
OnExecute = actExpandirExecute
OnUpdate = actExpandirUpdate
end
object actContraer: TAction
Category = 'Ver'
Caption = 'Contraer'
OnExecute = actContraerExecute
OnUpdate = actContraerUpdate
end
end
inherited SmallImages: TPngImageList
ShareImages = False
PngImages = <
item
PngImage.Data = {

37
Source/GUIBase/uEditorGridBase.pas
View File

@ -63,6 +63,10 @@ type
TBXSeparatorItem172: TTBXSeparatorItem;
TBXItem395: TTBXItem;
TBXItem384: TTBXItem;
actExpandir: TAction;
actContraer: TAction;
TBXItem938: TTBXItem;
TBXItem939: TTBXItem;
procedure tbxEditFiltroChange(Sender: TObject; const Text: String);
procedure FormShow(Sender: TObject);
procedure actQuitarFiltroExecute(Sender: TObject);
@ -77,6 +81,10 @@ type
procedure CustomEditorDestroy(Sender: TObject);
procedure actExportarExcelUpdate(Sender: TObject);
procedure actExportarExcelExecute(Sender: TObject);
procedure actExpandirExecute(Sender: TObject);
procedure actContraerExecute(Sender: TObject);
procedure actExpandirUpdate(Sender: TObject);
procedure actContraerUpdate(Sender: TObject);
protected
FViewGrid : IViewGridBase;
procedure SetViewGrid(const Value : IViewGridBase); virtual;
@ -173,6 +181,9 @@ begin
begin
ViewGrid.ShowEmbedded(Self);
ViewGrid.RestoreFromIniFile;
actExpandir.Visible := ViewGrid.AgrupacionesVisibles;
actContraer.Visible := ViewGrid.AgrupacionesVisibles;
end;
end;
@ -188,6 +199,19 @@ begin
(Sender as TAction).Enabled := False;
end;
procedure TfEditorGridBase.actExpandirExecute(Sender: TObject);
begin
inherited;
if Assigned(ViewGrid) then
ViewGrid.ExpandirTodo
end;
procedure TfEditorGridBase.actExpandirUpdate(Sender: TObject);
begin
inherited;
(Sender as TAction).Enabled := Assigned(dsDataTable.DataTable) and Assigned(ViewGrid);
end;
procedure TfEditorGridBase.actExportarExcelExecute(Sender: TObject);
begin
inherited;
@ -291,6 +315,19 @@ begin
ViewGrid.AjustarAncho;
end;
procedure TfEditorGridBase.actContraerExecute(Sender: TObject);
begin
inherited;
if Assigned(ViewGrid) then
ViewGrid.ContraerTodo
end;
procedure TfEditorGridBase.actContraerUpdate(Sender: TObject);
begin
inherited;
(Sender as TAction).Enabled := Assigned(dsDataTable.DataTable) and Assigned(ViewGrid);
end;
procedure TfEditorGridBase.actDuplicarUpdate(Sender: TObject);
begin
inherited;

2
Source/GUIBase/uViewGrid.dfm
View File

@ -189,7 +189,7 @@ inherited frViewGrid: TfrViewGrid
PrinterPage.ScaleMode = smFit
PrinterPage._dxMeasurementUnits_ = 0
PrinterPage._dxLastMU_ = 2
ReportDocument.CreationDate = 39757.663359259260000000
ReportDocument.CreationDate = 39791.760840023150000000
StyleManager = dmBase.dxPrintStyleManager1
OptionsCards.Shadow.Depth = 0
OptionsExpanding.ExpandGroupRows = True

6
Source/GUIBase/uViewGrid.pas
View File

@ -80,6 +80,7 @@ type
procedure OnChangeValoresFiltro(Sender: TObject);
procedure SetViewFiltros(const Value: IViewFiltroBase); override;
function AddFilterGrid(const Operacion: tcxFilterBoolOperatorKind): TcxFilterCriteriaItemList;
function GetAgrupacionesVisibles: Boolean; override;
public
function EsSeleccionCeldaDatos: Boolean; override;
procedure Preview; override;
@ -100,6 +101,11 @@ uses
}
{ TfrViewGrid }
function TfrViewGrid.GetAgrupacionesVisibles: Boolean;
begin
Result := pnlAgrupaciones.Visible;
end;
function TfrViewGrid.GetFocusedView: TcxGridDBTableView;
begin
Result := cxGridView;

14
Source/GUIBase/uViewGridBase.pas
View File

@ -78,11 +78,14 @@ type
function esSeleccionCeldaDatos: Boolean;
function getNumSeleccionados: Integer;
function getNumSeleccionados: Integer;
property NumSeleccionados: Integer read getNumSeleccionados;
function Locate(const AItemIndex: Integer; const AValue: String;
const APartialCompare: Boolean = False) : Boolean;
function GetAgrupacionesVisibles: Boolean;
property AgrupacionesVisibles : Boolean read GetAgrupacionesVisibles;
end;
@ -132,7 +135,7 @@ type
procedure cxGridViewColumnSetStoredPropertyValue(
Sender: TcxCustomGridTableItem; const AName: string;
const AValue: Variant);
function GetAgrupacionesVisibles: Boolean; virtual;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
@ -179,7 +182,7 @@ type
property PopupMenu: TPopupMenu read GetPopupMenu write SetPopupMenu;
property MultiSelect : Boolean read GetMultiSelect write SetMultiSelect;
property NumSeleccionados: Integer read getNumSeleccionados;
property AgrupacionesVisibles : Boolean read GetAgrupacionesVisibles;
end;
procedure Register;
@ -321,6 +324,11 @@ begin
ExportToExcel(AFileName);
end;
function TfrViewGridBase.GetAgrupacionesVisibles: Boolean;
begin
Result := False;
end;
function TfrViewGridBase.GetDblClick: TNotifyEvent;
begin
Result := FOnDblClick;