Acana_Interiorismo/FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

GUIBase -> Limpieza de warnings.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@284 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
David Arranz 2008-07-22 14:51:16 +00:00
parent d4d2e120a5
commit 19479a90c7
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
Source/GUIBase/uViewGridBase.pas
View File

@ -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