TRichView.com

Code: Select all

PARA_TAB        = 5;

Code: Select all

  rve.ApplyParaStyleConversion(PARA_TAB);

Code: Select all

function MMToPixels(mm: Integer): Integer;
var ppi: Integer;
begin
  ppi := RichViewPixelsPerInch;
  if ppi=0 then
    ppi := Screen.PixelsPerInch;
  Result := Round ( mm * 5 * ppi / 127 );
end;

Code: Select all

    Tabs: TRVTabInfos;

Code: Select all

      PARA_TAB:
         begin
           Tabs := TRVTabInfos.Create(nil);
           with Tabs.Add do begin
             Position := MMToPixels(40);
             Align := rvtaRight;
           end;
           with Tabs.Add do begin
             Position := MMToPixels(130);
             Align := rvtaLeft;
           end;
           ParaInfo.Tabs.AddFrom(Tabs);
           Tabs.Free;
         end;

Code: Select all

ParaInfo.Tabs.Clear;
with ParaInfo.Tabs.Add do begin
  Position := MMToPixels(40); 
  Align := rvtaLeft;
end;
// etc

Code: Select all

{ This function returns index of paragraph style with the
  specified collection of tabs. If such paragraph style does not
  exist, this function adds it.
  (this function uses MMToPixels from the previous example)
}
function GetParaStyleWithTabs(rvs: TRVStyle): Integer;
var ParaInfo: TParaInfo;
begin
  ParaInfo := TParaInfo.Create(nil);
  with ParaInfo.Tabs.Add do begin
    Position := MMToPixels(40);
    Align := rvtaRight;
  end;
  with ParaInfo.Tabs.Add do begin
    Position := MMToPixels(130);
    Align := rvtaLeft;
  end;
  Result := rvs.ParaStyles.FindSuchStyle(0,ParaInfo,RVAllParaInfoProperties);
  if Result=-1 then begin
    rvs.ParaStyles.Add;
    Result := rvs.ParaStyles.Count-1;
    rvs.ParaStyles[Result].Assign(ParaInfo);
    rvs.ParaStyles[Result].Standard := False;
  end;
  ParaInfo.Free;
end;

Code: Select all

var ItemNo, Offs: Integer;

