Как сделать что-бы ToolBar мог менять размеры иконок?

В WinZip если запустить программу можно увидеть
что тул бар имеет иконки 32x32 я выставил так-же.
В тот-же момент мы счелкаем правой кнопкой в окне Winzip'a и можем снять флаг с опции Large Buttons после чего иконки станут размером 16х16.

Я выставил Listimage в Тул бар контроле, но он неможет заменить динамический imagelist. Как сделать что-бы тул бар мог менять размеры иконок?

Заранее спасибо !

0

Если он не может динамически заменить ImageList, то теоретически можно попробовать добавить еще один ToolBar с другими иконками и когда надо делать первый невидимым, а отображать второй...

0

ToolBar может заменить ListImage, единственая проблема, при изменении обнуляется image у всех кнопок. Так что придётся делать что-то в таком духе:
Set Toolbar1.ImageList = ImageNew
Toolbar1.Buttons(1).Image = 1
' И так далее

0

To : Leaon

Привет !

Леон Спасибки ...
Будем фиксить !

Best Regards
Stan

0

Можно на всех выше сказанных добавить и сказать, что эту задачу можно легко делать, вот так, для каждого Toolbar-а можно добавить на форме две ImageList, один с иконкой 16*16, а другой 32*32, и потом все это управляем с написанной кодом, в примеру если команде Large Icons вставлен галочка (mnuLargeIcons.Checked = True), то иконки Toolbar-а были из Imagelist1 (кнопки на 32*32), если нет то из ImageList2 (кнопки 16*16).

Private Sub Toolbar1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
' При нажатие правой кнопкой на Toolbar, открываем меню Settings
If Button = 2 Then PopupMenu MnuSettings
End Sub
Private Sub mnuLargeIcons_Click()
'Если непоставлен флажок рядом с меню mnuLargeIcons,
'то вызываем функцию Small16, если да то Large32
If mnuLargeIcons.Checked = True Then
mnuLargeIcons.Checked = False
Small16
Else
mnuLargeIcons.Checked = True
Large32
End If
End Sub

Private Sub Large32()
'Здесь загружаем иконке на Toolbar с ImageList 32*32,
'где находятся 7 рисунок для 7 кнопок toolbara
Dim large As Integer
Toolbar1.ImageList = ImageList1
For large = 1 To 7
Toolbar1.Buttons(large).Image = large
Next large
End Sub

Private Sub Small16()
Dim small As Integer
Toolbar1.ImageList = ImageList2
For small = 1 To 7
Toolbar1.Buttons(small).Image = small
Next small
End Sub

Спасибо Вован !

0