ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Мигающая TImage кнопка
13 сообщений из 13, страница 1 из 1
Мигающая TImage кнопка
    #40064453
cycloness
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
cycloness
Гость
В проекте сделаны кнопки с помощью Timage. В дизайне загружены png изображения с прозрачным фоном к ним.
Захотелось сделать одну кнопку мигающую по определенному условию пока юзер не нажмет ее.
Понятно самое простое решение в таймере сделать
Код: pascal
1.
Image1.Visible:=not Image1.Visible;


Но тогда юзеру будет нужно в нее попадать когда она visible )))
Может кто посоветует как заставить Timage мигать по другому?
...
Рейтинг: 0 / 0
21.04.2021, 14:37
| Ответить | Цитировать | Написать  
Мигающая TImage кнопка
    #40064455
DimaBr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DimaBr
Участник
Положить сверху ещё один TImage - без рисунка
Или по таймеру очищать/загружать картинку
...
Рейтинг: 0 / 0
21.04.2021, 14:38
| Ответить | Цитировать | Написать  
Мигающая TImage кнопка
    #40064461
cycloness
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
cycloness
Гость
1- дык с align будут проблемы
2- и держать файл png вместе с приложением?
...
Рейтинг: 0 / 0
21.04.2021, 14:47
| Ответить | Цитировать | Написать  
Мигающая TImage кнопка
    #40064464
DimaBr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DimaBr
Участник
cycloness
1- дык с align будут проблемы
2- и держать файл png вместе с приложением?


1. про Align в первом посте не было ни слова
2. Зачем файл ? Неужели нельзя в одном TImage хранить, а другим мигать (загружать/очищать )
...
Рейтинг: 0 / 0
21.04.2021, 14:50
| Ответить | Цитировать | Написать  
Мигающая TImage кнопка
    #40064465
Мимопроходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Мимопроходящий
Участник
cycloness
Но тогда юзеру будет нужно в нее попадать когда она visible )))
Может кто посоветует как заставить Timage мигать по другому?
...
Рейтинг: 0 / 0
21.04.2021, 14:52
| Ответить | Цитировать | Написать  
Мигающая TImage кнопка
    #40064467
DimaBr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DimaBr
Участник
...
Рейтинг: 0 / 0
21.04.2021, 15:00
| Ответить | Цитировать | Написать  
Мигающая TImage кнопка
    #40064469
Dimitry Sibiryakov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dimitry Sibiryakov
Участник
cycloness2- и держать файл png вместе с приложением?

Был бы программист - можно было бы в ресурсы добавить, а так - да, придётся держать с
приложением аж два файла. Один для кнопки в "мигнутом" состоянии, второй - в "немигнутом"
и менять их по таймеру.
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
21.04.2021, 15:01
| Ответить | Цитировать | Написать  
Мигающая TImage кнопка
    #40064470
cycloness
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
cycloness
Гость
DimaBr,

Да да. уже допер. не успел ответить просто.
Спасибо
...
Рейтинг: 0 / 0
21.04.2021, 15:02
| Ответить | Цитировать | Написать  
Мигающая TImage кнопка
    #40064472
cycloness
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
cycloness
Гость
Dimitry Sibiryakov

cycloness2- и держать файл png вместе с приложением?

Был бы программист - можно было бы в ресурсы добавить, а так - да, придётся держать с
приложением аж два файла. Один для кнопки в "мигнутом" состоянии, второй - в "немигнутом"
и менять их по таймеру.


ладно, ладно. не убивайте только! )))
...
Рейтинг: 0 / 0
21.04.2021, 15:06
| Ответить | Цитировать | Написать  
Мигающая TImage кнопка
    #40064485
DHDD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DHDD
Гость
cycloness,

из 2009 года, Delphi 7

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
procedure TForm1.Timer1Timer(Sender: TObject);
begin
    if fishindex=0 then begin
       imagelist1.GetBitmap(1,image1.Picture.Bitmap);
       xpButton1.Bitmap:=image1.Picture.Bitmap;
       fishindex:=1;
       Timer1.Interval:=300;
    end else begin
       imagelist1.GetBitmap(0,image1.Picture.Bitmap);
       xpButton1.Bitmap:=image1.Picture.Bitmap;
       fishindex:=0;
       Timer1.Interval:=1000;
    end;
end;



gif-рыбка на прозрачном фоне мигала глазом...
...
Рейтинг: 0 / 0
21.04.2021, 15:41
| Ответить | Цитировать | Написать  
Мигающая TImage кнопка
    #40064488
DHDD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DHDD
Гость
...
Рейтинг: 0 / 0
21.04.2021, 15:47
| Ответить | Цитировать | Написать  
Мигающая TImage кнопка
    #40064510
cycloness
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
cycloness
Гость
DHDD,

Да я пробовал
Код: pascal
1.
imagelist1.GetBitmap(0,image1.Picture.Bitmap);



Но чет с прозрачностью не справился. в итоге сделал так:

Код: pascal
1.
ImageList1.GetIcon(0, image1.Picture.Icon);




+

ImageList1.ColorDepth:=cd32bit;
ImageList1.DrawingStyle:=dsTransparent;
...
Рейтинг: 0 / 0
21.04.2021, 16:28
| Ответить | Цитировать | Написать  
Мигающая TImage кнопка
    #40064518
asutp2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
asutp2
Участник
форма:
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
object Form1: TForm
  object Image1: TImage
    MultiResBitmap = <
      item
      end>
    Position.X = 56.000000000000000000
    Position.Y = 96.000000000000000000
    OnClick = Image1Click
    object FloatAnimation1: TFloatAnimation
      AutoReverse = True
      Enabled = True
      Duration = 0.400000005960464500
      Loop = True
      PropertyName = 'Opacity'
      StartValue = 1.000000000000000000
      StopValue = 0.000000000000000000
    end
  end
end


код:
Код: pascal
1.
2.
3.
4.
5.
procedure TForm1.Image1Click(Sender: TObject);
begin
  FloatAnimation1.Stop;
  Image1.Opacity := 1;
end;


align не съезжает, скорость мигания настраивается программно, нужно только изображение, которое мигает
profit :-)
...
Рейтинг: 0 / 0
21.04.2021, 17:01
| Ответить | Цитировать | Написать  
13 сообщений из 13, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Мигающая TImage кнопка
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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