ItemNo := rve.ItemCount-1;
Offs := rve.GetOffsAfterItem(ItemNo);
rve.SetSelectionBounds(ItemNo, Offs, ItemNo, Offs);
rve.InsertText(#13);
rve.ApplyParaStyle(GetParaStyleWithTabs(rve.Style));
rve.InsertText(#9'------- Ende des Berichts ----');

Code: Select all

var i, ParaNo, StyleNo: Integer;

// searching for the last text item, using its text style
StyleNo := 0;
for i := rve.ItemCount-1 downto 0 do
  if rve.GetItemStyle(i)>=0 then begin
    StyleNo := rve.GetItemStyle(i);
    break;
  end;
ParaNo := GetParaStyleWithTabs(rve.Style);
// you cannot use AddNL for strings with tab characters
rve.AddTextNLA((#9'------- Ende des Berichts ----', StyleNo, ParaNo, ParaNo);
rve.Format;
rve.ClearUndo; // if called for editor

Code: Select all

procedure TForm1.TabSetzenClick(Sender: TObject);  //<--------------
begin
  tab_clear:=true; 
  tab_1:=   5;  tab_1_align:= 1;    //1: left, 2: center, 3: right
  tab_2:= 12;  tab_2_align:= 2;  
  memo.ApplyParaStyleConversion(PARA_TAB);
end;

--------------------------------------------
0.
uses ..., RVFuncs;


1.
 private
 //rv
 ..., tab_clear: Boolean;
 ..., tab_1, tab_2,    tab_1_align, tab_2_align: Integer;
 //rv-Ende


2. 
{$R *.dfm}

const
  //rv
  rv_MAKEBOLD = 1;
  ...
 
 // Parameters for ApplyParaStyleConversion
  PARA_ALIGNMENT  = 1;
  PARA_INDENTINC  = 2;
  PARA_INDENTDEC  = 3;
  PARA_COLOR      = 4;
  PARA_TAB        = 5;  <-------------------
 //rv-Ende


3.
procedure TForm1.memoParaStyleConversion(Sender: ....);

  function MMToPixels(mm: Integer): Integer;  //<------------
    var ppi: Integer; 
  begin 
    ppi := RichViewPixelsPerInch; 
    if ppi=0 then ppi := Screen.PixelsPerInch; 
    Result := Round ( mm * 5 * ppi / 127 ); 
  end;                                                            //<--------------
  
var ParaInfo: TParaInfo;
        Tabs: TRVTabInfos;                             //<--------------
begin
  ParaInfo := TParaInfo.Create(nil);
  try
    ParaInfo.Assign(rvs.ParaStyles[StyleNo]); 
    case UserData of
      PARA_ALIGNMENT: ParaInfo.Alignment := GetAlignmentFromUI;
      PARA_INDENTINC:
        begin
          ParaInfo.LeftIndent := ParaInfo.LeftIndent+20;
          if ParaInfo.LeftIndent>200 then ParaInfo.LeftIndent := 200;
        end;
      PARA_INDENTDEC:
        begin
          ParaInfo.LeftIndent := ParaInfo.LeftIndent-20;
          if ParaInfo.LeftIndent<0 then ParaInfo.LeftIndent := 0;
        end;
      PARA_TAB:    //<---------------------------------------
        begin 
          Tabs := TRVTabInfos.Create(nil); 
          if tab_clear=true then begin ParaInfo.Tabs.clear; tab_clear:= false; end;
          if tab_1>0 then  begin
            with Tabs.Add do begin 
              Position := MMToPixels(tab_1); 
              if tab_1_align=1 then Align := rvtaLeft
              else if tab_1_align=2 then Align := rvtaCenter
              else if tab_1_align=3 then Align := rvtaRight; 
            end; 
          end;
          if tab_2>0 then  begin
            with Tabs.Add do begin 
              Position := MMToPixels(tab_2); 
              if tab_2_align=1 then Align := rvtaLeft
              else if tab_2_align=2 then Align := rvtaCenter
              else if tab_2_align=3 then Align := rvtaRight; 
            end;
          end;  
          ParaInfo.Tabs.AddFrom(Tabs); 
          Tabs.Free; 
      end;                   //<---------------------------------------
      PARA_COLOR: ParaInfo.Background.Color := cd.Color;
    end;  //o case
    NewStyleNo := rvs.ParaStyles.FindSuchStyle(StyleNo,ParaInfo,RVAllParaInfoProperties);
    if NewStyleNo=-1 then begin
      rvs.ParaStyles.Add;
      NewStyleNo := rvs.ParaStyles.Count-1;
      rvs.ParaStyles[NewStyleNo].Assign(ParaInfo);
      rvs.ParaStyles[NewStyleNo].Standard := False;
    end;
  finally
    ParaInfo.Free;
  end;
end;

Code: Select all

  private
    { Private declarations }
    FTabs: TRVTabInfos;

Code: Select all

    case UserData of
      // ...
      PARA_TAB: begin
                  if Assigned(FTabs) then
                    ParaInfo.Tabs.Assign(FTabs);
                 end;
      // ...
    end;

Code: Select all

  FTabs := TRVTabInfos.Create(nil);
  try
    with FTabs.Add do begin
      Position := MMToPixels(50);
      Align := rvtaLeft;
    end;
    with FTabs.Add do begin
      Position := MMToPixels(120);
      Align := rvtaLeft;
    end;
    RichViewEdit1.ApplyParaStyleConversion(PARA_TAB);
  finally
    FreeAndNil(FTabs);
  end;