Subversion Repositories winbugtracker

Compare Revisions

Regard whitespace Rev 14 → Rev 15

/trunk/BugtrackerMain.pas
306,11 → 306,14
// bei Ereignissen wie z.B. dem Scrolling aufgerufen (noch bevor
// OnBeforeScroll aufgerufen wird), bei dem man einen MBOnCloseQuery wünscht.
qryBugs.Tag := 1;
try
qryBugs.Cancel;
finally
qryBugs.Tag := 0;
end;
end;
end;
end;
 
procedure TfrmBugtracker.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin