From 19479a90c734ff95055ebfb54f66784170204391 Mon Sep 17 00:00:00 2001 From: david Date: Tue, 22 Jul 2008 14:51:16 +0000 Subject: [PATCH] GUIBase -> Limpieza de warnings. git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@284 f4e31baf-9722-1c47-927c-6f952f962d4b --- Source/GUIBase/uViewGridBase.pas | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/Source/GUIBase/uViewGridBase.pas b/Source/GUIBase/uViewGridBase.pas index 23a27042..dd92c673 100644 --- a/Source/GUIBase/uViewGridBase.pas +++ b/Source/GUIBase/uViewGridBase.pas @@ -69,13 +69,13 @@ type procedure SetViewFiltros(const Value: IViewFiltroBase); property ViewFiltros: IViewFiltroBase read GetViewFiltros write SetViewFiltros; - function esSeleccionCeldaDatos: Boolean; + function EsSeleccionCeldaDatos: Boolean; function getNumSeleccionados: Integer; property NumSeleccionados: Integer read getNumSeleccionados; - function Locate(const AItemIndex: Integer; const AValue: String; - const APartialCompare: Boolean = False) : Boolean; + {function Locate(const AItemIndex: Integer; const AValue: String; + const APartialCompare: Boolean = False) : Boolean;} end; @@ -137,8 +137,8 @@ type procedure RestoreFromIniFile; procedure StoreToIniFile; - function Locate(const AItemIndex: Integer; const AValue: String; - const APartialCompare: Boolean = False) : Boolean; + {function Locate(const AItemIndex: Integer; const AValue: String; + const APartialCompare: Boolean = False) : Boolean;} property Filter: string read GetFilter write SetFilter; property Filtered : Boolean read GetFiltered; @@ -259,12 +259,12 @@ begin Result := (_FocusedView.ViewData.RowCount < 1); end; -function TfrViewGridBase.Locate(const AItemIndex: Integer; const AValue: String; +{function TfrViewGridBase.Locate(const AItemIndex: Integer; const AValue: String; const APartialCompare: Boolean): Boolean; begin -{ if Assigned(_FocusedView) then - Result := _FocusedView.DataController.FindRecordIndexByText(0, AItemIndex, AText, APartialCompare, True, True)} -end; + if Assigned(_FocusedView) then + Result := _FocusedView.DataController.FindRecordIndexByText(0, AItemIndex, AValue, APartialCompare, True, True) +end;} procedure TfrViewGridBase.Preview; begin