The R Project SVN R

Rev

Rev 83510 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 83510 Rev 88464
Line 1398... Line 1398...
1398
    obj->state = (GA_Visible | GA_Enabled);
1398
    obj->state = (GA_Visible | GA_Enabled);
1399
    obj->flags = ChildWindow;
1399
    obj->flags = ChildWindow;
1400
    set_new_winproc(obj); /* set custom winproc */
1400
    set_new_winproc(obj); /* set custom winproc */
1401
    settextfont(obj, SystemFont);
1401
    settextfont(obj, SystemFont);
1402
    obj->kind = ListboxObject;
1402
    obj->kind = ListboxObject;
1403
    SendMessage(hwnd, PBM_SETRANGE32, (WPARAM) pbmin, (LPARAM) pbmax);
1403
    sendmessage(hwnd, PBM_SETRANGE32, (WPARAM) pbmin, (LPARAM) pbmax);
1404
    SendMessage(hwnd, PBM_SETSTEP, (WPARAM) incr, 0);
1404
    sendmessage(hwnd, PBM_SETSTEP, (WPARAM) incr, 0);
1405
 
1405
 
1406
    return obj;
1406
    return obj;
1407
}
1407
}
1408
 
1408
 
1409
void setprogressbar(progressbar obj, int n)
1409
void setprogressbar(progressbar obj, int n)
1410
{
1410
{
1411
    if (! obj) return;
1411
    if (! obj) return;
1412
    SendMessage(obj->handle, PBM_SETPOS, (WPARAM) n, 0);
1412
    sendmessage(obj->handle, PBM_SETPOS, (WPARAM) n, 0);
1413
}
1413
}
1414
 
1414
 
1415
void stepprogressbar(progressbar obj, int n)
1415
void stepprogressbar(progressbar obj, int n)
1416
{
1416
{
1417
    if (! obj) return;
1417
    if (! obj) return;
1418
    SendMessage(obj->handle, PBM_STEPIT, 0, 0);
1418
    sendmessage(obj->handle, PBM_STEPIT, 0, 0);
1419
}
1419
}
1420
 
1420
 
1421
void setprogressbarrange(progressbar obj, int pbmin, int pbmax)
1421
void setprogressbarrange(progressbar obj, int pbmin, int pbmax)
1422
{
1422
{
1423
    if (! obj) return;
1423
    if (! obj) return;
1424
    SendMessage(obj->handle, PBM_SETRANGE32, (WPARAM) pbmin,
1424
    sendmessage(obj->handle, PBM_SETRANGE32, (WPARAM) pbmin,
1425
		(LPARAM) pbmax);
1425
		(LPARAM) pbmax);
1426
}
1426
}