Acana_Interiorismo/FactuGES2
2
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.Acana_FactuGES2/trunk@328 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
David Arranz 2008-11-12 16:16:36 +00:00
parent 878cd1f5af
commit 5dcb7e2b5a
2 changed files with 45 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
Source/GUIBase/uViewGrid.dfm
View File

@ -80,15 +80,27 @@ inherited frViewGrid: TfrViewGrid
Width = 554 Width = 554
ExplicitWidth = 554 ExplicitWidth = 554
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 457 ExplicitWidth = 457
Width = 457 Width = 457
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 240 ExplicitWidth = 240
Width = 240 Width = 240
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 344 Left = 344
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 344 ExplicitLeft = 344
ExplicitWidth = 200 ExplicitWidth = 200
Width = 200 Width = 200
@ -163,7 +175,7 @@ inherited frViewGrid: TfrViewGrid
PrinterPage.ScaleMode = smFit PrinterPage.ScaleMode = smFit
PrinterPage._dxMeasurementUnits_ = 0 PrinterPage._dxMeasurementUnits_ = 0
PrinterPage._dxLastMU_ = 2 PrinterPage._dxLastMU_ = 2
ReportDocument.CreationDate = 39636.760736666660000000 ReportDocument.CreationDate = 39764.713522488430000000
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;