david
68ec970246
git-svn-id: https://192.168.0.254/svn/Proyectos.EstudioCarnicero_ProGestion/trunk@4 1b8572a8-2d6b-b84e-8c90-20ed86fa4eca
396 lines
12 KiB
ObjectPascal
396 lines
12 KiB
ObjectPascal
unit uViewGrid;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, uViewBase, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
|
|
cxDataStorage, cxEdit, DB, cxDBData, uDADataTable, cxGridLevel,
|
|
cxClasses, cxControls, cxGridCustomView, cxGridCustomTableView,
|
|
cxGridTableView, cxGridDBTableView, cxGrid, Menus, ActnList, Grids,
|
|
DBGrids, JvComponent, JvFormAutoSize, dxPSGlbl, dxPSUtl, dxPSEngn,
|
|
dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns,
|
|
dxPSEdgePatterns, dxPSCore, dxPScxCommon, dxPScxGridLnk, dxPrnDlg,
|
|
cxIntlPrintSys3, dxPSPrvwAdv;
|
|
|
|
type
|
|
IViewGrid = interface(IViewBase)
|
|
['{07468FAD-4891-42E6-B646-51F17F0033F5}']
|
|
function GetDblClick: TNotifyEvent;
|
|
function GetFilter: string;
|
|
function GetPopupMenu: TPopupMenu;
|
|
function GetGrid : TcxGrid;
|
|
procedure Preview;
|
|
procedure Print;
|
|
procedure PrintSetup;
|
|
procedure GotoFirst;
|
|
procedure GotoLast;
|
|
procedure SetDblClick(const Value: TNotifyEvent);
|
|
procedure SetFilter(const Value: string);
|
|
procedure SetPopupMenu(const Value: TPopupMenu);
|
|
procedure RefreshGrid;
|
|
function GetMultiSelection: Boolean;
|
|
procedure SetMultiSelection(const Value: Boolean);
|
|
property Filter: string read GetFilter write SetFilter;
|
|
property OnDblClick: TNotifyEvent read GetDblClick write SetDblClick;
|
|
property PopupMenu: TPopupMenu read GetPopupMenu write SetPopupMenu;
|
|
property MultiSelection : Boolean read GetMultiSelection write SetMultiSelection;
|
|
property Grid : TcxGrid read GetGrid;
|
|
procedure SyncFocusedRecordsFromGrid;
|
|
procedure SyncFocusedRecordsFromDataSet;
|
|
procedure StoreToRegistry;
|
|
procedure RestoreFromRegistry;
|
|
end;
|
|
|
|
TfrViewGrid = class(TfrViewBase, IViewGrid)
|
|
ActionList1: TActionList;
|
|
cxGrid: TcxGrid;
|
|
cxGridLevel: TcxGridLevel;
|
|
cxGridView: TcxGridDBTableView;
|
|
DADataSource: TDADataSource;
|
|
dxComponentPrinter: TdxComponentPrinter;
|
|
dxComponentPrinterLink: TdxGridReportLink;
|
|
dxPSEngineController1: TdxPSEngineController;
|
|
cxStyleRepository1: TcxStyleRepository;
|
|
cxStyleEven: TcxStyle;
|
|
cxStyleOdd: TcxStyle;
|
|
cxStyleSelection: TcxStyle;
|
|
procedure cxGridViewDblClick(Sender: TObject);
|
|
procedure cxGridViewDataControllerSortingChanged(Sender: TObject);
|
|
// procedure SelectionChanged(Sender: TcxCustomGridTableView); virtual; abstract;
|
|
private
|
|
FFilter: string;
|
|
FOnFilterChanged : TNotifyEvent;
|
|
FOnDblClick: TNotifyEvent;
|
|
FPopupMenu: TPopupMenu;
|
|
procedure FiltrarGrid(TextoFiltro : String);
|
|
protected
|
|
function GetGrid : TcxGrid;
|
|
function GetDblClick: TNotifyEvent; virtual;
|
|
function GetFilter: string; virtual;
|
|
function GetPopupMenu: TPopupMenu; virtual;
|
|
function GetMultiSelection: Boolean; virtual;
|
|
procedure SetDblClick(const Value: TNotifyEvent); virtual;
|
|
procedure SetFilter(const Value: string); virtual;
|
|
procedure SetPopupMenu(const Value: TPopupMenu); virtual;
|
|
procedure SetMultiSelection(const Value: Boolean); virtual;
|
|
procedure FilterChanged(Sender : TObject); virtual;
|
|
|
|
public
|
|
procedure ShowEmbedded(const AParent : TWinControl); override;
|
|
constructor Create(AOwner: TComponent); override;
|
|
procedure Preview; virtual;
|
|
procedure Print; virtual;
|
|
procedure PrintSetup;
|
|
procedure GotoFirst;
|
|
procedure GotoLast;
|
|
procedure StoreToRegistry; virtual;
|
|
procedure RestoreFromRegistry; virtual;
|
|
property Filter: string read GetFilter write SetFilter;
|
|
property OnDblClick: TNotifyEvent read GetDblClick write SetDblClick;
|
|
property PopupMenu: TPopupMenu read GetPopupMenu write SetPopupMenu;
|
|
property Grid : TcxGrid read GetGrid;
|
|
procedure SyncFocusedRecordsFromGrid; virtual;
|
|
procedure SyncFocusedRecordsFromDataSet; virtual;
|
|
property MultiSelection : Boolean read GetMultiSelection write SetMultiSelection;
|
|
procedure RefreshGrid; virtual;
|
|
end;
|
|
|
|
procedure Register;
|
|
|
|
var
|
|
frViewGrid: TfrViewGrid;
|
|
|
|
implementation
|
|
|
|
uses
|
|
CCReg, uDataModuleBase, uDBSelectionList;
|
|
|
|
{$R *.dfm}
|
|
|
|
{ TfrViewGrid }
|
|
|
|
procedure Register;
|
|
begin
|
|
RegisterCustomContainer(TfrViewGrid);
|
|
end;
|
|
|
|
|
|
{
|
|
********************************* TfrViewGrid **********************************
|
|
}
|
|
constructor TfrViewGrid.Create(AOwner: TComponent);
|
|
begin
|
|
inherited;
|
|
FFilter := '';
|
|
FOnFilterChanged := FilterChanged;
|
|
GotoFirst;
|
|
end;
|
|
|
|
procedure TfrViewGrid.cxGridViewDblClick(Sender: TObject);
|
|
begin
|
|
if Assigned(FOnDblClick) then
|
|
FOnDblClick(Sender);
|
|
end;
|
|
|
|
procedure TfrViewGrid.FiltrarGrid(TextoFiltro : String);
|
|
var
|
|
Columna: TcxGridDBColumn;
|
|
i: Integer;
|
|
AItemList: TcxFilterCriteriaItemList;
|
|
begin
|
|
with cxGrid.ActiveView.DataController.Filter do
|
|
begin
|
|
BeginUpdate;
|
|
try
|
|
Options := [fcoCaseInsensitive, fcoSoftCompare];
|
|
Root.Clear;
|
|
if Length(TextoFiltro) > 0 then
|
|
begin
|
|
AItemList := Root.AddItemList(fboAnd);
|
|
AItemList.BoolOperatorKind := fboOr;
|
|
for i:=0 to (cxGrid.ActiveView as TcxGridDBTableView).ColumnCount - 1 do
|
|
begin
|
|
Columna := (cxGrid.ActiveView as TcxGridDBTableView).Columns[i];
|
|
if (Length(Columna.Caption) > 0) and (Columna.Caption <> 'RecID') then
|
|
AItemList.AddItem(Columna, foLike, '%'+TextoFiltro+'%', IntToStr(i));
|
|
end;
|
|
Active := True;
|
|
end
|
|
else
|
|
Active := False;
|
|
finally
|
|
EndUpdate;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
function TfrViewGrid.GetDblClick: TNotifyEvent;
|
|
begin
|
|
Result := FOnDblClick;
|
|
end;
|
|
|
|
function TfrViewGrid.GetFilter: string;
|
|
begin
|
|
Result := FFilter;
|
|
end;
|
|
|
|
function TfrViewGrid.GetPopupMenu: TPopupMenu;
|
|
begin
|
|
Result := FPopupMenu;
|
|
end;
|
|
|
|
procedure TfrViewGrid.GotoFirst;
|
|
begin
|
|
cxGridView.DataController.GotoFirst;
|
|
end;
|
|
|
|
procedure TfrViewGrid.GotoLast;
|
|
begin
|
|
cxGridView.DataController.GotoLast;
|
|
end;
|
|
|
|
procedure TfrViewGrid.SetDblClick(const Value: TNotifyEvent);
|
|
begin
|
|
FOnDblClick := Value;
|
|
end;
|
|
|
|
procedure TfrViewGrid.SetFilter(const Value: string);
|
|
begin
|
|
if FFilter <> Value then
|
|
begin
|
|
FFilter := Value;
|
|
FiltrarGrid(FFilter);
|
|
if Assigned(FOnFilterChanged) then
|
|
FOnFilterChanged(Self);
|
|
end;
|
|
end;
|
|
|
|
procedure TfrViewGrid.SetPopupMenu(const Value: TPopupMenu);
|
|
begin
|
|
FPopupMenu := Value;
|
|
cxGridView.PopupMenu := FPopupMenu;
|
|
end;
|
|
|
|
procedure TfrViewGrid.cxGridViewDataControllerSortingChanged(
|
|
Sender: TObject);
|
|
var
|
|
i: Integer;
|
|
AFields: array of String;
|
|
ADirections: array of TDASortDirection;
|
|
ABookmark : Pointer;
|
|
begin
|
|
inherited;
|
|
|
|
with cxGridView do
|
|
begin
|
|
for i := 0 to SortedItemCount - 1 do
|
|
begin
|
|
SetLength(AFields, i+1);
|
|
AFields[i] := (SortedItems[i] as TcxGridDBColumn).DataBinding.FieldName;
|
|
SetLength(ADirections, i+1);
|
|
case (SortedItems[i] as TcxGridDBColumn).SortOrder of
|
|
soAscending : ADirections[i] := sdAscending;
|
|
soDescending : ADirections[i] := sdDescending;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
if Assigned(DADataSource.DataTable) then
|
|
with DADataSource.DataTable do
|
|
begin
|
|
DisableControls;
|
|
ABookmark := GetBookMark;
|
|
try
|
|
Sort(AFields, ADirections);
|
|
GotoBookmark(ABookmark);
|
|
finally
|
|
FreeBookmark(ABookmark);
|
|
EnableControls;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
function TfrViewGrid.GetGrid: TcxGrid;
|
|
begin
|
|
Result := cxGrid;
|
|
end;
|
|
|
|
procedure TfrViewGrid.ShowEmbedded(const AParent : TWinControl);
|
|
begin
|
|
inherited;
|
|
|
|
if not DADataSource.DataTable.Active then
|
|
DADataSource.DataTable.Active := True;
|
|
|
|
with Grid do
|
|
begin
|
|
ActiveView.DataController.GotoFirst;
|
|
ActiveView.Focused := True;
|
|
if (ActiveView.ViewData as TcxCustomGridTableViewData).RecordCount > 0 then
|
|
begin
|
|
(ActiveView.ViewData as TcxCustomGridTableViewData).Records[0].Selected := True;
|
|
(ActiveView.ViewData as TcxCustomGridTableViewData).Records[0].Focused := True;
|
|
end;
|
|
{ if (ActiveView is TcxCustomGridTableView) then
|
|
(ActiveView as TcxCustomGridTableView).ApplyBestFit;}
|
|
end;
|
|
end;
|
|
|
|
procedure TfrViewGrid.Preview;
|
|
begin
|
|
dxComponentPrinter.Preview;
|
|
end;
|
|
|
|
procedure TfrViewGrid.Print;
|
|
begin
|
|
dxComponentPrinter.Print(True, nil, nil);
|
|
end;
|
|
|
|
procedure TfrViewGrid.PrintSetup;
|
|
begin
|
|
dxComponentPrinter.PageSetup(nil);
|
|
end;
|
|
|
|
procedure TfrViewGrid.RefreshGrid;
|
|
var
|
|
FocusedRow, TopRow, TopRecord : Integer;
|
|
ARecordID : Variant;
|
|
begin
|
|
{ Refrescar las filas del grid a partir del dataset y colocar la fila
|
|
seleccionada donde estaba }
|
|
|
|
if DADataSource.DataTable.State = dsBrowse then
|
|
begin
|
|
TopRow := cxGridView.Controller.TopRowIndex;
|
|
TopRecord := cxGridView.Controller.TopRecordIndex;
|
|
|
|
FocusedRow := cxGridView.DataController.FocusedRowIndex;
|
|
ARecordID := cxGridView.DataController.GetRecordId(cxGridView.DataController.FocusedRecordIndex);
|
|
try
|
|
cxGridView.DataController.UpdateItems(False); // <- Refresco
|
|
finally
|
|
cxGridView.Controller.TopRowIndex := TopRow;
|
|
cxGridView.Controller.TopRecordIndex := TopRecord;
|
|
cxGridView.DataController.FocusedRowIndex := FocusedRow;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
procedure TfrViewGrid.SyncFocusedRecordsFromDataSet;
|
|
//var
|
|
// AIndex : Integer;
|
|
begin
|
|
{ for AIndex := 0 to cxGridView.DataController.RecordCount - 1 do
|
|
begin
|
|
if (MessageBox(0, PChar(cxGridView.DataController.GetDisplayText(AIndex, 1)), '',
|
|
MB_ICONQUESTION or MB_YESNO or MB_DEFBUTTON1) = idYes) then
|
|
begin
|
|
cxGridView.DataController.SelectAll;
|
|
|
|
|
|
cxGridView.DataController.SelectRows(AIndex, AIndex);
|
|
cxGridView.DataController.FocusSelectedRow(0);
|
|
Break;
|
|
end;
|
|
end;}
|
|
end;
|
|
|
|
procedure TfrViewGrid.SyncFocusedRecordsFromGrid;
|
|
var
|
|
AValue : Variant;
|
|
i: Integer;
|
|
aObj : ISelectedRowList;
|
|
Clave : String;
|
|
begin
|
|
if not Supports(DADataSource.DataTable, ISelectedRowList, aObj) then
|
|
raise Exception.Create('La tabla no soporta el interfaz ISelectedRowList (SyncFocusedRecords)');
|
|
|
|
Clave := cxGridView.DataController.KeyFieldNames;
|
|
if Length(Clave) = 0 then
|
|
raise Exception.Create('Falta indicar los campos clave de la tabla en la vista del grid (SyncFocusedRecords)');
|
|
|
|
DADataSource.DataTable.DisableControls;
|
|
// DADataSource.DataTable.DisableEventHandlers; <- No descomentar
|
|
try
|
|
for i := 0 to cxGridView.Controller.SelectedRecordCount - 1 do
|
|
begin
|
|
AValue := cxGridView.Controller.SelectedRows[i].Values[cxGridView.GetColumnByFieldName(Clave).Index];
|
|
DADataSource.DataTable.First;
|
|
if DADataSource.DataTable.Locate(Clave, AValue, []) then
|
|
aObj.SelectedRows.CurrentRowSelected := True;
|
|
end;
|
|
finally
|
|
// DADataSource.DataTable.EnableEventHandlers; <- No descomentar
|
|
DADataSource.DataTable.EnableControls;
|
|
end;
|
|
end;
|
|
|
|
function TfrViewGrid.GetMultiSelection: Boolean;
|
|
begin
|
|
Result := (cxGrid.ActiveView as TcxGridDBTableView).OptionsSelection.MultiSelect;
|
|
end;
|
|
|
|
procedure TfrViewGrid.SetMultiSelection(const Value: Boolean);
|
|
begin
|
|
(cxGrid.ActiveView as TcxGridDBTableView).OptionsSelection.MultiSelect := True;
|
|
// (cxGrid.ActiveView as TcxGridDBTableView).OnSelectionChanged := SelectionChanged;
|
|
end;
|
|
|
|
procedure TfrViewGrid.RestoreFromRegistry;
|
|
begin
|
|
cxGridView.RestoreFromRegistry('Software\\FactuGES\\GridSettings\\' + Self.Name, False, False, []);
|
|
end;
|
|
|
|
procedure TfrViewGrid.StoreToRegistry;
|
|
begin
|
|
cxGridView.StoreToRegistry('Software\\FactuGES\\GridSettings\\' + Self.Name, True, []);
|
|
end;
|
|
|
|
procedure TfrViewGrid.FilterChanged(Sender: TObject);
|
|
begin
|
|
//
|
|
end;
|
|
|
|
end.
|