|
void __fastcall TForm1::Button1Click(TObject *Sender) { PARAFORMAT2 pf; pf.cbSize=sizeof(PARAFORMAT2); //识别paraformat与paraformat2 pf.dwMask=PFM_LINESPACING; pf.dyLineSpacing=300; //行距在此设置 pf.bLineSpacingRule=4;
SendMessage(RzRichEdit1->Handle,EM_SETPARAFORMAT,0,LPARAM(&pf)); RzRichEdit1->Enabled = false;
RichEdit1.SelAttributes.Name := '宋体'; |