Бледный вид TSpeedButton в Delphi 10.4

@Phil357 · Регистрация: 26.12.2014

Студворк — интернет-сервис помощи студентам

Доброго времени суток!

Подскажите, что произошло с компонентом TSpeedButton в Delphi 10.4 ??? Изображение на кнопочке теперь бледное. Хотя в свойствах изображения - нормальное. В предыдущей Delphi 10.3 такого не наблюдалось! Как исправить, кто знает ???

Verevkin · 02.04.2021, 11:32

Сообщение от Phil357

Какой апдейт у вас стоит?

DenNik · 06.04.2021, 11:20

Не по теме:

Меня удивляет и вымораживает тот факт, что до сих пор не сделали SpeedButton с png-глифом. Значит, ToolBar поддерживает png-иконки, а тут, ска, какая логика действует? к BitBtn, кстати, та же претензия. Всратые 30летней давности битмапы всрато выглядят в нынешние дни

@Phil357 · 19.04.2021, 11:23 **[ТС]**

Сообщение от D1973

так таки и не пойму я, в чем проблема-то... Как по мне - все нормально показывает в вашем проекте...

День добрый! Если не секрет, где вы брали инастлляху delphi? Может у меня какая-то кривая?
Кстати, заметил, что в ресурсах формы при загрузке и сохранении из новой версии меняется код подгруженной картинки. Может в этом проблема?

@D1973 · 19.04.2021, 11:38

Не по теме:

Сообщение от Phil357

Если не секрет, где вы брали инастлляху delphi?

Вот и рад бы ответить, но...
1. На нашем форуме просто запрещено публиковать ссылки на пиратский софт...
2. Я просто этого реально не помню... Нашел, скачал, поставил - работает...

@Phil357 · 19.04.2021, 11:51 **[ТС]**

В общем никто не поможет по сути вопроса... Придется откатиться на delphi 10.3...

@D1973 · 19.04.2021, 12:05

Сообщение от Phil357

В общем никто не поможет по сути вопроса

А как помочь, если сути не видно? Проблема-то не воспроизвелась ни у кого...

@ZBEP · 19.04.2021, 12:53

Похожая проблема.
Но только при запуске проекта на Windows 7.
При запуске того же проекта на Windows 10 - все отлично, по старому.

@Phil357 · 19.04.2021, 15:06 **[ТС]**

Сообщение от ZBEP

Похожая проблема.
Но только при запуске проекта на Windows 7.

Вот! Я знал что причина есть. Моя основная рабочая система - семерка. Можно вот с этого места поподробнее? Лечится как то?

@D1973 · 19.04.2021, 16:48

Сообщение от Phil357

Лечится как то?

Сообщение от ZBEP

на Windows 10 - все отлично

Еще вопросы???

@Phil357 · 19.04.2021, 16:54 **[ТС]**

Сообщение от D1973

Еще вопросы???

Ответа на вопрос нет. Если вопрос: "у меня на машине новый узел Х барахлит", то ответ не должен звучать как "смените машину на более новую модель". Решение должно быть типа "заменить узел на другую модификацию" или "допилить узел напильником в таких то местах"

@ZBEP · 20.04.2021, 01:11

Можно конечно переписать Vcl.Buttons.TSpeedButton, но пока этим не занимался и хотелось бы найти менее кардинальное решение.

Если не затруднит, то можете скинуть Vcl.Buttons.pas из предыдущей версии Delphi, в которой с TSpeedButton все нормально.

@Phil357 · 20.04.2021, 09:37 **[ТС]**

Сообщение от ZBEP

Можно конечно переписать Vcl.Buttons.TSpeedButton, но пока этим не занимался и хотелось бы найти менее кардинальное решение.

Думаю что проблема глубже. Та же проблема у TBitBtn. А вот у сторонних компонентов типа Tollbar2000, проблема другая. Там картинка в режиме disabled не бледная как раньше (светлосерая), а темная, почти не отличается от нормального отображения в режиме enabled

@ZBEP · 21.04.2021, 00:24

Да, проблема чуть глубже.
Некоторые кнопки и темы переписаны.

В данном случае, при TButtonGlyph(FGlyph).FThemesEnabled := True
Вокруг и поверх текста / изображения, появляется излишний эффект стекла в Windows 7.

Далеко копаться не стал и просто присвоил в
procedure TCustomSpeedButton.Paint;
TButtonGlyph(FGlyph).FThemesEnabled := False;
Строка 1801 и 1856

