Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / D7 Сменить иконку работающего приложеничя / 12 сообщений из 12, страница 1 из 1
12.11.2020, 12:38
    #40017471
minva
minva
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
D7 Сменить иконку работающего приложеничя
Добрый день!
Затык на ровном месте
Отредактировал файл ресурсов, добавив туда свою иконку
Смену делаю так
Код: pascal
1.
2.
Application.Icon.Handle := LoadIcon(hInstance, '1');
  InvalidateRect(Application.Handle, nil, True);



Иконка не отрисовывается. Application.Icon.Handle становится = 0
Что не так делаю?
Приложение обычное свежесозданное.
спасибо
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.11.2020, 12:46
    #40017474
wadman
wadman
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
D7 Сменить иконку работающего приложеничя
Чем плохо присвоить иконку в свойствах проекта?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.11.2020, 12:50
    #40017477
wadman
wadman
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
D7 Сменить иконку работающего приложеничя
А код кривой, ежели есть желание на лету менять в зависимости от состояния.
Прежде, чем присваивать Handle, его нужно освободить.

Но лучше смотреть в сторону класса TIcon, а у Application.Icon как ни странно есть метод Assign.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.11.2020, 13:03
    #40017483
minva
minva
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
D7 Сменить иконку работающего приложеничя
wadman, этот код во всех FAQ и форумах по Delphi в разных вариациях. Значит он должен был как-то работать?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.11.2020, 13:22
    #40017491
Dimitry Sibiryakov
Dimitry Sibiryakov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
D7 Сменить иконку работающего приложеничя
minvaЗначит он должен был как-то работать?

"Как-то работал" и "был правильным" это две совершенно разные вещи. Особенно когда идёт о
помойных FAQ.
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.11.2020, 13:23
    #40017492
white_nigger
white_nigger
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
D7 Сменить иконку работающего приложеничя
Это где ж такой бред опубликован?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.11.2020, 13:26
    #40017495
minva
minva
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
D7 Сменить иконку работающего приложеничя
white_nigger, запросом в яндекса "Загрузить иконку из ресурса". Почти все ссылки - вариации на эту тему
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.11.2020, 13:56
    #40017510
minva
minva
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
D7 Сменить иконку работающего приложеничя
Еще упростим.
Hnd : HICON;
Hnd := LoadIcon(hInstance, '1');
Возвращает 0. НО в ресурсном же файле она есть, эта иконка. Чтоб не так-то?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.11.2020, 14:00
    #40017511
Zelius
Zelius
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
D7 Сменить иконку работающего приложеничя
minva,

If the function fails, the return value is NULL. To get extended error information, call GetLastError.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.11.2020, 15:49
    #40017556
Zelius
Zelius
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
D7 Сменить иконку работающего приложеничя
minva,

а вообще, то что иконка есть в res файле не значит что она попала в exe, проверь его заодно
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.11.2020, 16:07
    #40017569
alekcvp
alekcvp
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
D7 Сменить иконку работающего приложеничя
minva,

Добавляй иконку в отдельный .res-файл и уже его подключай к проекту через {$R имяфайла.res}.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.11.2020, 02:52
    #40017766
YuRock
YuRock
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
D7 Сменить иконку работающего приложеничя
Я всегда пользовался WM_SETICON. Работает.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / D7 Сменить иконку работающего приложеничя / 12 сообщений из 12, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 471ms
Закрыть
start [/forum/topic.php?fid=58&tablet=1&tid=2037869]:
 0ms
get settings:
 8ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 178ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 47ms
get tp. blocked users:
 1ms
others: 206ms
total:  471ms
x
x
Закрыть


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