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

rescent changes

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1236 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
christian_u
2010-06-17 20:26:24 +00:00
parent 8a55f916d0
commit a4e7dc1149
1 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
components/virtualtreeview/virtualtrees.pas
View File

@ -2387,7 +2387,7 @@ function GetVTClipboardFormatDescription(AFormat: Word): string;
//x lindex: Integer = -1): Word; overload; //x lindex: Integer = -1): Word; overload;
// utility routines // utility routines
procedure AlphaBlend(Source, Destination: HDC; R: TRect; Target: TPoint; Mode: TBlendMode; ConstantAlpha, Bias: Integer); procedure VTAlphaBlend(Source, Destination: HDC; R: TRect; Target: TPoint; Mode: TBlendMode; ConstantAlpha, Bias: Integer);
procedure DrawTextW(DC: HDC; lpString: PWideChar; nCount: Integer; var lpRect: TRect; uFormat: Cardinal; procedure DrawTextW(DC: HDC; lpString: PWideChar; nCount: Integer; var lpRect: TRect; uFormat: Cardinal;
AdjustRight: Boolean); overload; AdjustRight: Boolean); overload;
procedure DrawTextW(Canvas: TCanvas; lpString: PWideChar; var lpRect: TRect; uFormat: Cardinal; procedure DrawTextW(Canvas: TCanvas; lpString: PWideChar; var lpRect: TRect; uFormat: Cardinal;
@ -3593,7 +3593,7 @@ end;
//---------------------------------------------------------------------------------------------------------------------- //----------------------------------------------------------------------------------------------------------------------
procedure AlphaBlend(Source, Destination: HDC; R: TRect; Target: TPoint; Mode: TBlendMode; ConstantAlpha, Bias: Integer); procedure VTAlphaBlend(Source, Destination: HDC; R: TRect; Target: TPoint; Mode: TBlendMode; ConstantAlpha, Bias: Integer);
// Optimized alpha blend procedure using MMX instructions to perform as quick as possible. // Optimized alpha blend procedure using MMX instructions to perform as quick as possible.
// For this procedure to work properly it is important that both source and target bitmap use the 32 bit color format. // For this procedure to work properly it is important that both source and target bitmap use the 32 bit color format.
@ -4850,7 +4850,7 @@ procedure TVirtualTreeHintWindow.InternalPaint(Step, StepSize: Integer);
// Helper routine for shadow blending to shorten the parameter list in frequent calls. // Helper routine for shadow blending to shorten the parameter list in frequent calls.
begin begin
AlphaBlend(0, DC, R, Point(0, 0), bmConstantAlphaAndColor, Alpha, clBlack); VTAlphaBlend(0, DC, R, Point(0, 0), bmConstantAlphaAndColor, Alpha, clBlack);
end; end;
//--------------------------------------------------------------------------- //---------------------------------------------------------------------------
@ -4982,7 +4982,7 @@ begin
with FTarget do with FTarget do
BitBlt(Canvas.Handle, 0, 0, Width, Height, FBackground.Canvas.Handle, 0, 0, SRCCOPY); BitBlt(Canvas.Handle, 0, 0, Width, Height, FBackground.Canvas.Handle, 0, 0, SRCCOPY);
// Main image. // Main image.
AlphaBlend(FDrawBuffer.Canvas.Handle, FTarget.Canvas.Handle, Rect(0, 0, Width - Shadow, Height - Shadow), VTAlphaBlend(FDrawBuffer.Canvas.Handle, FTarget.Canvas.Handle, Rect(0, 0, Width - Shadow, Height - Shadow),
Point(0, 0), bmConstantAlpha, MulDiv(Step, 256, FadeAnimationStepCount), 0); Point(0, 0), bmConstantAlpha, MulDiv(Step, 256, FadeAnimationStepCount), 0);
if Shadow > 0 then if Shadow > 0 then
@ -5390,7 +5390,7 @@ begin exit;
else else
BlendMode := bmMasterAlpha; BlendMode := bmMasterAlpha;
with FDragImage do with FDragImage do
AlphaBlend(Canvas.Handle, FAlphaImage.Canvas.Handle, Rect(0, 0, Width, Height), Point(0, 0), BlendMode, VTAlphaBlend(Canvas.Handle, FAlphaImage.Canvas.Handle, Rect(0, 0, Width, Height), Point(0, 0), BlendMode,
FTransparency, FPostBlendBias); FTransparency, FPostBlendBias);
with FAlphaImage do with FAlphaImage do
@ -11733,7 +11733,7 @@ var
R.Left := 0; R.Left := 0;
if R.Right > MaxWidth then if R.Right > MaxWidth then
R.Right := MaxWidth; R.Right := MaxWidth;
AlphaBlend(0, PaintInfo.Canvas.Handle, R, Point(0, 0), bmConstantAlphaAndColor, VTAlphaBlend(0, PaintInfo.Canvas.Handle, R, Point(0, 0), bmConstantAlphaAndColor,
FSelectionBlendFactor, ColorToRGB(Color)); FSelectionBlendFactor, ColorToRGB(Color));
end; end;
@ -19373,7 +19373,7 @@ begin
if IntersectRect(BlendRect, OrderRect(SelectionRect), TargetRect) then if IntersectRect(BlendRect, OrderRect(SelectionRect), TargetRect) then
begin begin
OffsetRect(BlendRect, -WindowOrgX, 0); OffsetRect(BlendRect, -WindowOrgX, 0);
AlphaBlend(0, Target.Handle, BlendRect, Point(0, 0), bmConstantAlphaAndColor, FSelectionBlendFactor, VTAlphaBlend(0, Target.Handle, BlendRect, Point(0, 0), bmConstantAlphaAndColor, FSelectionBlendFactor,
ColorToRGB(FColors.SelectionRectangleBlendColor)); ColorToRGB(FColors.SelectionRectangleBlendColor));
Target.Brush.Color := FColors.SelectionRectangleBorderColor; Target.Brush.Color := FColors.SelectionRectangleBorderColor;