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);
|
