Buchempfehlung
Windows System Programming
Windows System Programming
Das Kompendium liefert viele interessante Informationen zur Windows-Programmierung auf Englisch. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

fb:porticula NoPaste

Info
Info / Hilfe Liste
Übersicht / Liste Neu
Datei hochladen Suche
Quellcode suchen Download
Dateidownload

GuiPtrTools.bi

Uploader:MitgliedOneCypher
Datum/Zeit:20.09.2009 17:31:30
Hinweis: Dieser Quelltext ist Bestandteil des Projekts GuiPtr, zu dem es auf FreeBASIC-Portal.de eine Projektseite gibt.
Warnung: Es steht bereits eine neuere Version des Quelltexts zur Verfügung. Die hier vorliegende alte Version könnte Fehler enthalten, die in der neuen Version vielleicht ausgebessert wurden.

    'Hier kommen Funktionen und Routinen rein,
    'die das Arbeiten mit der GuiPtr-API vereinfachen

    function Event(MyObject as any ptr) as Events ptr
        Dim GCO as GuiObjectControl ptr = MyObject
        Dim GO as GuiObject ptr = GCO->GuiObjectPTR
        return GO->PublicEvents
    end function

    function RC(MyObject as any ptr) as uinteger
        Dim GCO as GuiObjectControl ptr = MyObject
        Dim GO as GuiObject ptr = GCO->GuiObjectPTR
        dim TmpRC as uinteger
        if GO->ThreadID <> 0 then
            Mutexlock GO->ThreadMutex
            TMPRC = GO->ReturnValue
            Mutexunlock GO->ThreadMutex
            return TMPRC
        else
            return GO->DoEvents
        end if
    end function