TRichView.com

Code: Select all

TJvsRichTextEditor.Create(nil); 

Code: Select all

procedure TJvsRichTextEditor.FormCreate(Sender: TObject);
begin
  // Almost all these assignments could be done at design time in the Object Inspector
  // But in this demo we do not want to modify rvActionsResource
  // (and we recommend to use a copy of it in your applications)
 //rvActionsResource :=  TrvActionsResource.Create(self);
  rvActionsResource.rvActionSave1.OnDocumentFileChange := rvActionSave1DocumentFileChange;

  // Code for making color-picking buttons stay pressed while a
  // color-picker window is visible.
  rvActionsResource.rvActionColor1.OnShowColorPicker := ColorPickerShow;
  rvActionsResource.rvActionColor1.OnHideColorPicker := ColorPickerHide;
  rvActionsResource.rvActionParaColor1.OnShowColorPicker := ColorPickerShow;
  rvActionsResource.rvActionParaColor1.OnHideColorPicker := ColorPickerHide;
  rvActionsResource.rvActionFontColor1.OnShowColorPicker := ColorPickerShow;
  rvActionsResource.rvActionFontColor1.OnHideColorPicker := ColorPickerHide;
  rvActionsResource.rvActionFontBackColor1.OnShowColorPicker := ColorPickerShow;
  rvActionsResource.rvActionFontBackColor1.OnHideColorPicker := ColorPickerHide;

  // Delphi 4 and 5 do not have ActionComponent property for actions.
  // Coloring actions have a substitution - CallerControl property
  // It is ignored in Delphi 6 and 7
  //rvActionsResource.rvActionParaColor1.CallerControl := ToolButton39;
  rvActionsResource.rvActionFontBackColor1.CallerControl := ToolButton38;
  rvActionsResource.rvActionFontColor1.CallerControl := ToolButton36;

  {$IFDEF RICHVIEWDEF6}
  // AutoComplete feature causes OnClick generation when editing combo-box's text.
  // Since in OnClick we move input focus in RichViewEdit1, this effect is
  // undesirable
  cmbFont.AutoComplete := False;
  cmbFontSize.AutoComplete := False;
  {$ENDIF}

  {self.RichViewEdit1.OnChange    := DoOnChange;
  self.RichViewEdit1.OnClick     := DoOnClick;
  self.RichViewEdit1.OnDblClick  := DoOnDblClick;
  self.RichViewEdit1.OnExit      := DoOnExit;
  self.RichViewEdit1.OnEnter     := DoOnEnter; }

  rvActionsResource.rvActionSave1.Visible := false; //No save menu item
  ToolButton2.Visible := false; //No save button
  RVRuler1.Visible := false; //No ruler
  SetLanguage(999); //Default language is International English

  //start
  rvActionsResource.rvActionNew1.ExecuteTarget(RichViewEdit1);

  //Remove RVT files as an option from save and open dialogs
   rvActionsResource.rvActionOpen1.Filter := rvActionsResource.rvActionOpen1.Filter - [ffiRVF];
   rvActionsResource.rvActionSaveAs1.Filter := rvActionsResource.rvActionSaveAs1.Filter - [ffeRVF];
end;

Code: Select all

function TJvsRichTextEditor.GetText: string;
begin

  Result := self.RichViewEdit1.GetText;

end;



function TCustomRichViewEdit.GetText: string;
var
  rtfStream : TMemoryStream;
  rtfBuffer : string;
begin
  begin
    rtfStream := TMemoryStream.Create();
    rtfBuffer := '';
    try
      // When we save the text the rtfstream will add som
      //rtf information even thow we we didn't write any text
      if Self.Text<>'' then begin//
      Self.SaveRTFToStream(rtfStream, false);
      end;//
      rtfStream.Position := 0;
      SetLength(rtfBuffer, rtfStream.Size);
      rtfStream.ReadBuffer(Pointer(rtfBuffer)^, rtfStream.Size);
      Result := rtfBuffer;
    finally
      rtfStream.Free;
    end;
  end
end;

Code: Select all

procedure TCustomRichView.WMGetTextLength(var Message: TMessage);
begin
  if (rvflCanProcessGetText in Flags) and
     not (csDestroying in ComponentState) then begin
    if ItemCount=0 then
      Message.Result := 0
    else
      Message.Result := RVGetTextLength(Self);
    end
  else
    inherited;
end;

Code: Select all

{$IFNDEF RICHVIEWDEF9}
    procedure WMGetTextLength(var Message: TMessage); message WM_GETTEXTLENGTH;
    procedure WMGetText(var Message: TMessage); message WM_GETTEXT;
    procedure WMSetText(var Message: TMessage); message WM_SETTEXT;
{$ENDIF}

Code: Select all

function TCustomRichViewEdit.GetText: string; 
var 
  rtfStream : TMemoryStream; 
  rtfBuffer : string; 
begin 
  begin 
    rtfStream := TMemoryStream.Create(); 
    rtfBuffer := ''; 
    try 
      // When we save the text the rtfstream will add som 
      //rtf information even thow we we didn't write any text 
      if Self.Text<>'' then begin// 
      Self.SaveRTFToStream(rtfStream, false); 
      end;// 
      rtfStream.Position := 0; 
      SetLength(rtfBuffer, rtfStream.Size); 
      rtfStream.ReadBuffer(Pointer(rtfBuffer)^, rtfStream.Size); 
      Result := rtfBuffer; 
    finally 
      rtfStream.Free; 
    end; 
  end 
end; 

Code: Select all

function TCustomRichViewEdit.GetText: string; 

  function IsEmpty: Boolean;
  begin
    Result := (ItemCount=0) or 
      ((ItemCount=1) and (GetItemStyle(0)=0) and (GetItemText(0)=''));
  end;

var 
  rtfStream : TMemoryStream; 
  rtfBuffer : string; 
begin 
  begin 
    rtfStream := TMemoryStream.Create(); 
    rtfBuffer := ''; 
    try 
      // When we save the text the rtfstream will add som 
      //rtf information even thow we we didn't write any text 
      if not IsEmpty then begin// 
      Self.SaveRTFToStream(rtfStream, false); 
      end;// 
      rtfStream.Position := 0; 
      SetLength(rtfBuffer, rtfStream.Size); 
      rtfStream.ReadBuffer(Pointer(rtfBuffer)^, rtfStream.Size); 
      Result := rtfBuffer; 
    finally 
      rtfStream.Free; 
    end; 
  end 
end;