> Rb7 30315... I cannot confirm this behavior. Everything works ok here.
Mike:
I'm testing now on 2/28 version (latest available to me). I don't have the
original form, so I set up a test form. I do not see the _same_ problem I saw
before, but I see something completely fascinating:
With the variable checkbox control the AFTER EEP fires BEFORE the BEFORE START
EEP. Without the checkbox it works correctly.
Here's the DFM for my test form which you can paste into the sys_data column of
a new empty form. My form is based on the table SystemDummy, but I don't think
it matters (there are no DB controls or dependencies in the form at all). Want
to give it a try?
object TNewDesignForm
Anchors = []
Left = 0
Top = 0
HorzScrollBar.Smooth = True
VertScrollBar.Smooth = True
VertScrollBar.Tracking = True
AutoScroll = False
Caption = 'Test'
ClientHeight = 142
ClientWidth = 328
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
KeyPreview = True
OldCreateOrder = False
PopupMenu = FormNewDesigner.pmnMain
ShowHint = True
OnActivate = FormActivate
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
OnDeactivate = FormDeactivate
OnKeyDown = FormKeyDown
OnKeyPress = FormKeyPress
OnKeyUp = FormKeyUp
OnPaint = FormPaint
OnResize = FormResize
OnShow = FormShow
DisableCloseAction = False
CustomCommands = <>
OnCustomEntryEEP.Strings = (
'PAUSE 2 USING '#39'This is the before start EEP'#39
'SET VAR fTest_Field1 TEXT = NULL'
'SET VAR fTest_Field2 TEXT = '#39'SCREEN'#39
'SET VAR fTest_Field3 INT = NULL'
'RETURN')
OnCustomExitEEP.Strings = (
'PAUSE 2 USING '#39'This is the on close EEP'#39
'RETURN')
OnCustomAfterEntryEEP.Strings = (
'PAUSE 2 USING '#39'This is the on after start EEP'#39
'RETURN')
AnimationType = atNone
Relationships = trManyToOne
ClearVarOnExit = False
FormBorderStyle = bsSingle
ShowDynCaption = False
TblFldVar = False
DontShowSaveDialog = False
DontShowDeleteDialog = False
Scrollable = False
PixelsPerInch = 96
TextHeight = 13
object RNewWallPaper2: TRNewWallPaper
Tag = 47237557
Left = 0
Top = 0
Width = 328
Height = 142
Active = True
Align = alClient
ImageStyle = isCenter
ShowGradient = True
ShowImage = False
ShowTexture = False
end
object RBLabel3: TRBLabel
Tag = 78786561
Left = 65
Top = 30
Width = 72
Height = 13
Cursor = crArrow
Caption = 'ID Numbers '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
BlinkIntervalOff = 505
BlinkIntervalOn = 5
FrameSides = []
UseAsLink = False
EEPNum = 0
UseAsLinkEEP = False
end
object RBLabel1: TRBLabel
Tag = 32769741
Left = 65
Top = 60
Width = 102
Height = 13
Cursor = crArrow
Caption = 'Number of Copies'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
BlinkIntervalOff = 505
BlinkIntervalOn = 5
FrameSides = []
UseAsLink = False
EEPNum = 0
UseAsLinkEEP = False
end
object RBEdit2: TRBEdit
Tag = 76283667
Left = 175
Top = 25
Width = 121
Height = 21
TabOrder = 0
Text = 'fTest_Field1'
Formatted = False
UseDynamicWhere = False
RecalcVar = False
VarName = 'fTest_Field1'
PMType = ptSingle
PMAccess = False
PMAuto = False
PMCust = False
PMSkip = False
PMLines = 5
end
object VarSpinEdit2: TVarSpinEdit
Left = 175
Top = 55
Width = 47
Height = 21
Increment = 1
Max = 100
PageSize = 10
TabOrder = 1
RecalcVar = False
VarName = 'fTest_Field3'
end
object RBCheckBox1: TRBCheckBox
Tag = 48879566
Left = 65
Top = 85
Width = 126
Height = 17
Alignment = taLeftJustify
Caption = 'Show on Screen'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
State = cbUnchecked
TabOrder = 2
Transparent = True
ValueChecked = 'SCREEN'
ValueUnChecked = 'PRINTER'
RecalcVar = False
VarName = 'fTest_Field2'
end
end
---
Larry
