IconDraw

Синтаксис

Sub IconDraw(ByVal x As Long, ByVal y As Long, ByVal Hicon As HICON)

Описание

Используется для рисования загруженной иконки. В Linux вместо этой функции можно использовать ImageDraw

Параметры

x - расположение по оси X

y - расположение по оси Y

Hicon - хендл иконки , может быть загружен с помощью Load_Icon из файла. Так же можно загрузить с помощью API функций LoadImage, LoadIcon . Либо извлечь из ресурсов с помощью ExtractIcon

Платформы

Windows

Пример

#Include "window9.bi"
#Include "win/shellapi.bi"
Var hwnd=OpenWindow("",100,100,300,300)
Dim As HICON icon1,icon2
icon1=ExtractIcon(0,GetSystemDir & "\SetupAPI.dll",22)
icon2=LoadIcon(0,IDI_WINLOGO)
WindowStartDraw(hwnd)
  fillrectdraw(40,40,&hffffff)
  IconDraw(50,100,icon1)
  IconDraw(100,100,icon2)
StopDraw
Do : Loop until WaitEvent= EventClose

Результат

Created with the Personal Edition of HelpNDoc: Free EPub producer