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 #1482: fix more anchor siblings, disable TExtForm.PageControlTabHighlight

Browse Source
This commit is contained in:
Ansgar Becker
2025-04-02 13:58:14 +02:00
parent 14950f416d
commit 7db196e9de
5 changed files with 269 additions and 131 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
source/createdatabase.lfm
View File

@ -3,7 +3,6 @@ object CreateDatabaseForm: TCreateDatabaseForm
Height = 284 Height = 284
Top = 0 Top = 0
Width = 396 Width = 396
BorderStyle = bsDialog
Caption = 'Create database ...' Caption = 'Create database ...'
ClientHeight = 284 ClientHeight = 284
ClientWidth = 396 ClientWidth = 396
@ -37,10 +36,12 @@ object CreateDatabaseForm: TCreateDatabaseForm
object lblCreateCode: TLabel object lblCreateCode: TLabel
AnchorSideTop.Control = btnOK AnchorSideTop.Control = btnOK
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 10 Left = 10
Height = 20 Height = 20
Top = 137 Top = 137
Width = 81 Width = 380
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'CREATE code' Caption = 'CREATE code'
@ -48,10 +49,12 @@ object CreateDatabaseForm: TCreateDatabaseForm
object lblServerDefaultCollation: TLabel object lblServerDefaultCollation: TLabel
AnchorSideTop.Control = comboCollation AnchorSideTop.Control = comboCollation
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 120 Left = 120
Height = 20 Height = 20
Top = 74 Top = 74
Width = 103 Width = 270
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'Servers default:' Caption = 'Servers default:'

2
source/extra_controls.pas
View File

@ -446,6 +446,8 @@ var
GrayscaleMode: Integer; GrayscaleMode: Integer;
IsQueryTab, DoGrayscale: Boolean; IsQueryTab, DoGrayscale: Boolean;
begin begin
// Unsupported yet. We have no TVirtualImageList, see MainForm.PrepareImageList
Exit;
// Set grayscale icon on inactive tabs // Set grayscale icon on inactive tabs
if not (PageControl.Images is TImageList) then if not (PageControl.Images is TImageList) then
Exit; Exit;

142
source/insertfiles.lfm
View File

