Unit Ef_Input

-------------------------------------------------------------------- Super Labeled Input Controls (SLIC) =================================== EF_INPUT - Enhanced input controls for Borland's Delphi product. v2.06b February 9, 1997 (for Delphi 1 and 2) Affordable Shareware; costs only U.S. $10 (incl. EF_EDIT,EF_DBEDT) --------------------------------------------------------------------- Copyright © 1996-97 Eric G.V. Fookes - All Rights Reserved - Address: Av. Eugène-Pittard 22Ter, CH - 1206 Geneva, Switzerland E-mail: fookes@sc2a.unige.ch Web: http://www.unige.ch/sciences/terre/geologie/fookes/delphi.htm ---------------------------------------------------------------------

Classes

EShowError -
TEicComboBox -
TEicEdit -
TEicListbox -
TEicMaskEdit -
TEicMemo -
TInputBoxMaster -
TInputBoxMenu -
TUndoBuffer -

Functions

DoAutoExpand -
FindInputBoxMaster -
GetDeviceContext -
GetTextHeight -
GetTextSize -
GetTextWidth -
GetWinVersion -
IndexOfBegin - if not found, Index = Insert value
Register -

Types

PTab
TAddToListEvent
TCompareEvent
TCompareResult
TItemAttr
TMenuItems
TOnAskItemAttr
TPromptEvent
TShowMenu
TShowMenuSet
TTab

Constants

CursorMoveKeys
EseBadTabs
EseDiffOwner
EseDiffParent
EseListTooBig
EseMemTooLow
EseNotInList
EseOneCopy
MaxMemoSize
PopupName
vWin31
vWin95

Variables

IsWin31


Functions


function DoAutoExpand(AList:TStrings; Sorted:Boolean; const S:string; var Index,SelStart,SelLength:Integer):string;


function FindInputBoxMaster(AOwner: TComponent):TInputBoxMaster;


function GetDeviceContext(AWinControl:TWinControl):HDC;


function GetTextHeight(AParent:TWinControl; const AString:string):Integer;


function GetTextSize(AParent:TWinControl; const AString:string; var Width,Height:Integer):Boolean;


function GetTextWidth(AParent:TWinControl; const AString:string):Integer;


function GetWinVersion:Word;


function IndexOfBegin(AList:TStrings; Sorted:Boolean; const S:string):Integer;

if not found, Index = Insert value

procedure Register;


Types


PTab = ^TTab

TAddToListEvent = procedure (Sender: TObject; var NewText:string; var NewObject:TObject;
                               var Accept:Boolean) of object

TCompareEvent = procedure (Sender:TObject; O1,O2:TObject; var Value:TCompareResult) of Object

TCompareResult = (crEqual,crFirstIsGreater,crFirstIsSmaller);

TItemAttr = set of (iaSelected,iaDisabled,iaDeleted)

TMenuItems = array[smUndo..smSelectAll] of TMenuItem;

TOnAskItemAttr = procedure (Sender:TObject; Index:Integer; var ItemAttr:TItemAttr) of object

TPromptEvent = procedure (Sender:TObject; var Accept:Boolean) of Object

TShowMenu = (smUndo,smOverwrite,
               smBreak1,smCut,smCopy,smPaste,smDelete,smClear,
               smBreak2,smSelectAll);

TShowMenuSet = set of TShowMenu

TTab = Integer
41949 - TMemo can only display this much in Win95

Constants

CursorMoveKeys = [VK_BACK,VK_PRIOR..VK_DOWN]

EseBadTabs = 4

EseDiffOwner = 2

EseDiffParent = 1

Error ID for EShowError exception

EseListTooBig = 5

EseMemTooLow = 6

EseNotInList = 7

EseOneCopy = 3

MaxMemoSize = $0000A3DD

PopupName = 'ef_InputBoxMenu'

vWin31 = $0A03

vWin95 = $5F03


Variables

IsWin31 : Boolean