opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-14 10:02:10 +08:00
Code Issues Packages Projects Releases Wiki Activity

Remove "Data always in edit mode" option again and setting that to False at designtime. (as discussed on the devels-mailinglist)

Browse Source
This commit is contained in:
Ansgar Becker
2007-12-04 23:51:41 +00:00
parent d3f4037768
commit 42166f0975
4 changed files with 3 additions and 43 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
source/childwin.dfm
View File

@ -1226,7 +1226,7 @@ object MDIChild: TMDIChild
Font.Height = -11 Font.Height = -11
Font.Name = 'Tahoma' Font.Name = 'Tahoma'
Font.Style = [] Font.Style = []
Options = [dgEditing, dgAlwaysShowEditor, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgMultiSelect] Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgMultiSelect]
ParentFont = False ParentFont = False
PopupMenu = popupResultGrid PopupMenu = popupResultGrid
TabOrder = 2 TabOrder = 2

17
source/childwin.pas
View File

@ -599,8 +599,7 @@ type
prefCSVSeparator, prefCSVSeparator,
prefCSVEncloser, prefCSVEncloser,
prefCSVTerminator : String[10]; prefCSVTerminator : String[10];
prefLogToFile, prefLogToFile : Boolean;
prefDataAlwaysEditMode : Boolean;
procedure Init(AConn : POpenConnProf; AMysqlConn : TMysqlConn); procedure Init(AConn : POpenConnProf; AMysqlConn : TMysqlConn);
@ -1076,20 +1075,6 @@ begin
else else
prefRememberFilters := True; prefRememberFilters := True;
// Toggle "always in editor" mode for dbgrids
if reg.ValueExists( 'DataAlwaysEditMode' ) then
prefDataAlwaysEditMode := reg.ReadBool( 'DataAlwaysEditMode' )
else
prefDataAlwaysEditMode := False;
if prefDataAlwaysEditMode then begin
gridData.Options := gridData.Options + [dgAlwaysShowEditor];
gridQuery.Options := gridQuery.Options + [dgAlwaysShowEditor];
end
else begin
gridData.Options := gridData.Options - [dgAlwaysShowEditor];
gridQuery.Options := gridQuery.Options - [dgAlwaysShowEditor];
end;
// Restore width of columns of all VirtualTrees // Restore width of columns of all VirtualTrees
RestoreListSetup(ListVariables); RestoreListSetup(ListVariables);
RestoreListSetup(ListProcesses); RestoreListSetup(ListProcesses);

11
source/options.dfm
View File

@ -415,7 +415,7 @@ object optionsform: Toptionsform
Caption = Caption =
'Change this font in order to view special language characters in' + 'Change this font in order to view special language characters in' +
' data-grids:' ' data-grids:'
TabOrder = 7 TabOrder = 6
object Label21: TLabel object Label21: TLabel
Left = 20 Left = 20
Top = 24 Top = 24
@ -482,15 +482,6 @@ object optionsform: Toptionsform
TabOrder = 3 TabOrder = 3
end end
end end
object chkDataAlwaysEditMode: TCheckBox
Left = 8
Top = 92
Width = 337
Height = 17
Caption = 'Data-grids always in editor-mode'
TabOrder = 6
OnClick = Modified
end
object CheckBoxlimit: TCheckBox object CheckBoxlimit: TCheckBox
Left = 8 Left = 8
Top = 40 Top = 40

16
source/options.pas
View File

@ -70,7 +70,6 @@ type
Label22: TLabel; Label22: TLabel;
EditFontSize: TEdit; EditFontSize: TEdit;
UpDownFontSize: TUpDown; UpDownFontSize: TUpDown;
chkDataAlwaysEditMode: TCheckBox;
CheckBoxlimit: TCheckBox; CheckBoxlimit: TCheckBox;
EditLimit: TEdit; EditLimit: TEdit;
UpDownLimit: TUpDown; UpDownLimit: TUpDown;
@ -189,7 +188,6 @@ begin
reg.WriteInteger('DataFontSize', UpDownDataFontSize.Position); reg.WriteInteger('DataFontSize', UpDownDataFontSize.Position);
reg.WriteBool('RememberFilters', chkRememberFilters.Checked); reg.WriteBool('RememberFilters', chkRememberFilters.Checked);
reg.WriteBool('LogToFile', chkLogToFile.Checked); reg.WriteBool('LogToFile', chkLogToFile.Checked);
reg.WriteBool('DataAlwaysEditMode', chkDataAlwaysEditMode.Checked);
// Close registry key // Close registry key
reg.CloseKey; reg.CloseKey;
@ -213,16 +211,6 @@ begin
cwin.gridQuery.Font := self.Panel8.font; cwin.gridQuery.Font := self.Panel8.font;
cwin.DBMemo1.Font := self.Panel8.font; cwin.DBMemo1.Font := self.Panel8.font;
cwin.gridData.Refresh; cwin.gridData.Refresh;
// Set the grid-cells to always-edit-mode if set
cwin.prefDataAlwaysEditMode := chkDataAlwaysEditMode.Checked;
if cwin.prefDataAlwaysEditMode then begin
cwin.gridData.Options := cwin.gridData.Options + [dgAlwaysShowEditor];
cwin.gridQuery.Options := cwin.gridQuery.Options + [dgAlwaysShowEditor];
end
else begin
cwin.gridData.Options := cwin.gridData.Options - [dgAlwaysShowEditor];
cwin.gridQuery.Options := cwin.gridQuery.Options - [dgAlwaysShowEditor];
end;
cwin.prefRememberFilters := chkRememberFilters.Checked; cwin.prefRememberFilters := chkRememberFilters.Checked;
cwin.prefLogsqlnum := self.updownLogSQLNum.Position; cwin.prefLogsqlnum := self.updownLogSQLNum.Position;
cwin.prefLogSqlWidth := self.updownLogSnip.Position; cwin.prefLogSqlWidth := self.updownLogSnip.Position;
@ -361,10 +349,6 @@ begin
chkLogToFile.Checked := reg.ReadBool('LogToFile'); chkLogToFile.Checked := reg.ReadBool('LogToFile');
btnOpenLogFolder.Enabled := DirectoryExists(DirnameSessionLogs); btnOpenLogFolder.Enabled := DirectoryExists(DirnameSessionLogs);
// Remember data pane filters across sessions
if reg.ValueExists('DataAlwaysEditMode') then
chkDataAlwaysEditMode.Checked := reg.ReadBool('DataAlwaysEditMode');
// Close registry key // Close registry key
reg.CloseKey; reg.CloseKey;
reg.Free; reg.Free;