paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-09 19:17:21 +01:00
Code Issues Packages Projects Releases Wiki Activity

fcl-db: tests: move IFDEF to proper position

Browse Source 
git-svn-id: trunk@23189 -
This commit is contained in:
lacak 2012-12-19 08:27:04 +00:00
parent c766c50907
commit 9f60eca94f
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/fcl-db/tests/toolsunit.pas
View File

@ -397,8 +397,6 @@ end;
{ TTestDataLink }
{$IFDEF FPC}
procedure TTestDataLink.DataSetScrolled(Distance: Integer);
begin
DataEvents := DataEvents + 'DataSetScrolled' + ':' + inttostr(Distance) + ';';
@ -411,6 +409,7 @@ begin
inherited DataSetChanged;
end;
{$IFDEF FPC}
procedure TTestDataLink.DataEvent(Event: TDataEvent; Info: Ptrint);
{$ELSE}
procedure TTestDataLink.DataEvent(Event: TDataEvent; Info: Longint);