opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-06 18:24:26 +08:00
Code Issues Packages Projects Releases Wiki Activity

Issue #2127: revert previous commit, disable OnDragDrop event again, ActiveX unit is not available for Linux

Browse Source
This commit is contained in:
Ansgar Becker
2025-04-04 13:12:07 +02:00
parent eb54d8ae9b
commit cb4eda7345
2 changed files with 16 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
source/table_editor.lfm
View File

@ -24,10 +24,10 @@ object frmTableEditor: TfrmTableEditor
Height = 210
Top = 0
Width = 875
ActivePage = tabIndexes
ActivePage = tabOptions
Align = alTop
Images = MainForm.ImageListIcons8
TabIndex = 2
TabIndex = 1
TabOrder = 0
OnChange = PageControlMainChange
object tabBasic: TTabSheet
@ -342,7 +342,7 @@ object frmTableEditor: TfrmTableEditor
Options = [coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible, coAllowFocus]
Position = 0
Text = 'Name'
Width = 309
Width = 305
end
item
Options = [coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible, coAllowFocus]
@ -378,7 +378,6 @@ object frmTableEditor: TfrmTableEditor
OnClick = AnyTreeClick
OnCreateEditor = treeIndexesCreateEditor
OnDragOver = treeIndexesDragOver
OnDragDrop = treeIndexesDragDrop
OnEditing = treeIndexesEditing
OnFocusChanged = treeIndexesFocusChanged
OnGetText = treeIndexesGetText
@ -536,7 +535,7 @@ object frmTableEditor: TfrmTableEditor
Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible, coAllowFocus]
Position = 5
Text = 'On DELETE'
Width = 114
Width = 110
end>
Header.Options = [hoAutoResize, hoColumnResize, hoDrag, hoShowSortGlyphs, hoVisible, hoDisableAnimatedResize]
Header.PopupMenu = MainForm.popupListHeader
@ -621,7 +620,7 @@ object frmTableEditor: TfrmTableEditor
Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible, coAllowFocus, coEditable]
Position = 1
Text = 'Check clause'
Width = 534
Width = 530
end>
Header.Options = [hoAutoResize, hoColumnResize, hoDrag, hoShowSortGlyphs, hoVisible, hoDisableAnimatedResize]
Header.PopupMenu = MainForm.popupListHeader
@ -1100,7 +1099,6 @@ object frmTableEditor: TfrmTableEditor
OnClick = listColumnsClick
OnCreateEditor = listColumnsCreateEditor
OnDragOver = listColumnsDragOver
OnDragDrop = listColumnsDragDrop
OnEditing = listColumnsEditing
OnFocusChanged = listColumnsFocusChanged
OnGetText = listColumnsGetText

22
source/table_editor.pas
View File

@ -8,7 +8,7 @@ uses
SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
ComCtrls, ToolWin, laz.VirtualTrees, RegExpr, ExtCtrls, SynEdit,
Menus, Clipbrd, Math, UITypes, Generics.Collections, LCLProc, LCLType,
{grideditlinks,} dbstructures, dbstructures.mysql, dbconnection, apphelpers, StrUtils, extra_controls, ActiveX;
{grideditlinks,} dbstructures, dbstructures.mysql, dbconnection, apphelpers, StrUtils, extra_controls;
type
TFrame = TDBObjectEditor;
@ -111,8 +111,8 @@ type
procedure btnMoveDownColumnClick(Sender: TObject);
procedure listColumnsDragOver(Sender: TBaseVirtualTree; Source: TObject; Shift: TShiftState; State: TDragState;
Pt: TPoint; Mode: TDropMode; var Effect: Integer; var Accept: Boolean);
procedure listColumnsDragDrop(Sender: TBaseVirtualTree; Source: TObject; DataObject: IDataObject; Formats: TFormatArray;
Shift: TShiftState; const Pt: TPoint; var Effect: LongWord; Mode: TDropMode);
//procedure listColumnsDragDrop(Sender: TBaseVirtualTree; Source: TObject; DataObject: IDataObject; Formats: TFormatArray;
// Shift: TShiftState; const Pt: TPoint; var Effect: LongWord; Mode: TDropMode);
procedure listColumnsPaintText(Sender: TBaseVirtualTree; const TargetCanvas: TCanvas; Node: PVirtualNode;
Column: TColumnIndex; TextType: TVSTTextType);
procedure listColumnsCreateEditor(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; out EditLink: IVTEditLink);
@ -138,9 +138,9 @@ type
procedure treeIndexesDragOver(Sender: TBaseVirtualTree; Source: TObject;
Shift: TShiftState; State: TDragState; Pt: TPoint; Mode: TDropMode;
var Effect: Integer; var Accept: Boolean);
procedure treeIndexesDragDrop(Sender: TBaseVirtualTree; Source: TObject;
DataObject: IDataObject; Formats: TFormatArray; Shift: TShiftState;
const Pt: TPoint; var Effect: LongWord; Mode: TDropMode);
//procedure treeIndexesDragDrop(Sender: TBaseVirtualTree; Source: TObject;
// DataObject: IDataObject; Formats: TFormatArray; Shift: TShiftState;
// const Pt: TPoint; var Effect: LongWord; Mode: TDropMode);
procedure treeIndexesNewText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; NewText: String);
procedure treeIndexesEditing(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; var Allowed: Boolean);
procedure treeIndexesFocusChanged(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex);
@ -1164,7 +1164,7 @@ begin
end;
procedure TfrmTableEditor.listColumnsDragDrop(Sender: TBaseVirtualTree;
{procedure TfrmTableEditor.listColumnsDragDrop(Sender: TBaseVirtualTree;
Source: TObject; DataObject: IDataObject; Formats: TFormatArray;
Shift: TShiftState; const Pt: TPoint; var Effect: LongWord; Mode: TDropMode);
var
@ -1180,7 +1180,7 @@ begin
listColumns.MoveTo(listColumns.FocusedNode, Node, AttachMode, False);
ValidateColumnControls;
end;
end;
end;}
procedure TfrmTableEditor.listColumnsBeforeCellPaint(Sender: TBaseVirtualTree;
@ -2366,7 +2366,7 @@ begin
end;
procedure TfrmTableEditor.treeIndexesDragDrop(Sender: TBaseVirtualTree;
{procedure TfrmTableEditor.treeIndexesDragDrop(Sender: TBaseVirtualTree;
Source: TObject; DataObject: IDataObject; Formats: TFormatArray;
Shift: TShiftState; const Pt: TPoint; var Effect: LongWord; Mode: TDropMode);
var
@ -2385,7 +2385,7 @@ begin
IndexNode := nil;
ColPos := 0;
if not Assigned(TargetNode) then begin
Beep;
MessageBeep(MB_ICONEXCLAMATION);
Exit;
end;
Mainform.LogSQL('TargetNode.Index: '+TargetNode.Index.ToString, lcDebug);
@ -2443,7 +2443,7 @@ begin
// Finally tell parent node to update its children
VT.ReinitChildren(IndexNode, False);
VT.Repaint;
end;
end;}
procedure TfrmTableEditor.btnMoveUpIndexClick(Sender: TObject);