Class TListScreen (unit ListPop)

Inherits from

TForm

MENEWL - 12.17.97 ( added the HINTS OFF ) {$HINTS OFF

Constructors



Functions

procedure FormCreate(Sender: TObject);


procedure FormHide(Sender: TObject);


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


procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);


procedure FormPaint(Sender: TObject);


procedure FormShow(Sender: TObject);


procedure ListBox1Exit(Sender: TObject);


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


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


procedure LostControl(Sender : TObject);

SetOrdProp(PPED^.

Properties

Events

Variables

ListBox1 : TListBox;


Underneath : TBitmap;


BtnDown : Boolean;


f_Inspector : tf_Inspector;

Private declarations

oldEvent : TNotifyEvent;



Constructors


Functions


procedure FormCreate(Sender: TObject);


procedure FormHide(Sender: TObject);


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


procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);


procedure FormPaint(Sender: TObject);


procedure FormShow(Sender: TObject);


procedure ListBox1Exit(Sender: TObject);


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


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


procedure LostControl(Sender : TObject);

SetOrdProp(PPED^.Ob, PPED^.PropData, GetTypeData(@PPED^.PropData^.PropType)^. Minvalue + ListBox1.ItemIndex);


Properties


Events


Variables


ListBox1 : TListBox;


Underneath : TBitmap;


BtnDown : Boolean;


f_Inspector : tf_Inspector;

Private declarations


oldEvent : TNotifyEvent;