| Class TListScreen (unit ListPop) |
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);| Properties |
| Events |
| Variables |
ListBox1 : TListBox;
Underneath : TBitmap;
BtnDown : Boolean;
f_Inspector : tf_Inspector;
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;