diff --git a/source/connections.dfm b/source/connections.dfm index ecaafda6..c206c509 100644 --- a/source/connections.dfm +++ b/source/connections.dfm @@ -213,561 +213,594 @@ object connform: Tconnform object tabSettings: TTabSheet Caption = 'Settings' ImageIndex = 39 - DesignSize = ( - 417 - 287) - object lblPort: TLabel - Left = 3 - Top = 168 - Width = 24 - Height = 13 - Caption = 'Port:' - FocusControl = editPort - end - object lblPassword: TLabel - Left = 3 - Top = 143 - Width = 50 - Height = 13 - Caption = 'Password:' - FocusControl = editPassword - end - object lblHost: TLabel - Left = 3 - Top = 45 - Width = 72 - Height = 13 - Caption = 'Hostname / IP:' - FocusControl = editHost - end - object lblUsername: TLabel - Left = 3 - Top = 118 - Width = 26 - Height = 13 - Caption = 'User:' - FocusControl = editUsername - end - object lblNetworkType: TLabel - Left = 3 - Top = 12 - Width = 69 - Height = 13 - Caption = 'Network type:' - end - object lblDatabase: TLabel - Left = 3 - Top = 216 - Width = 55 - Height = 13 - Caption = 'Databases:' - end - object lblComment: TLabel - Left = 3 - Top = 241 - Width = 49 - Height = 13 - Caption = 'Comment:' - end - object chkCompressed: TCheckBox - Left = 120 - Top = 190 - Width = 294 - Height = 17 - Anchors = [akLeft, akTop, akRight] - Caption = 'Compressed client/server protocol' - TabOrder = 8 - OnClick = Modification - end - object editPort: TEdit - Left = 120 - Top = 165 - Width = 57 - Height = 21 - TabOrder = 6 - Text = '0' - OnChange = Modification - end - object updownPort: TUpDown - Left = 177 - Top = 165 - Width = 16 - Height = 21 - Associate = editPort - Max = 2147483647 - TabOrder = 7 - Thousands = False - Wrap = True - end - object editPassword: TEdit - Left = 120 - Top = 140 - Width = 294 - Height = 21 - Anchors = [akLeft, akTop, akRight] - PasswordChar = '*' - TabOrder = 5 - OnChange = Modification - end - object editUsername: TEdit - Left = 120 - Top = 115 - Width = 294 - Height = 21 - Anchors = [akLeft, akTop, akRight] - TabOrder = 4 - OnChange = Modification - end - object editHost: TEdit - Left = 120 - Top = 42 - Width = 294 - Height = 21 - Anchors = [akLeft, akTop, akRight] - TabOrder = 1 - OnChange = editHostChange - end - object comboNetType: TComboBox - Left = 120 - Top = 9 - Width = 294 - Height = 21 - Style = csDropDownList - Anchors = [akLeft, akTop, akRight] - DropDownCount = 12 - ItemIndex = 0 + object pnlDpiHelperSettings: TPanel + Left = 0 + Top = 0 + Width = 417 + Height = 287 + Align = alClient + BevelOuter = bvNone + Caption = 'pnlDpiHelperSettings' + ShowCaption = False TabOrder = 0 - Text = 'TCP/IP' - OnChange = comboNetTypeChange - Items.Strings = ( - 'TCP/IP' - 'Named pipe' - 'SSH tunnel' - 'MSSQL') - end - object chkLoginPrompt: TCheckBox - Left = 120 - Top = 69 - Width = 294 - Height = 17 - Anchors = [akLeft, akTop, akRight] - Caption = 'Prompt for credentials' - TabOrder = 2 - OnClick = chkLoginPromptClick - end - object chkWindowsAuth: TCheckBox - Left = 120 - Top = 92 - Width = 294 - Height = 17 - Anchors = [akLeft, akTop, akRight] - Caption = 'Use Windows authentication' - Enabled = False - TabOrder = 3 - OnClick = chkLoginPromptClick - end - object memoComment: TMemo - Left = 120 - Top = 238 - Width = 294 - Height = 35 - Anchors = [akLeft, akTop, akRight, akBottom] - ScrollBars = ssVertical - TabOrder = 10 - OnChange = Modification - end - object editDatabases: TButtonedEdit - Left = 120 - Top = 213 - Width = 294 - Height = 21 - Anchors = [akLeft, akTop, akRight] - Images = MainForm.ImageListMain - RightButton.ImageIndex = 75 - RightButton.Visible = True - TabOrder = 9 - TextHint = 'Separated by semicolon' - OnChange = Modification - OnRightButtonClick = editDatabasesRightButtonClick + DesignSize = ( + 417 + 287) + object lblPort: TLabel + Left = 3 + Top = 168 + Width = 24 + Height = 13 + Caption = 'Port:' + FocusControl = editPort + end + object lblPassword: TLabel + Left = 3 + Top = 143 + Width = 50 + Height = 13 + Caption = 'Password:' + FocusControl = editPassword + end + object lblHost: TLabel + Left = 3 + Top = 45 + Width = 72 + Height = 13 + Caption = 'Hostname / IP:' + FocusControl = editHost + end + object lblUsername: TLabel + Left = 3 + Top = 118 + Width = 26 + Height = 13 + Caption = 'User:' + FocusControl = editUsername + end + object lblNetworkType: TLabel + Left = 3 + Top = 12 + Width = 69 + Height = 13 + Caption = 'Network type:' + end + object lblDatabase: TLabel + Left = 3 + Top = 216 + Width = 55 + Height = 13 + Caption = 'Databases:' + end + object lblComment: TLabel + Left = 3 + Top = 241 + Width = 49 + Height = 13 + Caption = 'Comment:' + end + object chkCompressed: TCheckBox + Left = 120 + Top = 190 + Width = 294 + Height = 17 + Anchors = [akLeft, akTop, akRight] + Caption = 'Compressed client/server protocol' + TabOrder = 8 + OnClick = Modification + end + object editPort: TEdit + Left = 120 + Top = 165 + Width = 57 + Height = 21 + TabOrder = 6 + Text = '0' + OnChange = Modification + end + object updownPort: TUpDown + Left = 177 + Top = 165 + Width = 16 + Height = 21 + Associate = editPort + Max = 2147483647 + TabOrder = 7 + Thousands = False + Wrap = True + end + object editPassword: TEdit + Left = 120 + Top = 140 + Width = 294 + Height = 21 + Anchors = [akLeft, akTop, akRight] + PasswordChar = '*' + TabOrder = 5 + OnChange = Modification + end + object editUsername: TEdit + Left = 120 + Top = 115 + Width = 294 + Height = 21 + Anchors = [akLeft, akTop, akRight] + TabOrder = 4 + OnChange = Modification + end + object editHost: TEdit + Left = 120 + Top = 42 + Width = 294 + Height = 21 + Anchors = [akLeft, akTop, akRight] + TabOrder = 1 + OnChange = editHostChange + end + object comboNetType: TComboBox + Left = 120 + Top = 9 + Width = 294 + Height = 21 + Style = csDropDownList + Anchors = [akLeft, akTop, akRight] + DropDownCount = 12 + ItemIndex = 0 + TabOrder = 0 + Text = 'TCP/IP' + OnChange = comboNetTypeChange + Items.Strings = ( + 'TCP/IP' + 'Named pipe' + 'SSH tunnel' + 'MSSQL') + end + object chkLoginPrompt: TCheckBox + Left = 120 + Top = 69 + Width = 294 + Height = 17 + Anchors = [akLeft, akTop, akRight] + Caption = 'Prompt for credentials' + TabOrder = 2 + OnClick = chkLoginPromptClick + end + object chkWindowsAuth: TCheckBox + Left = 120 + Top = 92 + Width = 294 + Height = 17 + Anchors = [akLeft, akTop, akRight] + Caption = 'Use Windows authentication' + Enabled = False + TabOrder = 3 + OnClick = chkLoginPromptClick + end + object memoComment: TMemo + Left = 120 + Top = 238 + Width = 294 + Height = 35 + Anchors = [akLeft, akTop, akRight, akBottom] + ScrollBars = ssVertical + TabOrder = 10 + OnChange = Modification + end + object editDatabases: TButtonedEdit + Left = 120 + Top = 213 + Width = 294 + Height = 21 + Anchors = [akLeft, akTop, akRight] + Images = MainForm.ImageListMain + RightButton.ImageIndex = 75 + RightButton.Visible = True + TabOrder = 9 + TextHint = 'Separated by semicolon' + OnChange = Modification + OnRightButtonClick = editDatabasesRightButtonClick + end end end object tabSSHtunnel: TTabSheet Caption = 'SSH tunnel' ImageIndex = 147 - DesignSize = ( - 417 - 287) - object lblSSHLocalPort: TLabel - Left = 3 - Top = 190 - Width = 51 - Height = 13 - Caption = 'Local port:' - FocusControl = editSSHlocalport - end - object lblSSHUser: TLabel - Left = 3 - Top = 82 - Width = 52 - Height = 13 - Caption = 'Username:' - FocusControl = editSSHUser - end - object lblSSHPassword: TLabel - Left = 3 - Top = 109 - Width = 50 - Height = 13 - Caption = 'Password:' - FocusControl = editSSHPassword - end - object lblSSHPlinkExe: TLabel - Left = 3 - Top = 12 - Width = 87 - Height = 13 - Caption = 'plink.exe location:' - end - object lblSSHhost: TLabel - Left = 3 - Top = 55 - Width = 81 - Height = 13 - Caption = 'SSH host + port:' - FocusControl = editSSHhost - end - object lblSSHkeyfile: TLabel - Left = 3 - Top = 163 - Width = 75 - Height = 13 - Caption = 'Private key file:' - FocusControl = editSSHPrivateKey - end - object lblDownloadPlink: TLabel - Left = 120 - Top = 33 - Width = 93 - Height = 13 - Cursor = crHandPoint - Hint = 'http://www.chiark.greenend.org.uk/~sgtatham/putty/' - Caption = 'Download plink.exe' - OnClick = lblDownloadPlinkClick - end - object lblPlinkTimeout: TLabel - Left = 3 - Top = 136 - Width = 86 - Height = 13 - Caption = 'plink.exe timeout:' - end - object editSSHlocalport: TEdit - Left = 120 - Top = 187 - Width = 294 - Height = 21 - Anchors = [akLeft, akTop, akRight] - NumbersOnly = True - TabOrder = 8 - Text = 'editSSHlocalport' - OnChange = Modification - end - object editSSHUser: TEdit - Left = 120 - Top = 79 - Width = 294 - Height = 21 - Anchors = [akLeft, akTop, akRight] - TabOrder = 3 - Text = 'editSSHUser' - TextHint = 'Your secure shell username' - OnChange = Modification - end - object editSSHPassword: TEdit - Left = 120 - Top = 106 - Width = 294 - Height = 21 - Anchors = [akLeft, akTop, akRight] - PasswordChar = '*' - TabOrder = 4 - Text = 'editSSHPassword' - TextHint = 'Your secure shell password' - OnChange = Modification - end - object editSSHPlinkExe: TButtonedEdit - Left = 120 - Top = 9 - Width = 294 - Height = 21 - Anchors = [akLeft, akTop, akRight] - Images = MainForm.ImageListMain - RightButton.ImageIndex = 51 - RightButton.Visible = True + object pnlDpiHelperSshTunnel: TPanel + Left = 0 + Top = 0 + Width = 417 + Height = 287 + Align = alClient + BevelOuter = bvNone + Caption = 'pnlDpiHelperSshTunnel' + ShowCaption = False TabOrder = 0 - Text = 'editSSHPlinkExe' - TextHint = 'Doubleclick to select plink.exe ...' - OnChange = editSSHPlinkExeChange - OnDblClick = PickFile - OnRightButtonClick = PickFile - end - object editSSHhost: TEdit - Left = 120 - Top = 52 - Width = 230 - Height = 21 - Anchors = [akLeft, akTop, akRight] - TabOrder = 1 - Text = 'editSSHhost' - OnChange = Modification - end - object editSSHport: TEdit - Left = 356 - Top = 52 - Width = 58 - Height = 21 - Anchors = [akTop, akRight] - NumbersOnly = True - TabOrder = 2 - Text = 'editSSHport' - OnChange = Modification - end - object editSSHPrivateKey: TButtonedEdit - Left = 120 - Top = 160 - Width = 294 - Height = 21 - Anchors = [akLeft, akTop, akRight] - Images = MainForm.ImageListMain - RightButton.ImageIndex = 51 - RightButton.Visible = True - TabOrder = 7 - Text = 'editSSHPrivateKey' - TextHint = 'PuTTY private key (*.ppk)' - OnChange = Modification - OnDblClick = PickFile - OnRightButtonClick = PickFile - end - object editSSHTimeout: TEdit - Left = 120 - Top = 133 - Width = 60 - Height = 21 - TabOrder = 5 - Text = '0' - OnChange = Modification - end - object updownSSHTimeout: TUpDown - Left = 180 - Top = 133 - Width = 17 - Height = 21 - Associate = editSSHTimeout - TabOrder = 6 - Wrap = True + DesignSize = ( + 417 + 287) + object lblSSHLocalPort: TLabel + Left = 3 + Top = 190 + Width = 51 + Height = 13 + Caption = 'Local port:' + FocusControl = editSSHlocalport + end + object lblSSHUser: TLabel + Left = 3 + Top = 82 + Width = 52 + Height = 13 + Caption = 'Username:' + FocusControl = editSSHUser + end + object lblSSHPassword: TLabel + Left = 3 + Top = 109 + Width = 50 + Height = 13 + Caption = 'Password:' + FocusControl = editSSHPassword + end + object lblSSHPlinkExe: TLabel + Left = 3 + Top = 12 + Width = 87 + Height = 13 + Caption = 'plink.exe location:' + end + object lblSSHhost: TLabel + Left = 3 + Top = 55 + Width = 81 + Height = 13 + Caption = 'SSH host + port:' + FocusControl = editSSHhost + end + object lblSSHkeyfile: TLabel + Left = 3 + Top = 163 + Width = 75 + Height = 13 + Caption = 'Private key file:' + FocusControl = editSSHPrivateKey + end + object lblDownloadPlink: TLabel + Left = 120 + Top = 33 + Width = 93 + Height = 13 + Cursor = crHandPoint + Hint = 'http://www.chiark.greenend.org.uk/~sgtatham/putty/' + Caption = 'Download plink.exe' + OnClick = lblDownloadPlinkClick + end + object lblPlinkTimeout: TLabel + Left = 3 + Top = 136 + Width = 86 + Height = 13 + Caption = 'plink.exe timeout:' + end + object editSSHlocalport: TEdit + Left = 120 + Top = 187 + Width = 294 + Height = 21 + Anchors = [akLeft, akTop, akRight] + NumbersOnly = True + TabOrder = 8 + Text = 'editSSHlocalport' + OnChange = Modification + end + object editSSHUser: TEdit + Left = 120 + Top = 79 + Width = 294 + Height = 21 + Anchors = [akLeft, akTop, akRight] + TabOrder = 3 + Text = 'editSSHUser' + TextHint = 'Your secure shell username' + OnChange = Modification + end + object editSSHPassword: TEdit + Left = 120 + Top = 106 + Width = 294 + Height = 21 + Anchors = [akLeft, akTop, akRight] + PasswordChar = '*' + TabOrder = 4 + Text = 'editSSHPassword' + TextHint = 'Your secure shell password' + OnChange = Modification + end + object editSSHPlinkExe: TButtonedEdit + Left = 120 + Top = 9 + Width = 294 + Height = 21 + Anchors = [akLeft, akTop, akRight] + Images = MainForm.ImageListMain + RightButton.ImageIndex = 51 + RightButton.Visible = True + TabOrder = 0 + Text = 'editSSHPlinkExe' + TextHint = 'Doubleclick to select plink.exe ...' + OnChange = editSSHPlinkExeChange + OnDblClick = PickFile + OnRightButtonClick = PickFile + end + object editSSHhost: TEdit + Left = 120 + Top = 52 + Width = 230 + Height = 21 + Anchors = [akLeft, akTop, akRight] + TabOrder = 1 + Text = 'editSSHhost' + OnChange = Modification + end + object editSSHport: TEdit + Left = 356 + Top = 52 + Width = 58 + Height = 21 + Anchors = [akTop, akRight] + NumbersOnly = True + TabOrder = 2 + Text = 'editSSHport' + OnChange = Modification + end + object editSSHPrivateKey: TButtonedEdit + Left = 120 + Top = 160 + Width = 294 + Height = 21 + Anchors = [akLeft, akTop, akRight] + Images = MainForm.ImageListMain + RightButton.ImageIndex = 51 + RightButton.Visible = True + TabOrder = 7 + Text = 'editSSHPrivateKey' + TextHint = 'PuTTY private key (*.ppk)' + OnChange = Modification + OnDblClick = PickFile + OnRightButtonClick = PickFile + end + object editSSHTimeout: TEdit + Left = 120 + Top = 133 + Width = 60 + Height = 21 + TabOrder = 5 + Text = '0' + OnChange = Modification + end + object updownSSHTimeout: TUpDown + Left = 180 + Top = 133 + Width = 17 + Height = 21 + Associate = editSSHTimeout + TabOrder = 6 + Wrap = True + end end end object tabAdvanced: TTabSheet Caption = 'Advanced' ImageIndex = 98 - DesignSize = ( - 417 - 287) - object lblSSLPrivateKey: TLabel - Left = 3 - Top = 39 - Width = 78 - Height = 13 - Caption = 'SSL private key:' - FocusControl = editSSLPrivateKey - end - object lblSSLCACertificate: TLabel - Left = 3 - Top = 68 - Width = 89 - Height = 13 - Caption = 'SSL CA certificate:' - FocusControl = editSSLCACertificate - end - object lblSSLCertificate: TLabel - Left = 3 - Top = 95 - Width = 72 - Height = 13 - Caption = 'SSL certificate:' - FocusControl = editSSLCertificate - end - object lblStartupScript: TLabel - Left = 3 - Top = 168 - Width = 69 - Height = 13 - Caption = 'Startup script:' - FocusControl = editStartupScript - end - object lblQueryTimeout: TLabel - Left = 3 - Top = 195 - Width = 73 - Height = 13 - Caption = 'Query timeout:' - end - object lblSSLcipher: TLabel - Left = 3 - Top = 120 - Width = 53 - Height = 13 - Caption = 'SSL cipher:' - end - object lblKeepAlive: TLabel - Left = 3 - Top = 224 - Width = 106 - Height = 13 - Caption = 'Ping every X seconds:' - end - object editSSLPrivateKey: TButtonedEdit - Left = 120 - Top = 36 - Width = 294 - Height = 21 - Anchors = [akLeft, akTop, akRight] - Images = MainForm.ImageListMain - RightButton.ImageIndex = 51 - RightButton.Visible = True - TabOrder = 1 - TextHint = 'Path to key file' - OnChange = Modification - OnDblClick = PickFile - OnRightButtonClick = PickFile - end - object editSSLCACertificate: TButtonedEdit - Left = 120 - Top = 65 - Width = 294 - Height = 21 - Anchors = [akLeft, akTop, akRight] - Images = MainForm.ImageListMain - RightButton.ImageIndex = 51 - RightButton.Visible = True - TabOrder = 2 - TextHint = 'Path to certificate authority file' - OnChange = Modification - OnDblClick = PickFile - OnRightButtonClick = PickFile - end - object editSSLCertificate: TButtonedEdit - Left = 120 - Top = 92 - Width = 294 - Height = 21 - Anchors = [akLeft, akTop, akRight] - Images = MainForm.ImageListMain - RightButton.ImageIndex = 51 - RightButton.Visible = True - TabOrder = 3 - TextHint = 'Path to certificate file' - OnChange = Modification - OnDblClick = PickFile - OnRightButtonClick = PickFile - end - object chkWantSSL: TCheckBox - Left = 120 - Top = 13 - Width = 313 - Height = 17 - Anchors = [akLeft, akTop, akRight] - Caption = 'Use SSL' + object pnlDpiHelperAdvanced: TPanel + Left = 0 + Top = 0 + Width = 417 + Height = 287 + Align = alClient + BevelOuter = bvNone + Caption = 'pnlDpiHelperAdvanced' + ShowCaption = False TabOrder = 0 - OnClick = Modification - end - object chkLocalTimeZone: TCheckBox - Left = 120 - Top = 246 - Width = 294 - Height = 17 - Hint = - 'Use your client time zone in date/time SQL functions, e.g. NOW()' + - ', for MySQL 4.1.3+' - Anchors = [akLeft, akTop, akRight] - Caption = 'Use own client time zone' - TabOrder = 8 - OnClick = Modification - end - object editStartupScript: TButtonedEdit - Left = 120 - Top = 165 - Width = 294 - Height = 21 - Anchors = [akLeft, akTop, akRight] - Images = MainForm.ImageListMain - RightButton.ImageIndex = 51 - RightButton.Visible = True - TabOrder = 5 - OnChange = Modification - OnDblClick = PickFile - OnRightButtonClick = PickFile - end - object chkFullTableStatus: TCheckBox - Left = 120 - Top = 269 - Width = 294 - Height = 17 - Hint = - 'Disable to speed up internal queries on databases with many Inno' + - 'DB tables' - Anchors = [akLeft, akTop, akRight] - Caption = 'Get full table status' - TabOrder = 9 - OnClick = Modification - end - object editQueryTimeout: TEdit - Left = 120 - Top = 192 - Width = 90 - Height = 21 - NumbersOnly = True - TabOrder = 6 - Text = '0' - OnChange = Modification - end - object updownQueryTimeout: TUpDown - Left = 210 - Top = 192 - Width = 16 - Height = 21 - Associate = editQueryTimeout - Max = 2147483646 - TabOrder = 7 - Wrap = True - end - object editSSLcipher: TEdit - Left = 120 - Top = 119 - Width = 294 - Height = 21 - Anchors = [akLeft, akTop, akRight] - TabOrder = 4 - TextHint = 'List of permissible ciphers to use for SSL encryption' - OnChange = Modification - end - object editKeepAlive: TEdit - Left = 120 - Top = 219 - Width = 90 - Height = 21 - TabOrder = 10 - Text = '0' - OnChange = Modification - end - object updownKeepAlive: TUpDown - Left = 210 - Top = 219 - Width = 16 - Height = 21 - Associate = editKeepAlive - Max = 86400 - TabOrder = 11 + DesignSize = ( + 417 + 287) + object lblSSLPrivateKey: TLabel + Left = 3 + Top = 39 + Width = 78 + Height = 13 + Caption = 'SSL private key:' + FocusControl = editSSLPrivateKey + end + object lblSSLCACertificate: TLabel + Left = 3 + Top = 68 + Width = 89 + Height = 13 + Caption = 'SSL CA certificate:' + FocusControl = editSSLCACertificate + end + object lblSSLCertificate: TLabel + Left = 3 + Top = 95 + Width = 72 + Height = 13 + Caption = 'SSL certificate:' + FocusControl = editSSLCertificate + end + object lblStartupScript: TLabel + Left = 3 + Top = 168 + Width = 69 + Height = 13 + Caption = 'Startup script:' + FocusControl = editStartupScript + end + object lblQueryTimeout: TLabel + Left = 3 + Top = 195 + Width = 73 + Height = 13 + Caption = 'Query timeout:' + end + object lblSSLcipher: TLabel + Left = 3 + Top = 120 + Width = 53 + Height = 13 + Caption = 'SSL cipher:' + end + object lblKeepAlive: TLabel + Left = 3 + Top = 224 + Width = 106 + Height = 13 + Caption = 'Ping every X seconds:' + end + object editSSLPrivateKey: TButtonedEdit + Left = 120 + Top = 36 + Width = 294 + Height = 21 + Anchors = [akLeft, akTop, akRight] + Images = MainForm.ImageListMain + RightButton.ImageIndex = 51 + RightButton.Visible = True + TabOrder = 1 + TextHint = 'Path to key file' + OnChange = Modification + OnDblClick = PickFile + OnRightButtonClick = PickFile + end + object editSSLCACertificate: TButtonedEdit + Left = 120 + Top = 65 + Width = 294 + Height = 21 + Anchors = [akLeft, akTop, akRight] + Images = MainForm.ImageListMain + RightButton.ImageIndex = 51 + RightButton.Visible = True + TabOrder = 2 + TextHint = 'Path to certificate authority file' + OnChange = Modification + OnDblClick = PickFile + OnRightButtonClick = PickFile + end + object editSSLCertificate: TButtonedEdit + Left = 120 + Top = 92 + Width = 294 + Height = 21 + Anchors = [akLeft, akTop, akRight] + Images = MainForm.ImageListMain + RightButton.ImageIndex = 51 + RightButton.Visible = True + TabOrder = 3 + TextHint = 'Path to certificate file' + OnChange = Modification + OnDblClick = PickFile + OnRightButtonClick = PickFile + end + object chkWantSSL: TCheckBox + Left = 120 + Top = 13 + Width = 313 + Height = 17 + Anchors = [akLeft, akTop, akRight] + Caption = 'Use SSL' + TabOrder = 0 + OnClick = Modification + end + object chkLocalTimeZone: TCheckBox + Left = 120 + Top = 246 + Width = 294 + Height = 17 + Hint = + 'Use your client time zone in date/time SQL functions, e.g. NOW()' + + ', for MySQL 4.1.3+' + Anchors = [akLeft, akTop, akRight] + Caption = 'Use own client time zone' + TabOrder = 8 + OnClick = Modification + end + object editStartupScript: TButtonedEdit + Left = 120 + Top = 165 + Width = 294 + Height = 21 + Anchors = [akLeft, akTop, akRight] + Images = MainForm.ImageListMain + RightButton.ImageIndex = 51 + RightButton.Visible = True + TabOrder = 5 + OnChange = Modification + OnDblClick = PickFile + OnRightButtonClick = PickFile + end + object chkFullTableStatus: TCheckBox + Left = 120 + Top = 269 + Width = 294 + Height = 17 + Hint = + 'Disable to speed up internal queries on databases with many Inno' + + 'DB tables' + Anchors = [akLeft, akTop, akRight] + Caption = 'Get full table status' + TabOrder = 9 + OnClick = Modification + end + object editQueryTimeout: TEdit + Left = 120 + Top = 192 + Width = 90 + Height = 21 + NumbersOnly = True + TabOrder = 6 + Text = '0' + OnChange = Modification + end + object updownQueryTimeout: TUpDown + Left = 210 + Top = 192 + Width = 16 + Height = 21 + Associate = editQueryTimeout + Max = 2147483646 + TabOrder = 7 + Wrap = True + end + object editSSLcipher: TEdit + Left = 120 + Top = 119 + Width = 294 + Height = 21 + Anchors = [akLeft, akTop, akRight] + TabOrder = 4 + TextHint = 'List of permissible ciphers to use for SSL encryption' + OnChange = Modification + end + object editKeepAlive: TEdit + Left = 120 + Top = 219 + Width = 90 + Height = 21 + TabOrder = 10 + Text = '0' + OnChange = Modification + end + object updownKeepAlive: TUpDown + Left = 210 + Top = 219 + Width = 16 + Height = 21 + Associate = editKeepAlive + Max = 86400 + TabOrder = 11 + end end end object tabStatistics: TTabSheet diff --git a/source/connections.pas b/source/connections.pas index 2604e1df..56ec0ca2 100644 --- a/source/connections.pas +++ b/source/connections.pas @@ -114,6 +114,9 @@ type updownKeepAlive: TUpDown; lblCounterRight2: TLabel; lblCounterLeft2: TLabel; + pnlDpiHelperSettings: TPanel; + pnlDpiHelperSshTunnel: TPanel; + pnlDpiHelperAdvanced: TPanel; procedure FormCreate(Sender: TObject); procedure btnOpenClick(Sender: TObject); procedure FormShow(Sender: TObject); diff --git a/source/options.dfm b/source/options.dfm index c4a131ff..2d16dd5f 100644 --- a/source/options.dfm +++ b/source/options.dfm @@ -31,1146 +31,1212 @@ object optionsform: Toptionsform object tabMisc: TTabSheet Caption = 'General' ImageIndex = 137 - DesignSize = ( - 710 - 395) - object lblMySQLBinaries: TLabel - Left = 8 - Top = 228 - Width = 152 - Height = 13 - Caption = 'MySQL command line programs:' - end - object lblLanguage: TLabel - Left = 8 - Top = 282 - Width = 189 - Height = 13 - Caption = 'Application language (requires restart):' - end - object lblCustomSnippetsDirectory: TLabel - Left = 8 - Top = 255 - Width = 129 - Height = 13 - Caption = 'Custom snippets directory:' - end - object lblGUIFont: TLabel - Left = 8 - Top = 309 - Width = 131 - Height = 13 - Caption = 'GUI font (requires restart):' - end - object lblGUIFontSize: TLabel - Left = 694 - Top = 309 - Width = 10 - Height = 13 - Anchors = [akTop, akRight] - Caption = 'pt' - end - object lblTheme: TLabel - Left = 8 - Top = 336 - Width = 63 - Height = 13 - Caption = 'Style Theme:' - end - object chkAutoReconnect: TCheckBox - Left = 8 - Top = 31 - Width = 699 - Height = 17 - Anchors = [akLeft, akTop, akRight] - Caption = 'Automatically reconnect to previously opened sessions on startup' - TabOrder = 1 - OnClick = Modified - end - object chkRestoreLastDB: TCheckBox - Left = 8 - Top = 54 - Width = 699 - Height = 17 - Anchors = [akLeft, akTop, akRight] - Caption = 'Restore last used database on startup' - Checked = True - State = cbChecked - TabOrder = 2 - OnClick = Modified - end - object chkUpdatecheck: TCheckBox - Left = 8 - Top = 77 - Width = 620 - Height = 28 - Anchors = [akLeft, akTop, akRight] - Caption = - 'Automatically check for updates / Interval [days]:'#13#10'(0 = each ti' + - 'me the application is started)' - TabOrder = 3 - WordWrap = True - OnClick = chkUpdatecheckClick - end - object editUpdatecheckInterval: TEdit - Left = 648 - Top = 77 - Width = 43 - Height = 21 - Anchors = [akTop, akRight] - Enabled = False - TabOrder = 4 - Text = '1' - OnChange = Modified - end - object updownUpdatecheckInterval: TUpDown - Left = 691 - Top = 77 - Width = 16 - Height = 21 - Anchors = [akTop, akRight] - Associate = editUpdatecheckInterval - Enabled = False - Max = 999 - Position = 1 - TabOrder = 5 - OnChanging = anyUpDownLimitChanging - end - object chkUpdateCheckBuilds: TCheckBox - Left = 26 - Top = 111 - Width = 681 - Height = 17 - Anchors = [akLeft, akTop, akRight] - Caption = 'Also check for updated nightly builds' - Enabled = False - TabOrder = 6 - OnClick = Modified - end - object chkDoStatistics: TCheckBox - Left = 8 - Top = 134 - Width = 699 - Height = 34 - Anchors = [akLeft, akTop, akRight] - Caption = - 'Count in usage statistics. This option, if enabled, will cause H' + - 'eidiSQL to ping heidisql.com at most once every month. This is ' + - 'used to count the used HeidiSQL and MySQL versions.' - TabOrder = 7 - WordWrap = True - OnClick = Modified - end - object chkAllowMultiInstances: TCheckBox - Left = 8 - Top = 8 - Width = 699 - Height = 17 - Anchors = [akLeft, akTop, akRight] - Caption = 'Allow multiple application instances' - Checked = True - State = cbChecked + object pnlDpiHelperGeneral: TPanel + Left = 0 + Top = 0 + Width = 710 + Height = 395 + Align = alClient + BevelOuter = bvNone + Caption = 'pnlDpiHelperGeneral' + ShowCaption = False TabOrder = 0 - end - object chkColorBars: TCheckBox - Left = 8 - Top = 199 - Width = 258 - Height = 17 - Caption = 'Display bars in various list columns' - TabOrder = 9 - OnClick = chkColorBarsClick - end - object cboxColorBars: TColorBox - Left = 272 - Top = 197 - Width = 435 - Height = 22 - Style = [cbStandardColors, cbExtendedColors, cbCustomColor, cbPrettyNames, cbCustomColors] - Anchors = [akLeft, akTop, akRight] - TabOrder = 10 - OnClick = Modified - end - object editMySQLBinaries: TButtonedEdit - Left = 272 - Top = 225 - Width = 435 - Height = 21 - Anchors = [akLeft, akTop, akRight] - Images = MainForm.ImageListMain - RightButton.ImageIndex = 51 - RightButton.Visible = True - TabOrder = 11 - Text = 'editMySQLBinaries' - TextHint = 'Find mysql.exe directory' - OnChange = Modified - OnDblClick = editMySQLBinariesRightButtonClick - OnRightButtonClick = editMySQLBinariesRightButtonClick - end - object comboAppLanguage: TComboBox - Left = 272 - Top = 279 - Width = 435 - Height = 21 - Style = csDropDownList - Anchors = [akLeft, akTop, akRight] - TabOrder = 13 - OnClick = Modified - end - object editCustomSnippetsDirectory: TButtonedEdit - Left = 272 - Top = 252 - Width = 435 - Height = 21 - Anchors = [akLeft, akTop, akRight] - Images = MainForm.ImageListMain - RightButton.ImageIndex = 51 - RightButton.Visible = True - TabOrder = 12 - Text = 'editCustomSnippetsDirectory' - TextHint = 'Set custom directory for SQL snippet files' - OnChange = Modified - OnDblClick = editCustomSnippetsDirectoryRightButtonClick - OnRightButtonClick = editCustomSnippetsDirectoryRightButtonClick - end - object comboGUIFont: TComboBox - Left = 272 - Top = 306 - Width = 334 - Height = 21 - Style = csDropDownList - Anchors = [akLeft, akTop, akRight] - TabOrder = 14 - OnChange = comboGUIFontChange - end - object editGUIFontSize: TEdit - Left = 612 - Top = 306 - Width = 57 - Height = 21 - Anchors = [akTop, akRight] - TabOrder = 15 - Text = '8' - OnChange = Modified - end - object updownGUIFontSize: TUpDown - Left = 669 - Top = 306 - Width = 16 - Height = 21 - Anchors = [akTop, akRight] - Associate = editGUIFontSize - Min = 4 - Position = 8 - TabOrder = 16 - OnChanging = anyUpDownLimitChanging - end - object chkWheelZoom: TCheckBox - Left = 8 - Top = 174 - Width = 699 - Height = 17 - Anchors = [akLeft, akTop, akRight] - Caption = 'Use Ctrl+Mousewheel for zooming' - TabOrder = 8 - OnClick = Modified - end - object comboTheme: TComboBox - Left = 272 - Top = 333 - Width = 435 - Height = 21 - Style = csDropDownList - Anchors = [akLeft, akTop, akRight] - Sorted = True - TabOrder = 17 - OnChange = Modified + DesignSize = ( + 710 + 395) + object lblMySQLBinaries: TLabel + Left = 8 + Top = 228 + Width = 152 + Height = 13 + Caption = 'MySQL command line programs:' + end + object lblLanguage: TLabel + Left = 8 + Top = 282 + Width = 189 + Height = 13 + Caption = 'Application language (requires restart):' + end + object lblCustomSnippetsDirectory: TLabel + Left = 8 + Top = 255 + Width = 129 + Height = 13 + Caption = 'Custom snippets directory:' + end + object lblGUIFont: TLabel + Left = 8 + Top = 309 + Width = 131 + Height = 13 + Caption = 'GUI font (requires restart):' + end + object lblGUIFontSize: TLabel + Left = 694 + Top = 309 + Width = 10 + Height = 13 + Anchors = [akTop, akRight] + Caption = 'pt' + end + object lblTheme: TLabel + Left = 8 + Top = 336 + Width = 63 + Height = 13 + Caption = 'Style Theme:' + end + object chkAutoReconnect: TCheckBox + Left = 8 + Top = 31 + Width = 699 + Height = 17 + Anchors = [akLeft, akTop, akRight] + Caption = 'Automatically reconnect to previously opened sessions on startup' + TabOrder = 1 + OnClick = Modified + end + object chkRestoreLastDB: TCheckBox + Left = 8 + Top = 54 + Width = 699 + Height = 17 + Anchors = [akLeft, akTop, akRight] + Caption = 'Restore last used database on startup' + Checked = True + State = cbChecked + TabOrder = 2 + OnClick = Modified + end + object chkUpdatecheck: TCheckBox + Left = 8 + Top = 77 + Width = 620 + Height = 28 + Anchors = [akLeft, akTop, akRight] + Caption = + 'Automatically check for updates / Interval [days]:'#13#10'(0 = each ti' + + 'me the application is started)' + TabOrder = 3 + WordWrap = True + OnClick = chkUpdatecheckClick + end + object editUpdatecheckInterval: TEdit + Left = 648 + Top = 77 + Width = 43 + Height = 21 + Anchors = [akTop, akRight] + Enabled = False + TabOrder = 4 + Text = '1' + OnChange = Modified + end + object updownUpdatecheckInterval: TUpDown + Left = 691 + Top = 77 + Width = 16 + Height = 21 + Anchors = [akTop, akRight] + Associate = editUpdatecheckInterval + Enabled = False + Max = 999 + Position = 1 + TabOrder = 5 + OnChanging = anyUpDownLimitChanging + end + object chkUpdateCheckBuilds: TCheckBox + Left = 26 + Top = 111 + Width = 681 + Height = 17 + Anchors = [akLeft, akTop, akRight] + Caption = 'Also check for updated nightly builds' + Enabled = False + TabOrder = 6 + OnClick = Modified + end + object chkDoStatistics: TCheckBox + Left = 8 + Top = 134 + Width = 699 + Height = 34 + Anchors = [akLeft, akTop, akRight] + Caption = + 'Count in usage statistics. This option, if enabled, will cause H' + + 'eidiSQL to ping heidisql.com at most once every month. This is ' + + 'used to count the used HeidiSQL and MySQL versions.' + TabOrder = 7 + WordWrap = True + OnClick = Modified + end + object chkAllowMultiInstances: TCheckBox + Left = 8 + Top = 8 + Width = 699 + Height = 17 + Anchors = [akLeft, akTop, akRight] + Caption = 'Allow multiple application instances' + Checked = True + State = cbChecked + TabOrder = 0 + end + object chkColorBars: TCheckBox + Left = 8 + Top = 199 + Width = 258 + Height = 17 + Caption = 'Display bars in various list columns' + TabOrder = 9 + OnClick = chkColorBarsClick + end + object cboxColorBars: TColorBox + Left = 272 + Top = 197 + Width = 435 + Height = 22 + Style = [cbStandardColors, cbExtendedColors, cbCustomColor, cbPrettyNames, cbCustomColors] + Anchors = [akLeft, akTop, akRight] + TabOrder = 10 + OnClick = Modified + end + object editMySQLBinaries: TButtonedEdit + Left = 272 + Top = 225 + Width = 435 + Height = 21 + Anchors = [akLeft, akTop, akRight] + Images = MainForm.ImageListMain + RightButton.ImageIndex = 51 + RightButton.Visible = True + TabOrder = 11 + Text = 'editMySQLBinaries' + TextHint = 'Find mysql.exe directory' + OnChange = Modified + OnDblClick = editMySQLBinariesRightButtonClick + OnRightButtonClick = editMySQLBinariesRightButtonClick + end + object comboAppLanguage: TComboBox + Left = 272 + Top = 279 + Width = 435 + Height = 21 + Style = csDropDownList + Anchors = [akLeft, akTop, akRight] + TabOrder = 13 + OnClick = Modified + end + object editCustomSnippetsDirectory: TButtonedEdit + Left = 272 + Top = 252 + Width = 435 + Height = 21 + Anchors = [akLeft, akTop, akRight] + Images = MainForm.ImageListMain + RightButton.ImageIndex = 51 + RightButton.Visible = True + TabOrder = 12 + Text = 'editCustomSnippetsDirectory' + TextHint = 'Set custom directory for SQL snippet files' + OnChange = Modified + OnDblClick = editCustomSnippetsDirectoryRightButtonClick + OnRightButtonClick = editCustomSnippetsDirectoryRightButtonClick + end + object comboGUIFont: TComboBox + Left = 272 + Top = 306 + Width = 334 + Height = 21 + Style = csDropDownList + Anchors = [akLeft, akTop, akRight] + TabOrder = 14 + OnChange = comboGUIFontChange + end + object editGUIFontSize: TEdit + Left = 612 + Top = 306 + Width = 57 + Height = 21 + Anchors = [akTop, akRight] + TabOrder = 15 + Text = '8' + OnChange = Modified + end + object updownGUIFontSize: TUpDown + Left = 669 + Top = 306 + Width = 16 + Height = 21 + Anchors = [akTop, akRight] + Associate = editGUIFontSize + Min = 4 + Position = 8 + TabOrder = 16 + OnChanging = anyUpDownLimitChanging + end + object chkWheelZoom: TCheckBox + Left = 8 + Top = 174 + Width = 699 + Height = 17 + Anchors = [akLeft, akTop, akRight] + Caption = 'Use Ctrl+Mousewheel for zooming' + TabOrder = 8 + OnClick = Modified + end + object comboTheme: TComboBox + Left = 272 + Top = 333 + Width = 435 + Height = 21 + Style = csDropDownList + Anchors = [akLeft, akTop, akRight] + Sorted = True + TabOrder = 17 + OnChange = Modified + end end end object tabLogging: TTabSheet Caption = 'Logging' ImageIndex = 56 - DesignSize = ( - 710 - 395) - object Label4: TLabel - Left = 8 - Top = 11 - Width = 37 - Height = 13 - Caption = 'Log last' - end - object lblLogLinesHint: TLabel - Left = 278 - Top = 11 - Width = 71 - Height = 13 - Caption = 'lines in SQL log' - end - object lblLogSnipHint: TLabel - Left = 278 - Top = 38 - Width = 139 - Height = 13 - Caption = 'characters (0 = no snipping)' - end - object lblLogSnip: TLabel - Left = 8 - Top = 38 - Width = 96 - Height = 13 - Caption = 'Snip SQL log lines to' - end - object lblLogLevel: TLabel - Left = 8 - Top = 95 - Width = 57 - Height = 13 - Caption = 'Log events:' - end - object lblQueryHistoryKeepDays: TLabel - Left = 278 - Top = 201 - Width = 209 - Height = 13 - Caption = 'days to keep queries before removing them' - end - object editLogLines: TEdit - Left = 202 - Top = 8 - Width = 53 - Height = 21 + object pnlDpiHelperLogging: TPanel + Left = 0 + Top = 0 + Width = 710 + Height = 395 + Align = alClient + BevelOuter = bvNone + Caption = 'pnlDpiHelperLogging' + ShowCaption = False TabOrder = 0 - Text = '1' - OnChange = Modified - end - object updownLogLines: TUpDown - Left = 255 - Top = 8 - Width = 16 - Height = 21 - Associate = editLogLines - Min = 1 - Max = 32767 - Position = 1 - TabOrder = 1 - Wrap = True - OnChanging = anyUpDownLimitChanging - end - object updownLogSnip: TUpDown - Left = 255 - Top = 35 - Width = 16 - Height = 21 - Associate = editLogSnip - Max = 32767 - Position = 2000 - TabOrder = 3 - OnChanging = anyUpDownLimitChanging - end - object editLogSnip: TEdit - Left = 202 - Top = 35 - Width = 53 - Height = 21 - TabOrder = 2 - Text = '2.000' - OnChange = Modified - end - object chkLogToFile: TCheckBox - Left = 8 - Top = 64 - Width = 442 - Height = 17 - Anchors = [akLeft, akTop, akRight] - Caption = 'Write SQL log to file' - TabOrder = 4 - OnClick = chkLogToFileClick - end - object chkLogEventErrors: TCheckBox - Left = 202 - Top = 94 - Width = 240 - Height = 17 - Caption = 'Errors' - TabOrder = 6 - OnClick = Modified - end - object chkLogEventUserGeneratedSQL: TCheckBox - Left = 202 - Top = 113 - Width = 240 - Height = 17 - Caption = 'User-generated SQL queries' - TabOrder = 7 - OnClick = Modified - end - object chkLogEventSQL: TCheckBox - Left = 202 - Top = 132 - Width = 240 - Height = 17 - Caption = 'Internal SQL queries' - TabOrder = 8 - OnClick = Modified - end - object chkLogEventInfo: TCheckBox - Left = 202 - Top = 151 - Width = 240 - Height = 17 - Caption = 'Information messages' - TabOrder = 9 - OnClick = Modified - end - object chkLogEventDebug: TCheckBox - Left = 202 - Top = 170 - Width = 240 - Height = 17 - Caption = 'Debug messages' - TabOrder = 10 - OnClick = Modified - end - object editLogDir: TButtonedEdit - Left = 202 - Top = 62 - Width = 495 - Height = 21 - Anchors = [akLeft, akTop, akRight] - Enabled = False - Images = MainForm.ImageListMain - RightButton.ImageIndex = 51 - RightButton.Visible = True - TabOrder = 5 - Text = 'editLogDir' - TextHint = 'Select output directory' - OnChange = Modified - OnDblClick = editLogDirRightButtonClick - OnRightButtonClick = editLogDirRightButtonClick - end - object chkQueryHistory: TCheckBox - Left = 8 - Top = 200 - Width = 176 - Height = 17 - Caption = 'Enable query history' - TabOrder = 11 - OnClick = chkQueryHistoryClick - end - object chkHorizontalScrollbar: TCheckBox - Left = 8 - Top = 223 - Width = 434 - Height = 17 - Caption = 'Horizontal scrollbar' - TabOrder = 12 - OnClick = Modified - end - object editQueryHistoryKeepDays: TEdit - Left = 202 - Top = 198 - Width = 53 - Height = 21 - Enabled = False - TabOrder = 13 - Text = '1' - OnChange = Modified - end - object updownQueryHistoryKeepDays: TUpDown - Left = 255 - Top = 198 - Width = 16 - Height = 21 - Associate = editQueryHistoryKeepDays - Enabled = False - Min = 1 - Max = 365 - Position = 1 - TabOrder = 14 - OnChanging = anyUpDownLimitChanging + DesignSize = ( + 710 + 395) + object Label4: TLabel + Left = 8 + Top = 11 + Width = 37 + Height = 13 + Caption = 'Log last' + end + object lblLogLinesHint: TLabel + Left = 278 + Top = 11 + Width = 71 + Height = 13 + Caption = 'lines in SQL log' + end + object lblLogSnipHint: TLabel + Left = 278 + Top = 38 + Width = 139 + Height = 13 + Caption = 'characters (0 = no snipping)' + end + object lblLogSnip: TLabel + Left = 8 + Top = 38 + Width = 96 + Height = 13 + Caption = 'Snip SQL log lines to' + end + object lblLogLevel: TLabel + Left = 8 + Top = 95 + Width = 57 + Height = 13 + Caption = 'Log events:' + end + object lblQueryHistoryKeepDays: TLabel + Left = 278 + Top = 201 + Width = 209 + Height = 13 + Caption = 'days to keep queries before removing them' + end + object editLogLines: TEdit + Left = 202 + Top = 8 + Width = 53 + Height = 21 + TabOrder = 0 + Text = '1' + OnChange = Modified + end + object updownLogLines: TUpDown + Left = 255 + Top = 8 + Width = 16 + Height = 21 + Associate = editLogLines + Min = 1 + Max = 32767 + Position = 1 + TabOrder = 1 + Wrap = True + OnChanging = anyUpDownLimitChanging + end + object updownLogSnip: TUpDown + Left = 255 + Top = 35 + Width = 16 + Height = 21 + Associate = editLogSnip + Max = 32767 + Position = 2000 + TabOrder = 3 + OnChanging = anyUpDownLimitChanging + end + object editLogSnip: TEdit + Left = 202 + Top = 35 + Width = 53 + Height = 21 + TabOrder = 2 + Text = '2.000' + OnChange = Modified + end + object chkLogToFile: TCheckBox + Left = 8 + Top = 64 + Width = 442 + Height = 17 + Anchors = [akLeft, akTop, akRight] + Caption = 'Write SQL log to file' + TabOrder = 4 + OnClick = chkLogToFileClick + end + object chkLogEventErrors: TCheckBox + Left = 202 + Top = 94 + Width = 240 + Height = 17 + Caption = 'Errors' + TabOrder = 6 + OnClick = Modified + end + object chkLogEventUserGeneratedSQL: TCheckBox + Left = 202 + Top = 113 + Width = 240 + Height = 17 + Caption = 'User-generated SQL queries' + TabOrder = 7 + OnClick = Modified + end + object chkLogEventSQL: TCheckBox + Left = 202 + Top = 132 + Width = 240 + Height = 17 + Caption = 'Internal SQL queries' + TabOrder = 8 + OnClick = Modified + end + object chkLogEventInfo: TCheckBox + Left = 202 + Top = 151 + Width = 240 + Height = 17 + Caption = 'Information messages' + TabOrder = 9 + OnClick = Modified + end + object chkLogEventDebug: TCheckBox + Left = 202 + Top = 170 + Width = 240 + Height = 17 + Caption = 'Debug messages' + TabOrder = 10 + OnClick = Modified + end + object editLogDir: TButtonedEdit + Left = 202 + Top = 62 + Width = 495 + Height = 21 + Anchors = [akLeft, akTop, akRight] + Enabled = False + Images = MainForm.ImageListMain + RightButton.ImageIndex = 51 + RightButton.Visible = True + TabOrder = 5 + Text = 'editLogDir' + TextHint = 'Select output directory' + OnChange = Modified + OnDblClick = editLogDirRightButtonClick + OnRightButtonClick = editLogDirRightButtonClick + end + object chkQueryHistory: TCheckBox + Left = 8 + Top = 200 + Width = 176 + Height = 17 + Caption = 'Enable query history' + TabOrder = 11 + OnClick = chkQueryHistoryClick + end + object chkHorizontalScrollbar: TCheckBox + Left = 8 + Top = 223 + Width = 434 + Height = 17 + Caption = 'Horizontal scrollbar' + TabOrder = 12 + OnClick = Modified + end + object editQueryHistoryKeepDays: TEdit + Left = 202 + Top = 198 + Width = 53 + Height = 21 + Enabled = False + TabOrder = 13 + Text = '1' + OnChange = Modified + end + object updownQueryHistoryKeepDays: TUpDown + Left = 255 + Top = 198 + Width = 16 + Height = 21 + Associate = editQueryHistoryKeepDays + Enabled = False + Min = 1 + Max = 365 + Position = 1 + TabOrder = 14 + OnChanging = anyUpDownLimitChanging + end end end object tabSQL: TTabSheet Caption = 'SQL' ImageIndex = 57 - DesignSize = ( - 710 - 395) - object lblFont: TLabel - Left = 8 - Top = 11 - Width = 55 - Height = 13 - Caption = 'Editor font:' - end - object lblSQLFontSize: TLabel - Left = 689 - Top = 11 - Width = 10 - Height = 13 - Anchors = [akTop, akRight] - Caption = 'pt' - end - object Label1: TLabel - Left = 8 - Top = 37 - Width = 51 - Height = 13 - Caption = 'Tab width:' - end - object lblMaxQueryResults: TLabel - Left = 8 - Top = 64 - Width = 101 - Height = 13 - Caption = 'Maximum result sets:' - end - object lblSQLColElement: TLabel - Left = 8 - Top = 165 - Width = 42 - Height = 13 - Caption = 'Element:' - end - object lblSQLColBackground: TLabel - Left = 489 - Top = 191 - Width = 60 - Height = 13 - Anchors = [akTop, akRight] - Caption = 'Background:' - end - object lblSQLColForeground: TLabel - Left = 489 - Top = 165 - Width = 60 - Height = 13 - Anchors = [akTop, akRight] - Caption = 'Foreground:' - end - object comboSQLFontName: TComboBox - Left = 191 - Top = 8 - Width = 423 - Height = 21 - Style = csDropDownList - Anchors = [akLeft, akTop, akRight] + object pnlDpiHelperSql: TPanel + Left = 0 + Top = 0 + Width = 710 + Height = 395 + Align = alClient + BevelOuter = bvNone + Caption = 'pnlDpiHelperSql' + ShowCaption = False TabOrder = 0 - OnChange = SQLFontChange - end - object editSQLFontSize: TEdit - Left = 623 - Top = 8 - Width = 41 - Height = 21 - Anchors = [akTop, akRight] - TabOrder = 1 - Text = '9' - OnExit = SQLFontChange - end - object updownSQLFontSize: TUpDown - Left = 664 - Top = 8 - Width = 16 - Height = 21 - Anchors = [akTop, akRight] - Associate = editSQLFontSize - Position = 9 - TabOrder = 2 - OnClick = updownSQLFontSizeClick - end - object chkCompletionProposal: TCheckBox - Left = 8 - Top = 89 - Width = 363 - Height = 17 - Anchors = [akLeft, akTop, akRight] - Caption = 'Enable autocompletion' - TabOrder = 8 - OnClick = Modified - end - object chkTabsToSpaces: TCheckBox - Left = 264 - Top = 36 - Width = 437 - Height = 17 - Anchors = [akLeft, akTop, akRight] - Caption = 'Tabs to spaces' - TabOrder = 5 - OnClick = Modified - end - object editSQLTabWidth: TEdit - Left = 191 - Top = 34 - Width = 41 - Height = 21 - TabOrder = 3 - Text = '0' - OnExit = SQLFontChange - end - object updownSQLTabWidth: TUpDown - Left = 232 - Top = 34 - Width = 16 - Height = 21 - Associate = editSQLTabWidth - TabOrder = 4 - OnClick = updownSQLFontSizeClick - end - object chkAskFileSave: TCheckBox - Left = 8 - Top = 113 - Width = 363 - Height = 17 - Anchors = [akLeft, akTop, akRight] - Caption = 'Prompt to save modified files on tab close' - Checked = True - State = cbChecked - TabOrder = 10 - OnClick = Modified - end - object editMaxQueryResults: TEdit - Left = 191 - Top = 61 - Width = 41 - Height = 21 - TabOrder = 6 - Text = '1' - OnChange = Modified - end - object updownMaxQueryResults: TUpDown - Left = 232 - Top = 61 - Width = 16 - Height = 21 - Associate = editMaxQueryResults - Min = 1 - Position = 1 - TabOrder = 7 - OnChanging = anyUpDownLimitChanging - end - object comboSQLColElement: TComboBox - Left = 67 - Top = 162 - Width = 407 - Height = 21 - Style = csDropDownList - Anchors = [akLeft, akTop, akRight] - TabOrder = 12 - OnChange = comboSQLColElementChange - end - object chkSQLBold: TCheckBox - Left = 67 - Top = 189 - Width = 130 - Height = 17 - Caption = 'Bold' - TabOrder = 13 - OnClick = SQLFontChange - end - object chkSQLItalic: TCheckBox - Left = 203 - Top = 189 - Width = 271 - Height = 17 - Anchors = [akLeft, akTop, akRight] - Caption = 'Italic' - TabOrder = 14 - OnClick = SQLFontChange - end - object cboxSQLColForeground: TColorBox - Left = 583 - Top = 162 - Width = 118 - Height = 22 - Style = [cbStandardColors, cbExtendedColors, cbIncludeNone, cbCustomColor, cbPrettyNames, cbCustomColors] - Anchors = [akTop, akRight] - TabOrder = 15 - OnChange = SQLFontChange - end - object cboxSQLColBackground: TColorBox - Left = 583 - Top = 188 - Width = 118 - Height = 22 - Style = [cbStandardColors, cbExtendedColors, cbIncludeNone, cbCustomColor, cbPrettyNames, cbCustomColors] - Anchors = [akTop, akRight] - TabOrder = 16 - OnChange = SQLFontChange - end - object SynMemoSQLSample: TSynMemo - AlignWithMargins = True - Left = 8 - Top = 215 - Width = 693 - Height = 177 - Cursor = crHandPoint - SingleLineMode = False - Anchors = [akLeft, akTop, akRight, akBottom] - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Courier New' - Font.Style = [] - TabOrder = 17 - OnClick = SynMemoSQLSampleClick - CodeFolding.GutterShapeSize = 11 - CodeFolding.CollapsedLineColor = clGrayText - CodeFolding.FolderBarLinesColor = clGrayText - CodeFolding.IndentGuidesColor = clGray - CodeFolding.IndentGuides = True - CodeFolding.ShowCollapsedLine = False - CodeFolding.ShowHintMark = True - UseCodeFolding = False - Gutter.Font.Charset = DEFAULT_CHARSET - Gutter.Font.Color = clWindowText - Gutter.Font.Height = -11 - Gutter.Font.Name = 'Courier New' - Gutter.Font.Style = [] - Gutter.Visible = False - Gutter.Width = 0 - Highlighter = SynSQLSynSQLSample - Lines.Strings = ( - 'SynMemoSQLSample') - Options = [eoAutoIndent, eoDragDropEditing, eoEnhanceEndKey, eoGroupUndo, eoHideShowScrollbars, eoNoCaret, eoShowScrollHint, eoSmartTabDelete, eoSmartTabs, eoTabsToSpaces] - ReadOnly = True - RightEdge = 0 - TabWidth = 2 - WordWrap = True - OnChange = SQLFontChange - FontSmoothing = fsmNone - end - object chkQueryWarningsMessage: TCheckBox - Left = 8 - Top = 136 - Width = 363 - Height = 17 - Caption = 'Show query warnings dialog' - TabOrder = 11 - OnClick = Modified - end - object chkAutoUppercase: TCheckBox - Left = 377 - Top = 89 - Width = 320 - Height = 17 - Caption = 'Auto uppercase reserved words and functions' - TabOrder = 9 - OnClick = Modified + DesignSize = ( + 710 + 395) + object lblFont: TLabel + Left = 8 + Top = 11 + Width = 55 + Height = 13 + Caption = 'Editor font:' + end + object lblSQLFontSize: TLabel + Left = 689 + Top = 11 + Width = 10 + Height = 13 + Anchors = [akTop, akRight] + Caption = 'pt' + end + object Label1: TLabel + Left = 8 + Top = 37 + Width = 51 + Height = 13 + Caption = 'Tab width:' + end + object lblMaxQueryResults: TLabel + Left = 8 + Top = 64 + Width = 101 + Height = 13 + Caption = 'Maximum result sets:' + end + object lblSQLColElement: TLabel + Left = 8 + Top = 165 + Width = 42 + Height = 13 + Caption = 'Element:' + end + object lblSQLColBackground: TLabel + Left = 489 + Top = 191 + Width = 60 + Height = 13 + Anchors = [akTop, akRight] + Caption = 'Background:' + end + object lblSQLColForeground: TLabel + Left = 489 + Top = 165 + Width = 60 + Height = 13 + Anchors = [akTop, akRight] + Caption = 'Foreground:' + end + object comboSQLFontName: TComboBox + Left = 191 + Top = 8 + Width = 423 + Height = 21 + Style = csDropDownList + Anchors = [akLeft, akTop, akRight] + TabOrder = 0 + OnChange = SQLFontChange + end + object editSQLFontSize: TEdit + Left = 623 + Top = 8 + Width = 41 + Height = 21 + Anchors = [akTop, akRight] + TabOrder = 1 + Text = '9' + OnExit = SQLFontChange + end + object updownSQLFontSize: TUpDown + Left = 664 + Top = 8 + Width = 16 + Height = 21 + Anchors = [akTop, akRight] + Associate = editSQLFontSize + Position = 9 + TabOrder = 2 + OnClick = updownSQLFontSizeClick + end + object chkCompletionProposal: TCheckBox + Left = 8 + Top = 89 + Width = 363 + Height = 17 + Anchors = [akLeft, akTop, akRight] + Caption = 'Enable autocompletion' + TabOrder = 8 + OnClick = Modified + end + object chkTabsToSpaces: TCheckBox + Left = 264 + Top = 36 + Width = 437 + Height = 17 + Anchors = [akLeft, akTop, akRight] + Caption = 'Tabs to spaces' + TabOrder = 5 + OnClick = Modified + end + object editSQLTabWidth: TEdit + Left = 191 + Top = 34 + Width = 41 + Height = 21 + TabOrder = 3 + Text = '0' + OnExit = SQLFontChange + end + object updownSQLTabWidth: TUpDown + Left = 232 + Top = 34 + Width = 16 + Height = 21 + Associate = editSQLTabWidth + TabOrder = 4 + OnClick = updownSQLFontSizeClick + end + object chkAskFileSave: TCheckBox + Left = 8 + Top = 113 + Width = 363 + Height = 17 + Anchors = [akLeft, akTop, akRight] + Caption = 'Prompt to save modified files on tab close' + Checked = True + State = cbChecked + TabOrder = 10 + OnClick = Modified + end + object editMaxQueryResults: TEdit + Left = 191 + Top = 61 + Width = 41 + Height = 21 + TabOrder = 6 + Text = '1' + OnChange = Modified + end + object updownMaxQueryResults: TUpDown + Left = 232 + Top = 61 + Width = 16 + Height = 21 + Associate = editMaxQueryResults + Min = 1 + Position = 1 + TabOrder = 7 + OnChanging = anyUpDownLimitChanging + end + object comboSQLColElement: TComboBox + Left = 67 + Top = 162 + Width = 407 + Height = 21 + Style = csDropDownList + Anchors = [akLeft, akTop, akRight] + TabOrder = 12 + OnChange = comboSQLColElementChange + end + object chkSQLBold: TCheckBox + Left = 67 + Top = 189 + Width = 130 + Height = 17 + Caption = 'Bold' + TabOrder = 13 + OnClick = SQLFontChange + end + object chkSQLItalic: TCheckBox + Left = 203 + Top = 189 + Width = 271 + Height = 17 + Anchors = [akLeft, akTop, akRight] + Caption = 'Italic' + TabOrder = 14 + OnClick = SQLFontChange + end + object cboxSQLColForeground: TColorBox + Left = 583 + Top = 162 + Width = 118 + Height = 22 + Style = [cbStandardColors, cbExtendedColors, cbIncludeNone, cbCustomColor, cbPrettyNames, cbCustomColors] + Anchors = [akTop, akRight] + TabOrder = 15 + OnChange = SQLFontChange + end + object cboxSQLColBackground: TColorBox + Left = 583 + Top = 188 + Width = 118 + Height = 22 + Style = [cbStandardColors, cbExtendedColors, cbIncludeNone, cbCustomColor, cbPrettyNames, cbCustomColors] + Anchors = [akTop, akRight] + TabOrder = 16 + OnChange = SQLFontChange + end + object SynMemoSQLSample: TSynMemo + AlignWithMargins = True + Left = 8 + Top = 215 + Width = 693 + Height = 176 + Cursor = crHandPoint + SingleLineMode = False + Anchors = [akLeft, akTop, akRight, akBottom] + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -13 + Font.Name = 'Courier New' + Font.Style = [] + TabOrder = 17 + OnClick = SynMemoSQLSampleClick + CodeFolding.GutterShapeSize = 11 + CodeFolding.CollapsedLineColor = clGrayText + CodeFolding.FolderBarLinesColor = clGrayText + CodeFolding.IndentGuidesColor = clGray + CodeFolding.IndentGuides = True + CodeFolding.ShowCollapsedLine = False + CodeFolding.ShowHintMark = True + UseCodeFolding = False + Gutter.Font.Charset = DEFAULT_CHARSET + Gutter.Font.Color = clWindowText + Gutter.Font.Height = -11 + Gutter.Font.Name = 'Courier New' + Gutter.Font.Style = [] + Gutter.Visible = False + Gutter.Width = 0 + Highlighter = SynSQLSynSQLSample + Lines.Strings = ( + 'SynMemoSQLSample') + Options = [eoAutoIndent, eoDragDropEditing, eoEnhanceEndKey, eoGroupUndo, eoHideShowScrollbars, eoNoCaret, eoShowScrollHint, eoSmartTabDelete, eoSmartTabs, eoTabsToSpaces] + ReadOnly = True + RightEdge = 0 + TabWidth = 2 + WordWrap = True + OnChange = SQLFontChange + FontSmoothing = fsmNone + end + object chkQueryWarningsMessage: TCheckBox + Left = 8 + Top = 136 + Width = 363 + Height = 17 + Caption = 'Show query warnings dialog' + TabOrder = 11 + OnClick = Modified + end + object chkAutoUppercase: TCheckBox + Left = 377 + Top = 89 + Width = 320 + Height = 17 + Caption = 'Auto uppercase reserved words and functions' + TabOrder = 9 + OnClick = Modified + end end end object tabGridFormatting: TTabSheet Caption = 'Grid formatting' ImageIndex = 41 - DesignSize = ( - 710 - 395) - object lblMaxColWidth: TLabel - Left = 8 - Top = 11 - Width = 176 - Height = 13 - Caption = 'Maximum column width in data-grids:' - end - object lblDataFontHint: TLabel - Left = 632 - Top = 87 - Width = 10 - Height = 13 - Anchors = [akTop, akRight] - Caption = 'pt' - end - object lblDataFont: TLabel - Left = 8 - Top = 87 - Width = 26 - Height = 13 - Caption = '&Font:' - FocusControl = comboDataFontName - end - object lblMaxTotalRows: TLabel - Left = 8 - Top = 36 - Width = 267 - Height = 13 - Caption = 'Number of rows displayed in data tab (Step, Maximum):' - end - object lblGridRowsLinecount: TLabel - Left = 8 - Top = 61 - Width = 122 - Height = 13 - Caption = 'Lines of text in grid rows:' - end - object lblGridTextColors: TLabel - Left = 8 - Top = 112 - Width = 77 - Height = 13 - Caption = 'Grid text colors:' - end - object lblNullBackground: TLabel - Left = 8 - Top = 140 - Width = 226 - Height = 13 - Caption = 'NULL background color (use "None" to disable):' - end - object Label2: TLabel - Left = 8 - Top = 168 - Width = 137 - Height = 13 - Caption = 'Alternating row background:' - end - object Label3: TLabel - Left = 8 - Top = 196 - Width = 268 - Height = 13 - Caption = 'Background for fields with same text as in focused field:' - end - object editMaxColWidth: TEdit - Left = 430 - Top = 8 - Width = 42 - Height = 21 - Anchors = [akTop, akRight] + object pnlDpiHelperGrid: TPanel + Left = 0 + Top = 0 + Width = 710 + Height = 395 + Align = alClient + BevelOuter = bvNone + Caption = 'pnlDpiHelperGrid' + ShowCaption = False TabOrder = 0 - Text = '1' - OnChange = Modified - end - object updownMaxColWidth: TUpDown - Left = 472 - Top = 8 - Width = 16 - Height = 21 - Anchors = [akTop, akRight] - Associate = editMaxColWidth - Min = 1 - Max = 1000 - Position = 1 - TabOrder = 1 - OnChanging = anyUpDownLimitChanging - end - object comboDataFontName: TComboBox - Left = 430 - Top = 83 - Width = 133 - Height = 21 - Style = csDropDownList - Anchors = [akTop, akRight] - TabOrder = 6 - OnChange = DataFontsChange - end - object editDataFontSize: TEdit - Left = 569 - Top = 83 - Width = 42 - Height = 21 - Anchors = [akTop, akRight] - TabOrder = 7 - Text = '8' - OnChange = DataFontsChange - end - object updownDataFontSize: TUpDown - Left = 611 - Top = 83 - Width = 16 - Height = 21 - Anchors = [akTop, akRight] - Associate = editDataFontSize - Position = 8 - TabOrder = 8 - end - object editGridRowCountMax: TEdit - Left = 569 - Top = 33 - Width = 132 - Height = 21 - Anchors = [akTop, akRight] - NumbersOnly = True - TabOrder = 3 - OnChange = Modified - OnExit = editGridRowCountExit - end - object editGridRowCountStep: TEdit - Left = 430 - Top = 33 - Width = 133 - Height = 21 - Anchors = [akTop, akRight] - NumbersOnly = True - TabOrder = 2 - OnChange = Modified - OnExit = editGridRowCountExit - end - object editGridRowsLineCount: TEdit - Left = 430 - Top = 58 - Width = 42 - Height = 21 - Anchors = [akTop, akRight] - TabOrder = 4 - Text = '1' - OnChange = Modified - end - object updownGridRowsLineCount: TUpDown - Left = 472 - Top = 58 - Width = 16 - Height = 21 - Anchors = [akTop, akRight] - Associate = editGridRowsLineCount - Min = 1 - Position = 1 - TabOrder = 5 - OnChanging = anyUpDownLimitChanging - end - object comboGridTextColors: TComboBox - Left = 430 - Top = 109 - Width = 133 - Height = 21 - Style = csDropDownList - Anchors = [akTop, akRight] - TabOrder = 9 - OnSelect = comboGridTextColorsSelect - end - object colorBoxGridTextColors: TColorBox - Left = 569 - Top = 109 - Width = 132 - Height = 22 - Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbCustomColor, cbPrettyNames] - Anchors = [akTop, akRight] - TabOrder = 10 - OnSelect = colorBoxGridTextColorsSelect - end - object cboxNullBackground: TColorBox - Left = 430 - Top = 137 - Width = 133 - Height = 22 - Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbIncludeNone, cbCustomColor, cbPrettyNames] - Anchors = [akTop, akRight] - TabOrder = 11 - OnChange = Modified - OnSelect = Modified - end - object cboxRowBackgroundOdd: TColorBox - Left = 569 - Top = 165 - Width = 132 - Height = 22 - Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbIncludeNone, cbCustomColor, cbPrettyNames] - Anchors = [akTop, akRight] - TabOrder = 13 - OnChange = Modified - end - object cboxRowBackgroundEven: TColorBox - Left = 430 - Top = 165 - Width = 133 - Height = 22 - Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbIncludeNone, cbCustomColor, cbPrettyNames] - Anchors = [akTop, akRight] - TabOrder = 12 - OnChange = Modified - end - object chkLocalNumberFormat: TCheckBox - Left = 8 - Top = 223 - Width = 693 - Height = 17 - Anchors = [akLeft, akTop, akRight] - Caption = 'Local number format' - TabOrder = 15 - OnClick = Modified - end - object chkHintsOnResultTabs: TCheckBox - Left = 8 - Top = 246 - Width = 693 - Height = 17 - Anchors = [akLeft, akTop, akRight] - Caption = 'Pop up SQL text over result tabs' - TabOrder = 16 - OnClick = Modified - end - object cboxRowHighlightSameText: TColorBox - Left = 430 - Top = 193 - Width = 133 - Height = 22 - Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbIncludeNone, cbCustomColor, cbPrettyNames] - Anchors = [akTop, akRight] - TabOrder = 14 + DesignSize = ( + 710 + 395) + object lblMaxColWidth: TLabel + Left = 8 + Top = 11 + Width = 176 + Height = 13 + Caption = 'Maximum column width in data-grids:' + end + object lblDataFontHint: TLabel + Left = 632 + Top = 87 + Width = 10 + Height = 13 + Anchors = [akTop, akRight] + Caption = 'pt' + end + object lblDataFont: TLabel + Left = 8 + Top = 87 + Width = 26 + Height = 13 + Caption = '&Font:' + FocusControl = comboDataFontName + end + object lblMaxTotalRows: TLabel + Left = 8 + Top = 36 + Width = 267 + Height = 13 + Caption = 'Number of rows displayed in data tab (Step, Maximum):' + end + object lblGridRowsLinecount: TLabel + Left = 8 + Top = 61 + Width = 122 + Height = 13 + Caption = 'Lines of text in grid rows:' + end + object lblGridTextColors: TLabel + Left = 8 + Top = 112 + Width = 77 + Height = 13 + Caption = 'Grid text colors:' + end + object lblNullBackground: TLabel + Left = 8 + Top = 140 + Width = 226 + Height = 13 + Caption = 'NULL background color (use "None" to disable):' + end + object Label2: TLabel + Left = 8 + Top = 168 + Width = 137 + Height = 13 + Caption = 'Alternating row background:' + end + object Label3: TLabel + Left = 8 + Top = 196 + Width = 268 + Height = 13 + Caption = 'Background for fields with same text as in focused field:' + end + object editMaxColWidth: TEdit + Left = 430 + Top = 8 + Width = 42 + Height = 21 + Anchors = [akTop, akRight] + TabOrder = 0 + Text = '1' + OnChange = Modified + end + object updownMaxColWidth: TUpDown + Left = 472 + Top = 8 + Width = 16 + Height = 21 + Anchors = [akTop, akRight] + Associate = editMaxColWidth + Min = 1 + Max = 1000 + Position = 1 + TabOrder = 1 + OnChanging = anyUpDownLimitChanging + end + object comboDataFontName: TComboBox + Left = 430 + Top = 83 + Width = 133 + Height = 21 + Style = csDropDownList + Anchors = [akTop, akRight] + TabOrder = 6 + OnChange = DataFontsChange + end + object editDataFontSize: TEdit + Left = 569 + Top = 83 + Width = 42 + Height = 21 + Anchors = [akTop, akRight] + TabOrder = 7 + Text = '8' + OnChange = DataFontsChange + end + object updownDataFontSize: TUpDown + Left = 611 + Top = 83 + Width = 16 + Height = 21 + Anchors = [akTop, akRight] + Associate = editDataFontSize + Position = 8 + TabOrder = 8 + end + object editGridRowCountMax: TEdit + Left = 569 + Top = 33 + Width = 132 + Height = 21 + Anchors = [akTop, akRight] + NumbersOnly = True + TabOrder = 3 + OnChange = Modified + OnExit = editGridRowCountExit + end + object editGridRowCountStep: TEdit + Left = 430 + Top = 33 + Width = 133 + Height = 21 + Anchors = [akTop, akRight] + NumbersOnly = True + TabOrder = 2 + OnChange = Modified + OnExit = editGridRowCountExit + end + object editGridRowsLineCount: TEdit + Left = 430 + Top = 58 + Width = 42 + Height = 21 + Anchors = [akTop, akRight] + TabOrder = 4 + Text = '1' + OnChange = Modified + end + object updownGridRowsLineCount: TUpDown + Left = 472 + Top = 58 + Width = 16 + Height = 21 + Anchors = [akTop, akRight] + Associate = editGridRowsLineCount + Min = 1 + Position = 1 + TabOrder = 5 + OnChanging = anyUpDownLimitChanging + end + object comboGridTextColors: TComboBox + Left = 430 + Top = 109 + Width = 133 + Height = 21 + Style = csDropDownList + Anchors = [akTop, akRight] + TabOrder = 9 + OnSelect = comboGridTextColorsSelect + end + object colorBoxGridTextColors: TColorBox + Left = 569 + Top = 109 + Width = 132 + Height = 22 + Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbCustomColor, cbPrettyNames] + Anchors = [akTop, akRight] + TabOrder = 10 + OnSelect = colorBoxGridTextColorsSelect + end + object cboxNullBackground: TColorBox + Left = 430 + Top = 137 + Width = 133 + Height = 22 + Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbIncludeNone, cbCustomColor, cbPrettyNames] + Anchors = [akTop, akRight] + TabOrder = 11 + OnChange = Modified + OnSelect = Modified + end + object cboxRowBackgroundOdd: TColorBox + Left = 569 + Top = 165 + Width = 132 + Height = 22 + Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbIncludeNone, cbCustomColor, cbPrettyNames] + Anchors = [akTop, akRight] + TabOrder = 13 + OnChange = Modified + end + object cboxRowBackgroundEven: TColorBox + Left = 430 + Top = 165 + Width = 133 + Height = 22 + Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbIncludeNone, cbCustomColor, cbPrettyNames] + Anchors = [akTop, akRight] + TabOrder = 12 + OnChange = Modified + end + object chkLocalNumberFormat: TCheckBox + Left = 8 + Top = 223 + Width = 693 + Height = 17 + Anchors = [akLeft, akTop, akRight] + Caption = 'Local number format' + TabOrder = 15 + OnClick = Modified + end + object chkHintsOnResultTabs: TCheckBox + Left = 8 + Top = 246 + Width = 693 + Height = 17 + Anchors = [akLeft, akTop, akRight] + Caption = 'Pop up SQL text over result tabs' + TabOrder = 16 + OnClick = Modified + end + object cboxRowHighlightSameText: TColorBox + Left = 430 + Top = 193 + Width = 133 + Height = 22 + Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbIncludeNone, cbCustomColor, cbPrettyNames] + Anchors = [akTop, akRight] + TabOrder = 14 + end end end object tabDataEditors: TTabSheet Caption = 'Data editors' ImageIndex = 33 - DesignSize = ( - 710 - 395) - object lblLineBreakStyle: TLabel - Left = 8 - Top = 188 - Width = 111 - Height = 13 - Caption = 'Default linebreak style:' - end - object chkEditorBinary: TCheckBox - Left = 8 - Top = 8 - Width = 693 - Height = 17 - Anchors = [akLeft, akTop, akRight] - Caption = 'Enable popup BLOB/HEX editor' + object pnlDpiHelperData: TPanel + Left = 0 + Top = 0 + Width = 710 + Height = 395 + Align = alClient + BevelOuter = bvNone + Caption = 'pnlDpiHelperData' + ShowCaption = False TabOrder = 0 - OnClick = Modified - end - object chkEditorDatetime: TCheckBox - Left = 8 - Top = 31 - Width = 693 - Height = 17 - Anchors = [akLeft, akTop, akRight] - Caption = 'Enable inplace date/time editor' - TabOrder = 1 - OnClick = Modified - end - object chkPrefillDateTime: TCheckBox - Left = 24 - Top = 54 - Width = 677 - Height = 17 - Anchors = [akLeft, akTop, akRight] - Caption = 'Prefill empty date/time fields with current date/time' - TabOrder = 2 - OnClick = Modified - end - object chkEditorEnum: TCheckBox - Left = 8 - Top = 77 - Width = 693 - Height = 17 - Anchors = [akLeft, akTop, akRight] - Caption = 'Enable ENUM pulldown editor' - TabOrder = 3 - OnClick = Modified - end - object chkEditorSet: TCheckBox - Left = 8 - Top = 100 - Width = 693 - Height = 17 - Anchors = [akLeft, akTop, akRight] - Caption = 'Enable SET checkbox editor' - TabOrder = 4 - OnClick = Modified - end - object chkReuseEditorConfiguration: TCheckBox - Left = 8 - Top = 139 - Width = 693 - Height = 17 - Anchors = [akLeft, akTop, akRight] - Caption = 'Remember filters, sorting and column selection across sessions' - TabOrder = 5 - end - object chkForeignDropDown: TCheckBox - Left = 8 - Top = 162 - Width = 693 - Height = 17 - Anchors = [akLeft, akTop, akRight] - Caption = 'Show values in foreign key columns' - TabOrder = 6 - end - object comboLineBreakStyle: TComboBox - Left = 314 - Top = 185 - Width = 271 - Height = 21 - Style = csDropDownList - TabOrder = 7 + DesignSize = ( + 710 + 395) + object lblLineBreakStyle: TLabel + Left = 8 + Top = 188 + Width = 111 + Height = 13 + Caption = 'Default linebreak style:' + end + object chkEditorBinary: TCheckBox + Left = 8 + Top = 8 + Width = 693 + Height = 17 + Anchors = [akLeft, akTop, akRight] + Caption = 'Enable popup BLOB/HEX editor' + TabOrder = 0 + OnClick = Modified + end + object chkEditorDatetime: TCheckBox + Left = 8 + Top = 31 + Width = 693 + Height = 17 + Anchors = [akLeft, akTop, akRight] + Caption = 'Enable inplace date/time editor' + TabOrder = 1 + OnClick = Modified + end + object chkPrefillDateTime: TCheckBox + Left = 24 + Top = 54 + Width = 677 + Height = 17 + Anchors = [akLeft, akTop, akRight] + Caption = 'Prefill empty date/time fields with current date/time' + TabOrder = 2 + OnClick = Modified + end + object chkEditorEnum: TCheckBox + Left = 8 + Top = 77 + Width = 693 + Height = 17 + Anchors = [akLeft, akTop, akRight] + Caption = 'Enable ENUM pulldown editor' + TabOrder = 3 + OnClick = Modified + end + object chkEditorSet: TCheckBox + Left = 8 + Top = 100 + Width = 693 + Height = 17 + Anchors = [akLeft, akTop, akRight] + Caption = 'Enable SET checkbox editor' + TabOrder = 4 + OnClick = Modified + end + object chkReuseEditorConfiguration: TCheckBox + Left = 8 + Top = 139 + Width = 693 + Height = 17 + Anchors = [akLeft, akTop, akRight] + Caption = 'Remember filters, sorting and column selection across sessions' + TabOrder = 5 + end + object chkForeignDropDown: TCheckBox + Left = 8 + Top = 162 + Width = 693 + Height = 17 + Anchors = [akLeft, akTop, akRight] + Caption = 'Show values in foreign key columns' + TabOrder = 6 + end + object comboLineBreakStyle: TComboBox + Left = 314 + Top = 185 + Width = 271 + Height = 21 + Style = csDropDownList + TabOrder = 7 + end end end object tabShortcuts: TTabSheet Caption = 'Shortcuts' ImageIndex = 13 - DesignSize = ( - 710 - 395) - object lblShortcut1: TLabel - Left = 306 - Top = 64 - Width = 45 - Height = 59 - Anchors = [akLeft, akTop, akBottom] - Caption = 'Shortcut:' - end - object lblShortcutHint: TLabel - Left = 306 - Top = 3 - Width = 279 - Height = 100 - Anchors = [akLeft, akTop, akBottom] - AutoSize = False - Caption = 'Please select a shortcut item in the tree.' - WordWrap = True - end - object lblShortcut2: TLabel - Left = 306 - Top = 107 - Width = 98 - Height = 59 - Anchors = [akLeft, akTop, akBottom] - Caption = 'Secondary shortcut:' - end - object TreeShortcutItems: TVirtualStringTree + object pnlDpiHelperShortcuts: TPanel Left = 0 Top = 0 - Width = 300 + Width = 710 Height = 395 - Align = alLeft - Header.AutoSizeIndex = 0 - Header.MainColumn = -1 - Header.ParentFont = True - Images = MainForm.ImageListMain + Align = alClient + BevelOuter = bvNone + Caption = 'pnlDpiHelperShortcuts' + ShowCaption = False TabOrder = 0 - OnFocusChanged = TreeShortcutItemsFocusChanged - OnGetText = TreeShortcutItemsGetText - OnGetImageIndex = TreeShortcutItemsGetImageIndex - OnGetNodeDataSize = TreeShortcutItemsGetNodeDataSize - OnInitChildren = TreeShortcutItemsInitChildren - OnInitNode = TreeShortcutItemsInitNode - Columns = <> - end - object Shortcut1: TSynHotKey - Left = 306 - Top = 81 - Width = 279 - Height = 19 - HotKey = 32768 - Modifiers = [] - OnChange = Shortcut1Change - OnEnter = ShortcutEnter - OnExit = ShortcutExit - end - object Shortcut2: TSynHotKey - Left = 306 - Top = 125 - Width = 279 - Height = 19 - HotKey = 32768 - Modifiers = [] - OnChange = Shortcut2Change - OnEnter = ShortcutEnter - OnExit = ShortcutExit + DesignSize = ( + 710 + 395) + object lblShortcut1: TLabel + Left = 306 + Top = 64 + Width = 45 + Height = 59 + Anchors = [akLeft, akTop, akBottom] + Caption = 'Shortcut:' + end + object lblShortcutHint: TLabel + Left = 306 + Top = 3 + Width = 279 + Height = 100 + Anchors = [akLeft, akTop, akBottom] + AutoSize = False + Caption = 'Please select a shortcut item in the tree.' + WordWrap = True + end + object lblShortcut2: TLabel + Left = 306 + Top = 107 + Width = 98 + Height = 59 + Anchors = [akLeft, akTop, akBottom] + Caption = 'Secondary shortcut:' + end + object TreeShortcutItems: TVirtualStringTree + Left = 0 + Top = 0 + Width = 300 + Height = 395 + Align = alLeft + Header.AutoSizeIndex = 0 + Header.MainColumn = -1 + Header.ParentFont = True + Images = MainForm.ImageListMain + TabOrder = 0 + OnFocusChanged = TreeShortcutItemsFocusChanged + OnGetText = TreeShortcutItemsGetText + OnGetImageIndex = TreeShortcutItemsGetImageIndex + OnGetNodeDataSize = TreeShortcutItemsGetNodeDataSize + OnInitChildren = TreeShortcutItemsInitChildren + OnInitNode = TreeShortcutItemsInitNode + Columns = <> + end + object Shortcut1: TSynHotKey + Left = 306 + Top = 81 + Width = 279 + Height = 19 + HotKey = 32768 + Modifiers = [] + OnChange = Shortcut1Change + OnEnter = ShortcutEnter + OnExit = ShortcutExit + end + object Shortcut2: TSynHotKey + Left = 306 + Top = 125 + Width = 279 + Height = 19 + HotKey = 32768 + Modifiers = [] + OnChange = Shortcut2Change + OnEnter = ShortcutEnter + OnExit = ShortcutExit + end end end end diff --git a/source/options.pas b/source/options.pas index c775f2e2..bfd66b35 100644 --- a/source/options.pas +++ b/source/options.pas @@ -146,6 +146,12 @@ type chkAutoUppercase: TCheckBox; lblTheme: TLabel; comboTheme: TComboBox; + pnlDpiHelperGeneral: TPanel; + pnlDpiHelperLogging: TPanel; + pnlDpiHelperSql: TPanel; + pnlDpiHelperGrid: TPanel; + pnlDpiHelperData: TPanel; + pnlDpiHelperShortcuts: TPanel; procedure FormShow(Sender: TObject); procedure Modified(Sender: TObject); procedure Apply(Sender: TObject); diff --git a/source/routine_editor.dfm b/source/routine_editor.dfm index 0a363226..54f230d1 100644 --- a/source/routine_editor.dfm +++ b/source/routine_editor.dfm @@ -16,7 +16,6 @@ object frmRoutineEditor: TfrmRoutineEditor Align = alTop Caption = 'Routine body:' FocusControl = SynMemoBody - ExplicitWidth = 68 end object lblDisabledWhy: TLabel Left = 256 @@ -127,142 +126,153 @@ object frmRoutineEditor: TfrmRoutineEditor object tabOptions: TTabSheet Caption = 'Options' ImageIndex = 39 - DesignSize = ( - 686 - 137) - object lblName: TLabel - Left = 3 - Top = 11 - Width = 31 - Height = 13 - Caption = '&Name:' - FocusControl = editName - end - object lblType: TLabel - Left = 3 - Top = 65 - Width = 28 - Height = 13 - Caption = '&Type:' - FocusControl = comboType - end - object lblReturns: TLabel - Left = 3 - Top = 90 - Width = 42 - Height = 13 - Caption = '&Returns:' - FocusControl = comboReturns - end - object lblSQL: TLabel - Left = 408 - Top = 65 - Width = 62 - Height = 13 - Caption = '&Data access:' - FocusControl = comboDataAccess - end - object lblSecurity: TLabel - Left = 408 - Top = 90 - Width = 65 - Height = 13 - Caption = 'SQL Se&curity:' - FocusControl = comboSecurity - end - object lblComment: TLabel - Left = 3 - Top = 38 - Width = 49 - Height = 13 - Caption = '&Comment:' - FocusControl = editComment - end - object lblDefiner: TLabel - Left = 408 - Top = 11 - Width = 39 - Height = 13 - Caption = 'De&finer:' - end - object chkDeterministic: TCheckBox - Left = 84 - Top = 114 - Width = 602 - Height = 17 - Anchors = [akLeft, akTop, akRight] - Caption = '&Deterministic' - TabOrder = 7 - OnClick = Modification - end - object editComment: TEdit - Left = 84 - Top = 35 - Width = 599 - Height = 21 - Anchors = [akLeft, akTop, akRight] - TabOrder = 2 - Text = 'editComment' - OnChange = Modification - end - object comboSecurity: TComboBox - Left = 489 - Top = 87 - Width = 194 - Height = 21 - Style = csDropDownList - Anchors = [akLeft, akTop, akRight] - TabOrder = 6 - OnChange = Modification - end - object comboDataAccess: TComboBox - Left = 489 - Top = 62 - Width = 194 - Height = 21 - Style = csDropDownList - Anchors = [akLeft, akTop, akRight] - TabOrder = 5 - OnChange = Modification - end - object comboReturns: TComboBox - Left = 84 - Top = 87 - Width = 310 - Height = 21 - TabOrder = 4 - Text = 'comboReturns' - OnChange = Modification - end - object comboType: TComboBox - Left = 84 - Top = 62 - Width = 310 - Height = 21 - Style = csDropDownList - TabOrder = 3 - OnSelect = comboTypeSelect - end - object editName: TEdit - Left = 84 - Top = 8 - Width = 310 - Height = 21 + object pnlDpiHelperOptions: TPanel + Left = 0 + Top = 0 + Width = 686 + Height = 137 + Align = alClient + BevelOuter = bvNone + Caption = 'pnlDpiHelperOptions' + ShowCaption = False TabOrder = 0 - Text = 'editName' - TextHint = 'Enter routine name' - OnChange = Modification - end - object comboDefiner: TComboBox - Left = 489 - Top = 8 - Width = 194 - Height = 21 - Anchors = [akLeft, akTop, akRight] - TabOrder = 1 - Text = 'comboDefiner' - OnChange = Modification - OnDropDown = comboDefinerDropDown + DesignSize = ( + 686 + 137) + object lblName: TLabel + Left = 3 + Top = 11 + Width = 31 + Height = 13 + Caption = '&Name:' + FocusControl = editName + end + object lblType: TLabel + Left = 3 + Top = 65 + Width = 28 + Height = 13 + Caption = '&Type:' + FocusControl = comboType + end + object lblReturns: TLabel + Left = 3 + Top = 90 + Width = 42 + Height = 13 + Caption = '&Returns:' + FocusControl = comboReturns + end + object lblSQL: TLabel + Left = 408 + Top = 65 + Width = 62 + Height = 13 + Caption = '&Data access:' + FocusControl = comboDataAccess + end + object lblSecurity: TLabel + Left = 408 + Top = 90 + Width = 65 + Height = 13 + Caption = 'SQL Se&curity:' + FocusControl = comboSecurity + end + object lblComment: TLabel + Left = 3 + Top = 38 + Width = 49 + Height = 13 + Caption = '&Comment:' + FocusControl = editComment + end + object lblDefiner: TLabel + Left = 408 + Top = 11 + Width = 39 + Height = 13 + Caption = 'De&finer:' + end + object chkDeterministic: TCheckBox + Left = 84 + Top = 114 + Width = 602 + Height = 17 + Anchors = [akLeft, akTop, akRight] + Caption = '&Deterministic' + TabOrder = 7 + OnClick = Modification + end + object editComment: TEdit + Left = 84 + Top = 35 + Width = 599 + Height = 21 + Anchors = [akLeft, akTop, akRight] + TabOrder = 2 + Text = 'editComment' + OnChange = Modification + end + object comboSecurity: TComboBox + Left = 489 + Top = 87 + Width = 194 + Height = 21 + Style = csDropDownList + Anchors = [akLeft, akTop, akRight] + TabOrder = 6 + OnChange = Modification + end + object comboDataAccess: TComboBox + Left = 489 + Top = 62 + Width = 194 + Height = 21 + Style = csDropDownList + Anchors = [akLeft, akTop, akRight] + TabOrder = 5 + OnChange = Modification + end + object comboReturns: TComboBox + Left = 84 + Top = 87 + Width = 310 + Height = 21 + TabOrder = 4 + Text = 'comboReturns' + OnChange = Modification + end + object comboType: TComboBox + Left = 84 + Top = 62 + Width = 310 + Height = 21 + Style = csDropDownList + TabOrder = 3 + OnSelect = comboTypeSelect + end + object editName: TEdit + Left = 84 + Top = 8 + Width = 310 + Height = 21 + TabOrder = 0 + Text = 'editName' + TextHint = 'Enter routine name' + OnChange = Modification + end + object comboDefiner: TComboBox + Left = 489 + Top = 8 + Width = 194 + Height = 21 + Anchors = [akLeft, akTop, akRight] + TabOrder = 1 + Text = 'comboDefiner' + OnChange = Modification + OnDropDown = comboDefinerDropDown + end end end object tabParameters: TTabSheet @@ -271,8 +281,8 @@ object frmRoutineEditor: TfrmRoutineEditor object listParameters: TVirtualStringTree Left = 82 Top = 0 - Width = 510 - Height = 138 + Width = 604 + Height = 137 Align = alClient DragImageKind = diMainColumnOnly DragMode = dmAutomatic @@ -306,7 +316,7 @@ object frmRoutineEditor: TfrmRoutineEditor item Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible, coAllowFocus] Position = 1 - Width = 325 + Width = 415 WideText = 'Name' end item @@ -326,7 +336,7 @@ object frmRoutineEditor: TfrmRoutineEditor Left = 0 Top = 0 Width = 82 - Height = 138 + Height = 137 Align = alLeft AutoSize = True ButtonWidth = 82 @@ -385,7 +395,7 @@ object frmRoutineEditor: TfrmRoutineEditor object SynMemoCREATEcode: TSynMemo Left = 0 Top = 0 - Width = 592 + Width = 686 Height = 137 SingleLineMode = False Align = alClient diff --git a/source/routine_editor.pas b/source/routine_editor.pas index 3fbabf19..ec1a7953 100644 --- a/source/routine_editor.pas +++ b/source/routine_editor.pas @@ -45,6 +45,7 @@ type btnMoveDownParam: TToolButton; lblDisabledWhy: TLabel; spltTop: TSplitter; + pnlDpiHelperOptions: TPanel; procedure comboTypeSelect(Sender: TObject); procedure btnSaveClick(Sender: TObject); procedure btnHelpClick(Sender: TObject); diff --git a/source/table_editor.dfm b/source/table_editor.dfm index 2e35ca2c..19227d57 100644 --- a/source/table_editor.dfm +++ b/source/table_editor.dfm @@ -182,205 +182,227 @@ object frmTableEditor: TfrmTableEditor object tabBasic: TTabSheet Caption = 'Basic' ImageIndex = 14 - DesignSize = ( - 686 - 121) - object lblName: TLabel - Left = 4 - Top = 6 - Width = 31 - Height = 13 - Caption = 'Name:' - end - object lblComment: TLabel - Left = 4 - Top = 33 - Width = 49 - Height = 13 - Caption = 'Comment:' - end - object editName: TEdit - Left = 96 - Top = 3 - Width = 589 - Height = 21 - Anchors = [akLeft, akTop, akRight] + object pnlDpiHelperBasic: TPanel + Left = 0 + Top = 0 + Width = 686 + Height = 121 + Align = alClient + BevelOuter = bvNone + Caption = 'pnlDpiHelperBasic' + ShowCaption = False TabOrder = 0 - Text = 'editName' - TextHint = 'Enter table name' - OnChange = Modification - end - object memoComment: TMemo - Left = 96 - Top = 30 - Width = 589 - Height = 80 - Anchors = [akLeft, akTop, akRight, akBottom] - Lines.Strings = ( - 'memoComment') - MaxLength = 60 - ScrollBars = ssVertical - TabOrder = 1 - OnChange = Modification + DesignSize = ( + 686 + 121) + object lblName: TLabel + Left = 4 + Top = 6 + Width = 31 + Height = 13 + Caption = 'Name:' + end + object lblComment: TLabel + Left = 4 + Top = 33 + Width = 49 + Height = 13 + Caption = 'Comment:' + end + object editName: TEdit + Left = 96 + Top = 3 + Width = 589 + Height = 21 + Anchors = [akLeft, akTop, akRight] + TabOrder = 0 + Text = 'editName' + TextHint = 'Enter table name' + OnChange = Modification + end + object memoComment: TMemo + Left = 96 + Top = 30 + Width = 589 + Height = 79 + Anchors = [akLeft, akTop, akRight, akBottom] + Lines.Strings = ( + 'memoComment') + MaxLength = 60 + ScrollBars = ssVertical + TabOrder = 1 + OnChange = Modification + end end end object tabOptions: TTabSheet Caption = 'Options' ImageIndex = 39 - DesignSize = ( - 686 - 121) - object lblAutoinc: TLabel - Left = 4 - Top = 6 - Width = 77 - Height = 13 - Caption = 'Auto increment:' - end - object lblAvgRowLen: TLabel - Left = 4 - Top = 29 - Width = 99 - Height = 13 - Caption = 'Average row length:' - end - object lblInsertMethod: TLabel - Left = 294 - Top = 98 - Width = 79 - Height = 13 - Caption = 'INSERT method:' - end - object lblUnion: TLabel - Left = 294 - Top = 52 - Width = 63 - Height = 13 - Caption = 'Union tables:' - end - object lblMaxRows: TLabel - Left = 4 - Top = 52 - Width = 99 - Height = 13 - Caption = 'Maximum row count:' - end - object lblRowFormat: TLabel - Left = 4 - Top = 98 - Width = 60 - Height = 13 - Caption = 'Row format:' - end - object lblCollation: TLabel - Left = 294 - Top = 6 - Width = 81 - Height = 13 - Caption = 'Default collation:' - end - object lblEngine: TLabel - Left = 294 - Top = 29 - Width = 36 - Height = 13 - Caption = 'Engine:' - end - object editAvgRowLen: TEdit - Left = 178 - Top = 26 - Width = 110 - Height = 21 - TabOrder = 1 - OnChange = editNumEditChange - end - object editMaxRows: TEdit - Left = 178 - Top = 49 - Width = 110 - Height = 21 - TabOrder = 2 - OnChange = editNumEditChange - end - object chkChecksum: TCheckBox - Left = 4 - Top = 75 - Width = 189 - Height = 17 - Alignment = taLeftJustify - Caption = 'Checksum for rows:' - TabOrder = 3 - OnClick = Modification - end - object comboRowFormat: TComboBox - Left = 178 - Top = 95 - Width = 110 - Height = 21 - Style = csDropDownList - TabOrder = 4 - OnChange = Modification - end - object memoUnionTables: TMemo - Left = 408 - Top = 49 - Width = 277 - Height = 44 - Anchors = [akLeft, akTop, akRight] - Lines.Strings = ( - 'memoUnion') - TabOrder = 7 - OnChange = Modification - end - object comboInsertMethod: TComboBox - Left = 408 - Top = 95 - Width = 277 - Height = 21 - Style = csDropDownList - Anchors = [akLeft, akTop, akRight] - TabOrder = 8 - OnClick = Modification - end - object editAutoInc: TEdit - Left = 178 - Top = 3 - Width = 110 - Height = 21 + object pnlDpiHelperOptions: TPanel + Left = 0 + Top = 0 + Width = 686 + Height = 121 + Align = alClient + BevelOuter = bvNone + Caption = 'pnlDpiHelperOptions' + ShowCaption = False TabOrder = 0 - OnChange = editNumEditChange - end - object comboCollation: TComboBox - Left = 408 - Top = 3 - Width = 158 - Height = 21 - Style = csDropDownList - Anchors = [akLeft, akTop, akRight] - DropDownCount = 16 - Sorted = True - TabOrder = 5 - OnChange = chkCharsetConvertClick - end - object comboEngine: TComboBox - Left = 408 - Top = 26 - Width = 277 - Height = 21 - Style = csDropDownList - Anchors = [akLeft, akTop, akRight] - TabOrder = 6 - OnSelect = comboEngineSelect - end - object chkCharsetConvert: TCheckBox - Left = 574 - Top = 5 - Width = 107 - Height = 17 - Anchors = [akTop, akRight] - Caption = 'Convert data' - TabOrder = 9 - OnClick = chkCharsetConvertClick + DesignSize = ( + 686 + 121) + object lblAutoinc: TLabel + Left = 4 + Top = 6 + Width = 77 + Height = 13 + Caption = 'Auto increment:' + end + object lblAvgRowLen: TLabel + Left = 4 + Top = 29 + Width = 99 + Height = 13 + Caption = 'Average row length:' + end + object lblInsertMethod: TLabel + Left = 294 + Top = 98 + Width = 79 + Height = 13 + Caption = 'INSERT method:' + end + object lblUnion: TLabel + Left = 294 + Top = 52 + Width = 63 + Height = 13 + Caption = 'Union tables:' + end + object lblMaxRows: TLabel + Left = 4 + Top = 52 + Width = 99 + Height = 13 + Caption = 'Maximum row count:' + end + object lblRowFormat: TLabel + Left = 4 + Top = 98 + Width = 60 + Height = 13 + Caption = 'Row format:' + end + object lblCollation: TLabel + Left = 294 + Top = 6 + Width = 81 + Height = 13 + Caption = 'Default collation:' + end + object lblEngine: TLabel + Left = 294 + Top = 29 + Width = 36 + Height = 13 + Caption = 'Engine:' + end + object editAvgRowLen: TEdit + Left = 178 + Top = 26 + Width = 110 + Height = 21 + TabOrder = 1 + OnChange = editNumEditChange + end + object editMaxRows: TEdit + Left = 178 + Top = 49 + Width = 110 + Height = 21 + TabOrder = 2 + OnChange = editNumEditChange + end + object chkChecksum: TCheckBox + Left = 4 + Top = 75 + Width = 189 + Height = 17 + Alignment = taLeftJustify + Caption = 'Checksum for rows:' + TabOrder = 3 + OnClick = Modification + end + object comboRowFormat: TComboBox + Left = 178 + Top = 95 + Width = 110 + Height = 21 + Style = csDropDownList + TabOrder = 4 + OnChange = Modification + end + object memoUnionTables: TMemo + Left = 408 + Top = 49 + Width = 277 + Height = 44 + Anchors = [akLeft, akTop, akRight] + Lines.Strings = ( + 'memoUnion') + TabOrder = 7 + OnChange = Modification + end + object comboInsertMethod: TComboBox + Left = 408 + Top = 95 + Width = 277 + Height = 21 + Style = csDropDownList + Anchors = [akLeft, akTop, akRight] + TabOrder = 8 + OnClick = Modification + end + object editAutoInc: TEdit + Left = 178 + Top = 3 + Width = 110 + Height = 21 + TabOrder = 0 + OnChange = editNumEditChange + end + object comboCollation: TComboBox + Left = 408 + Top = 3 + Width = 158 + Height = 21 + Style = csDropDownList + Anchors = [akLeft, akTop, akRight] + DropDownCount = 16 + Sorted = True + TabOrder = 5 + OnChange = chkCharsetConvertClick + end + object comboEngine: TComboBox + Left = 408 + Top = 26 + Width = 277 + Height = 21 + Style = csDropDownList + Anchors = [akLeft, akTop, akRight] + TabOrder = 6 + OnSelect = comboEngineSelect + end + object chkCharsetConvert: TCheckBox + Left = 574 + Top = 5 + Width = 107 + Height = 17 + Anchors = [akTop, akRight] + Caption = 'Convert data' + TabOrder = 9 + OnClick = chkCharsetConvertClick + end end end object tabIndexes: TTabSheet diff --git a/source/table_editor.pas b/source/table_editor.pas index de4ba904..e6d452e1 100644 --- a/source/table_editor.pas +++ b/source/table_editor.pas @@ -87,6 +87,8 @@ type menuPasteColumns: TMenuItem; tabPartitions: TTabSheet; SynMemoPartitions: TSynMemo; + pnlDpiHelperBasic: TPanel; + pnlDpiHelperOptions: TPanel; procedure Modification(Sender: TObject); procedure btnAddColumnClick(Sender: TObject); procedure btnRemoveColumnClick(Sender: TObject); diff --git a/source/tabletools.dfm b/source/tabletools.dfm index 75a13659..6435920e 100644 --- a/source/tabletools.dfm +++ b/source/tabletools.dfm @@ -144,450 +144,493 @@ object frmTableTools: TfrmTableTools object tabMaintenance: TTabSheet Caption = 'Maintenance' ImageIndex = 39 - DesignSize = ( - 592 - 151) - object lblOperation: TLabel - Left = 3 - Top = 14 - Width = 52 - Height = 13 - Caption = 'Operation:' - end - object lblOptions: TLabel - Left = 3 - Top = 39 - Width = 41 - Height = 13 - Caption = 'Options:' - end - object comboOperation: TComboBox - Left = 80 - Top = 11 - Width = 508 - Height = 21 - Style = csDropDownList - Anchors = [akLeft, akTop, akRight] + object pnlDpiHelperMaintenance: TPanel + Left = 0 + Top = 0 + Width = 592 + Height = 151 + Align = alClient + BevelOuter = bvNone + Caption = 'pnlDpiHelperMaintenance' + ShowCaption = False TabOrder = 0 - OnChange = ValidateControls - end - object chkQuick: TCheckBox - Left = 81 - Top = 38 - Width = 97 - Height = 17 - Caption = 'Quick' - TabOrder = 1 - OnClick = ValidateControls - end - object chkFast: TCheckBox - Left = 81 - Top = 57 - Width = 97 - Height = 17 - Caption = 'Fast' - TabOrder = 2 - OnClick = ValidateControls - end - object chkMedium: TCheckBox - Left = 81 - Top = 76 - Width = 97 - Height = 17 - Caption = 'Medium' - TabOrder = 3 - OnClick = ValidateControls - end - object chkExtended: TCheckBox - Left = 184 - Top = 38 - Width = 97 - Height = 17 - Caption = 'Extended' - TabOrder = 4 - OnClick = ValidateControls - end - object chkChanged: TCheckBox - Left = 184 - Top = 57 - Width = 97 - Height = 17 - Caption = 'Changed' - TabOrder = 5 - OnClick = ValidateControls - end - object chkUseFrm: TCheckBox - Left = 184 - Top = 76 - Width = 97 - Height = 17 - Caption = 'Use FRM file' - TabOrder = 6 - OnClick = ValidateControls - end - object btnHelpMaintenance: TButton - Left = 514 - Top = 38 - Width = 75 - Height = 25 - Anchors = [akTop, akRight] - Caption = 'Help' - TabOrder = 7 - OnClick = btnHelpMaintenanceClick - end - object chkForUpgrade: TCheckBox - Left = 81 - Top = 96 - Width = 97 - Height = 17 - Caption = 'For Upgrade' - TabOrder = 8 - OnClick = ValidateControls + DesignSize = ( + 592 + 151) + object lblOperation: TLabel + Left = 3 + Top = 14 + Width = 52 + Height = 13 + Caption = 'Operation:' + end + object lblOptions: TLabel + Left = 3 + Top = 39 + Width = 41 + Height = 13 + Caption = 'Options:' + end + object comboOperation: TComboBox + Left = 80 + Top = 11 + Width = 508 + Height = 21 + Style = csDropDownList + Anchors = [akLeft, akTop, akRight] + TabOrder = 0 + OnChange = ValidateControls + end + object chkQuick: TCheckBox + Left = 81 + Top = 38 + Width = 97 + Height = 17 + Caption = 'Quick' + TabOrder = 1 + OnClick = ValidateControls + end + object chkFast: TCheckBox + Left = 81 + Top = 57 + Width = 97 + Height = 17 + Caption = 'Fast' + TabOrder = 2 + OnClick = ValidateControls + end + object chkMedium: TCheckBox + Left = 81 + Top = 76 + Width = 97 + Height = 17 + Caption = 'Medium' + TabOrder = 3 + OnClick = ValidateControls + end + object chkExtended: TCheckBox + Left = 184 + Top = 38 + Width = 97 + Height = 17 + Caption = 'Extended' + TabOrder = 4 + OnClick = ValidateControls + end + object chkChanged: TCheckBox + Left = 184 + Top = 57 + Width = 97 + Height = 17 + Caption = 'Changed' + TabOrder = 5 + OnClick = ValidateControls + end + object chkUseFrm: TCheckBox + Left = 184 + Top = 76 + Width = 97 + Height = 17 + Caption = 'Use FRM file' + TabOrder = 6 + OnClick = ValidateControls + end + object btnHelpMaintenance: TButton + Left = 514 + Top = 38 + Width = 75 + Height = 25 + Anchors = [akTop, akRight] + Caption = 'Help' + TabOrder = 7 + OnClick = btnHelpMaintenanceClick + end + object chkForUpgrade: TCheckBox + Left = 81 + Top = 96 + Width = 97 + Height = 17 + Caption = 'For Upgrade' + TabOrder = 8 + OnClick = ValidateControls + end end end object tabFind: TTabSheet Caption = 'Find text' ImageIndex = 30 - DesignSize = ( - 592 - 151) - object lblFindText: TLabel - Left = 3 - Top = 14 - Width = 60 - Height = 13 - Caption = 'Text to find:' - end - object lblDataTypes: TLabel - Left = 3 - Top = 83 - Width = 114 - Height = 13 - Anchors = [akLeft, akBottom] - Caption = 'Search in column types:' - end - object lblMatchType: TLabel - Left = 3 - Top = 129 - Width = 58 - Height = 13 - Caption = 'Match type:' - end - object memoFindText: TMemo - Left = 208 - Top = 11 - Width = 381 - Height = 59 - Anchors = [akLeft, akTop, akRight, akBottom] - ScrollBars = ssVertical + object pnlDpiHelperFind: TPanel + Left = 0 + Top = 0 + Width = 592 + Height = 151 + Align = alClient + BevelOuter = bvNone + Caption = 'pnlDpiHelperFind' + ShowCaption = False TabOrder = 0 - OnChange = ValidateControls - end - object comboDataTypes: TComboBox - Left = 208 - Top = 76 - Width = 381 - Height = 21 - Style = csDropDownList - Anchors = [akLeft, akRight, akBottom] - TabOrder = 1 - end - object chkCaseSensitive: TCheckBox - Left = 208 - Top = 103 - Width = 381 - Height = 17 - Anchors = [akLeft, akRight, akBottom] - Caption = 'Case sensitive' - TabOrder = 2 - end - object comboMatchType: TComboBox - Left = 208 - Top = 126 - Width = 381 - Height = 21 - Style = csDropDownList - Anchors = [akLeft, akRight, akBottom] - ItemIndex = 0 - TabOrder = 3 - Text = 'Left and right wildcard' - Items.Strings = ( - 'Left and right wildcard' - 'Exact match' - 'Left wildcard' - 'Right wildcard' - 'Regular expression') + DesignSize = ( + 592 + 151) + object lblFindText: TLabel + Left = 3 + Top = 14 + Width = 60 + Height = 13 + Caption = 'Text to find:' + end + object lblDataTypes: TLabel + Left = 3 + Top = 83 + Width = 114 + Height = 13 + Anchors = [akLeft, akBottom] + Caption = 'Search in column types:' + end + object lblMatchType: TLabel + Left = 3 + Top = 129 + Width = 58 + Height = 13 + Caption = 'Match type:' + end + object memoFindText: TMemo + Left = 208 + Top = 11 + Width = 381 + Height = 59 + Anchors = [akLeft, akTop, akRight, akBottom] + ScrollBars = ssVertical + TabOrder = 0 + OnChange = ValidateControls + end + object comboDataTypes: TComboBox + Left = 208 + Top = 76 + Width = 381 + Height = 21 + Style = csDropDownList + Anchors = [akLeft, akRight, akBottom] + TabOrder = 1 + end + object chkCaseSensitive: TCheckBox + Left = 208 + Top = 103 + Width = 381 + Height = 17 + Anchors = [akLeft, akRight, akBottom] + Caption = 'Case sensitive' + TabOrder = 2 + end + object comboMatchType: TComboBox + Left = 208 + Top = 126 + Width = 381 + Height = 21 + Style = csDropDownList + Anchors = [akLeft, akRight, akBottom] + ItemIndex = 0 + TabOrder = 3 + Text = 'Left and right wildcard' + Items.Strings = ( + 'Left and right wildcard' + 'Exact match' + 'Left wildcard' + 'Right wildcard' + 'Regular expression') + end end end object tabSQLexport: TTabSheet Caption = 'SQL export' ImageIndex = 9 - DesignSize = ( - 592 - 151) - object lblExportData: TLabel - Left = 3 - Top = 50 - Width = 27 - Height = 13 - Caption = 'Data:' - end - object lblExportOutputType: TLabel - Left = 3 - Top = 104 - Width = 38 - Height = 13 - Caption = 'Output:' - end - object lblExportDatabases: TLabel - Left = 3 - Top = 4 - Width = 63 - Height = 13 - Caption = 'Database(s):' - end - object lblExportTables: TLabel - Left = 3 - Top = 25 - Width = 43 - Height = 13 - Caption = 'Table(s):' - end - object lblExportOutputTarget: TLabel - Left = 2 - Top = 130 - Width = 46 - Height = 13 - Caption = 'Filename:' - end - object lblInsertSize: TLabel - Left = 3 - Top = 77 - Width = 84 - Height = 13 - Caption = 'Max INSERT size:' - end - object lblInsertSizeUnit: TLabel - Left = 242 - Top = 77 - Width = 115 - Height = 13 - Caption = 'KB (0 = Single INSERTs)' - end - object btnExportOutputTargetSelect: TButton - Left = 566 - Top = 127 - Width = 23 - Height = 21 - Hint = 'Browse filesystem' - Anchors = [akTop, akRight] - ImageIndex = 51 - Images = MainForm.ImageListMain - TabOrder = 9 - OnClick = btnExportOutputTargetSelectClick - end - object chkExportDatabasesCreate: TCheckBox - Left = 192 - Top = 3 - Width = 90 - Height = 17 - Caption = 'Create' + object pnlDpiHelperExport: TPanel + Left = 0 + Top = 0 + Width = 592 + Height = 151 + Align = alClient + BevelOuter = bvNone + Caption = 'pnlDpiHelperExport' + ShowCaption = False TabOrder = 0 - OnClick = chkExportOptionClick - end - object chkExportDatabasesDrop: TCheckBox - Left = 100 - Top = 3 - Width = 90 - Height = 17 - Caption = 'Drop' - TabOrder = 1 - OnClick = chkExportOptionClick - end - object chkExportTablesDrop: TCheckBox - Left = 100 - Top = 24 - Width = 90 - Height = 17 - Caption = 'Drop' - TabOrder = 2 - OnClick = chkExportOptionClick - end - object chkExportTablesCreate: TCheckBox - Left = 192 - Top = 24 - Width = 90 - Height = 17 - Caption = 'Create' - TabOrder = 3 - OnClick = chkExportOptionClick - end - object comboExportData: TComboBox - Left = 100 - Top = 47 - Width = 489 - Height = 21 - Style = csDropDownList - Anchors = [akLeft, akTop, akRight] - TabOrder = 4 - OnChange = ValidateControls - end - object comboExportOutputType: TComboBox - Left = 100 - Top = 101 - Width = 489 - Height = 21 - Style = csDropDownList - Anchors = [akLeft, akTop, akRight] - DropDownCount = 16 - TabOrder = 7 - OnChange = comboExportOutputTypeChange - end - object comboExportOutputTarget: TComboBox - Left = 100 - Top = 127 - Width = 463 - Height = 21 - Anchors = [akLeft, akTop, akRight] - DropDownCount = 16 - ParentShowHint = False - ShowHint = True - TabOrder = 8 - Text = 'comboExportOutputTarget' - OnChange = comboExportOutputTargetChange - end - object editInsertSize: TEdit - Left = 100 - Top = 74 - Width = 120 - Height = 21 - TabOrder = 5 - Text = '0' - end - object updownInsertSize: TUpDown - Left = 220 - Top = 74 - Width = 16 - Height = 21 - Associate = editInsertSize - Max = 2147483647 - TabOrder = 6 - Wrap = True - end - object btnHelpSQLExport: TButton - Left = 514 - Top = 3 - Width = 75 - Height = 25 - Anchors = [akTop, akRight] - Caption = 'Help' - TabOrder = 10 - OnClick = btnHelpSQLExportClick - ExplicitLeft = 294 - end - object btnExportOptions: TButton - Left = 464 - Top = 72 - Width = 125 - Height = 25 - Anchors = [akTop, akRight] - Caption = 'Options' - DropDownMenu = popupExportOptions - Style = bsSplitButton - TabOrder = 11 - OnClick = btnExportOptionsClick + DesignSize = ( + 592 + 151) + object lblExportData: TLabel + Left = 3 + Top = 50 + Width = 27 + Height = 13 + Caption = 'Data:' + end + object lblExportOutputType: TLabel + Left = 3 + Top = 104 + Width = 38 + Height = 13 + Caption = 'Output:' + end + object lblExportDatabases: TLabel + Left = 3 + Top = 4 + Width = 63 + Height = 13 + Caption = 'Database(s):' + end + object lblExportTables: TLabel + Left = 3 + Top = 25 + Width = 43 + Height = 13 + Caption = 'Table(s):' + end + object lblExportOutputTarget: TLabel + Left = 2 + Top = 130 + Width = 46 + Height = 13 + Caption = 'Filename:' + end + object lblInsertSize: TLabel + Left = 3 + Top = 77 + Width = 84 + Height = 13 + Caption = 'Max INSERT size:' + end + object lblInsertSizeUnit: TLabel + Left = 242 + Top = 77 + Width = 115 + Height = 13 + Caption = 'KB (0 = Single INSERTs)' + end + object btnExportOutputTargetSelect: TButton + Left = 566 + Top = 127 + Width = 23 + Height = 21 + Hint = 'Browse filesystem' + Anchors = [akTop, akRight] + ImageIndex = 51 + Images = MainForm.ImageListMain + TabOrder = 9 + OnClick = btnExportOutputTargetSelectClick + end + object chkExportDatabasesCreate: TCheckBox + Left = 192 + Top = 3 + Width = 90 + Height = 17 + Caption = 'Create' + TabOrder = 0 + OnClick = chkExportOptionClick + end + object chkExportDatabasesDrop: TCheckBox + Left = 100 + Top = 3 + Width = 90 + Height = 17 + Caption = 'Drop' + TabOrder = 1 + OnClick = chkExportOptionClick + end + object chkExportTablesDrop: TCheckBox + Left = 100 + Top = 24 + Width = 90 + Height = 17 + Caption = 'Drop' + TabOrder = 2 + OnClick = chkExportOptionClick + end + object chkExportTablesCreate: TCheckBox + Left = 192 + Top = 24 + Width = 90 + Height = 17 + Caption = 'Create' + TabOrder = 3 + OnClick = chkExportOptionClick + end + object comboExportData: TComboBox + Left = 100 + Top = 47 + Width = 489 + Height = 21 + Style = csDropDownList + Anchors = [akLeft, akTop, akRight] + TabOrder = 4 + OnChange = ValidateControls + end + object comboExportOutputType: TComboBox + Left = 100 + Top = 101 + Width = 489 + Height = 21 + Style = csDropDownList + Anchors = [akLeft, akTop, akRight] + DropDownCount = 16 + TabOrder = 7 + OnChange = comboExportOutputTypeChange + end + object comboExportOutputTarget: TComboBox + Left = 100 + Top = 127 + Width = 463 + Height = 21 + Anchors = [akLeft, akTop, akRight] + DropDownCount = 16 + ParentShowHint = False + ShowHint = True + TabOrder = 8 + Text = 'comboExportOutputTarget' + OnChange = comboExportOutputTargetChange + end + object editInsertSize: TEdit + Left = 100 + Top = 74 + Width = 120 + Height = 21 + TabOrder = 5 + Text = '0' + end + object updownInsertSize: TUpDown + Left = 220 + Top = 74 + Width = 16 + Height = 21 + Associate = editInsertSize + Max = 2147483647 + TabOrder = 6 + Wrap = True + end + object btnHelpSQLExport: TButton + Left = 514 + Top = 3 + Width = 75 + Height = 25 + Anchors = [akTop, akRight] + Caption = 'Help' + TabOrder = 10 + OnClick = btnHelpSQLExportClick + end + object btnExportOptions: TButton + Left = 464 + Top = 72 + Width = 125 + Height = 25 + Anchors = [akTop, akRight] + Caption = 'Options' + DropDownMenu = popupExportOptions + Style = bsSplitButton + TabOrder = 11 + OnClick = btnExportOptionsClick + end end end object tabBulkTableEdit: TTabSheet Caption = 'Bulk table editor' ImageIndex = 19 - DesignSize = ( - 592 - 151) - object chkBulkTableEditDatabase: TCheckBox - Left = 3 - Top = 5 - Width = 199 - Height = 17 - Caption = 'Move to database:' + object pnlDpiHelperTableEdit: TPanel + Left = 0 + Top = 0 + Width = 592 + Height = 151 + Align = alClient + BevelOuter = bvNone + Caption = 'pnlDpiHelperTableEdit' + ShowCaption = False TabOrder = 0 - OnClick = chkBulkTableEditCheckComboClick - end - object comboBulkTableEditDatabase: TComboBox - Left = 208 - Top = 3 - Width = 380 - Height = 21 - Style = csDropDownList - Anchors = [akLeft, akTop, akRight] - Enabled = False - TabOrder = 1 - end - object chkBulkTableEditResetAutoinc: TCheckBox - Left = 3 - Top = 97 - Width = 366 - Height = 17 - Caption = 'Reset auto increment value' - TabOrder = 2 - OnClick = ValidateControls - end - object chkBulkTableEditCollation: TCheckBox - Left = 3 - Top = 51 - Width = 199 - Height = 17 - Caption = 'Change default collation:' - TabOrder = 3 - OnClick = chkBulkTableEditCheckComboClick - end - object comboBulkTableEditCollation: TComboBox - Left = 208 - Top = 49 - Width = 380 - Height = 21 - Style = csDropDownList - Anchors = [akLeft, akTop, akRight] - Enabled = False - TabOrder = 4 - end - object chkBulkTableEditEngine: TCheckBox - Left = 3 - Top = 28 - Width = 199 - Height = 17 - Caption = 'Change table engine:' - TabOrder = 5 - OnClick = chkBulkTableEditCheckComboClick - end - object comboBulkTableEditEngine: TComboBox - Left = 208 - Top = 26 - Width = 380 - Height = 21 - Style = csDropDownList - Anchors = [akLeft, akTop, akRight] - Enabled = False - TabOrder = 6 - end - object chkBulkTableEditCharset: TCheckBox - Left = 3 - Top = 74 - Width = 199 - Height = 17 - Caption = 'Convert to charset:' - TabOrder = 7 - OnClick = chkBulkTableEditCheckComboClick - end - object comboBulkTableEditCharset: TComboBox - Left = 208 - Top = 72 - Width = 380 - Height = 21 - Style = csDropDownList - Anchors = [akLeft, akTop, akRight] - Enabled = False - TabOrder = 8 + DesignSize = ( + 592 + 151) + object chkBulkTableEditDatabase: TCheckBox + Left = 3 + Top = 5 + Width = 199 + Height = 17 + Caption = 'Move to database:' + TabOrder = 0 + OnClick = chkBulkTableEditCheckComboClick + end + object comboBulkTableEditDatabase: TComboBox + Left = 208 + Top = 3 + Width = 380 + Height = 21 + Style = csDropDownList + Anchors = [akLeft, akTop, akRight] + Enabled = False + TabOrder = 1 + end + object chkBulkTableEditResetAutoinc: TCheckBox + Left = 3 + Top = 97 + Width = 366 + Height = 17 + Caption = 'Reset auto increment value' + TabOrder = 2 + OnClick = ValidateControls + end + object chkBulkTableEditCollation: TCheckBox + Left = 3 + Top = 51 + Width = 199 + Height = 17 + Caption = 'Change default collation:' + TabOrder = 3 + OnClick = chkBulkTableEditCheckComboClick + end + object comboBulkTableEditCollation: TComboBox + Left = 208 + Top = 49 + Width = 380 + Height = 21 + Style = csDropDownList + Anchors = [akLeft, akTop, akRight] + Enabled = False + TabOrder = 4 + end + object chkBulkTableEditEngine: TCheckBox + Left = 3 + Top = 28 + Width = 199 + Height = 17 + Caption = 'Change table engine:' + TabOrder = 5 + OnClick = chkBulkTableEditCheckComboClick + end + object comboBulkTableEditEngine: TComboBox + Left = 208 + Top = 26 + Width = 380 + Height = 21 + Style = csDropDownList + Anchors = [akLeft, akTop, akRight] + Enabled = False + TabOrder = 6 + end + object chkBulkTableEditCharset: TCheckBox + Left = 3 + Top = 74 + Width = 199 + Height = 17 + Caption = 'Convert to charset:' + TabOrder = 7 + OnClick = chkBulkTableEditCheckComboClick + end + object comboBulkTableEditCharset: TComboBox + Left = 208 + Top = 72 + Width = 380 + Height = 21 + Style = csDropDownList + Anchors = [akLeft, akTop, akRight] + Enabled = False + TabOrder = 8 + end end end end diff --git a/source/tabletools.pas b/source/tabletools.pas index 82857b3f..a90b9799 100644 --- a/source/tabletools.pas +++ b/source/tabletools.pas @@ -83,6 +83,10 @@ type menuExportRemoveAutoIncrement: TMenuItem; comboMatchType: TComboBox; lblMatchType: TLabel; + pnlDpiHelperMaintenance: TPanel; + pnlDpiHelperFind: TPanel; + pnlDpiHelperExport: TPanel; + pnlDpiHelperTableEdit: TPanel; procedure FormDestroy(Sender: TObject); procedure FormCreate(Sender: TObject); procedure FormShow(Sender: TObject);