Class TRopWin (unit Troppop)

Inherits from

TComponent

TRopPop 1.0 (c) 1995 by Eyal Frank Tel Aviv Israel CIS : 100274,3376 EMail frank-e@Trendline.co.il This is my first component , i realy want to get any feedback, So drop me an Email please. This is a simple component to display a modal Window with the cool shadow effect i'd get the basic idea from MSDN (i don't remember the actual program) TRopPop is FreeWare. You may use it freely at your own risk in any kind of environment. This component is not to be sold at any charge, and must be distributed along with the source code and this copyright header. property Brush TBrush , the Window BackGround. property Font : TFont The font of the text. Note that the window will Autosize to fit the size of the string . property Lines: TStrings Where u store the actual String(s) property TimeClose:Integer (ms) if u want that the window will auto close himself ,Set this property to the amount of mSecs. for example 1000 will close after one sec. if 0, then no auto close. property xPos,yPos :Integer the x and y coordinates of top left of win whn execute. if set to 0,then it will center. procedure Fire Like Execute. this proc will open the window and wait until user's any key down or click.(or auto close as above)

Constructors


constructor Create(AOwner: TComponent);

Protected declarations


Functions

destructor Destroy;


procedure Fire;


procedure SetBrush(Value: TBrush);


procedure SetFont(Value:TFont);


procedure SetLines(Value: TStrings);

FormDlg.

Properties

property Brush : TBrush


property Font : TFont


property Lines : TStrings


property TimeClose : Integer


property xPos : Integer


property yPos : Integer


Events

Variables

FBrush : TBrush;


FFont : TFont;


FLines : TStrings;


FormDlg : TRopInst;


FTimeClose : Integer;


FXPos : Integer;


FYPos : Integer;



Constructors


constructor Create(AOwner: TComponent);

Protected declarations


Functions


destructor Destroy;


procedure Fire;


procedure SetBrush(Value: TBrush);


procedure SetFont(Value:TFont);


procedure SetLines(Value: TStrings);

FormDlg.Parent:=Self;


Properties


property Brush : TBrush


property Font : TFont


property Lines : TStrings


property TimeClose : Integer


property xPos : Integer


property yPos : Integer


Events


Variables


FBrush : TBrush;


FFont : TFont;


FLines : TStrings;


FormDlg : TRopInst;


FTimeClose : Integer;


FXPos : Integer;


FYPos : Integer;