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

fixed GetControlAtPos for non designing

Browse Source 
git-svn-id: trunk@5611 -
This commit is contained in:
mattias 2004-06-28 18:57:55 +00:00
parent da33b0669a
commit cf66c2439c
2 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/include/speedbutton.inc
View File

@ -377,6 +377,7 @@ begin
FLastDrawFlags:=GetDrawFlags;
//DebugLn('TSpeedbutton.Paint ',Name,':',ClassName,' Parent.Name=',Parent.Name);
// do not draw anything if flat and mouse not in control (simplified)
if FLastDrawFlags <> 0 then
DrawFrameControl(Canvas.GetUpdatedHandle([csBrushValid,csPenValid]),
@ -779,6 +780,9 @@ end;
{ =============================================================================
$Log$
Revision 1.56 2004/06/28 18:57:55 mattias
fixed GetControlAtPos for non designing
Revision 1.55 2004/06/20 12:29:26 micha
make flat speedbuttons nicer

5
lcl/include/wincontrol.inc
View File

@ -1669,6 +1669,8 @@ var
)
or
(
(not (csDesigning in ComponentState))
and
(Visible)
and
(Enabled or AllowDisabled)
@ -3658,6 +3660,9 @@ end;
{ =============================================================================
$Log$
Revision 1.243 2004/06/28 18:57:55 mattias
fixed GetControlAtPos for non designing
Revision 1.242 2004/06/28 18:54:27 mattias
further fixed GetControlAtPos