internal override void SaveToStream(TPdfStream DataStream, TXRefSection XRef) { BeginSaveToStream(DataStream, XRef); SaveKey(DataStream, TPdfToken.SubtypeName, "/" + FCommentProperties.CommentType.ToString()); SaveUnicodeKey(DataStream, TPdfToken.ContentsName, FComment); SaveKey(DataStream, TPdfToken.NameName, "/" + FCommentProperties.Icon.ToString()); SaveKey(DataStream, TPdfToken.CAName, PdfConv.DoubleToString(FCommentProperties.Opacity)); if (FCommentProperties.CommentType != TPdfCommentType.Text) { Color aColor = FCommentProperties.BackgroundColor; string BgColor = TPdfTokens.GetString(TPdfToken.OpenArray) + PdfConv.CoordsToString(aColor.R / 255.0) + " " + PdfConv.CoordsToString(aColor.G / 255.0) + " " + PdfConv.CoordsToString(aColor.B / 255.0) + TPdfTokens.GetString(TPdfToken.CloseArray); SaveKey(DataStream, TPdfToken.ICName, BgColor); } EndSaveToStream(DataStream, XRef); }
protected override void SaveExtraKeys(TPdfStream DataStream, TXRefSection XRef, bool Compress) { TDictionaryRecord.SaveKey(DataStream, TPdfToken.C0Name, PdfConv.ToString(C0, true)); TDictionaryRecord.SaveKey(DataStream, TPdfToken.C1Name, PdfConv.ToString(C1, true)); TDictionaryRecord.SaveKey(DataStream, TPdfToken.NName, PdfConv.DoubleToString(N)); }