Larry, The issue is with the Transparent property of the Checkbox.. On my form and the one you sent me, Setting Transparent on and off makes the EEPs fire out of order.
This is a Reportable issue. Hopefully it is confined to the Checkbox only. Mike ----- Original Message ----- From: "Lawrence Lustig" <[EMAIL PROTECTED]> To: "RBG7-L Mailing List" <[email protected]> Sent: Tuesday, March 15, 2005 9:06 PM Subject: [RBG7-L] - Re: Wacky variable checkbox behavior > > 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 >
