[Perl-win32-gui-cvscommit] Win32-GUI CHANGELOG, 1.147, 1.148 DC.xs, 1.18, 1.19 Makefile.PL, 1.31, 1.32
This is an automatically generated mail from the syncmail system. Do not reply directly to this email. Further discussion should take place on the hackers list: [email protected] Update of /cvsroot/perl-win32-gui/Win32-GUI In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv25161 Modified Files: CHANGELOG DC.xs Makefile.PL Log Message: Added methods GradientFillTriangle and GradientFillRectangle to DC.xs Index: CHANGELOG === RCS file: /cvsroot/perl-win32-gui/Win32-GUI/CHANGELOG,v retrieving revision 1.147 retrieving revision 1.148 diff -C2 -d -r1.147 -r1.148 *** CHANGELOG 20 Feb 2010 12:22:27 - 1.147 --- CHANGELOG 22 Feb 2010 16:24:32 - 1.148 *** *** 6,9 --- 6,14 Win32-GUI ChangeLog === + + [Jeremy White] : 22 February 2010 - Added methods to DC.xs +- DC.xs - added GradientFillTriangle and GradientFillRectangle +- Makefile.PL - added lib lmsimg32 +- GradientFill.pl - added sample showing how to use new methods + + [Jeremy White] : 20 February 2010 - Bug fix - GUI_Helpers.cpp fix of bug #1941264 causing crash with menus Index: Makefile.PL === RCS file: /cvsroot/perl-win32-gui/Win32-GUI/Makefile.PL,v retrieving revision 1.31 retrieving revision 1.32 diff -C2 -d -r1.31 -r1.32 *** Makefile.PL 8 Feb 2008 18:02:05 - 1.31 --- Makefile.PL 22 Feb 2010 16:24:32 - 1.32 *** *** 229,233 NAME=> 'Win32::GUI', VERSION_FROM=> 'GUI.pm', ! LIBS=> [':nosearch -lcomctl32 -lcomdlg32 -lshell32 -lgdi32 -luser32 -lversion'], PREREQ_PM => { 'Test::More' => 0, --- 229,233 NAME=> 'Win32::GUI', VERSION_FROM=> 'GUI.pm', ! LIBS=> [':nosearch -lcomctl32 -lcomdlg32 -lshell32 -lgdi32 -luser32 -lversion -lmsimg32'], PREREQ_PM => { 'Test::More' => 0, *** *** 270,274 if ($main::BUILDENV eq "cygwin") { ! $MakefileArgs{'LIBS'} = ['-L/usr/lib/w32api -lcomctl32 -lcomdlg32 -lshell32 -lgdi32 -luser32 -lversion']; $MakefileArgs{'DEFINE'} = '-UWIN32'; $MakefileArgs{'MYEXTLIB'} = './libcyg.a'; --- 270,274 if ($main::BUILDENV eq "cygwin") { ! $MakefileArgs{'LIBS'} = ['-L/usr/lib/w32api -lcomctl32 -lcomdlg32 -lshell32 -lgdi32 -luser32 -lversion -lmsimg32']; $MakefileArgs{'DEFINE'} = '-UWIN32'; $MakefileArgs{'MYEXTLIB'} = './libcyg.a'; Index: DC.xs === RCS file: /cvsroot/perl-win32-gui/Win32-GUI/DC.xs,v retrieving revision 1.18 retrieving revision 1.19 diff -C2 -d -r1.18 -r1.19 *** DC.xs 15 Jul 2007 18:39:51 - 1.18 --- DC.xs 22 Feb 2010 16:24:32 - 1.19 *** *** 1260,1264 --- 1260,1358 OUTPUT: RETVAL + + ### + # (@)METHOD:GradientFillTriangle(X0, Y0, COLOR0, X1, Y1, COLOR1, X2, Y2, COLOR2) + # Fills the area of the triangle using smooth shading from color0 at point + # zero through to the other points. + # + + BOOL + GradientFillTriangle(handle, x0, y0, color0, x1, y1, color1, x2, y2, color2) + HDC handle + int x0 + int y0 + COLORREF color0 + int x1 + int y1 + COLORREF color1 + int x2 + int y2 + COLORREF color2 + CODE: + TRIVERTEX vertex[3]; + vertex[0].x = x0; + vertex[0].y = y0; + vertex[0].Red = (COLOR16) (GetRValue(color0) << 8);; + vertex[0].Green = (COLOR16) (GetGValue(color0) << 8);; + vertex[0].Blue = (COLOR16) (GetBValue(color0) << 8);; + vertex[0].Alpha = 0x; + + vertex[1].x = x1; + vertex[1].y = y1; + vertex[1].Red = (COLOR16) (GetRValue(color1) << 8);; + vertex[1].Green = (COLOR16) (GetGValue(color1) << 8);; + vertex[1].Blue = (COLOR16) (GetBValue(color1) << 8);; + vertex[1].Alpha = 0x; + + vertex[2].x = x2; + vertex[2].y = y2; + vertex[2].Red = (COLOR16) (GetRValue(color2) << 8);; + vertex[2].Green = (COLOR16) (GetGValue(color2) << 8);; + vertex[2].Blue = (COLOR16) (GetBValue(color2) << 8);; + vertex[2].Alpha = 0x; + + GRADIENT_TRIANGLE gTriangle; + gTriangle.Vertex1 = 0; + gTriangle.Vertex2 = 1; + gTriangle.Vertex3 = 2; + + RETVAL = GradientFill(handle, vertex, 3, &gTriangle, 1, GRADIENT_FILL_TRIANGLE); + OUTPUT: + RETVAL + + ### + # (@)METHOD:GradientFillRectangle(X0, Y0, COLOR0, X1, Y1, COLOR1, X2, Y2, COLOR2,DIRECTION) + # Fills the area of the Rectangle using smooth shading from color0 to color1. + # As a default the sm
[Perl-win32-gui-cvscommit] Win32-GUI/samples GradientFill.pl, NONE, 1.1
This is an automatically generated mail from the syncmail system. Do not reply directly to this email. Further discussion should take place on the hackers list: [email protected] Update of /cvsroot/perl-win32-gui/Win32-GUI/samples In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv25161/samples Added Files: GradientFill.pl Log Message: Added methods GradientFillTriangle and GradientFillRectangle to DC.xs --- NEW FILE: GradientFill.pl --- #!perl -w use strict; use warnings; use Win32::GUI qw(WS_CAPTION WS_SIZEBOX WS_CHILD WS_CLIPCHILDREN WS_EX_CLIENTEDGE ); #Create the window and child window. my $Win = new Win32::GUI::Window ( -pos => [100, 100], -size=> [450, 450], -name=> "Window", -text=> "Win32::GUI Gradent Fill demo", #NEM Events for this window -onTerminate => sub {return -1;} ); #Create a child window my $ChildWin = new Win32::GUI::Window ( -parent => $Win, -name=> "ChildWin", -pos => [0, 0], -size=> [398, 398], -popstyle=> WS_CAPTION | WS_SIZEBOX, -pushstyle => WS_CHILD | WS_CLIPCHILDREN, -pushexstyle => WS_EX_CLIENTEDGE, #NEM Events for this window -onPaint => \&Paint, ); #show both windows and enter the Dialog phase. $Win->Show(); $ChildWin->Show(); Win32::GUI::Dialog(); sub Paint { #We need to paint our window my $win = shift; #get the DC my $dc = $win->GetDC; #draw a filled triangle, with points at 0,0 (blue) 100,100 (red) and 0,100 (green). $dc->GradientFillTriangle(0,0,[0,0,255],100,100,[255,0,0],0,100,[0,255,0]); #draw a vertical filled rectangle red to blue $dc->GradientFillRectangle(100,100,300,300,[255,0,0],[0,0,255],1); #draw a horizontal filled rectable black to while $dc->GradientFillRectangle(300,300,400,400,[0,0,0],[255,255,255]); $dc->Validate; } -- Download Intel® Parallel Studio Eval Try the new software tools for yourself. Speed compiling, find bugs proactively, and fine-tune applications for parallel performance. See why Intel Parallel Studio got high marks during beta. http://p.sf.net/sfu/intel-sw-dev ___ Perl-win32-gui-cvscommit mailing list [email protected] https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-cvscommit http://perl-win32-gui.sourceforge.net/
