Managed C++/CLI

Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 200 Borland window.cpp:
Warning W8057 window.cpp 50: Parameter 'hPrevInstance' is never used in function __stdcall Winmain(HINSTANCE__ *,HINSTANCE__ *,char *,int)
Warning W8057 windwo.cpp 50: Parameter 'szCmdLine' is never used in function __stdcall WinMain(HINSTANCE__ *,HINSTANCE__ *,char *,int)

Turbo Incremental Link 5.00 Copyright (c) 1997, 200 Borland
Error: Unresolved external '_main' referenced from C:\BORLAND\BCC55\LIB\COX32.OBJ

window.cpp:

// Include windows lib and resource header 
#include <windows.h> 
#include "Resource.h" 

// Prototype WndProc 
LRESULT CALLBACK WndProc( HWND hWindow, UINT msg, WPARAM wParam, LPARAM lParam ); 

// WinMain function 
int WINAPI WinMain( HINSTANCE hInstance, HINSTANCE hPrevInstance, PSTR szCmdLine, int iCmdShow ) 
{ 
    // Define some vars 
    static TCHAR    szAppName[] = TEXT( "TestApp" ); 
    WNDCLASSEX      wndclass; 
    HWND            hWindow; 
    MSG             msg; 
    
    // Create the windowclass 
    wndclass.cbSize          = sizeof( wndclass ); 
    wndclass.style           = CS_HREDRAW | CS_VREDRAW; 
    wndclass.lpfnWndProc     = WndProc; 
    wndclass.cbClsExtra      = 0; 
    wndclass.cbWndExtra      = 0; 
    wndclass.hInstance       = hInstance; 
    wndclass.hIcon           = LoadIcon( hInstance, MAKEINTRESOURCE( IDI_APPICON ) ); 
    wndclass.hIconSm         = LoadIcon( hInstance, MAKEINTRESOURCE( IDI_APPICON_SM ) ); 
    wndclass.hCursor         = LoadCursor( NULL, IDC_ARROW ); 
    wndclass.hbrBackground   = ( HBRUSH ) ( COLOR_WINDOW + 1 ); 
    wndclass.lpszMenuName    = NULL; 
    wndclass.lpszClassName   = szAppName; 
    
    // Register the window class with windows 
    if( ! RegisterClassEx( & wndclass ) ) 
        return 0; 
        
    // Create the main window 
    hWindow = CreateWindow( szAppName, szAppName, WS_OVERLAPPEDWINDOW, CW_USEDEFAULT, CW_USEDEFAULT, 640, 480, NULL, NULL, hInstance, NULL ); 
    
    // Show & update the window 
    ShowWindow( hWindow, iCmdShow ); 
    UpdateWindow( hWindow ); 
    
    // Enter the main message loop 
    while( GetMessage( & msg, NULL, 0, 0 ) ) 
    { 
           // Process message 
           TranslateMessage( & msg ); 
           DispatchMessage( & msg ); 
    } 
    return ( int ) msg.wParam; 
} 

LRESULT CALLBACK WndProc( HWND hWindow, UINT msg, WPARAM wParam, LPARAM lParam ) 
{ 
        HDC               hDC; 
        PAINTSTRUCT       ps; 
        RECT              rect; 
        
        switch( msg ) 
        { 
                case WM_PAINT: 
                     // Draw some text, just for fun ^^ 
                     hDC = BeginPaint( hWindow, & ps ); 
                     GetClientRect( hWindow, & rect ); 
                     DrawText( hDC, TEXT( "This is some text, just for fun!" ), -1, & rect, DT_SINGLELINE | DT_CENTER | DT_VCENTER ); 
                     EndPaint( hWindow, & ps ); 
                     return 0; 
                      
                case WM_DESTROY: 
                     // The window needs to be destroyed, lets do that :) 
                     PostQuitMessage( 0 ); 
                     return 0; 
        } 
        return DefWindowProc( hWindow, msg, wParam, lParam ); 
}

Resource.h:

// Define icons ( number range 1000-1999 ) 
#define IDI_APPICON    1000 
#define IDI_APPICON_SM 1001

Recourse.rc:

// Include resource ID header 
#include "Resource.h" 

// Give the location of the iconfiles :) 
IDI_APPICON         ICON   "path/to/appicon.ico" 
IDI_APPICON_SM      ICON   "path/to/small_appicon.ico"

property bool LampOn {<br />
			bool get() {<br />
				return (BackgroundImage == (cli::safe_cast<System::Drawing::Image^  >(resources->GetObject(L"on"))));<br />
			}<br />
			void set(bool val) {<br />
				if (val) <br />
					BackgroundImage = (cli::safe_cast<System::Drawing::Image^  >(resources->GetObject(L"on")));<br />
				else <br />
					BackgroundImage = (cli::safe_cast<System::Drawing::Image^  >(resources->GetObject(L"off")));<br />
			}<br />
		}