SimplePanel (C++)
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
- Vcl.ComCtrls.TCustomStatusBar.SimplePanel ( fr | de | ja )
- Vcl.ComCtrls.TCustomStatusBar.SimpleText ( fr | de | ja )
- System.Classes.TStrings.Add ( fr | de | ja )