************************************************************************
--- DFSl_mx.pkg Sliding control mixin
Copyright (c) 1983-1997 Data Access Corporation, Miami Florida,
All rights reserved.
DataFlex is a registered trademark of Data Access Corporation.
************************************************************************
Description:
Author: Stuart W. Booth
07/25/97 JJT - Converted to a mixin so it can be used with db classes
07/23/96 JJT - New Class names
************************************************************************
expected usage:
Class dbTrackbar is a dbFormExternalControl
Import_Class_Protocol Trackbar_Mixin
Procedure onSetPosition
Send ControlValueChanged
End_Procedure
Procedure Set ControlValue string sVal
Set current_Position to (integer(sVal))
End_Procedure
Function ControlValue Returns String
Function_return (Current_position(self))
End_Function
End_Class
Dfsl_mx.pkg (view source)- import declarations
- TrackBar_Mixin : Mixin
The following procedures are 'Message Notifications'; that is to say,
Windows has committed the event, and is politely notifying us.
The notification messages are 'stubbed' (cancelled), as you can
safely ignore them. Remember the Current_Position property is always
valid, so you can augment that property being SET, if you want constant
updating. alternatively, OnFinishedSliding is always sent after each
update. If you only wanted to be notified at the end of any sliding
operation (which includes keyboard support) then OnFinishedSliding is
all you need to trap.
References (2):
Field References (0):
Module | Containing Symbol | Line |
---|