pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

* Move Alpha blend function to a intf dependent unit.

Browse Source 
* Fix compilation of adv demo to adapt to this change

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1092 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2009-12-28 15:43:43 +00:00
parent ac519c283f
commit 568e491487
4 changed files with 12 additions and 479 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/virtualtreeview-new/trunk/demos/advanced/HeaderCustomDrawDemo.pas
View File

@ -10,7 +10,7 @@ unit HeaderCustomDrawDemo;
interface
uses
LCLIntf, Types, SysUtils, Classes, Graphics, Controls, Forms,
LCLIntf, VTGraphics, Types, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs, VirtualTrees, StdCtrls, ExtCtrls, LResources, LCLType, LCLProc;
type
@ -190,7 +190,7 @@ var
begin
R := Rect(0, 0, Bitmap.Width, Bitmap.Height);
VirtualTrees.AlphaBlend(0, Bitmap.Canvas.Handle, R, Point(0, 0), bmConstantAlphaAndColor, Alpha,
VTGraphics.AlphaBlend(0, Bitmap.Canvas.Handle, R, Point(0, 0), bmConstantAlphaAndColor, Alpha,
ColorToRGB(clHighlight));
with Bitmap do
begin