Class TRopInst (unit Ropwin)

Inherits from

TForm

This is the window class don't install it. install Troppop.pas 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.

Constructors



Functions

procedure FormClose(Sender: TObject; var Action: TCloseAction);


procedure FormCreate(Sender: TObject);

sText.

procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);

right-side shadow

procedure FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure FormPaint(Sender: TObject);


procedure Timer1Timer(Sender: TObject);


procedure DoInit;


procedure CreateParams(var Params: TCreateParams);


procedure WMEraseBkng(var MSg:TWMEraseBkgnd);

call the inherited first

Properties

Events

Variables

Timer1 : TTimer;


formBrush : TBrush;


sText : TStringList;


timerClose : Integer;


xPos : Integer;


yPos : Integer;



Constructors


Functions


procedure FormClose(Sender: TObject; var Action: TCloseAction);


procedure FormCreate(Sender: TObject);

sText.Add('XPos: '+IntToStr(XPos)); sText.Add('YPos: '+IntToStr(YPos));


procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);

right-side shadow


procedure FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure FormPaint(Sender: TObject);


procedure Timer1Timer(Sender: TObject);


procedure DoInit;


procedure CreateParams(var Params: TCreateParams);


procedure WMEraseBkng(var MSg:TWMEraseBkgnd);

call the inherited first


Properties


Events


Variables


Timer1 : TTimer;


formBrush : TBrush;


sText : TStringList;


timerClose : Integer;


xPos : Integer;


yPos : Integer;