VPF::работа со SpeedButton - Форум программистов

artsb

Дата 21.11.2007, 20:22 (ссылка)

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

Загрузка ...

Эксперт

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

Репутация: 39
Всего: 64

У меня два вопроса:

1. Установил свойство Flat=true. Как сделать, чтобы при наведении не появлялась рамка?

2. На форме SpeedButton, Image, ImageList и Button. В Image и ImageList картинки. Сначала делаю, чтобы при нажатии на Button в SpeedButton заносилась картинка из ImageList. Всё нормально. Потом, делаю, чтобы при нажатии на Button в SpeedButton заносилась картинка из Image. Но ничего не происходит. И ошибок нет. В чём дело?

Спасибо.

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

Чем отличается умный человек от мудрого?
Умный - выпутается из любой ситуации.
Мудрый - просто в неё не попадёт.

lenin_yo

Дата 21.11.2007, 21:24 (ссылка)

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

Загрузка ...

Новичок

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

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

Делать так:

Form1->SpeedButton1->Glyph=Form1->Image1->Picture->Bitmap;

Добавлено через 9 минут и 37 секунд
Эта конструкция будет работать только если в Image1 картинка с .bmp форматом.
Если использовать другой формат, то получается что картинка удаляется из Image1 при переконвертировании и на кнопку ничего не заносится.
smile

сам толком не пойму, но так получается.

artsb

Дата 21.11.2007, 21:52 (ссылка)

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

Загрузка ...

Эксперт

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

Репутация: 39
Всего: 64

Странно, но я с самого начала пробовал именно с *.bmp. Одну и туже *.bmp засовывал в Image и ImageList. Из ImageList заносится нормально, а из Image ну никак. smile

Как насчёт первого вопроса?

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

EugenOS

Дата 21.11.2007, 23:36 (ссылка)

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

Загрузка ...

Новичок

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

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

вот кусок исходного кода спид баттона(функция Paint):

Код


  if not FFlat then
  begin
  .............
  else
  begin
    if ( FState in [ bsDown, bsExclusive ] ) or 
      ( FMouseInControl and ( FState <> bsDisabled ) ) or
      ( csDesigning in ComponentState ) then
      DrawEdge( Canvas.Handle, PaintRect, DownStyles[ FState in [ bsDown, bsExclusive ] ],
        FillStyles[ Transparent ] or BF_RECT)
    else if not Transparent then
    begin
      Canvas.Brush.Color := Color;
      Canvas.FillRect(PaintRect);
    end;
    InflateRect(PaintRect, -1, -1);
  end;

Из этого кода видно, что когда мышь в зоне контрола, не рисуется рамка только если кнопка Disabled. что я думаю не будет приемлемым.
Попробуй отнаследовать спид баттон и переписать эту функцию, как тебе нужно.

Это сообщение отредактировал(а) EugenOS - 21.11.2007, 23:40

artsb

Дата 22.11.2007, 01:22 (ссылка)

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

Загрузка ...

Эксперт

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

Репутация: 39
Всего: 64

Спасибо.

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

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