powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Это такой баг vcl CodeGear 2007?
9 сообщений из 9, страница 1 из 1
Это такой баг vcl CodeGear 2007?
    #39510279
Олег Третьяков
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Компонент - стандартный TToolBar со стандартными кнопками с привязкой к экшнлисту. Realign в конструкторе формы выполняется.
Тем не менее наблюдаю эту хрень. Мысли, коллеги?
...
Рейтинг: 0 / 0
Это такой баг vcl CodeGear 2007?
    #39510303
Фотография _Vasilisk_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Олег Третьяков
Картинки нет. Проблема с Dropdown?
...
Рейтинг: 0 / 0
Это такой баг vcl CodeGear 2007?
    #39510305
Фотография _Vasilisk_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Все. увидел картинку

Да, баг. В понедельник расскажу как обойти
...
Рейтинг: 0 / 0
Это такой баг vcl CodeGear 2007?
    #39510314
Фотография _Vasilisk_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Частичное решение здесь http://www.sql.ru/forum/1162671/ttoolbutton-width-and-tbsdropdown
Полное опубликую в понедельник
...
Рейтинг: 0 / 0
Это такой баг vcl CodeGear 2007?
    #39510316
Олег Третьяков
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ага, с Dropdown. Под текстом "Картинка с другого сайта" есть popup менюшка. Запостил на гугле.
...
Рейтинг: 0 / 0
Это такой баг vcl CodeGear 2007?
    #39510324
Олег Третьяков
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
_Vasilisk_,

Спасибо большое!
...
Рейтинг: 0 / 0
Это такой баг vcl CodeGear 2007?
    #39510342
Олег Третьяков
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Частичное решение не сработало. Вероятно это как-то связано с перезаполнением заголовков и подсказок в экшн-листе. В исходниках ковыряться лень, так что жду полное решение)
...
Рейтинг: 0 / 0
Это такой баг vcl CodeGear 2007?
    #39511605
Фотография _Vasilisk_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Итак, как это сделано у меня:

последней строкой FormCreate идет вызов
Код: pascal
1.
RealignToolBars(Self);

Сама процедура реализована так
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
type
  TEnumControlsProc = function (AControl: TControl): Boolean of object;

class function TMethods.RealignToolBars(AControl: TControl): Boolean;
var
  LToolBar: TToolBar absolute AControl;
begin
  Result := not (AControl is TToolBar);
  if not Result then begin
    LToolBar.HandleNeeded;
    if LToolBar.Wrapable then
      LToolBar.Realign;
  end;
end;

procedure EnumControls(AParent: TWinControl; const AEnumProc: TEnumControlsProc);
var
  Li: Integer;
  LControl: TControl;
begin
  for Li := 0 to AParent.ControlCount - 1 do begin
    LControl := AParent.Controls[Li];
    if AEnumProc(LControl) and (LControl is TWinControl) then
      EnumControls(TWinControl(LControl), AEnumProc);
  end;
end;

procedure RealignToolBars(AParent: TWinControl);
begin
  EnumControls(AParent, TMethods.RealignToolBars);
end;
...
Рейтинг: 0 / 0
Это такой баг vcl CodeGear 2007?
    #39512002
Олег Третьяков
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
_Vasilisk_,
Спасибо, буду тестить
...
Рейтинг: 0 / 0
9 сообщений из 9, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Это такой баг vcl CodeGear 2007?
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]