diff --git a/source/childwin.dfm b/source/childwin.dfm index f3aa5399..5053825f 100644 --- a/source/childwin.dfm +++ b/source/childwin.dfm @@ -2149,11 +2149,6 @@ object MDIChild: TMDIChild Caption = 'Filter...' OnClick = Filter1Click end - object MenuLimit: TMenuItem - Caption = 'Limit' - Checked = True - OnClick = MenuLimitClick - end object Find1: TMenuItem Action = MainForm.DataSearch end @@ -2215,10 +2210,6 @@ object MDIChild: TMDIChild OnClick = InsertDate end end - object MenuViewBlob: TMenuItem - Caption = 'Edit Memo/BLOB' - OnClick = MenuViewBlobClick - end object ViewasHTML1: TMenuItem Action = MainForm.HTMLview end diff --git a/source/childwin.pas b/source/childwin.pas index 310c35f6..abae0b10 100644 --- a/source/childwin.pas +++ b/source/childwin.pas @@ -95,7 +95,6 @@ type menuAlterTable: TMenuItem; N10: TMenuItem; MenuRenameTable: TMenuItem; - MenuViewBlob: TMenuItem; TimerConnected: TTimer; N12: TMenuItem; popupSqlLog: TPopupMenu; @@ -126,7 +125,6 @@ type DataSource2: TDataSource; Copytableas1: TMenuItem; Filter1: TMenuItem; - MenuLimit: TMenuItem; Delete1: TMenuItem; N6: TMenuItem; QF1: TMenuItem; @@ -410,7 +408,6 @@ type procedure ListTablesNewText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; NewText: WideString); procedure MenuRenameTableClick(Sender: TObject); - procedure MenuViewBlobClick(Sender: TObject); procedure TimerConnectedTimer(Sender: TObject); procedure Clear2Click(Sender: TObject); procedure EditQuery1Click(Sender: TObject); @@ -425,7 +422,6 @@ type procedure TimerConnectErrorCloseWindowTimer(Sender: TObject); procedure gridDataTitleClick(Column: TColumn); procedure Filter1Click(Sender: TObject); - procedure MenuLimitClick(Sender: TObject); procedure Delete1Click(Sender: TObject); procedure QuickFilterClick(Sender: TObject); procedure btnBlobWordWrapClick(Sender: TObject); @@ -1586,7 +1582,6 @@ begin else btnDataSorting.Font.Color := clWindowText; - MenuLimit.Checked := Mainform.CheckBoxLimit.Checked; PrimaryKeyColumns := TStringList.Create(); if ( ( SelectedTable <> '' ) and ( ActiveDatabase <> '' ) ) then @@ -3535,12 +3530,6 @@ begin end; -procedure TMDIChild.MenuViewBlobClick(Sender: TObject); -begin - PageControlBottom.ActivePage := tabBlobEditor; -end; - - procedure TMDIChild.TimerConnectedTimer(Sender: TObject); begin if not TimerConnected.Enabled then begin @@ -3843,15 +3832,6 @@ begin end; end; -procedure TMDIChild.MenuLimitClick(Sender: TObject); -begin - // limit or not limit - mainform.CheckBoxLimit.Checked := not mainform.CheckBoxLimit.Checked; - viewdata(self); -end; - - - procedure TMDIChild.Delete1Click(Sender: TObject); begin // Delete record(s) @@ -5431,7 +5411,6 @@ begin // Ensure visibility of the Blob-Editor PageControlBottom.ActivePage := tabBlobEditor; - MenuViewBlob.Enabled := true; // Detect if we have picture-data in this BLOB and // if yes, bring the viewer in the BLOB-editor to the front @@ -5455,7 +5434,6 @@ begin DBMemo1.ReadOnly := true; DBMemo1.DataField := ''; EDBImage1.DataField := ''; - MenuViewBlob.Enabled := false; end; // Indicate the ReadOnly-state of the BLOB to the user diff --git a/source/main.dfm b/source/main.dfm index 3e270d2a..94df1cbe 100644 --- a/source/main.dfm +++ b/source/main.dfm @@ -268,7 +268,6 @@ object MainForm: TMainForm Checked = True State = cbChecked TabOrder = 0 - OnClick = CheckBoxLimitClick OnEnter = LimitPanelEnter OnExit = LimitPanelExit end diff --git a/source/main.pas b/source/main.pas index 46186518..0f96c6c5 100644 --- a/source/main.pas +++ b/source/main.pas @@ -170,7 +170,6 @@ type procedure CopyTableExecute(Sender: TObject); procedure showstatus(msg: string=''; panel: Integer=0); procedure ButtonOKClick(Sender: TObject); - procedure CheckBoxLimitClick(Sender: TObject); procedure LimitPanelEnter(Sender: TObject); procedure LimitPanelExit(Sender: TObject); procedure OpenURL(Sender: TObject); @@ -772,14 +771,6 @@ begin ChildWin.viewdata(self); end; - -procedure TMainForm.CheckBoxLimitClick(Sender: TObject); -begin - // Check/Uncheck popupmenu-item - if ChildWin <> nil then - ChildWin.MenuLimit.Checked := CheckBoxLimit.Checked; -end; - procedure TMainForm.LimitPanelEnter(Sender: TObject); begin // Entering Data-Toolbar