paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-02 18:20:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed scaling TBitmap.Draw

Browse Source 
git-svn-id: trunk@5205 -
This commit is contained in:
mattias 2004-02-19 03:20:58 +00:00
parent ed787b99de
commit 0a8b93bfa9
2 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/arrow.pp
View File

@ -90,11 +90,10 @@ end;
constructor TArrow.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
{create the control}
fCompStyle := csArrow;
setbounds(0,0,10,10);
fArrowType := atLeft;
fShadowType := stEtchedIn;
SetInitialBounds(0,0,10,10);
end;
destructor TArrow.Destroy;

7
lcl/include/bitmap.inc
View File

@ -99,9 +99,9 @@ begin
UseMaskHandle:=MaskHandle
else
UseMaskHandle:=0;
MaskBlt(ACanvas.Handle,
StretchMaskBlt(ACanvas.Handle,
ARect.Left,ARect.Top, ARect.Right-ARect.Left,ARect.Bottom-ARect.Top,
Canvas.Handle,0,0, UseMaskHandle,0,0);
Canvas.Handle,0,0,Width,Height, UseMaskHandle,0,0,SRCCOPY);
end;
end;
@ -1059,6 +1059,9 @@ end;
{ =============================================================================
$Log$
Revision 1.67 2004/02/19 03:20:58 mattias
fixed scaling TBitmap.Draw
Revision 1.66 2004/02/17 22:17:40 mattias
accelerated conversion from data to lrs