当前位置:编程学习 > Delphi >>

请问DELPHI RICHVIEW EDIT怎么设置上下标???

追问:抄的哪的,文不对题
答案:要求上传后必须保存到根目录中的shc文件夹中,文件名为随机数字,格式必须为我这里有一个我自己写的无组件上传需要你Q我 21616898
其他://合并Word 表格中单元格
procedure mergeWordCell;
var WordApp: TWordApplication;
     WordDoc: TWordDocument;
     DocInx,oFileName,CfCversions,oReadOnly,AddToRctFiles,PswDocument,
     PswTemplate,oRevert,WPswDocument,WPswTemplate,oFormat: OleVariant;
     i,iRow,iCol:integer;
     myCell:Cell;
     myRow:Row;
begin
   memo1.Lines.Clear ;

    // ===== 创建对象 =====
    if not Assigned(WordApp) then                          
     begin
       WordApp:= TWordApplication.Create(nil);
       WordApp.Visible := false;
     end;
    if not Assigned(WordDoc) then
       WordDoc:= TWordDocument.Create(nil);
  try
     DocInx:=1;
     oFileName := 'd: est.doc';
     oReadOnly:=true;
     CfCversions := EmptyParam;
     AddToRctFiles:= EmptyParam;
     PswDocument:= EmptyParam;
     PswTemplate:= EmptyParam;
     oRevert:= EmptyParam;
     WPswDocument:= EmptyParam;
     WPswTemplate:= EmptyParam;
     oFormat:= EmptyParam;     
    // ===== 打开文件 =====                         
     WordApp.Documents.open(oFileName,CfCversions,oReadOnly,AddToRctFiles,
        PswDocument,PswTemplate,oRevert,WPswDocument,WPswTemplate,oFormat);
    // ===== 关联文件 =====
     WordDoc.ConnectTo(WordApp.Documents.Item(DocInx)); 


    //合并第一、二列
     iStart:=WordDoc.Tables.Item(i).Cell(1,1).Range.Start;
   //设定起始位置
         myCol:= WordDoc.Tables.Item(i).Columns.Item(2);
   //设定合并列数
         iEnd:=myCol.Cells.Item(myCol.Cells.Count).Range.End_;
   //设定终止位置
         myRange:=WordDoc.Range;
         myRange.Start:=iStart;
         myRange.End_ :=iEnd;
         myRange.Cells.Merge;
  // 进行合并操作

  finally
    if Assigned(WordDoc) then     // ===== 关闭文件 =====
     begin
       WordDoc.Close;
       WordDoc.Disconnect;
       WordDoc.Destroy;
       WordDoc := nil;
     end;
    if Assigned(WordApp) then      // ===== 关闭Word =====
     begin
       WordApp.Quit;
       WordApp.Disconnect;
       WordApp.Destroy;
       WordApp := nil;
     end;
   end;
end; //   在Form1上加一个RichViewEdit和一个RVStyl1; 
//   再加入两个Button 
//   在.cpp中添加以下代码: 

int   nSuperScriptIndex,   nSubScriptIndex; 
//--------------------------------------------------------------------------- 
__fastcall   TForm1::TForm1(TComponent*   Owner) 
        :   TForm(Owner) 
{ 
        TFontInfo   *pInfo; 
        //   加入上标的样式 
        pInfo   =   RVStyle1-> TextStyles-> Add(); 
        pInfo-> StyleName   =   "SuperScript "; 
        pInfo-> VShift   =   50; 
        pInfo-> Size   =   9; 
        nSuperScriptIndex   =   pInfo-> Index; 

        //   加入下标的样式 
        pInfo   =   RVStyle1-> TextStyles-> Add(); 
        pInfo-> StyleName   =   "SubScript "; 
        pInfo-> VShift   =   -50; 
        pInfo-> Size   =   9; 
        nSubScriptIndex   =   pInfo-> Index; 

        RichViewEdit1-> Style   =   RVStyle1; 
} 
//--------------------------------------------------------------------------- 
//   在RichViewEdit1中选中一段文本,然后点击Button1,将其变为上标 
void   __fastcall   TForm1::Button1Click(TObject   *Sender) 
{ 
        RichViewEdit1-> ApplyTextStyle(nSuperScriptIndex);   //   上标 
} 
//--------------------------------------------------------------------------- 
//   在RichViewEdit1中选中一段文本,然后点击Button2,将其变为下标 
void   __fastcall   TForm1::Button2Click(TObject   *Sender) 
{ 
        RichViewEdit1-> ApplyTextStyle(nSubScriptIndex);   //   下标 
} 
//---------------------------------------------------------------------------

上一个:如何用delphi控制word合并单元格,网上源码都是一样的,但都没有介绍具体使用,那位高手路过为我讲解一下
下一个:谁能告诉我delphi里面这段代码翻译成java该如何写?

CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,