Update of /cvsroot/perl-win32-gui/Win32-GUI/Win32-GUI-Constants
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24941/Win32-GUI-Constants
Modified Files:
Constants.PL Tags.pm
Log Message:
Add progress bar styles and messages
Index: Constants.PL
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/Win32-GUI-Constants/Constants.PL,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** Constants.PL 15 Jul 2007 19:06:09 -0000 1.9
--- Constants.PL 8 Feb 2008 18:47:17 -0000 1.10
***************
*** 1850,1853 ****
--- 1850,1871 ----
HS_DIAGCROSS 5
+ # ProgressBar messages
+ PBM_SETRANGE 1025 #(WM_USER+1)
+ PBM_SETPOS 1026 #(WM_USER+2)
+ PBM_DELTAPOS 1027 #(WM_USER+3)
+ PBM_SETSTEP 1028 #(WM_USER+4)
+ PBM_STEPIT 1029 #(WM_USER+5)
+ PBM_SETRANGE32 1030 #(WM_USER+6)
+ PBM_GETRANGE 1031 #(WM_USER+7)
+ PBM_GETPOS 1032 #(WM_USER+8)
+ PBM_SETBARCOLOR 1033 #(WM_USER+9)
+ PBM_SETBKCOLOR 0x2001 #CCM_SETBKCOLOR (CCM_FIRST+1)
+ PBM_SETMARQUEE 1035 #(WM_USER+10)
+
+ # ProgressBar styles
+ PBS_SMOOTH 0x01
+ PBS_VERTICAL 0x04
+ PBS_MARQUEE 0x08
+
# Pen Styles
PS_SOLID 0
Index: Tags.pm
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/Win32-GUI-Constants/Tags.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** Tags.pm 15 Jul 2007 19:06:09 -0000 1.6
--- Tags.pm 8 Feb 2008 18:47:17 -0000 1.7
***************
*** 102,106 ****
notifyicon => [ qw() ],
pen => [ qw( ^PS_ ) ],
! progressbar => [ qw( ^CLR_DEFAULT$ ) ],
rebar => [ qw( ^CLR_DEFAULT$ ^RBBS_ ) ],
region => [ qw( ^RGN_ ) ],
--- 102,106 ----
notifyicon => [ qw() ],
pen => [ qw( ^PS_ ) ],
! progressbar => [ qw( ^PBS_ ^PBM_ ^CLR_DEFAULT$ ) ],
rebar => [ qw( ^CLR_DEFAULT$ ^RBBS_ ) ],
region => [ qw( ^RGN_ ) ],
|
