paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 22:19:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

Lazreport: change IndexOfTabAt to IndexOfPageAt, to be backward compatible after r53950 #f723ac55cd

Browse Source 
git-svn-id: trunk@53951 -
This commit is contained in:
michl 2017-01-15 22:04:27 +00:00
parent f723ac55cd
commit 32b4763c04
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/lazreport/source/lr_desgn.pas
View File

@ -4566,7 +4566,7 @@ end;
procedure TfrDesignerForm.TabsEditDragOver(Sender, Source: TObject; X, procedure TfrDesignerForm.TabsEditDragOver(Sender, Source: TObject; X,
Y: Integer; State: TDragState; var Accept: Boolean); Y: Integer; State: TDragState; var Accept: Boolean);
begin begin
Accept:=(Source = FTabsPage) and (FTabsPage.IndexOfTabAt(X, Y) <> Tab1.TabIndex); Accept:=(Source = FTabsPage) and (FTabsPage.IndexOfPageAt(X, Y) <> Tab1.TabIndex);
end; end;
procedure TfrDesignerForm.TabsEditDragDrop(Sender, Source: TObject; X, procedure TfrDesignerForm.TabsEditDragDrop(Sender, Source: TObject; X,
@ -4574,7 +4574,7 @@ procedure TfrDesignerForm.TabsEditDragDrop(Sender, Source: TObject; X,
var var
NewIndex: Integer; NewIndex: Integer;
begin begin
NewIndex:=FTabsPage.IndexOfTabAt(X, Y); NewIndex:=FTabsPage.IndexOfPageAt(X, Y);
//ShowMessageFmt('New index = %d', [NewIndex]); //ShowMessageFmt('New index = %d', [NewIndex]);
if (NewIndex>-1) and (NewIndex < CurReport.Pages.Count) then if (NewIndex>-1) and (NewIndex < CurReport.Pages.Count) then
begin begin