[WIN32] AGENDA / ORGANISEUR (GESTION DU CONTRÔLE "CALENDRIER")

#define _WIN32_IE 0x0700
#include <windows.h>
#include <commctrl.h>
#include <stdio.h>
#define BOLDDAY(ds, iDay) if ((iDay > 0) && (iDay < 32)) (ds)|=(0x00000001 << (iDay - 1))

//Variables globales et prototypes
HINSTANCE hinst;
LRESULT CALLBACK MainWndProc(HWND hwnd,UINT uMsg,WPARAM wParam,LPARAM lParam);
HWND hwnd,mois1,mois2;
HMENU hMenu;
int Ajust=0;//1 si le dessin s'ajuste avec la fenêtre
int cX=455,cY=255;//Dimensions de la fenêtre
int notify[31];//Jour en gras du mois affiché par le calendrier
SYSTEMTIME sel; char DateSel[]="Notes du 0 000. 00";//Date sélectionnée
int modif=0;//1 si du texte a été tapé
#include "define.h"
//Déclaration de la fenêtre
int WINAPI WinMain(HINSTANCE hinstance,HINSTANCE hPrevInstance,LPSTR lpCmdLine,int nCmdShow) {
    //Verification que le programme n'est pas déjà ouvert
    if (FindWindow(0,"Wkl::Agenda") != 0) {
        MessageBox(0,"Une application Wkl::Agenda est déjà en cours.\t\n"
            "Vous ne pouvez pas ouvrir deux fois cette même application.\t\n","Wkl::Agenda - Erreur",MB_OK|MB_ICONERROR);
        return 0;
    }
    //Variables
    MSG msg;
    hinst=hinstance;
    //Paramètres de la fenêtre
    WNDCLASS wc;
    wc.style=0;
    wc.lpfnWndProc=MainWndProc;
    wc.cbClsExtra=0;
    wc.cbWndExtra=0;
    wc.hInstance=hinstance;
    wc.hIcon=LoadIcon(hinstance,MAKEINTRESOURCE(1));
    wc.hCursor=LoadCursor(NULL,IDC_ARROW);
    wc.hbrBackground=(HBRUSH)(COLOR_3DFACE+1);
    wc.lpszMenuName=0;
    wc.lpszClassName="WKL_Agenda";
    if(!RegisterClass(&wc)) return FALSE;
    //Création de la fenêtre
    int cxS=GetSystemMetrics(SM_CXSCREEN);
    int cyS=GetSystemMetrics(SM_CYSCREEN);
    InitMenus();
    hwnd=CreateWindowEx(WS_EX_WINDOWEDGE,"WKL_Agenda","Wkl::Agenda",WS_CLIPCHILDREN|WS_OVERLAPPEDWINDOW,(cxS-700)/2,(cyS-350)/2,455,255,HWND_DESKTOP,hMenu,hinstance,NULL);
    //Creation du fichier si non-existant
    FILE* file=fopen("agenda.wbd","r");
    if (file == NULL) { FILE* file2=fopen("agenda.wbd","w"); fputs("NE PAS SUPPRIMER CETTE LIGNE\r\n",file2); fclose(file2); }
    else fclose(file);
    //Page 2
    mois2=CreateWindowEx(0,"EDIT","",WS_CHILD|WS_VISIBLE|ES_MULTILINE|ES_WANTRETURN|WS_VSCROLL,0,0,0,0,hwnd,(HMENU)NULL,hinst,NULL);
    SendMessage(mois2,WM_SETFONT,(WPARAM)GetStockObject(DEFAULT_GUI_FONT),MAKELPARAM(TRUE,0));
    SendMessage(mois2,EM_SETLIMITTEXT,9000,0);
    //Page 1
    mois1=CreateWindowEx(0,MONTHCAL_CLASS,NULL,WS_CHILD|WS_VISIBLE|MCS_DAYSTATE,0,0,0,0,hwnd,(HMENU)NULL,hinst,NULL);
    SetTitle();
    MonthCal_SetColor(mois1,MCSC_TITLEBK,RGB(156,154,200));
    //Initialisation des dates en gras
    VerifDates();
    //Dessin du background
    InvalidateRect(hwnd,NULL,FALSE);
    UpdateWindow(hwnd);
    //Affichage du programme
    if (!hwnd) return FALSE;
    ShowWindow(hwnd,nCmdShow);
    while (GetMessage(&msg,NULL,0,0)) {
        TranslateMessage(&msg);
        DispatchMessage(&msg);
    }
    return msg.wParam;
}
//Fonction d'appel
LRESULT CALLBACK MainWndProc(HWND hwnd, UINT uMsg, WPARAM wParam, LPARAM lParam) {
    switch (uMsg) {
        case WM_NOTIFY:
            if ((((LPNMHDR)lParam)->hwndFrom) == mois1) {
                if ((((LPNMHDR)lParam)->code) == MCN_SELCHANGE) {
                    //Verification de l'enregistrement
                    if (modif) {
                        Save();
                    }
                    SetTitle();
                    VerifDates();
                }
            }
            return 0;
        case WM_PAINT:
            ReDraw();
            break;
        case WM_CLOSE:
            VerifSave();
            break;
        case WM_COMMAND:
            if (HIWORD(wParam) == EN_CHANGE) modif=1;
            switch (LOWORD(wParam)) {
                case 106:
                    if (MessageBox(hwnd,"Etes-vous sûr(e) de vouloir supprimer tout votre agenda ?\t\n","Avertissement",MB_YESNO|MB_ICONQUESTION) == IDYES) {
                        AppPathInitialize();
                        modif=0;
                        remove("agenda.wbd");
                        VerifDates();
                    }
                    break;
                case 102:
                    VerifSave();
                    break;
                case 105:
                    Ajust=(GetMenuState(hMenu,105,MF_BYCOMMAND) == MF_UNCHECKED)?1:0;
                    if (Ajust) {
                        RECT area;
                        GetClientRect(hwnd,&area);
                        cX=area.right; cY=area.bottom;
                    }
                    else {
                        MoveWindow(mois1,15,20,175,160,TRUE);
                        MoveWindow(mois2,252,40,175,140,TRUE);
                        SetWindowPos(hwnd,0,0,0,455,255,SWP_NOMOVE);
                    }
                    CheckMenuItem(hMenu,105,(Ajust)?MF_CHECKED:MF_UNCHECKED);
                    InvalidateRect(hwnd,NULL,FALSE);
                    UpdateWindow(hwnd);
                    break;
                case 108:
                    MessageBox(hwnd,Help,"Aide du logiciel",MB_OK|MB_ICONASTERISK);
                    break;
                case 109:
                    MessageBox(hwnd,"- Wkl::Agenda -\nLogiciel pour organiser ses rendez-vous\t\n\t\n(copyrights © WINKEL Vincent)\t\n",
                        "A propos...",MB_OK|MB_ICONASTERISK);
                    break;
                case 107:
                    DialogBox(hinst,"DateBox",hwnd,(DLGPROC)DialogProc);
                    break;
            }
            break;
        case WM_DESTROY:
                PostQuitMessage(0);
            break;
        case WM_SIZE:
            if (Ajust) {
                cX=LOWORD(lParam)+1;
                cY=HIWORD(lParam);
                InvalidateRect(hwnd,NULL,FALSE);
                UpdateWindow(hwnd);
            }
            else {
                MoveWindow(mois1,15,20,175,160,TRUE);
                MoveWindow(mois2,252,40,175,140,TRUE);
            }
            break;
        case WM_SIZING:
            RECT* wndRect=(RECT*)lParam;
            int cXp=wndRect->right-wndRect->left;
            int cYp=wndRect->bottom-wndRect->top;
            if (cXp < 455) wndRect->right=455+wndRect->left;
            if (cYp < 255) wndRect->bottom=255+wndRect->top;
            break;
        default:
            return DefWindowProc(hwnd,uMsg,wParam,lParam);
    }
}

Télécharger le zip

05 novembre 2008 17:46:35 :

petite faute dans le titre et oubli de renommer l'exe

05 novembre 2008 17:47:26 :

Arf, décidemment...