午夜短无码,久久久中文字幕人妻一区,欧美 变态 另类 人妖,精品久久日产国产一区,欧美乱大交xxxxx潮喷,亚洲美女一区,巨人精品福利官方导航,在线看av一区二区三区
| 項目咨詢 |積分體系 | 加入收藏 | 設為首頁 | RSS
您當前的位置:首頁 > 市場 > 百科 > 技術 > 夸父專欄

基于RICHVIEW的EMR開發文檔九

時間:2013-10-08 20:45:09  來源:  作者:
更多

 http://blog.sina.com.cn/game7788

   夸父
下面代碼主要處理刪除文檔中的文本樣式,處理對象包括所有的文本元素,制表符,標記列表等文本類型的元素,對于其它元素不起作用。
在使用此功能時,需要注意的是,當文檔中同時存在UNICODE和非UNICODE文本編碼時,或者存在不同的語言字符集的非UNICODE文本,那么此功能可能會使部分文本信息丟失,所以使用此功能時最好保證文檔中的字符編碼格式相同。同時,
這個功能不是普通的編輯操作,因此使用后是不可以撤消的,使用前請務必清除撤消緩沖區。
procedure RemoveFormatting(RVData: TCustomRVData; RemoveMarkers, KeepLinks: Boolean); 
var i, HypertextStyleNo: Integer; 
    UnicodeTo, UnicodeHTo: Boolean; 
  {.............................................................} 
  procedure DoRemoveFormatting(RVData: TCustomRVData); //主要實現方法
  var i, r, c, StyleNo, StyleNoTo: Integer; 
      PB, UnicodeFrom, ThisUnicodeTo: Boolean; 
      table: TRVTableItemInfo; 
  begin 
    for i := RVData.ItemCount-1 downto 0 do begin 
      RVData.GetItem(i).ParaNo := 0; 
      StyleNo := RVData.GetItemStyle(i); 
      case StyleNo of 
        rvsTable: 
          begin 
            table := TRVTableItemInfo(RVData.GetItem(i)); 
            for r := 0 to table.RowCount-1 do 
              for c := 0 to table.ColCount-1 do 
                if table.Cells[r,c]<>nil then 
                  DoRemoveFormatting(table.Cells[r,c].GetRVData); 
          end; 
        rvsListMarker: 
          if RemoveMarkers then begin 
            PB := RVData.PageBreaksBeforeItems[i]; 
            RVData.DeleteItems(i, 1); 
            if i<RVData.ItemCount then begin 
              RVData.GetItem(i).SameAsPrev := False; 
              RVData.GetItem(i).PageBreakBefore := PB; 
            end; 
          end; 
        rvsTab: 
          if RVData.GetRVStyle.TextStyles[ 
            TRVTabItemInfo(RVData.GetItem(i)).TextStyleNo].Jump and KeepLinks then 
            TRVTabItemInfo(RVData.GetItem(i)).TextStyleNo := HypertextStyleNo 
          else begin 
            TRVTabItemInfo(RVData.GetItem(i)).TextStyleNo := 0; 
            RVData.SetItemTag(i, ''); 
          end; 
        1..MaxInt: 
          begin 
            if KeepLinks and RVData.GetRVStyle.TextStyles[StyleNo].Jump then begin 
              ThisUnicodeTo := UnicodeHTo; 
              StyleNoTo := HypertextStyleNo; 
              end 
            else begin 
              ThisUnicodeTo := UnicodeTo; 
              StyleNoTo := 0; 
              RVData.SetItemTag(i, '');              
            end; 
            UnicodeFrom := RVData.GetRVStyle.TextStyles[StyleNo].Unicode; 
            RVData.GetItem(i).StyleNo := StyleNoTo; 
            if UnicodeFrom and not ThisUnicodeTo then begin 
              RVData.GetItem(i).ItemOptions := RVData.GetItem(i).ItemOptions-[rvioUnicode]; 
              RVData.SetItemTextR(i, 
                RVU_UnicodeToAnsi(RVData.GetStyleCodePage(0), RVData.GetItemTextR(i))); 
              end 
            else if not UnicodeFrom and ThisUnicodeTo then begin 
              RVData.GetItem(i).ItemOptions := RVData.GetItem(i).ItemOptions+[rvioUnicode]; 
              RVData.SetItemTextR(i, 
                RVU_AnsiToUnicode(RVData.GetStyleCodePage(0), RVData.GetItemTextR(i))); 
            end; 
          end; 
      end; 
    end; 
  end; 
  {.............................................................} 
begin 
  HypertextStyleNo := 0; 
  if KeepLinks then 
    for i := 0 to RVData.GetRVStyle.TextStyles.Count-1 do 
      if RVData.GetRVStyle.TextStyles[i].Jump then begin 
        HypertextStyleNo := i; 
        break; 
      end; 
  UnicodeTo  := RVData.GetRVStyle.TextStyles[0].Unicode; 
  UnicodeHTo := RVData.GetRVStyle.TextStyles[HypertextStyleNo].Unicode; 
  DoRemoveFormatting(RVData); 
end;
 
上面是主要實現方法,如果要在文檔中正式使用此方法,調用下面的代碼即可.
  RemoveFormatting(RichViewEdit1.RVData, True, True); 
  NormalizeRichView(RichViewEdit1.RVData);//還原編輯器原始狀態,這步很重要,主要起修復作用,可以理解為格式化
  RichViewEdit1.DeleteUnusedStyles(True, True, True); 
  RichViewEdit1.ClearUndo; 
  RichViewEdit1.Format; 
來頂一下
返回首頁
返回首頁
發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
欄目更新
欄目熱門
主站蜘蛛池模板: 91免费国产高清观看| 精品人妻无码一区二区三区换脸| 久久人人爽人人爽人人片av不| 色就色中文字幕在线视频| 揄拍成人国产精品视频| 中文字幕v亚洲日本在线电影| 日本精品人妻在线观看| 国产亚洲成av人片在线观黄桃| 亚洲自拍系列在线观看| 精品无码久久久久久国产| 久久久久久一级毛片免费无遮挡| 婷婷激情五月综合在线观看| 国产精品宾馆精品酒店| 97色伦色在线综合视频| 黄a无码片内射无码视频| 久久国产精品久久精品国产| 精品免费国产一区二区三区四区| 99热精品久久| 久久久久亚洲精品中文字幕| 国产精品成人午夜久久| 国产亚洲欧美另类第一页| 饥渴的熟妇张开腿呻吟视频| a级毛片免费网站| 少妇激情一区二区三区视频小说 | 精品国产一区二区三区av性色| 精品91亚洲高清在线观看| 久久精品美女久久| 亚洲精品国产suv| 国产精品真实对白精彩久久| 水蜜桃亚洲一二三四在线| 久久亚洲小电影一区二区| 欧美黑人乱大交| 116少妇做爰毛片| 亚洲女同同性少妇熟女| 亚洲熟妇无码久久精品| 91免费片| 国产在线欧美日韩一区二区| 极品av在线播放| 苍井空张开腿实干12次| 黄色片子在线观看一区二区三区| 性欧美老妇另类xxxx|