RichEdit

开发平台：

Delphi

Unit1.cpp：源码内容

							/*=============================================================================}
{ This demo shows how to add pictures and horizontal lines into RichView.      }
{                                                                              }
{ This demo also shows how to use background image.                            }
{ RichView1->BackgroundBitmap is assigned to some image, and                   }
{ RichView1->BackgroundStyle is set to bsTiled                                 }
{=============================================================================*/
#include <vclvcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma link "RichView"
#pragma link "RVScroll"
#pragma link "RVStyle"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
  RichView1->Clear();
  RichView1->AddNL("Example of adding images", 1, 1);
  // Adding "break" - horizontal line
  RichView1->AddBreak();
  RichView1->AddNL("Adding icon:", 0, 0);
  // RichView frees inserted graphics when needed.
  // So RichView1->AddPictureEx("", Image1->Picture->Graphic, -1, rvvaBaseline)
  // will cause error. We need to create a copy of graphic.
  TIcon* ico = new TIcon;
  ico->Assign(Image1->Picture->Graphic);
  RichView1->AddPictureEx("", ico, -1, rvvaBaseline);
  RichView1->AddNL("Adding bitmap:", 0, 0);
  // Adding bitmap from file:
  Graphics::TBitmap * bmp = new Graphics::TBitmap;
  bmp->LoadFromFile(ExtractFilePath(Application->ExeName)+"bars.bmp");
  RichView1->AddPictureEx("", bmp, -1, rvvaMiddle);
  RichView1->AddBreak();
  RichView1->Format();
  // About AddPictureEx:
  // 1st parameter: name of picture. Allows to hold additional text information
  //  together with image. There is no predefined meaning of this
  //  parameter. May be in future this string will be shown as a hint.
  // 2nd parameter: image. TBitmap, TIcon, TMetafile, etc.
  // 3rd parameter: index of paragraph style (-1 to continue paragraph)
  // 4th parameter: vertical align of image.
  //  In current version RichView supports two options:
  //  - rvvaBaseline: align bottom of image to base line of text;
  //  - rvvaMiddle: align middle of image to base line of text;
}
//---------------------------------------------------------------------------

						