VPF::Рисунок на кнопку - Форум программистов

Garabar

Дата 7.9.2005, 14:24 (ссылка)

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

Загрузка ...

Бывалый

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

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

Уважаемые госпада и барышни а не подскажити ли вольному поэту и художнику каким макаром можна сделать иконку на кнопочку...
И если будет не сложно то подскажите также как зделать что бы кнопочка "западала" по нажатию и "отподала" по следюущему нажатию..
Спасибо.

Это сообщение отредактировал(а) Garabar - 7.9.2005, 14:28

_hunter

Дата 7.9.2005, 14:46 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

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

на кнопке ты не порисуеш...
но можно взять простую панель и рисовать на ней.
насчет западания -- по WM_LBUTTONDOWN или убираеш границу ( _кнопка_ станет плоской ) или рисуеш на панели слева и сверху _тень_
по WM_LBUTTONUP -- наоборот ( или поднимаеш границу или тень снизу и справа )

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

Tempora mutantur, et nos mutamur in illis...

Garabar

Дата 7.9.2005, 15:07 (ссылка)

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

Загрузка ...

Бывалый

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

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

Сенькс вери мач

Snowy

Дата 7.9.2005, 15:29 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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

Или использовать SpeedButton.
Там уже все это реализовано.

~FoX~

Дата 8.9.2005, 08:52 (ссылка)

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

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

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

Цитата(_hunter @ 7.9.2005, 15:46)

на кнопке ты не порисуеш...

Да сколько угодно:

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  cc: TControlCanvas;
  b: TBitmap;
begin
   b:=TBitmap.Create;
   b.LoadFromFile('c:\1.bmp');
   cc := TControlCanvas.Create;
   cc.Control := Button1;
   cc.Brush.Bitmap := b;
   cc.FillRect(Rect(0,0,20,20));
   b.Free;
   cc.Free;
end;

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

…множественность никогда не следует полагать без необходимости…

Budy

Дата 8.9.2005, 13:29 (ссылка)

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

Загрузка ...

Опытный

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

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

У TSppedButton'а есть прекрасный параметр Down, изменив который ты получишь западание и выпадание.
Однако выпадание получяется лишь если данная кнопочка состоит с какой-нибудь подобной кнопочкой в группе GroupIndex
Добавлено @ 13:33
Нет, все же эта кнопочка может отжиматься самостоятельно (группа необязательна). Нужно изменить параметр AllowAllUp:=True. Хотя GroupIndex также нуждается в изменении
Добавлено @ 13:33
~FoX~, интересный пример

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

Как ты назовешь свой корабль, так на нем и напишут
user posted image

Grig

Дата 23.3.2006, 05:49 (ссылка)

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

Загрузка ...

Опытный

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

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

~FoX~, А вот при наведении мышкой на кнопку с рисунком, изображение изчезает. Как это можно победить?

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

~FoX~

Дата 23.3.2006, 09:25 (ссылка)

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

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

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

Grig, код как ты рисуешь на кнопке покажи, а то как то очень расплывчато.

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

…множественность никогда не следует полагать без необходимости…

Grig

Дата 24.3.2006, 04:39 (ссылка)

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

Загрузка ...

Опытный

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

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

Да код-то в принципе твой...

Код


var
  cc: TControlCanvas;
  b: TBitmap;
begin
   b:=TBitmap.Create;
   b.Canvas.Rectangle(0,0,20,20);
   cc := TControlCanvas.Create;
   cc.Control := Button1;
   cc.Brush.Bitmap := b;
   cc.FillRect(Rect(0,0,20,20));
   b.Free;
   cc.Free;
end;

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

~FoX~

Дата 24.3.2006, 08:17 (ссылка)

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

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

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

Grig, Я имел ввиду на каком событии он у тебя висит и при каком событии рисунок исчезает?

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

…множественность никогда не следует полагать без необходимости…

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