Buchempfehlung
Mikrocomputertechnik mit Controllern der Atmel AVR-RISC-Familie
Mikrocomputertechnik mit Controllern der Atmel AVR-RISC-Familie
Umfassend, aber leicht verständlich führt dieses Buch in die Programmierung von ATMEL AVR Mikrocontrollern ein. [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

Window_Ext.bi

Uploader:MitgliedEternal_Pain
Datum/Zeit:07.03.2014 14:23:44

'******************************************************************************************************************************************************************************************************************'
#include once "windows.bi"
Declare Function WndProc(byval h_Wnd as HWND, byval u_Msg as UINT, byval wParam as WPARAM, byval lParam as LPARAM) as LRESULT
'******************************************************************************************************************************************************************************************************************'

'------------------'
Type Node_Windows
    as Node_Windows ptr     PrevWindow
    as Node_Windows ptr     NextWindow
    as HWND                 WindowHandle
End Type

'------------------'
Type List_Windows
    as Node_Windows ptr     FirstWindow
    as Node_Windows ptr     LastWindow
    as Integer              WindowCount

    Declare Constructor()
    Declare Sub AddWindow(byref thiswindow as Node_Windows ptr)
    Declare Sub DelWindow(byref thiswindow as Node_Windows ptr)
    Declare Sub Destroy()
End Type

'******************************************************************************************************************************************************************************************************************'

Namespace Globals
    Dim as String           ClassName
    Dim as HINSTANCE        hInstance
    Dim as List_Windows     WindowList
End Namespace

'******************************************************************************************************************************************************************************************************************'