Class TDisplayThread (unit display)

Inherits from

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;

the rect shows the drawing dimensions which are smaller than the screen for preview mode

if UseDesktop.


procedure resetPaintRect;

initialization point for the thread

free the bitmaps


procedure animate;

Style <> ssBackForth.

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;



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;