FreeBasic
Главная
Вход
Регистрация
Четверг, 28.03.2024, 18:12Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Форум » Freebasic » Исходники » Установка иконки возле заголовка окна
Установка иконки возле заголовка окна
ShadExДата: Вторник, 25.09.2012, 21:20 | Сообщение # 1
Лейтенант
Группа: Проверенные
Сообщений: 51
Репутация: 1
Статус: Offline
Так как это еще не реализовано в библиотеке, то вот код:

Code

#Include "window9.bi"

hMain = OpenWindow("Тест",300,300,645,270,WS_CAPTION Or WS_SYSMENU Or WS_VISIBLE)
If hMain = 0 Then End 1
Dim As HINSTANCE hWinInst = GetModuleHandle(0)

hndl_Icon = LoadIcon(hWinInst, MAKEINTRESOURCE(100)) 'ID иконки
If hndl_Icon Then SendMessage(hMain, WM_SETICON, ICON_BIG, hndl_Icon)

Do
    Var ev=WaitEvent()
    If ev=EventClose Then End 0
Loop


P.S.: почти во всех исполняемых файлах первая иконка имеет порядковый ID равным в пределах 100-103, соответственно, в ресурсах своего приложения также первую иконку нужно поставить с ID >=100


Сообщение отредактировал ShadEx - Вторник, 25.09.2012, 21:51
 
Форум » Freebasic » Исходники » Установка иконки возле заголовка окна
  • Страница 1 из 1
  • 1
Поиск: