paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-04 11:49:37 +01:00
Code Issues Packages Projects Releases Wiki Activity

TSpeedButton.Transparent is now more Delphi compatible

Browse Source 
git-svn-id: trunk@9337 -
This commit is contained in:
mattias 2006-05-22 08:22:54 +00:00
parent f7a735f0f0
commit 974c61c74f
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/include/speedbutton.inc
View File

@ -279,6 +279,8 @@ begin
if FFlat and not FMouseInControl and not (FState in [bsDown, bsExclusive]) then
begin
Result := DFCS_FLAT;
if not Enabled then
inc(Result,DFCS_INACTIVE)
end else begin
Result:=DFCS_BUTTONPUSH;
if FState in [bsDown, bsExclusive] then
@ -413,13 +415,9 @@ begin
// do not draw anything if flat and mouse not in control (simplified)
if Transparent then begin
if (FLastDrawFlags and DFCS_FLAT) = 0 then begin
if MouseInControl then begin
if (FLastDrawFlags and DFCS_PUSHED) <>0 then xBevel := bvLowered
else xBevel := bvRaised;
Canvas.Frame3D(PaintRect,1,xBevel);
end else if (FLastDrawFlags and DFCS_PUSHED) <>0 then begin
Canvas.Frame3D(PaintRect,1,bvLowered);
end;
InflateRect(PaintRect, -1, -1);
end;
end else begin
@ -745,7 +743,6 @@ procedure TCustomSpeedButton.MouseEnter;
begin
inherited MouseEnter;
if csDesigning in ComponentState then exit;
if not FMouseInControl
and Enabled and (GetCapture = 0)
then begin