VPF::Изменить цвет у grip-а TStatusBar - Форум программистов

Gershkovich

Дата 22.9.2009, 13:14 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 243
Регистрация: 8.2.2006

Репутация: 0
Всего: 2

Всем привет!
Собсно сабж.
Некрасиво выходит: меняю цвет статус бара на гломурно-розовый, а grip остается по плебейски серым.
Как быть ?
Заранее спасибо.

Keeper89

Дата 22.9.2009, 21:13 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 20
Всего: 58

Код в студию.

Вот ссылка на всякий случай.

Это сообщение отредактировал(а) Keeper89 - 22.9.2009, 21:16

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

Gershkovich

Дата 23.9.2009, 09:59 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 243
Регистрация: 8.2.2006

Репутация: 0
Всего: 2

Собственно  кода никакого нет.
Я просто меняю свойство Color у StatusBar-a в Object inspector-е.
Получается картина такая  как на скриншоте: сама панель имеет нежно-желтый цвет,
а grip  остается приежним - серым.

Я было подумал что grip - это картинка, которая рисуется отдельно,
и пытался загрузить свою. Но как видно на скриншоте (изображение глаза), это не так.

ЗЫ За ссылку спасибо. Полезная.

Romikgy

Дата 23.9.2009, 15:32 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146

Код


procedure TCustomStatusBar.CreateParams(var Params: TCreateParams);
const
  GripStyles: array[Boolean] of DWORD = (CCS_TOP, SBARS_SIZEGRIP);
begin
  InitCommonControl(ICC_BAR_CLASSES);
  inherited CreateParams(Params);
  CreateSubClass(Params, STATUSCLASSNAME);
  with Params do
  begin
    Style := Style or GripStyles[FSizeGrip and FSizeGripValid];
    if ThemeServices.ThemesEnabled then
      WindowClass.style := WindowClass.style or CS_HREDRAW or CS_VREDRAW
    else
      WindowClass.style := WindowClass.style and not (CS_HREDRAW or CS_VREDRAW);
  end;
end;

самому рисовать надо
SizeGrip в False и рисуй ибо этот краешек рисует винда
а цвет рисуется

Код


procedure TCustomStatusBar.CreateWnd;
begin
  ValidateSizeGrip(False);
  inherited CreateWnd;
  SendMessage(Handle, SB_SETBKCOLOR, 0, ColorToRGB(Color));
  UpdatePanels(True, False);
  if FSimpleText <> '' then
    SendMessage(Handle, SB_SETTEXT, 255, Integer(PChar(FSimpleText)));
  if FSimplePanel then
    SendMessage(Handle, SB_SIMPLE, 1, 0);
end;

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »