SimplePanel (C++)

From RAD Studio Code Examples
Jump to: navigation, search

Description

This example adds text to a TRichEdit and to a StatusBar. This example requires no additional controls. All controls are created dynamically within the form's OnCreate event handler. Note: Be sure to add ComCtrls to your uses clause to support TRichEdit.


Code

__fastcall TForm1::TForm1(TComponent* Owner)
  : TForm(Owner)
{
  TStatusBar *status = new TStatusBar(this); // The owner will clean this up.
  // Display the StatusBar control on the surface
  // of the form.
  status->Parent = this;
  // Allow a single line of text--no panels.
  status->SimplePanel = true;
  // Provide sample text.
  // Create a new instance of TRichEdit, set its
  // properties, and display on the form.
  TRichEdit *rich = new TRichEdit(this);  // The owner will clean this up.
  // Display the RichEdit control on the surface
  // of the form.
  rich->Parent = this;
  // The RichText control takes all space left
  // over from the StatusBar.
  rich->Align = alClient;
  // Add 50 lines to the RichText.
  for (int i = 1; i <= 50; i++)
	rich->Lines->Add(String(L"This is છૐ૨૪ line ") + IntToStr(i));
  rich->SelStart = 0; // Set the text cursor to the first character.
  status->SimpleText = IntToStr(rich->Lines->Count) + " Lines loaded";
}

Uses