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

apply patch for compile rx with fpc 2.6 - thx Daniel Simões de Almeida - close issue 21598

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2373 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2012-03-31 15:49:40 +00:00
parent acfeafbd7d
commit 2ae6517c57
3 changed files with 9 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
components/rx/dbutils.pas
View File

@ -433,7 +433,7 @@ begin
if Result then Exit;
DataSet.DisableControls;
try
Bookmark := DataSet.Bookmark;
Bookmark := DataSet.GetBookmark;
try
with DataSet do begin
First;
@ -445,7 +445,7 @@ begin
end;
finally
if not Result and DataSet.BookmarkValid(PChar(Bookmark)) then
DataSet.Bookmark := Bookmark;
DataSet.GotoBookmark(Bookmark);
end;
finally
DataSet.FreeBookmark(Bookmark);
@ -921,7 +921,7 @@ var
begin
DS:=Field.DataSet;
DS.DisableControls;
P:=DS.Bookmark;
P:=DS.GetBookmark;
try
DS.First;
while not DS.EOF do
@ -932,7 +932,7 @@ begin
DS.Next;
end;
finally
DS.Bookmark:=P;
DS.GotoBookmark(P);
DS.FreeBookmark(P);
DS.EnableControls;
end;

8
components/rx/rxmemds.pas
View File

@ -1340,7 +1340,7 @@ begin
if Result then Exit;
DataSet.DisableControls;
try
Bookmark := DataSet.Bookmark;
Bookmark := DataSet.GetBookmark;
try
with DataSet do begin
First;
@ -1352,7 +1352,7 @@ begin
end;
finally
if not Result and DataSet.BookmarkValid(PChar(Bookmark)) then
DataSet.Bookmark := Bookmark;
DataSet.GotoBookmark(Bookmark);
end;
finally
DataSet.FreeBookmark(Bookmark);
@ -1581,7 +1581,7 @@ var
begin
if Active and (FRecords <> nil) and (FRecords.Count > 0) then
begin
Pos := Bookmark;
Pos := GetBookmark;
try
QuickSort(0, FRecords.Count - 1, @CompareRecords);
SetBufListSize(0);
@ -1595,7 +1595,7 @@ begin
raise;
end;
finally
Bookmark := Pos;
GotoBookmark(Pos);
FreeBookmark(Pos);
end;
Resync([]);

1
components/rx/rxpopupunit.pas
View File

@ -454,6 +454,7 @@ begin
FDataSource:=TDataSource.Create(Self);
FPopUpFormOptions:=APopUpFormOptions;
FFieldList:=AFieldList;
OnClose := @FormClose;
{$IFDEF LINUX}
PopupOrigin:=TCustomControl(AOwner).Parent.ControlToScreen(Point(TCustomControl(AOwner).Left, TCustomControl(AOwner).Height + TCustomControl(AOwner).Top));