请问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该如何写?