mirror of
https://github.com/HeidiSQL/HeidiSQL.git
synced 2026-03-13 09:24:25 +08:00
This follows a recommendation on https://wiki.lazarus.freepascal.org/High_DPI#High_DPI_in_Lazarus_1.8_and_above Refs #2344
221 lines
6.6 KiB
Plaintext
221 lines
6.6 KiB
Plaintext
object CopyTableForm: TCopyTableForm
|
|
Left = 393
|
|
Height = 304
|
|
Top = 115
|
|
Width = 364
|
|
Caption = 'Copy Table...'
|
|
ClientHeight = 304
|
|
ClientWidth = 364
|
|
Color = clBtnFace
|
|
Position = poMainFormCenter
|
|
LCLVersion = '4.4.0.0'
|
|
OnClose = FormClose
|
|
OnCreate = FormCreate
|
|
OnDestroy = FormDestroy
|
|
OnResize = FormResize
|
|
OnShow = FormShow
|
|
object lblNewTablename: TLabel
|
|
AnchorSideLeft.Control = Owner
|
|
AnchorSideTop.Control = Owner
|
|
Left = 5
|
|
Height = 15
|
|
Top = 5
|
|
Width = 144
|
|
BorderSpacing.Left = 5
|
|
BorderSpacing.Top = 5
|
|
Caption = 'Copy "%s" to new db.table:'
|
|
end
|
|
object lblItems: TLabel
|
|
AnchorSideLeft.Control = comboDatabase
|
|
AnchorSideTop.Control = editNewTablename
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 5
|
|
Height = 15
|
|
Top = 53
|
|
Width = 167
|
|
BorderSpacing.Top = 5
|
|
Caption = 'Elements to create in new table:'
|
|
end
|
|
object lblWhere: TLabel
|
|
AnchorSideLeft.Control = TreeElements
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideBottom.Control = MemoFilter
|
|
Left = 5
|
|
Height = 15
|
|
Top = 176
|
|
Width = 168
|
|
Anchors = [akLeft, akBottom]
|
|
BorderSpacing.Bottom = 5
|
|
Caption = 'WHERE clause for data copying:'
|
|
end
|
|
object editNewTablename: TEdit
|
|
AnchorSideLeft.Control = comboDatabase
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideTop.Control = lblNewTablename
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideRight.Control = Owner
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 155
|
|
Height = 23
|
|
Top = 25
|
|
Width = 204
|
|
Anchors = [akTop, akLeft, akRight]
|
|
BorderSpacing.Left = 5
|
|
BorderSpacing.Top = 5
|
|
BorderSpacing.Right = 5
|
|
TabOrder = 1
|
|
OnChange = editNewTablenameChange
|
|
end
|
|
object btnCancel: TButton
|
|
AnchorSideRight.Control = Owner
|
|
AnchorSideRight.Side = asrBottom
|
|
AnchorSideBottom.Control = Owner
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 276
|
|
Height = 25
|
|
Top = 274
|
|
Width = 83
|
|
Anchors = [akRight, akBottom]
|
|
BorderSpacing.Right = 5
|
|
BorderSpacing.Bottom = 5
|
|
Cancel = True
|
|
Caption = 'Cancel'
|
|
ModalResult = 2
|
|
TabOrder = 5
|
|
end
|
|
object comboDatabase: TComboBox
|
|
AnchorSideLeft.Control = lblNewTablename
|
|
AnchorSideTop.Control = lblNewTablename
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 5
|
|
Height = 23
|
|
Top = 25
|
|
Width = 145
|
|
BorderSpacing.Top = 5
|
|
ItemHeight = 15
|
|
Style = csDropDownList
|
|
TabOrder = 0
|
|
end
|
|
object btnOK: TButton
|
|
AnchorSideRight.Control = btnCancel
|
|
AnchorSideBottom.Control = Owner
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 188
|
|
Height = 25
|
|
Top = 274
|
|
Width = 83
|
|
Anchors = [akRight, akBottom]
|
|
BorderSpacing.Right = 5
|
|
BorderSpacing.Bottom = 5
|
|
Caption = 'OK'
|
|
Default = True
|
|
ModalResult = 1
|
|
TabOrder = 4
|
|
OnClick = btnOKClick
|
|
end
|
|
object TreeElements: TLazVirtualStringTree
|
|
AnchorSideLeft.Control = comboDatabase
|
|
AnchorSideTop.Control = lblItems
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideRight.Control = Owner
|
|
AnchorSideRight.Side = asrBottom
|
|
AnchorSideBottom.Control = btnRecentFilters
|
|
Left = 5
|
|
Height = 87
|
|
Top = 73
|
|
Width = 354
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
BorderSpacing.Top = 5
|
|
BorderSpacing.Right = 5
|
|
BorderSpacing.Bottom = 5
|
|
Header.AutoSizeIndex = 0
|
|
Header.Columns = <>
|
|
Header.MainColumn = -1
|
|
Images = MainForm.ImageListMain
|
|
TabOrder = 2
|
|
TreeOptions.AutoOptions = [toAutoDropExpand, toAutoScroll, toAutoScrollOnExpand, toAutoTristateTracking, toAutoDeleteMovedNodes, toAutoChangeScale]
|
|
TreeOptions.MiscOptions = [toAcceptOLEDrop, toCheckSupport, toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning, toEditOnClick]
|
|
TreeOptions.PaintOptions = [toHotTrack, toShowButtons, toShowDropmark, toShowRoot, toShowTreeLines, toThemeAware, toUseBlendedImages, toUseExplorerTheme, toHideTreeLinesIfThemed]
|
|
OnChecked = TreeElementsChecked
|
|
OnGetText = TreeElementsGetText
|
|
OnGetImageIndex = TreeElementsGetImageIndex
|
|
OnInitChildren = TreeElementsInitChildren
|
|
OnInitNode = TreeElementsInitNode
|
|
end
|
|
inline MemoFilter: TSynEdit
|
|
AnchorSideLeft.Control = TreeElements
|
|
AnchorSideRight.Control = Owner
|
|
AnchorSideRight.Side = asrBottom
|
|
AnchorSideBottom.Control = btnOK
|
|
Left = 5
|
|
Height = 73
|
|
Top = 196
|
|
Width = 354
|
|
BorderSpacing.Right = 5
|
|
BorderSpacing.Bottom = 5
|
|
Anchors = [akLeft, akRight, akBottom]
|
|
Font.Color = clGrayText
|
|
Font.Height = -13
|
|
Font.Name = 'Courier New'
|
|
Font.Pitch = fpFixed
|
|
Font.Quality = fqNonAntialiased
|
|
ParentColor = False
|
|
ParentFont = False
|
|
TabOrder = 3
|
|
Gutter.Width = 0
|
|
Gutter.MouseActions = <>
|
|
RightGutter.Width = 0
|
|
RightGutter.MouseActions = <>
|
|
Highlighter = MainForm.SynSQLSynUsed
|
|
Keystrokes = <>
|
|
MouseActions = <>
|
|
MouseTextActions = <>
|
|
MouseSelActions = <>
|
|
Options = [eoAutoIndent, eoGroupUndo, eoKeepCaretX, eoShowScrollHint, eoSmartTabs, eoTabIndent, eoDragDropEditing]
|
|
MouseOptions = [emDragDropEditing]
|
|
VisibleSpecialChars = [vscSpace, vscTabAtLast]
|
|
SelectedColor.BackPriority = 50
|
|
SelectedColor.ForePriority = 50
|
|
SelectedColor.FramePriority = 50
|
|
SelectedColor.BoldPriority = 50
|
|
SelectedColor.ItalicPriority = 50
|
|
SelectedColor.UnderlinePriority = 50
|
|
SelectedColor.StrikeOutPriority = 50
|
|
BracketHighlightStyle = sbhsBoth
|
|
BracketMatchColor.Background = clNone
|
|
BracketMatchColor.Foreground = clNone
|
|
BracketMatchColor.Style = [fsBold]
|
|
FoldedCodeColor.Background = clNone
|
|
FoldedCodeColor.Foreground = clGray
|
|
FoldedCodeColor.FrameColor = clGray
|
|
MouseLinkColor.Background = clNone
|
|
MouseLinkColor.Foreground = clBlue
|
|
LineHighlightColor.Background = clNone
|
|
LineHighlightColor.Foreground = clNone
|
|
inline SynLeftGutterPartList1: TSynGutterPartList
|
|
end
|
|
end
|
|
object btnRecentFilters: TSpeedButton
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideRight.Control = Owner
|
|
AnchorSideRight.Side = asrBottom
|
|
AnchorSideBottom.Control = MemoFilter
|
|
Left = 261
|
|
Height = 26
|
|
Top = 165
|
|
Width = 98
|
|
Anchors = [akRight, akBottom]
|
|
AutoSize = True
|
|
BorderSpacing.Right = 5
|
|
BorderSpacing.Bottom = 5
|
|
Caption = 'Recent filters'
|
|
Images = MainForm.ImageListMain
|
|
ImageIndex = 108
|
|
OnClick = btnRecentFiltersClick
|
|
end
|
|
object popupRecentFilters: TPopupMenu
|
|
Left = 208
|
|
Top = 160
|
|
end
|
|
end
|