trichview.support
Carries of lines in RVEdit |
Author |
Message |
Roman |
Posted: 07/06/2005 16:58:13 procedure TForm1.Button2Click(Sender: TObject); var ItemNo, Offs, n :Integer; text :string; function GetBulletImageIndex: Integer; var s: String; tag: Integer; il: TCustomImageList; begin rve4.GetBulletInfo(n, s, Result, il, tag); end; function GetSmile(ImageIndex: Integer): String; begin case ImageIndex of 0: Result := ':)'; 1: Result := ':|'; else Result := ':('; end; end; begin ItemNo:=rve4.ItemCount; for n:=0 to ItemNo-1 do begin Offs := rve4.RVData.ItemLength(n); if (rve4.GetItemStyle(n)=rvsBullet) and (Offs=1) then begin rve4.SetSelectionBounds(n, 0, n, 1); text:=text+GetSmile(GetBulletImageIndex); end else begin text:=text+rve4.RVData.Items.Strings[n]; end; end; rv3.AddText(text,0); rv3.Format; end; How correctly to insert carries (#10#13) of lines? I am sorry for bad English =) |
Powered by ABC Amber Outlook Express Converter