RichView的几个封装函数(插入文本和图片)
来源:互联网 发布:linux mount 根目录 编辑:程序博客网 时间:2024/05/13 21:12
//移动光标到最后
procedure RichViewMoveCaretToEnd(RichEdit: TRichViewEdit);
var
ItemNo, Offs: Integer;
begin
ItemNo := RichEdit.ItemCount-1;
if ItemNo > 0 then
begin
Offs := RichEdit.GetOffsAfterItem(ItemNo);
RichEdit.SetSelectionBounds(ItemNo, Offs, ItemNo, Offs);
end;
end;
// 向RichView中增加文本(注意里边检查了Style是否存在)
procedure RichViewAddText(RichEdit: TRichViewEdit; const S: string;
FontInfo: TFontInfo);
const
RV_FIND_PROP: TRVFontInfoProperties =
[rvfiFontName, rvfiSize, rvfiBold, rvfiItalic,
rvfiUnderline, rvfiStrikeout, rvfiColor];
var
LStyleNo: Integer;
LNewFontInfo: TFontInfo;
begin
LStyleNo := RichEdit.Style.TextStyles.FindSuchStyle(0, FontInfo, RV_FIND_PROP);
if LStyleNo < 0 then
begin
LNewFontInfo := RichEdit.Style.TextStyles.Add;
LNewFontInfo.Assign(FontInfo);
LNewFontInfo.Unicode := True;
LStyleNo := RichEdit.Style.TextStyles.Count - 1;
end;
RichEdit.ApplyTextStyle(LStyleNo);
RichEdit.InsertTextW(S);
end;
// 向RichView中增加文本
procedure RichViewAddText(RichEdit: TRichViewEdit;
const S: string; const FontName: string; FontSize: Integer;
FontColor: TColor; FontStyle: TFontStyles);
var
LFontInfo: TFontInfo;
begin
LFontInfo := TFontInfo.Create(nil);
try
LFontInfo.FontName := FontName;
LFontInfo.Size := FontSize;
LFontInfo.Color := FontColor;
LFontInfo.Style := FontStyle;
RichViewAddText(RichEdit, S, LFontInfo);
finally
LFontInfo.Free;
end;
end;
// 向RichView中增加图片
procedure RichViewAddPicture(RichEdit: TRichViewEdit; const TagStr: string;
Stream: TMemoryStream; IsGif: Boolean);
var
LGraphic: TGraphic;
begin
if IsGif then
begin
LGraphic := TGIFImage.Create;
end else
begin
LGraphic := TBitmap.Create;
end;
Stream.Position := 0;
LGraphic.LoadFromStream(Stream);
RichEdit.InsertPicture(TagStr, LGraphic, rvvaBaseline);
end;
- RichView的几个封装函数(插入文本和图片)
- 文本图片数据的封装
- 自己封装的几个函数
- EditText如何插入文本和图片
- richview 的使用
- markdown插入图片的几个办法
- iOS 保存和获取本地图片的封装函数
- 支持富文本插入图片,文本的自定义View
- 几个处理图片的函数
- XSL中几个封装的函数
- JS封装的几个位操作函数
- JS里面几个实用的封装函数
- //自己封装的几个函数方便记忆
- 几个封装很好的文件函数
- 文本分块操作的几个函数
- JQuery的几个插入内容的函数
- RichView中插入动态Gif图像注意事项
- 基于Richview的简单编辑器
- 树状数组
- Install Trac In Ubuntu
- MX51 V4L2 output 驱动
- Wcf 客户端代理生成 通过SvcUtil.exe
- APK_Android APK 签名比对
- RichView的几个封装函数(插入文本和图片)
- 【北理工研究生复试上机题】完数和盈数
- 指针练习(续)
- 类图--类之间的关系
- Linux中断处理体系结构
- delphi备份恢复剪切板
- java集合实例
- CCLayer中使用registerWithTouchDispatcher注册CCTouchDispatcher
- android安装卸载apk