Remove empty and useless procedure

This commit is contained in:
Ansgar Becker
2010-03-19 07:09:30 +00:00
parent d7d65e1015
commit 13302d5b2f
2 changed files with 0 additions and 8 deletions

View File

@@ -7711,7 +7711,6 @@ object MainForm: TMainForm
end
object popupResultGrid: TPopupMenu
Images = ImageListMain
OnPopup = popupResultGridPopup
Left = 136
Top = 96
object Copy4: TMenuItem

View File

@@ -566,7 +566,6 @@ type
procedure TimerConnectedTimer(Sender: TObject);
procedure Clear2Click(Sender: TObject);
procedure QuickFilterClick(Sender: TObject);
procedure popupResultGridPopup(Sender: TObject);
procedure AutoRefreshSetInterval(Sender: TObject);
procedure AutoRefreshToggle(Sender: TObject);
procedure SynMemoQueryDragOver(Sender, Source: TObject; X, Y: Integer;
@@ -4609,12 +4608,6 @@ begin
ActiveQueryMemo.SetFocus;
end;
procedure TMainForm.popupResultGridPopup(Sender: TObject);
begin
// data available?
// Save2CSV.enabled :=
end;
procedure TMainForm.AutoRefreshSetInterval(Sender: TObject);
var
seconds : String;