[Pythianproject-cvsmail] CVS: Prototypes/GLCanvas glCanvas.pas,1.17,1.18

[Michael H. <mh...@us...>]

Update of /cvsroot/pythianproject/Prototypes/GLCanvas
In directory usw-pr-cvs1:/tmp/cvs-serv18544/GLCanvas

Modified Files:
	glCanvas.pas 
Log Message:
added drag'n'drop -mike

Index: glCanvas.pas
===================================================================
RCS file: /cvsroot/pythianproject/Prototypes/GLCanvas/glCanvas.pas,v
retrieving revision 1.17
retrieving revision 1.18
diff -C2 -r1.17 -r1.18
*** glCanvas.pas	2001/01/02 19:09:46	1.17
--- glCanvas.pas	2001/01/02 21:46:20	1.18
***************
*** 231,234 ****
--- 231,236 ----
  
    TGLCanvas = class
+   private
+     FImageAlpha: Single;
    protected
      FWidth, FHeight :integer;
***************
*** 247,250 ****
--- 249,253 ----
      property CurrentColor :TColor read GetColor write SetColor;
      property FillAlpha:Single read FFillAlpha write FFillAlpha;
+     property ImageAlpha:Single read FImageAlpha write FImageAlpha;
      property ClipRect :TRect read FClipRect;
  
***************
*** 513,517 ****
      begin
        glEnable(GL_SCISSOR_TEST);
!       glColor3ub(bmp.Red,bmp.Green,bmp.Blue);
        glScissor(x,Height-y-aHeight,aWidth-1,aHeight);
        DrawTexBmp(offsetx,offsety,aWidth,aHeight,bmp.TexData);
--- 516,520 ----
      begin
        glEnable(GL_SCISSOR_TEST);
!       glColor4ub(bmp.Red,bmp.Green,bmp.Blue,Round(255 * ImageAlpha));
        glScissor(x,Height-y-aHeight,aWidth-1,aHeight);
        DrawTexBmp(offsetx,offsety,aWidth,aHeight,bmp.TexData);
***************
*** 522,526 ****
        r := FitRectToRect(Rect(x,y,x+aWidth,y+aHeight),FClipRect);
        glPushAttrib(GL_SCISSOR_TEST);
!       glColor3ub(bmp.Red,bmp.Green,bmp.Blue);
        glScissor(r.left,Height-r.bottom,r.right-r.left-1,r.bottom-r.top);
        DrawTexBmp(offsetx,offsety,aWidth,aHeight,bmp.TexData);
--- 525,529 ----
        r := FitRectToRect(Rect(x,y,x+aWidth,y+aHeight),FClipRect);
        glPushAttrib(GL_SCISSOR_TEST);
!       glColor4ub(bmp.Red,bmp.Green,bmp.Blue,Round(255 * ImageAlpha));
        glScissor(r.left,Height-r.bottom,r.right-r.left-1,r.bottom-r.top);
        DrawTexBmp(offsetx,offsety,aWidth,aHeight,bmp.TexData);