Unit ExtForm

------------------------------------------------------------------------------- TExtForm v0.2a beta - Freeware Created by Thomas Fischer fischer@rbg.informatik.tu-darmstadt.de http://www.student.informatik.tu-darmstadt.de/~fischer (only in German!) Replacement for Delphi's TForm Tested with Delphi 2. May run with minor changes in other (later) Delphi versions, too. See EXTFORM.TXT for further information. -------------------------------------------------------------------------------

Classes

TExtForm -

Functions

MessageDlgPosT -
MessageDlgT - ************************************************************************************

Types

TDropEvent
TGradient
TRGB
TWMNCPaint

Constants

Variables


Functions


function MessageDlgPosT(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Longint; X, Y: Integer): Integer;


function MessageDlgT(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Longint): Integer;

************************************************************************************

Types


TDropEvent = procedure (Sender: TObject; DragFiles: TStrings; p: TPoint) of object

TGradient = record
Enabled : Boolean;
Quality : Integer;
end;

TRGB = record
a : Byte
b : Byte
c : Byte
d : Byte
end;

TWMNCPaint = record
Msg : Cardinal;
hRgn : LongInt;
Unused : Longint;
Result : Longint;
end;

Constants


Variables