paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-28 21:20:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

* avoid problems with shadows when moving or resizing a window

Browse Source
This commit is contained in:
pierre 2002-05-23 10:27:12 +00:00
parent 3e18b668f9
commit f0f891c8e9
2 changed files with 36 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
fv/views.pas
View File

@ -2089,6 +2089,20 @@ END;
PROCEDURE TView.SetBounds (Var Bounds: TRect);
VAR D, COrigin: TPoint;
BEGIN
{ Remove shadow first }
if (State and (sfShadow or sfVisible or sfExposed) =
(sfShadow or sfVisible or sfExposed)) and
assigned(Owner) then
begin
State:= State and not sfShadow;
Owner^.ReDrawArea(RawOrigin.X + RawSize.X, RawOrigin.Y,
RawOrigin.X + RawSize.X + ShadowSize.X*SysFontWidth,
RawOrigin.Y + RawSize.Y + ShadowSize.Y*SysFontHeight); { Owner redraws area }
Owner^.ReDrawArea(RawOrigin.X, RawOrigin.Y + RawSize.Y,
RawOrigin.X + RawSize.X + ShadowSize.X*SysFontWidth,
RawOrigin.Y + RawSize.Y + ShadowSize.Y*SysFontHeight); { Owner redraws area }
State:= State or sfShadow;
end;
If (Bounds.B.X > 0) AND (Bounds.B.Y > 0) { Normal text co-ords }
AND (GOptions AND goGraphView = 0) Then Begin { Normal text view }
If (Owner <> Nil) Then Begin { Owner is valid }
@ -5539,7 +5553,10 @@ END.
{
$Log$
Revision 1.21 2002-05-23 09:06:01 pierre
Revision 1.22 2002-05-23 10:27:12 pierre
* avoid problems with shadows when moving or resizing a window
Revision 1.21 2002/05/23 09:06:01 pierre
* force views to have raworigin multiples of cell width and height
Revision 1.20 2002/05/21 11:47:36 pierre

19
fvision/views.pas
View File

@ -2089,6 +2089,20 @@ END;
PROCEDURE TView.SetBounds (Var Bounds: TRect);
VAR D, COrigin: TPoint;
BEGIN
{ Remove shadow first }
if (State and (sfShadow or sfVisible or sfExposed) =
(sfShadow or sfVisible or sfExposed)) and
assigned(Owner) then
begin
State:= State and not sfShadow;
Owner^.ReDrawArea(RawOrigin.X + RawSize.X, RawOrigin.Y,
RawOrigin.X + RawSize.X + ShadowSize.X*SysFontWidth,
RawOrigin.Y + RawSize.Y + ShadowSize.Y*SysFontHeight); { Owner redraws area }
Owner^.ReDrawArea(RawOrigin.X, RawOrigin.Y + RawSize.Y,
RawOrigin.X + RawSize.X + ShadowSize.X*SysFontWidth,
RawOrigin.Y + RawSize.Y + ShadowSize.Y*SysFontHeight); { Owner redraws area }
State:= State or sfShadow;
end;
If (Bounds.B.X > 0) AND (Bounds.B.Y > 0) { Normal text co-ords }
AND (GOptions AND goGraphView = 0) Then Begin { Normal text view }
If (Owner <> Nil) Then Begin { Owner is valid }
@ -5539,7 +5553,10 @@ END.
{
$Log$
Revision 1.21 2002-05-23 09:06:01 pierre
Revision 1.22 2002-05-23 10:27:12 pierre
* avoid problems with shadows when moving or resizing a window
Revision 1.21 2002/05/23 09:06:01 pierre
* force views to have raworigin multiples of cell width and height
Revision 1.20 2002/05/21 11:47:36 pierre