Subversion Repositories winbugtracker

Compare Revisions

Regard whitespace Rev 15 → Rev 14

/trunk/BugtrackerMain.pas
306,14 → 306,11
// 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