pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

RxFPC: remove deprecated property TRxMemoryData.OnFilterRecordEx

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3968 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2015-02-26 11:26:15 +00:00
parent 81fa7edc30
commit cff96f0ecc
3 changed files with 5 additions and 38 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
components/rx/trunk/rx.inc
View File

@ -41,7 +41,6 @@
{.$DEFINE RXDBGRID_OPTIONS_WO_CANCEL_ON_EXIT}
{.$DEFINE USED_BiDi}
{$DEFINE DEFAULT_POPUP_CALENDAR}
{.$DEFINE FIX_TRxMemoryData_Filter}
{.$DEFINE FIX_BUG_FieldNo}
{.DEFINE USE_TRXXPManifest}

4
components/rx/trunk/rxlookup.pas
View File

@ -1150,8 +1150,8 @@ procedure TRxCustomDBLookupCombo.CalculatePreferredSize(var PreferredWidth,
var
tmpCanvas: TCanvas;
begin
inherited CalculatePreferredSize(PreferredWidth, PreferredHeight,
WithThemeSpace);
inherited CalculatePreferredSize(PreferredWidth, PreferredHeight, WithThemeSpace);
// ignore width
PreferredWidth:=0;
tmpCanvas := GetWorkingCanvas(Canvas);

38
components/rx/trunk/rxmemds.pas
View File

@ -51,9 +51,6 @@ type
TRxMemoryData = class(TDataSet)
private
{$IFDEF FIX_TRxMemoryData_Filter}
FOnFilterRecordEx: TFilterRecordEvent;
{$ENDIF}
FRecordPos: Integer;
FRecordSize: Integer;
FBookmarkOfs: Integer;
@ -82,13 +79,11 @@ type
function AddRecord: TMemoryRecord;
procedure CopyRecord(RecordData, Buffer: PChar);
function GetOnFilterRecordEx: TFilterRecordEvent;
function InsertRecord(Index: Integer): TMemoryRecord;
function FindRecordID(ID: Integer): TMemoryRecord;
procedure CreateIndexList(const FieldNames: string);
procedure FreeIndexList;
procedure QuickSort(L, R: Integer; Compare: TCompareRecords);
procedure SetOnFilterRecordEx(const AValue: TFilterRecordEvent);
procedure Sort;
function CalcRecordSize: Integer;
function FindFieldData(Buffer: Pointer; Field: TField): Pointer;overload;
@ -207,7 +202,6 @@ type
property OnDeleteError;
property OnEditError;
property OnFilterRecord;
property OnFilterRecordEx: TFilterRecordEvent read GetOnFilterRecordEx write SetOnFilterRecordEx;
property OnNewRecord;
property OnPostError;
@ -264,7 +258,7 @@ type
implementation
uses CustApp, rxdconst, LazUTF8, dbutils, dbconst, Variants, math;
uses CustApp, rxdconst, LazUTF8, dbutils, dbconst, Variants, math, LResources;
const
ftBlobTypes = [ftBlob, ftMemo, ftGraphic, ftFmtMemo, ftParadoxOle,
@ -522,15 +516,6 @@ begin
Result := TMemoryRecord.Create(Self);
end;
function TRxMemoryData.GetOnFilterRecordEx: TFilterRecordEvent;
begin
{$IFDEF FIX_TRxMemoryData_Filter}
Result:=FOnFilterRecordEx;
{$ELSE}
Result:=OnFilterRecord;
{$ENDIF}
end;
function TRxMemoryData.FindRecordID(ID: Integer): TMemoryRecord;
var
I: Integer;
@ -1004,24 +989,15 @@ var
SaveState: TDataSetState;
begin
Result := True;
{$IFDEF FIX_TRxMemoryData_Filter}
if Assigned(OnFilterRecordEx) then
{$ELSE}
if Assigned(OnFilterRecord) then
{$ENDIF}
begin
if (FRecordPos >= 0) and (FRecordPos < RecordCount) then
begin
SaveState := SetTempState(dsFilter);
try
RecordToBuffer(Records[FRecordPos], TempBuffer);
{$IFDEF FIX_TRxMemoryData_Filter}
OnFilterRecordEx(Self, Result);
{$ELSE}
OnFilterRecord(Self, Result);
{$ENDIF}
except
// Application.HandleException(Self);
CustomApplication.HandleException(Self);
end;
RestoreState(SaveState);
@ -1722,16 +1698,6 @@ begin
until I >= R;
end;
procedure TRxMemoryData.SetOnFilterRecordEx(const AValue: TFilterRecordEvent);
begin
{$IFDEF FIX_TRxMemoryData_Filter}
CheckBiDirectional;
FOnFilterRecordEx:=AValue;
{$ELSE}
OnFilterRecord:=AValue;
{$ENDIF}
end;
function TRxMemoryData.CompareRecords(Item1, Item2: TMemoryRecord): Integer;
var
Data1, Data2: PChar;
@ -2102,4 +2068,6 @@ begin
Result := Length(GetBlobFromRecord(FField))
end;
initialization
RegisterPropertyToSkip(TRxMemoryData, 'OnFilterRecordEx', 'Old property', '');
end.