| Class TDisplayThread (unit display) |
TThread
************************************************************************** ssaver95 -- a delphi screen saver that requires little work to personalize Copyright (C) 1998 - Christopher Litsinger xopher@interiority.org This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. For more information, check out more information on the copyleft at http://www.gnu.org/copyleft/copyleft.html **************************************************************************
| Constructors |
constructor Create (drawRect : TRect; drawCanvas : TCanvas);| Functions |
procedure Execute;if UseDesktop.
procedure resetPaintRect;free the bitmaps
procedure animate;
procedure constructSprite;case;
procedure drawSprite;
procedure setPaintRect (ARect : TRect);| Properties |
property PaintRect : TRect| Events |
| Variables |
canvas : TCanvas;
desktop : TBitmap;
drawMode : boolean;
hDirection : Integer;
Height : Integer;
imageHeight : Integer;
imageWidth : Integer;
Left : Integer;
mask : TBitmap;
pause : word;
position : TPoint;
sprite : TBitmap;
style : Integer;
tank : TBitmap;
Top : Integer;
useDesktop : boolean;
vDirection : Integer;
Width : Integer;
FAnimCol : Word;
FAnimRow : Word;
FPaintRect : TRect;| Constructors |
constructor Create (drawRect : TRect; drawCanvas : TCanvas);| Functions |
procedure Execute;the rect shows the drawing dimensions which are smaller than the screen for preview mode
if UseDesktop..else
procedure resetPaintRect;initialization point for the thread
free the bitmaps
procedure animate;Style <> ssBackForth.. else
procedure constructSprite;temporary holding space
case;
procedure drawSprite;create our bitmap holding tank
procedure setPaintRect (ARect : TRect);| Properties |
property PaintRect : TRect| Events |
| Variables |
canvas : TCanvas;the animate procedure uses this to determine how to draw sprite
desktop : TBitmap;this is the destination drawing surface
drawMode : boolean;controls the speed of the screen saver
hDirection : Integer;
Height : Integer;
imageHeight : Integer;
imageWidth : Integer;
Left : Integer;
mask : TBitmap;the image to draw
pause : word;controls the position of the sprite
position : TPoint;
sprite : TBitmap;bitmap holding the background
style : Integer;useDesktop copies desktop to background
tank : TBitmap;a mask for the image
Top : Integer;
useDesktop : boolean;controls whether the image is reversed or animated
vDirection : Integer;
Width : Integer;
FAnimCol : Word;
FAnimRow : Word;
FPaintRect : TRect;