paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 23:49:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

redraw of twindow fixed

Browse Source
This commit is contained in:
peter 2004-11-04 23:58:39 +00:00
parent 050e8a3acc
commit 939bbef317
1 changed files with 19 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
fv/views.pas
View File

@ -646,7 +646,8 @@ TYPE
PROCEDURE Zoom; Virtual;
PROCEDURE Close; Virtual;
PROCEDURE InitFrame; Virtual;
PROCEDURE DrawBorder; Virtual;
PROCEDURE DrawBorder; Virtual;
PROCEDURE ReDraw; Virtual;
PROCEDURE SetState (AState: Word; Enable: Boolean); Virtual;
PROCEDURE Store (Var S: TStream);
PROCEDURE HandleEvent (Var Event: TEvent); Virtual;
@ -1407,7 +1408,6 @@ BEGIN
{ OR Assigned(LimitsLocked) }
Then Begin { Treat as a full redraw }
DrawBackGround; { Draw background }
Draw; { Draw interior }
If (GOptions AND goDrawFocus <> 0) Then
DrawFocus; { Draw focus }
If (Options AND ofFramed <> 0) OR
@ -1416,17 +1416,13 @@ BEGIN
If ((State AND sfShadow) <> 0) AND
(GOptions And goNoShadow = 0) Then
DrawShadow;
Draw; { Draw interior }
End Else Begin { Masked draws only }
If (DrawMask AND vdBackGnd <> 0) Then { Chk background mask }
Begin
DrawMask := DrawMask and Not vdBackGnd;
DrawBackGround; { Draw background }
end;
If (DrawMask AND vdInner <> 0) Then { Check Inner mask }
Begin
DrawMask := DrawMask and Not vdInner;
Draw; { Draw interior }
End;
If (DrawMask AND vdFocus <> 0)
AND (GOptions AND goDrawFocus <> 0) then
Begin
@ -1438,6 +1434,11 @@ BEGIN
DrawMask := DrawMask and Not vdBorder;
DrawBorder; { Draw border }
End;
If (DrawMask AND vdInner <> 0) Then { Check Inner mask }
Begin
DrawMask := DrawMask and Not vdInner;
Draw; { Draw interior }
End;
If ((State AND sfShadow) <> 0) AND
(DrawMask AND vdShadow <> 0) AND
(GOptions And goNoShadow = 0) AND
@ -5126,6 +5127,13 @@ BEGIN
END;
PROCEDURE TWindow.Redraw;
BEGIN
DrawView;
inherited Redraw;
END;
{***************************************************************************}
{ INTERFACE ROUTINES }
{***************************************************************************}
@ -5216,7 +5224,10 @@ END.
{
$Log$
Revision 1.45 2004-11-03 20:51:36 florian
Revision 1.46 2004-11-04 23:58:39 peter
redraw of twindow fixed
Revision 1.45 2004/11/03 20:51:36 florian
* fixed problems on targets requiring proper alignment
Revision 1.44 2004/11/03 20:33:05 peter