mirror of
https://github.com/HeidiSQL/HeidiSQL.git
synced 2026-03-13 09:24:25 +08:00
fix: a TSpeedButton connected to a TAction, and a TMenuItem were not auto-checking
This commit is contained in:
@@ -905,7 +905,9 @@ object MainForm: TMainForm
|
||||
Top = 0
|
||||
Width = 23
|
||||
Action = actFavoriteObjectsOnly
|
||||
AllowAllUp = True
|
||||
Anchors = [akTop, akRight]
|
||||
GroupIndex = 1
|
||||
Images = ImageListMain
|
||||
ImageIndex = 113
|
||||
ShowCaption = False
|
||||
@@ -20434,6 +20436,7 @@ object MainForm: TMainForm
|
||||
AutoCheck = True
|
||||
end
|
||||
object menuShowSizeColumn: TMenuItem
|
||||
AutoCheck = True
|
||||
Caption = 'Display size of objects'
|
||||
OnClick = menuShowSizeColumnClick
|
||||
end
|
||||
|
||||
@@ -12641,8 +12641,7 @@ end;
|
||||
procedure TMainForm.actFavoriteObjectsOnlyExecute(Sender: TObject);
|
||||
begin
|
||||
// Click on "tree favorites" main button
|
||||
// actFavoriteObjectsOnly.AutoCheck does not work?
|
||||
//actFavoriteObjectsOnly.Checked := not actFavoriteObjectsOnly.Checked;
|
||||
// Note: a TSpeedButton connected to an auto-checked TAction needs AllowAllUp + GroupIndex>0
|
||||
editDatabaseTableFilterChange(Sender);
|
||||
if actFavoriteObjectsOnly.Checked then
|
||||
actFavoriteObjectsOnly.ImageIndex := 112
|
||||
|
||||
Reference in New Issue
Block a user