@ -16,9 +16,12 @@ object frmInsertFiles: TfrmInsertFiles
OnShow = FormShow OnShow = FormShow
Position = poOwnerFormCenter Position = poOwnerFormCenter
object btnInsert: TButton object btnInsert: TButton
Left = 341 AnchorSideRight.Control = btnCancel
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 346
Height = 31 Height = 31
Top = 573 Top = 577
Width = 162 Width = 162
Anchors = [akRight, akBottom] Anchors = [akRight, akBottom]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -30,9 +33,13 @@ object frmInsertFiles: TfrmInsertFiles
OnClick = btnInsertClick OnClick = btnInsertClick
end end
object btnCancel: TButton object btnCancel: TButton
Left = 510 AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 514
Height = 31 Height = 31
Top = 573 Top = 577
Width = 119 Width = 119
Anchors = [akRight, akBottom] Anchors = [akRight, akBottom]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -42,39 +49,52 @@ object frmInsertFiles: TfrmInsertFiles
TabOrder = 0 TabOrder = 0
end end
object grpSelectObject: TGroupBox object grpSelectObject: TGroupBox
Left = 10 AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 6
Height = 292 Height = 292
Top = 10 Top = 6
Width = 619 Width = 627
Anchors = [akTop, akLeft, akRight] Align = alTop
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'Target table and columns' Caption = 'Target table and columns'
ClientHeight = 267 ClientHeight = 267
ClientWidth = 615 ClientWidth = 623
ParentBackground = False ParentBackground = False
TabOrder = 2 TabOrder = 2
object lblTable: TLabel object lblTable: TLabel
Left = 12 AnchorSideLeft.Control = grpSelectObject
AnchorSideTop.Control = grpSelectObject
Left = 6
Height = 20 Height = 20
Top = 8 Top = 6
Width = 107 Width = 107
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'Database, table:' Caption = 'Database, table:'
end end
object lblFilecontents: TLabel object lblFilecontents: TLabel
AnchorSideLeft.Control = grpSelectObject
AnchorSideTop.Control = comboDBs AnchorSideTop.Control = comboDBs
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 12 AnchorSideRight.Control = grpSelectObject
AnchorSideRight.Side = asrBottom
Left = 6
Height = 20 Height = 20
Top = 39 Top = 40
Width = 515 Width = 611
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'Column values (Hint: Assign "%filecontent%" value to a BLOB or TEXT column)' Caption = 'Column values (Hint: Assign "%filecontent%" value to a BLOB or TEXT column)'
end end
object comboDBs: TComboBox object comboDBs: TComboBox
Left = 212 AnchorSideLeft.Control = lblTable
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = grpSelectObject
Left = 119
Height = 28 Height = 28
Top = 5 Top = 6
Width = 189 Width = 189
BorderSpacing.Around = 6 BorderSpacing.Around = 6
ItemHeight = 20 ItemHeight = 20
@ -83,10 +103,15 @@ object frmInsertFiles: TfrmInsertFiles
OnChange = comboDBsChange OnChange = comboDBsChange
end end
object comboTables: TComboBox object comboTables: TComboBox
Left = 409 AnchorSideLeft.Control = comboDBs
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = grpSelectObject
AnchorSideRight.Control = grpSelectObject
AnchorSideRight.Side = asrBottom
Left = 314
Height = 28 Height = 28
Top = 5 Top = 6
Width = 195 Width = 303
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
ItemHeight = 20 ItemHeight = 20
@ -95,13 +120,18 @@ object frmInsertFiles: TfrmInsertFiles
OnChange = comboTablesChange OnChange = comboTablesChange
end end
object ListColumns: TLazVirtualStringTree object ListColumns: TLazVirtualStringTree
AnchorSideLeft.Control = grpSelectObject
AnchorSideTop.Control = lblFilecontents AnchorSideTop.Control = lblFilecontents
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 12 AnchorSideRight.Control = grpSelectObject
Height = 189 AnchorSideRight.Side = asrBottom
Top = 65 AnchorSideBottom.Control = grpSelectObject
Width = 592 AnchorSideBottom.Side = asrBottom
Anchors = [akTop, akLeft, akRight] Left = 6
Height = 195
Top = 66
Width = 611
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
EditDelay = 0 EditDelay = 0
Header.AutoSizeIndex = 2 Header.AutoSizeIndex = 2
@ -122,7 +152,7 @@ object frmInsertFiles: TfrmInsertFiles
Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible, coAllowFocus] Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible, coAllowFocus]
Position = 2 Position = 2
Text = 'Value' Text = 'Value'
Width = 363 Width = 382
end> end>
Header.Height = 32 Header.Height = 32
Header.Images = MainForm.ImageListIcons8 Header.Images = MainForm.ImageListIcons8
@ -142,22 +172,33 @@ object frmInsertFiles: TfrmInsertFiles
end end
end end
object GroupBox2: TGroupBox object GroupBox2: TGroupBox
Left = 10 AnchorSideLeft.Control = Owner
Height = 255 AnchorSideTop.Control = grpSelectObject
Top = 310 AnchorSideTop.Side = asrBottom
Width = 619 AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = btnInsert
Left = 6
Height = 267
Top = 304
Width = 627
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'Files to import' Caption = 'Files to import'
ClientHeight = 230 ClientHeight = 242
ClientWidth = 615 ClientWidth = 623
ParentBackground = False ParentBackground = False
TabOrder = 3 TabOrder = 3
object lblDropHint: TLabel object lblDropHint: TLabel
Left = 310 AnchorSideLeft.Control = ToolBar1
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = GroupBox2
AnchorSideRight.Control = GroupBox2
AnchorSideRight.Side = asrBottom
Left = 302
Height = 28 Height = 28
Top = 17 Top = 6
Width = 290 Width = 315
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoSize = False AutoSize = False
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -165,24 +206,30 @@ object frmInsertFiles: TfrmInsertFiles
Layout = tlCenter Layout = tlCenter
end end
object lblFileCount: TLabel object lblFileCount: TLabel
AnchorSideLeft.Control = GroupBox2
AnchorSideTop.Control = ListFiles AnchorSideTop.Control = ListFiles
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 12 AnchorSideBottom.Control = GroupBox2
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 20 Height = 20
Top = 195 Top = 216
Width = 39 Width = 39
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = '0 files' Caption = '0 files'
end end
object ListFiles: TLazVirtualStringTree object ListFiles: TLazVirtualStringTree
AnchorSideLeft.Control = GroupBox2
AnchorSideTop.Control = ToolBar1 AnchorSideTop.Control = ToolBar1
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = GroupBox2
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = lblFileCount AnchorSideBottom.Control = lblFileCount
Left = 12 Left = 6
Height = 138 Height = 170
Top = 51 Top = 40
Width = 592 Width = 611
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Header.AutoSizeIndex = 0 Header.AutoSizeIndex = 0
@ -190,7 +237,7 @@ object frmInsertFiles: TfrmInsertFiles
item item
Position = 0 Position = 0
Text = 'Filename' Text = 'Filename'
Width = 400 Width = 419
end end
item item
CheckBox = True CheckBox = True
@ -229,29 +276,32 @@ object frmInsertFiles: TfrmInsertFiles
OnStructureChange = ListFilesStructureChange OnStructureChange = ListFilesStructureChange
end end
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 12 AnchorSideLeft.Control = GroupBox2
AnchorSideTop.Control = GroupBox2
Left = 6
Height = 28 Height = 28
Top = 17 Top = 6
Width = 290 Width = 290
Align = alNone Align = alNone
BorderSpacing.Around = 6 BorderSpacing.Around = 6
ButtonHeight = 35 ButtonHeight = 35
ButtonWidth = 82 ButtonWidth = 82
Caption = 'ToolBarFiles' Caption = 'ToolBarFiles'
EdgeBorders = []
Images = MainForm.ImageListIcons8 Images = MainForm.ImageListIcons8
List = True List = True
ShowCaptions = True ShowCaptions = True
TabOrder = 1 TabOrder = 1
object btnAddFiles: TToolButton object btnAddFiles: TToolButton
Left = 1 Left = 1
Top = 2 Top = 0
Caption = 'Add' Caption = 'Add'
ImageIndex = 45 ImageIndex = 45
OnClick = btnAddFilesClick OnClick = btnAddFilesClick
end end
object btnRemoveFiles: TToolButton object btnRemoveFiles: TToolButton
Left = 83 Left = 83
Top = 2 Top = 0
Caption = 'Remove' Caption = 'Remove'
Enabled = False Enabled = False
ImageIndex = 46 ImageIndex = 46
@ -259,7 +309,7 @@ object frmInsertFiles: TfrmInsertFiles
end end
object btnClearFiles: TToolButton object btnClearFiles: TToolButton
Left = 168 Left = 168
Top = 2 Top = 0
Caption = 'Clear' Caption = 'Clear'
Enabled = False Enabled = False
ImageIndex = 26 ImageIndex = 26

