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

GUIBase: mejorado el cáculo de estilos para las tuplas del grid para ver si mejora el rendimiento del grid.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@730 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2008-11-05 10:42:15 +00:00
parent 344e568f73
commit 7a094c9d29
2 changed files with 34 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Source/GUIBase/uViewGrid.dfm
View File

@ -24,6 +24,7 @@ inherited frViewGrid: TfrViewGrid
FilterBox.Visible = fvNever FilterBox.Visible = fvNever
DataController.DataSource = dsDataSource DataController.DataSource = dsDataSource
DataController.Filter.Options = [fcoCaseInsensitive] DataController.Filter.Options = [fcoCaseInsensitive]
DataController.KeyFieldNames = 'RECID'
DataController.Options = [dcoAnsiSort, dcoCaseInsensitive, dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoSortByDisplayText] DataController.Options = [dcoAnsiSort, dcoCaseInsensitive, dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoSortByDisplayText]
DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <> DataController.Summary.FooterSummaryItems = <>
@ -187,7 +188,7 @@ inherited frViewGrid: TfrViewGrid
PrinterPage.ScaleMode = smFit PrinterPage.ScaleMode = smFit
PrinterPage._dxMeasurementUnits_ = 0 PrinterPage._dxMeasurementUnits_ = 0
PrinterPage._dxLastMU_ = 2 PrinterPage._dxLastMU_ = 2
ReportDocument.CreationDate = 39756.784993611110000000 ReportDocument.CreationDate = 39757.410444745370000000
StyleManager = dmBase.dxPrintStyleManager1 StyleManager = dmBase.dxPrintStyleManager1
OptionsCards.Shadow.Depth = 0 OptionsCards.Shadow.Depth = 0
OptionsExpanding.ExpandGroupRows = True OptionsExpanding.ExpandGroupRows = True

54
Source/GUIBase/uViewGrid.pas
View File

@ -229,37 +229,47 @@ end;
procedure TfrViewGrid.cxGridViewStylesGetContentStyle( procedure TfrViewGrid.cxGridViewStylesGetContentStyle(
Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
var
AFiltrado : Boolean;
AOrdenado : Boolean;
AFilaPar : Boolean;
begin begin
inherited; inherited;
if Assigned(AItem) then if Assigned(AItem) then
begin begin
if Odd(ARecord.Index) then AFilaPar := Odd(ARecord.Index);
AStyle := cxStyle_NORMAL_PAR AFiltrado := Filtered;
else AOrdenado := AItem.SortOrder <> soNone;
AStyle := cxStyle_NORMAL_IMPAR;
if (AItem.SortOrder <> soNone) then
if AFilaPar then
begin begin
if Odd(ARecord.Index) then if AFiltrado then
AStyle := cxStyle_ORDENADO_PAR
else
AStyle := cxStyle_ORDENADO_IMPAR;
end;
if Filtered then
begin
if Odd(ARecord.Index) then
AStyle := cxStyle_FILTRADO_PAR
else
AStyle := cxStyle_FILTRADO_IMPAR;
if (AItem.SortOrder <> soNone) then
begin begin
if Odd(ARecord.Index) then if AOrdenado then
AStyle := cxStyle_FILTRADO_ORDENADO_PAR AStyle := cxStyle_FILTRADO_ORDENADO_PAR
else else
AStyle := cxStyle_FILTRADO_ORDENADO_IMPAR; AStyle := cxStyle_FILTRADO_PAR
end; end
else // No filtrado
if AOrdenado then
AStyle := cxStyle_ORDENADO_PAR
else
AStyle := cxStyle_NORMAL_PAR
end
else begin
if AFiltrado then
begin
if AOrdenado then
AStyle := cxStyle_FILTRADO_ORDENADO_IMPAR
else
AStyle := cxStyle_FILTRADO_IMPAR
end
else // No filtrado
if AOrdenado then
AStyle := cxStyle_ORDENADO_IMPAR
else
AStyle := cxStyle_NORMAL_IMPAR
end; end;
end; end;
end; end;