mirror of
https://github.com/HeidiSQL/HeidiSQL.git
synced 2026-03-13 09:24:25 +08:00
e635ae557f
This follows a recommendation on https://wiki.lazarus.freepascal.org/High_DPI#High_DPI_in_Lazarus_1.8_and_above Refs #2344
112 lines
2.9 KiB
Plaintext
112 lines
2.9 KiB
Plaintext
object frmSelectDBObject: TfrmSelectDBObject
|
|
Left = 0
|
|
Height = 316
|
|
Top = 0
|
|
Width = 232
|
|
Caption = 'Select database object ...'
|
|
ClientHeight = 316
|
|
ClientWidth = 232
|
|
Color = clBtnFace
|
|
Constraints.MinHeight = 120
|
|
Constraints.MinWidth = 100
|
|
Position = poOwnerFormCenter
|
|
LCLVersion = '4.4.0.0'
|
|
OnCreate = FormCreate
|
|
OnDestroy = FormDestroy
|
|
OnShow = FormShow
|
|
object lblSelect: TLabel
|
|
Left = 8
|
|
Height = 15
|
|
Top = 8
|
|
Width = 174
|
|
BorderSpacing.Around = 5
|
|
Caption = 'Select database, table or column:'
|
|
end
|
|
object lblCustom: TLabel
|
|
AnchorSideBottom.Control = editDb
|
|
Left = 8
|
|
Height = 15
|
|
Top = 235
|
|
Width = 220
|
|
Anchors = [akLeft, akBottom]
|
|
BorderSpacing.Around = 5
|
|
Caption = '... or wildcard database (% and _ allowed):'
|
|
end
|
|
object TreeDBO: TLazVirtualStringTree
|
|
AnchorSideTop.Control = lblSelect
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 8
|
|
Height = 205
|
|
Top = 28
|
|
Width = 216
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
BorderSpacing.Around = 5
|
|
Header.AutoSizeIndex = 0
|
|
Header.Columns = <
|
|
item
|
|
Position = 0
|
|
Text = 'Name'
|
|
Width = 212
|
|
end
|
|
item
|
|
Options = [coAllowClick, coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coAllowFocus]
|
|
Position = 1
|
|
Text = 'Size'
|
|
end>
|
|
Header.Height = 26
|
|
Header.Options = [hoAutoResize, hoColumnResize, hoDrag, hoShowSortGlyphs]
|
|
Images = MainForm.ImageListMain
|
|
Indent = 16
|
|
Margin = 2
|
|
TabOrder = 0
|
|
TreeOptions.PaintOptions = [toHideFocusRect, toHotTrack, toShowButtons, toShowDropmark, toShowTreeLines, toThemeAware, toUseBlendedImages, toUseExplorerTheme, toHideTreeLinesIfThemed]
|
|
OnEnter = ValidateControls
|
|
OnFocusChanged = TreeDBOFocusChanged
|
|
OnGetText = TreeDBOGetText
|
|
OnPaintText = TreeDBOPaintText
|
|
OnGetImageIndex = TreeDBOGetImageIndex
|
|
OnGetNodeDataSize = TreeDBOGetNodeDataSize
|
|
OnInitChildren = TreeDBOInitChildren
|
|
OnInitNode = TreeDBOInitNode
|
|
end
|
|
object btnOK: TButton
|
|
Left = 68
|
|
Height = 25
|
|
Top = 283
|
|
Width = 75
|
|
Anchors = [akRight, akBottom]
|
|
BorderSpacing.Around = 5
|
|
Caption = 'OK'
|
|
Default = True
|
|
Enabled = False
|
|
ModalResult = 1
|
|
TabOrder = 2
|
|
end
|
|
object btnCancel: TButton
|
|
Left = 149
|
|
Height = 25
|
|
Top = 283
|
|
Width = 75
|
|
Anchors = [akRight, akBottom]
|
|
BorderSpacing.Around = 5
|
|
Cancel = True
|
|
Caption = 'Cancel'
|
|
ModalResult = 2
|
|
TabOrder = 3
|
|
end
|
|
object editDb: TEdit
|
|
AnchorSideBottom.Control = btnOK
|
|
Left = 8
|
|
Height = 23
|
|
Top = 255
|
|
Width = 216
|
|
Anchors = [akLeft, akRight, akBottom]
|
|
BorderSpacing.Around = 5
|
|
TabOrder = 1
|
|
Text = 'editDb'
|
|
TextHint = 'database'
|
|
OnChange = ValidateControls
|
|
OnEnter = ValidateControls
|
|
end
|
|
end
|