Sven's CA-Visual Objects - Seite

23.11.2012

eMail

eMail

Übersicht | Vorheriger | Nächster

Icons in StatusBar

CLASS SEStatusBar INHERIT StatusBar

METHOD SetIcon(oIcon, symItemName) CLASS SEStatusBar
  
LOCAL oStatusBarItem AS StatusBarItem
  
LOCAL dwIndex AS DWORD

   Default(@symItemName, #MessageArea)
   dwIndex := SELF:__GetItemFromSymbol(symItemName)

   IF dwIndex != 0 .and. SELF:ValidateControl()
      oStatusBarItem := aItems[dwIndex]
      dwIndex -= 1u
      IF IsInstanceOfUsual(oIcon, #Icon)
         SendMessage(hwnd, SB_SETICON, dwIndex, LONG(_CAST, oIcon:Handle()))
      ELSE
         SendMessage(hwnd, SB_SETICON, dwIndex, 0l)
      ENDIF
   ENDIF

   RETURN oIcon

Home | Kontakt | Impressum | ©2012 Ingenieur-Büro Dipl. Ing. Sven Ebert