150
source/sqlhelp.lfm
View File

@ -3,7 +3,6 @@ object frmSQLhelp: TfrmSQLhelp
Height = 444 Height = 444
Top = 0 Top = 0
Width = 728 Width = 728
BorderWidth = 10
Caption = 'Integrated SQL-help' Caption = 'Integrated SQL-help'
ClientHeight = 444 ClientHeight = 444
ClientWidth = 728 ClientWidth = 728
@ -15,40 +14,54 @@ object frmSQLhelp: TfrmSQLhelp
OnDestroy = FormDestroy OnDestroy = FormDestroy
OnShow = FormShow OnShow = FormShow
object pnlMain: TPanel object pnlMain: TPanel
Left = 10 AnchorSideLeft.Control = Owner
Height = 382 AnchorSideTop.Control = Owner
Top = 10 AnchorSideRight.Control = Owner
Width = 708 AnchorSideRight.Side = asrBottom
Left = 6
Height = 384
Top = 6
Width = 716
Align = alClient Align = alClient
BorderSpacing.Around = 6
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 382 ClientHeight = 384
ClientWidth = 708 ClientWidth = 716
ParentBackground = False ParentBackground = False
TabOrder = 0 TabOrder = 0
object Splitter1: TSplitter object Splitter1: TSplitter
Cursor = crSizeWE Cursor = crSizeWE
Left = 191 Left = 191
Height = 382 Height = 384
Top = 0 Top = 0
Width = 10 Width = 10
end end
object pnlLeft: TPanel object pnlLeft: TPanel
AnchorSideLeft.Control = pnlMain
AnchorSideTop.Control = pnlMain
AnchorSideRight.Control = Splitter1
AnchorSideRight.Side = asrBottom
Left = 0 Left = 0
Height = 382 Height = 384
Top = 0 Top = 0
Width = 191 Width = 191
Align = alLeft Align = alLeft
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 382 ClientHeight = 384
ClientWidth = 191 ClientWidth = 191
ParentBackground = False ParentBackground = False
TabOrder = 0 TabOrder = 0
object editFilter: TEditButton object editFilter: TEditButton
Left = 0 AnchorSideLeft.Control = pnlLeft
AnchorSideTop.Control = pnlLeft
AnchorSideRight.Control = pnlLeft
AnchorSideRight.Side = asrBottom
Left = 2
Height = 28 Height = 28
Top = 0 Top = 2
Width = 191 Width = 187
Align = alTop Align = alTop
BorderSpacing.Around = 2
ButtonWidth = 29 ButtonWidth = 29
Images = MainForm.ImageListIcons8 Images = MainForm.ImageListIcons8
ImageIndex = 193 ImageIndex = 193
@ -61,11 +74,16 @@ object frmSQLhelp: TfrmSQLhelp
TextHint = 'Filter' TextHint = 'Filter'
end end
object treeTopics: TLazVirtualStringTree object treeTopics: TLazVirtualStringTree
Left = 0 AnchorSideLeft.Control = pnlLeft
Height = 354 AnchorSideTop.Control = editFilter
Top = 28 AnchorSideRight.Control = pnlLeft
Width = 191 AnchorSideRight.Side = asrBottom
Left = 2
Height = 350
Top = 32
Width = 187
Align = alClient Align = alClient
BorderSpacing.Around = 2
Constraints.MinWidth = 38 Constraints.MinWidth = 38
Header.AutoSizeIndex = 0 Header.AutoSizeIndex = 0
Header.Columns = <> Header.Columns = <>
@ -83,55 +101,73 @@ object frmSQLhelp: TfrmSQLhelp
end end
end end
object pnlRight: TPanel object pnlRight: TPanel
AnchorSideLeft.Control = Splitter1
AnchorSideTop.Control = pnlMain
AnchorSideRight.Control = pnlMain
AnchorSideRight.Side = asrBottom
Left = 201 Left = 201
Height = 382 Height = 384
Top = 0 Top = 0
Width = 507 Width = 515
Align = alClient Align = alClient
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 382 ClientHeight = 384
ClientWidth = 507 ClientWidth = 515
ParentBackground = False ParentBackground = False
TabOrder = 1 TabOrder = 1
object Splitter2: TSplitter object Splitter2: TSplitter
Cursor = crVSplit Cursor = crVSplit
Left = 0 Left = 0
Height = 10 Height = 10
Top = 212 Top = 220
Width = 507 Width = 515
Align = alTop Align = alTop
ResizeAnchor = akTop ResizeAnchor = akTop
end end
object lblDescription: TLabel object lblDescription: TLabel
Left = 0 AnchorSideLeft.Control = pnlRight
AnchorSideTop.Control = pnlRight
AnchorSideRight.Control = pnlRight
AnchorSideRight.Side = asrBottom
Left = 2
Height = 20 Height = 20
Top = 1 Top = 5
Width = 507 Width = 511
Align = alTop Align = alTop
BorderSpacing.Around = 2
Caption = 'Description:' Caption = 'Description:'
end end
object lblKeyword: TLabel object lblKeyword: TLabel
Left = 0 Left = 2
Height = 1 Height = 1
Top = 0 Top = 2
Width = 507 Width = 511
Align = alTop Align = alTop
BorderSpacing.Around = 2
ShowAccelChar = False ShowAccelChar = False
end end
object lblExample: TLabel object lblExample: TLabel
Left = 0 AnchorSideTop.Control = Splitter2
AnchorSideTop.Side = asrBottom
Left = 2
Height = 20 Height = 20
Top = 222 Top = 232
Width = 507 Width = 511
Align = alTop Align = alTop
BorderSpacing.Around = 2
Caption = 'Example:' Caption = 'Example:'
end end
inline memoDescription: TSynEdit inline memoDescription: TSynEdit
Left = 0 AnchorSideTop.Control = lblDescription
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = pnlRight
AnchorSideRight.Side = asrBottom
Left = 2
Height = 191 Height = 191
Top = 21 Top = 27
Width = 507 Width = 511
Align = alTop Align = alTop
BorderSpacing.Around = 2
Constraints.MinHeight = 38 Constraints.MinHeight = 38
Font.Height = -16 Font.Height = -16
Font.Name = 'Courier New' Font.Name = 'Courier New'
@ -211,11 +247,12 @@ object frmSQLhelp: TfrmSQLhelp
end end
end end
inline MemoExample: TSynEdit inline MemoExample: TSynEdit
Left = 0 Left = 2
Height = 140 Height = 128
Top = 242 Top = 254
Width = 507 Width = 511
Align = alClient Align = alClient
BorderSpacing.Around = 2
Constraints.MinHeight = 38 Constraints.MinHeight = 38
Font.Height = -16 Font.Height = -16
Font.Name = 'Courier New' Font.Name = 'Courier New'
@ -297,33 +334,44 @@ object frmSQLhelp: TfrmSQLhelp
end end
end end
object pnlBottom: TPanel object pnlBottom: TPanel
Left = 10 Left = 6
Height = 42 Height = 42
Top = 392 Top = 396
Width = 708 Width = 716
Align = alBottom Align = alBottom
AutoSize = True
BorderSpacing.Around = 6
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 42 ClientHeight = 42
ClientWidth = 708 ClientWidth = 716
ParentBackground = False ParentBackground = False
TabOrder = 1 TabOrder = 1
object btnSearchOnline: TSpeedButton object btnSearchOnline: TSpeedButton
Left = 444 AnchorSideTop.Control = pnlBottom
Height = 31 AnchorSideRight.Control = ButtonClose
Top = 8 Left = 529
Width = 129 Height = 24
Top = 6
Width = 113
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Around = 6
Caption = 'Search online' Caption = 'Search online'
Images = MainForm.ImageListIcons8 Images = MainForm.ImageListIcons8
ImageIndex = 69 ImageIndex = 69
OnClick = ButtonOnlinehelpClick OnClick = ButtonOnlinehelpClick
end end
object ButtonClose: TButton object ButtonClose: TButton
Left = 580 AnchorSideTop.Control = pnlBottom
Height = 31 AnchorSideRight.Control = pnlBottom
Top = 8 AnchorSideRight.Side = asrBottom
Width = 128 Left = 648
Height = 30
Top = 6
Width = 62
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Around = 6
Cancel = True Cancel = True
Caption = 'Close' Caption = 'Close'
Default = True Default = True

