opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-26 11:17:57 +08:00
Code Issues Packages Projects Releases Wiki Activity

SelectNode triggers a potentially set OnFocusChanged event, benefit from that logic in some places where I used to assign Focusnode := xyz.

Browse Source
This commit is contained in:
Ansgar Becker
2012-03-13 22:21:53 +00:00
parent d6209f64d7
commit 0d0fad6745
3 changed files with 3 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
source/options.pas
View File

@ -489,8 +489,7 @@ begin
// Shortcuts
TreeShortcutItems.ReinitChildren(nil, True);
TreeShortcutItems.FocusedNode := nil;
TreeShortcutItems.OnFocusChanged(TreeShortcutItems, TreeShortcutItems.FocusedNode, NoColumn);
SelectNode(TreeShortcutItems, nil);
btnApply.Enabled := False;
screen.Cursor := crdefault;

2
source/routine_editor.pas
View File

@ -144,7 +144,7 @@ begin
for i:=0 to High(Obj.Connection.Datatypes) do
comboReturns.Items.Add(Obj.Connection.Datatypes[i].Name);
chkDeterministic.Checked := False;
listParameters.FocusedNode := nil;
SelectNode(listParameters, nil);
listParameters.Clear;
Parameters.Clear;
comboDataAccess.ItemIndex := 0;

2
source/table_editor.pas
View File

@ -1424,7 +1424,7 @@ begin
if treeIndexes.IsEditing then
treeIndexes.CancelEditNode;
// Trigger ValidateIndexControls
treeIndexes.FocusedNode := nil;
SelectNode(treeIndexes, nil);
for i:=0 to FKeys.Count-1 do begin
TblKey := TTableKey(FKeys[i]);
if not TblKey.Added then