trichview.support
Re: Creating PDF with Unicode characters |
Author |
Message |
Michael Exel |
Posted: 04/04/2004 0:09:00 Thank you again very much for your great support! I will try it as soon as possible and post my experiences "Sergey Tkachenko" <[email protected]> wrote: >// internal procedure >procedure ConvertRVFromUnicode(RVData: TCustomRVData); >var i,r,c, StyleNo: Integer; > table: TRVTableItemInfo; >begin > for i := 0 to RVData.ItemCount-1 do begin > StyleNo := RVData.GetItemStyle(i); > if StyleNo>=0 then begin > if RVData.GetRVStyle.TextStyles[StyleNo].Unicode then begin > RVData.SetItemText(i, RVData.GetItemTextA(i)); > Exclude(RVData.GetItem(i).ItemOptions, rvioUnicode); > end; > end > else if RVData.GetItemStyle(i)=rvsTable then begin > table := TRVTableItemInfo(RVData.GetItem(i)); > for r := 0 to table.Rows.Count-1 do > for c := 0 to table.Rows[r].Count-1 do > if table.Cells[r,c]<>nil then > ConvertRVFromUnicode(table.Cells[r,c].GetRVData); > end; > end; >end; > >// main procedure >procedure ConvertFromUnicode(rv: TCustomRichView); >var i: Integer; >begin > // forcing using the default code page > for i := 0 to rv.Style.TextStyles.Count-1 do > if rv.Style.TextStyles[i].Unicode then > rv.Style.TextStyles[i].Charset := DEFAULT_CHARSET; > // converting > ConvertRVFromUnicode(rv.RVData); > // updating styles > for i := 0 to rv.Style.TextStyles.Count-1 do > rv.Style.TextStyles[i].Unicode := False; >end; > >Calling for editor: >RichViewEdit1.ClearUndo; >ConvertFromUnicode(RichViewEdit1); > >> >> hello, >> >> i have some problems creating pdf. >> Since no tool (TRolePDF, llPDFLib, wPDF, eDocEngine) can handle all >unicode >> characters correctly, is it possible to change unicode characters in >Ansi-characters >> with corresponding charset in RVReportHelper? (then it would be possible >> to use wPDF or maybe llPDFLib) i know this would be only a solution for a >> few characters, but for the most characters i need. >> >> Or has somebody another solution to create PDF that handles unicode >correctly? >> > > |
Powered by ABC Amber Outlook Express Converter