97
source/updatecheck.lfm
View File

@ -16,11 +16,17 @@ object frmUpdateCheck: TfrmUpdateCheck
OnShow = FormShow OnShow = FormShow
Position = poOwnerFormCenter Position = poOwnerFormCenter
object lblStatus: TLabel object lblStatus: TLabel
Left = 10 AnchorSideLeft.Control = Owner
Height = 48 AnchorSideTop.Control = groupBuild
Top = 455 AnchorSideTop.Side = asrBottom
Width = 262 AnchorSideRight.Control = btnCancel
Anchors = [akLeft, akRight, akBottom] AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 31
Top = 468
Width = 300
Anchors = [akTop, akLeft, akRight, akBottom]
AutoSize = False AutoSize = False
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'lblStatus' Caption = 'lblStatus'
@ -28,9 +34,13 @@ object frmUpdateCheck: TfrmUpdateCheck
WordWrap = True WordWrap = True
end end
object btnCancel: TButton object btnCancel: TButton
Left = 308 AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 312
Height = 31 Height = 31
Top = 464 Top = 468
Width = 132 Width = 132
Anchors = [akRight, akBottom] Anchors = [akRight, akBottom]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -41,23 +51,33 @@ object frmUpdateCheck: TfrmUpdateCheck
TabOrder = 3 TabOrder = 3
end end
object groupBuild: TGroupBox object groupBuild: TGroupBox
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = groupRelease
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = btnCancel AnchorSideBottom.Control = btnCancel
Left = 10 Left = 6
Height = 218 Height = 230
Top = 240 Top = 232
Width = 430 Width = 438
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'Nightly build' Caption = 'Nightly build'
ClientHeight = 193 ClientHeight = 205
ClientWidth = 426 ClientWidth = 434
ParentBackground = False ParentBackground = False
TabOrder = 2 TabOrder = 2
object btnBuild: TButton object btnBuild: TButton
Left = 8 AnchorSideLeft.Control = groupBuild
AnchorSideRight.Control = groupBuild
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = groupBuild
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 31 Height = 31
Top = 153 Top = 168
Width = 409 Width = 422
Anchors = [akLeft, akRight, akBottom] Anchors = [akLeft, akRight, akBottom]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'Download nightly build' Caption = 'Download nightly build'
@ -68,10 +88,15 @@ object frmUpdateCheck: TfrmUpdateCheck
OnClick = btnBuildClick OnClick = btnBuildClick
end end
object memoBuild: TMemo object memoBuild: TMemo
Left = 8 AnchorSideLeft.Control = groupBuild
Height = 93 AnchorSideTop.Control = groupBuild
Top = 11 AnchorSideRight.Control = groupBuild
Width = 409 AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = btnChangelog
Left = 6
Height = 119
Top = 6
Width = 422
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
BorderStyle = bsNone BorderStyle = bsNone
@ -88,11 +113,14 @@ object frmUpdateCheck: TfrmUpdateCheck
TabOrder = 0 TabOrder = 0
end end
object btnChangelog: TButton object btnChangelog: TButton
AnchorSideLeft.Control = groupBuild
AnchorSideRight.Control = groupBuild
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = btnBuild AnchorSideBottom.Control = btnBuild
Left = 8 Left = 6
Height = 31 Height = 31
Top = 116 Top = 131
Width = 409 Width = 422
Anchors = [akLeft, akRight, akBottom] Anchors = [akLeft, akRight, akBottom]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'View changelog' Caption = 'View changelog'
@ -101,17 +129,20 @@ object frmUpdateCheck: TfrmUpdateCheck
end end
end end
object groupRelease: TGroupBox object groupRelease: TGroupBox
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = btnDonate AnchorSideTop.Control = btnDonate
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 10 AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 6
Height = 122 Height = 122
Top = 108 Top = 104
Width = 430 Width = 438
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'Official release' Caption = 'Official release'
ClientHeight = 97 ClientHeight = 97
ClientWidth = 426 ClientWidth = 434
Enabled = False Enabled = False
ParentBackground = False ParentBackground = False
TabOrder = 1 TabOrder = 1
@ -119,7 +150,7 @@ object frmUpdateCheck: TfrmUpdateCheck
Left = 8 Left = 8
Height = 59 Height = 59
Top = 5 Top = 5
Width = 409 Width = 417
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
BorderStyle = bsNone BorderStyle = bsNone
@ -145,10 +176,14 @@ object frmUpdateCheck: TfrmUpdateCheck
end end
end end
object btnDonate: TButton object btnDonate: TButton
Left = 10 AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 6
Height = 92 Height = 92
Top = 10 Top = 6
Width = 430 Width = 438
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'Donate' Caption = 'Donate'