Example: Creating a text control

1. Create a text control state.
   
2. Instantiate TTextControl, passing the control state in the constructor.
   
3. Launch the control in a window.
   

• SetTextState lets you specify a TText object as initial text for the control. You can also set initial text by including it in the control state constructor.
• SetAllocatedArea lets you set the size of the text control. You can specify a fixed size, or use the value returned by GetPreferredSize to create a control that grows to accommodate all the input text.
• SetInitialTextStyles lets you specify character styles to apply to input text. If your control includes character styling menus, any styles the user applies override the initial styles.
• EnableTextMenus lets you specify whether to include the standard text menu in your text control. By default, this is set to False.

This code demonstrates how to create a text control in a window. The resulting text control resizes itself to fit the input text.

  // Copyright (C) 1994 Taligent, Inc. All rights reserved.
  TGPoint kWindowSize = TGPoint(575, 125);
  TGPoint kWindowOffset = TGPoint(100, 25);
  TGPoint kTextControlOffset = TGPoint( 25, 25);
  
  
TRequestHandler* rh = new TRequestHandler( new TRequestQueue() );
  TWindowGroup windowGroup( rh->GetRequestQueue() );
  
  TStandardText windowTitle( "SampleText Control" );
  TStandardWindow* window = new TStandardWindow(windowTitle, TRUE, TRUE, TRUE, TRUE, TRUE);
  
  
windowGroup.AdoptContentWindow( window );
  window->SetWindowSize( kWindowSize );
  window->MoveWindowTo( kWindowOffset );
  
  
TSimpleView* contentView = new TSimpleView;
  window->AdoptChildView( contentView );
  
  
TStandardText initialText( "This is only a text of the text control system." );
  TSimpleTextControlState* state = new TSimpleTextControlState( initialText );
  TTextLabel* label = new TTextLabel( TStandardText( "Test Field:" );
  TTextControl* control = new TTextControl( state, label );
  
  
control->SetTextBorderThickness( 5 );
  control->SetControlLayout( MControl::kLeftToRight );
  control->SetEnabled( TRUE );
  control->SetAllocatedArea( TGRect( TGPoint::GetOrigin(), TGPoint( 525, 50 ) ) );
  
  TStyleSet initialStyles;
  initialStyles.Add( TTextColorStyle::GetRed() );
  control->SetInitialTextStyles( initialStyles );
  
  
contentView->AdoptChild( control );
  control->TranslateAllocatedAreaInParentTo( kTextControlOffset );
  
  
windowGroup->Activate();
  window->Open();
  
  while ( window->IsOpen() ) {
      rh->WaitAndDispatchNextRequest();
  }
  
  delete rh;

control->SetAllocatedArea( TGRect( TGPoint::GetOrigin(), control->GetPreferredSize() ) );