Назвать это полноценным решением нельзя и не всем подойдет, но для моих задач, визуально получилось именно то, что нужно.
С изображениями проверил - тоже работает.

Для TBitBtn не проверял, но "исправляться" должно так же.

@ZBEP · 21.04.2021, 01:24

Более правильное решение.
TButtonGlyph(FGlyph).FThemesEnabled не трогать и заменить

Delphi
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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
procedure TButtonGlyph.DrawButtonText(Canvas: TCanvas; const Caption: string;
  TextBounds: TRect; State: TButtonState; Flags: LongInt);
 
 
  procedure DoDrawText(DC: HDC; const Text: UnicodeString;
    var TextRect: TRect; TextFlags: Cardinal);
  var
    LColor: TColor;
    LFormats: TTextFormat;
    LStyle: TCustomStyleServices;
    LOptions: TStyleTextOptions;
  begin
    if FThemesEnabled then
    begin
      LStyle := StyleServices(FControl);
      if (State = bsDisabled) or (not LStyle.IsSystemStyle and FThemeTextColor) then
      begin
        if not LStyle.GetElementColor(FThemeDetails, ecTextColor, LColor) or (LColor = clNone) then
          LColor := Canvas.Font.Color;
      end
      else
        LColor := Canvas.Font.Color;
 
      LFormats := TTextFormatFlags(TextFlags);
 
      LOptions.Flags := [stfTextColor, stfGlowSize];
      LOptions.TextColor := LColor;
      LOptions.GlowSize := 20;
 
      if FPaintOnGlass then
        Include(LFormats, tfComposited);
      LStyle.DrawText(DC, FThemeDetails, Text, TextRect, LFormats, LOptions);
    end
    else
      Winapi.Windows.DrawText(DC, Text, Length(Text), TextRect, TextFlags);
  end;
 
begin
  with Canvas do
  begin
    Brush.Style := bsClear;
    if (State = bsDisabled) and not FThemesEnabled then
    begin
      OffsetRect(TextBounds, 1, 1);
      Font.Color := clBtnHighlight;
      DoDrawText(Handle, Caption, TextBounds, DT_NOCLIP or DT_CENTER or DT_VCENTER or Flags);
      OffsetRect(TextBounds, -1, -1);
      Font.Color := clBtnShadow;
      DoDrawText(Handle, Caption, TextBounds, DT_NOCLIP or DT_CENTER or DT_VCENTER or Flags);
    end
    else
      DoDrawText(Handle, Caption, TextBounds, DT_NOCLIP or DT_CENTER or DT_VCENTER or Flags);
  end;
end;

LOptions.GlowSize := 20; - да уж...

На версию 10.3.2:

Delphi
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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
procedure TButtonGlyph.DrawButtonText(Canvas: TCanvas; const Caption: string;
  TextBounds: TRect; State: TButtonState; Flags: LongInt);
 
  procedure DoDrawText(DC: HDC; const Text: UnicodeString;
    var TextRect: TRect; TextFlags: Cardinal);
  var
    LColor: TColor;
    LFormats: TTextFormat;
  begin
    if FThemesEnabled then
    begin
      if (State = bsDisabled) or (not StyleServices.IsSystemStyle and FThemeTextColor) then
      begin
        if not StyleServices.GetElementColor(FThemeDetails, ecTextColor, LColor) or (LColor = clNone) then
          LColor := Canvas.Font.Color;
      end
      else
        LColor := Canvas.Font.Color;
 
      LFormats := TTextFormatFlags(TextFlags);
      if FPaintOnGlass then
        Include(LFormats, tfComposited);
      StyleServices.DrawText(DC, FThemeDetails, Text, TextRect, LFormats, LColor);
    end
    else
      Winapi.Windows.DrawText(DC, Text, Length(Text), TextRect, TextFlags);
  end;
 
begin
  with Canvas do
  begin
    Brush.Style := bsClear;
    if (State = bsDisabled) and not FThemesEnabled then
    begin
      OffsetRect(TextBounds, 1, 1);
      Font.Color := clBtnHighlight;
      DoDrawText(Handle, Caption, TextBounds, DT_NOCLIP or DT_CENTER or DT_VCENTER or Flags);
      OffsetRect(TextBounds, -1, -1);
      Font.Color := clBtnShadow;
      DoDrawText(Handle, Caption, TextBounds, DT_NOCLIP or DT_CENTER or DT_VCENTER or Flags);
    end
    else
      DoDrawText(Handle, Caption, TextBounds, DT_NOCLIP or DT_CENTER or DT_VCENTER or Flags);
  end;
