GHLINK : CONTROLE POUR LES LIENS (WIN32)

LRESULT CALLBACK WindowProcedure (HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam)
{
    HWND hBuffer;
    switch (message)
    {
        case WM_CREATE:
            // creation d'un controle GHLINK
            hBuffer = CreateWindowEx(0, GHLINK_CLASS, "Cliquez ici pour ouvrir le fichier d'aide",
            WS_CHILD|WS_VISIBLE,
            20, 20, 200, 25,
            hwnd, (HMENU)ID_LINK1, g_hInst, NULL);
            // on va changer le font de ce controle
            GHLink_SetFont(hBuffer, (HFONT)GetStockObject(DEFAULT_GUI_FONT), TRUE);
            // on definit le texte de lien
            GHLink_SetLinkString(hBuffer, "Aide.txt");
            
            
            // creation d'un 2è controle GHLINK
            hBuffer = CreateWindowEx(0, GHLINK_CLASS, "Cliquez ici pour ouvrir ma page web",
            WS_CHILD|WS_VISIBLE,
            20, 45, 200, 25,
            hwnd, (HMENU)ID_LINK2, g_hInst, NULL);
            // on modifie la couleur du texte lorsque la souris survole le controle
            GHLink_SetTextHoverColor(hBuffer, RGB(255, 96, 0));
            // on definit le texte de lien
            GHLink_SetLinkString(hBuffer, "http://gagah.chez-alice.fr/");
            
            
            CreateWindowEx(0, GHLINK_CLASS, "Cliquez ici pour ouvrir une boite de dialogue",
            WS_CHILD|WS_VISIBLE,
            20, 70, 200, 25,
            hwnd, (HMENU)ID_LINK3, g_hInst, NULL);
            
            CreateWindowEx(0, "static", "",
            WS_CHILD|WS_VISIBLE|SS_LEFT,
            20, 100, 250, 45,
            hwnd, (HMENU)ID_EDIT, g_hInst, NULL);
            break;
        case WM_COMMAND:
            switch(LOWORD(wParam))
            {
                case ID_LINK1:
                    if(HIWORD(wParam)==GHLKN_MOUSEOVER)
                        SetDlgItemText(hwnd, ID_EDIT, "La souris survole le 1e lien");
                    else if(HIWORD(wParam)==GHLKN_MOUSEOUT)
                        SetDlgItemText(hwnd, ID_EDIT, "");
                    break;
                case ID_LINK2:
                    if(HIWORD(wParam)==GHLKN_MOUSEOVER)
                        SetDlgItemText(hwnd, ID_EDIT, "La souris survole le 2e lien");
                    else if(HIWORD(wParam)==GHLKN_MOUSEOUT)
                        SetDlgItemText(hwnd, ID_EDIT, "");
                    break;
                case ID_LINK3:
                    if(HIWORD(wParam)==GHLKN_CLICKED)
                        DialogBoxParam(g_hInst,MAKEINTRESOURCE(IDD_DIALOG),hwnd,DlgProc,0);
                    else if(HIWORD(wParam)==GHLKN_MOUSEOVER)
                        SetDlgItemText(hwnd, ID_EDIT, "La souris survole le 3e lien");
                    else if(HIWORD(wParam)==GHLKN_MOUSEOUT)
                        SetDlgItemText(hwnd, ID_EDIT, "");
                    break;
            }
            break;
        case WM_DESTROY:
            PostQuitMessage (0);
            break;
        default:
            return DefWindowProc (hwnd, message, wParam, lParam);
    }
    return 0;
}