OBJECT Form 99000 Test Option
{
  OBJECT-PROPERTIES
  {
    Date=27-01-09;
    Time=09:39:49;
    Modified=Yes;
    Version List=;
  }
  PROPERTIES
  {
    Width=5390;
    Height=3300;
    SourceTable=Table2000000026;
    OnOpenForm=BEGIN
                 UpdateForm;
               END;

  }
  CONTROLS
  {
    { 1000000000;TextBox;3520 ;220  ;1700 ;440  ;CaptionML=ENU=Option 1;
                                                 SourceExpr=Option1;
                                                 OnValidate=BEGIN
                                                              UpdateForm;
                                                            END;
                                                             }
    { 1000000001;Label  ;110  ;220  ;3300 ;440  ;ParentControl=1000000000 }
    { 1000000002;TextBox;3520 ;880  ;1700 ;440  ;Name=Opt2A;
                                                 CaptionML=ENU=Option 2;
                                                 SourceExpr=Option2A }
    { 1000000003;Label  ;110  ;880  ;3300 ;440  ;ParentControl=1000000002 }
    { 1000000004;TextBox;3520 ;1430 ;1700 ;440  ;Name=Opt2B;
                                                 CaptionML=ENU=Option 2;
                                                 SourceExpr=Option2B }
    { 1000000005;Label  ;110  ;1430 ;3300 ;440  ;ParentControl=1000000004 }
    { 1000000006;TextBox;3520 ;1980 ;1700 ;440  ;Name=Opt2C;
                                                 CaptionML=ENU=Option 2;
                                                 SourceExpr=Option2C }
    { 1000000007;Label  ;110  ;1980 ;3300 ;440  ;ParentControl=1000000006 }
    { 1000000008;TextBox;3520 ;2530 ;1700 ;440  ;Name=Opt2D;
                                                 CaptionML=ENU=Option 2;
                                                 SourceExpr=Option2D }
    { 1000000009;Label  ;110  ;2530 ;3300 ;440  ;ParentControl=1000000008 }
  }
  CODE
  {
    VAR
      Option1@1000000000 : ' ,A,B,C,D';
      Option2A@1000000005 : 'AA,AB,AC,AD';
      Option2B@1000000006 : 'BA,BB,BC,BD';
      Option2C@1000000007 : 'CA,CB,CC,CD';
      Option2D@1000000008 : 'DA,DB,DC,DD';

    PROCEDURE UpdateForm@1000000000();
    BEGIN
      CurrForm.Opt2A.VISIBLE(Option1 = Option1::A);
      CurrForm.Opt2B.VISIBLE(Option1 = Option1::B);
      CurrForm.Opt2C.VISIBLE(Option1 = Option1::C);
      CurrForm.Opt2D.VISIBLE(Option1 = Option1::D);
    END;

    BEGIN
    END.
  }
}