end;

@Phil357 · 21.04.2021, 09:21 **[ТС]**

ZBEP, Спасибо тебе, добрый человек!

Новые блоги и статьи Все статьи Все блоги /
мат медиц модель 30. презентация проекта anaschu 27.08.2026 хоп хоп хоп хидахоп, а я кладую))	Как у меня протекала болезнь zorxor 27.08.2026 Здравствуйте, друзья! Эта запись блога предназначена именно для вас - для моих дорогих друзей, которые знали меня лично. Чтобы ответить на вопрос - а что же со мной произошло на самом деле? Я учился. . .	Нашел вот забавное видео о измерениях. Лучшее что я видел на эту тему kumehtar 26.08.2026 ILETXiw9bMQ Основная суть и тезисы по измерениям: 0D (Нулевое измерение): точка, не имеющая длины, ширины, высоты или объема. Объект не может перемещаться в 0D. 1D (Первое измерение):. . .	[EasyBuilder Pro] Памятка по разработке для панелей Weintek ФедосеевПавел 26.08.2026 Памятка по разработке для панелей Weintek ВВЕДЕНИЕ Ранее, при реализации проектов основное внимание уделял разработке управляющей программы для контроллера, а панели оператора доставалось время. . .
Модель по догадкам anaschu 25.08.2026 Прошло две недели. Я уже рассказывал, как разговаривал с сотрудниками у сортировки и как понял, что главная ветка — не про приёмку, а про отбор. Но тогда я думал, что понял механику. На этой неделе я. . .	Запись в регистр сведений независимо от заполненности табличной части Maks 25.08.2026 Реализация из решения ниже выполнена на нетиповом документе с несколькими табличными частями, разработанного в КА2. Задача: Обеспечить запись документа в регистр сведений независимо от. . .	Ноутбук Альфария kumehtar 24.08.2026 Встретился тут в сети ноутбук Альфария, примарха Альфа-Легиона. Хотя возможно, это ноутбук Омегона, разумеется. Ну как вам?	Мастера простых решений DevAlt 23.08.2026 В сишарп стэках winforms, да и wpf существует сложная система связывания источниках данных и элементов формы(текстовые поля и метки), опирается все это на технологию событий и мета. . .

@Phil357 20 / 4 / 1 Регистрация: 26.12.2014 Сообщений: 86

	Бледный вид TSpeedButton в Delphi 10.4 02.04.2021, 08:07. Показов 6872. Ответов 34 Метки tspeedbutton;delphi 10.4 (Все метки) Доброго времени суток! Подскажите, что произошло с компонентом TSpeedButton в Delphi 10.4 ??? Изображение на кнопочке теперь бледное. Хотя в свойствах изображения - нормальное. В предыдущей Delphi 10.3 такого не наблюдалось! Как исправить, кто знает ??? 0

DenNik
	06.04.2021, 11:20
	Не по теме: Меня удивляет и вымораживает тот факт, что до сих пор не сделали SpeedButton с png-глифом. Значит, ToolBar поддерживает png-иконки, а тут, ска, какая логика действует? к BitBtn, кстати, та же претензия. Всратые 30летней давности битмапы всрато выглядят в нынешние дни 0

@Phil357 20 / 4 / 1 Регистрация: 26.12.2014 Сообщений: 86
	19.04.2021, 11:51 [ТС]
	В общем никто не поможет по сути вопроса... Придется откатиться на delphi 10.3... 0

@ZBEP 4 / 3 / 1 Регистрация: 11.10.2009 Сообщений: 8
	19.04.2021, 12:53
	Похожая проблема. Но только при запуске проекта на Windows 7. При запуске того же проекта на Windows 10 - все отлично, по старому. 0

@ZBEP 4 / 3 / 1 Регистрация: 11.10.2009 Сообщений: 8
	20.04.2021, 01:11
	Можно конечно переписать Vcl.Buttons.TSpeedButton, но пока этим не занимался и хотелось бы найти менее кардинальное решение. Если не затруднит, то можете скинуть Vcl.Buttons.pas из предыдущей версии Delphi, в которой с TSpeedButton все нормально. 0

@Phil357 20 / 4 / 1 Регистрация: 26.12.2014 Сообщений: 86
	21.04.2021, 09:21 [ТС]
	ZBEP, Спасибо тебе, добрый человек! 0