G Hari Prasad
Copy the folders under "\inetpub\wwwroot\aspnet_client\" and paste them under the root of the custom web site
Add the following to the application web.config file:
<configSections>
<sectionGroup name="businessObjects">
<sectionGroup name="crystalReports">
<section name="crystalReportViewer" type="System.Configuration.NameValueSectionHandler"/>
</sectionGroup>
</sectionGroup>
</configSections>
<businessObjects>
<crystalReports>
<crystalReportViewer>
<add key="UseBrowserLocale" value="true"/>
<add key="resourceURI" value="~/aspnet_client/system_web/4_0_30319/crystalreportviewers13" />
</crystalReportViewer>
</crystalReports>
</businessObjects>
I've added a C# version of the sample application, updated to target Windows Mobile 5.0. Download it here.
SetupTableStyles function must be called in the form's Load event handler rather than the constructor since the data and screen need to be initialized before it will work.private void SetupTableStyles() { Color alternatingColor = SystemColors.ControlDark; DataTable vehicle = dataSource.Tables[1]; // ID Column DataGridCustomTextBoxColumn dataGridCustomColumn0 = new DataGridCustomTextBoxColumn(); dataGridCustomColumn0.Owner = this.dataGrid1; dataGridCustomColumn0.Format = "0##"; dataGridCustomColumn0.FormatInfo = null; dataGridCustomColumn0.HeaderText = vehicle.Columns[0].ColumnName; dataGridCustomColumn0.MappingName = vehicle.Columns[0].ColumnName; dataGridCustomColumn0.Width = dataGrid1.Width * 10 / 100; // 10% of grid size dataGridCustomColumn0.AlternatingBackColor = alternatingColor; dataGridCustomColumn0.ReadOnly = true; dataGridTableStyle1.GridColumnStyles.Add(dataGridCustomColumn0); // Make column DataGridCustomTextBoxColumn dataGridCustomColumn1 = new DataGridCustomTextBoxColumn(); dataGridCustomColumn1.Owner = this.dataGrid1; dataGridCustomColumn1.HeaderText = vehicle.Columns[1].ColumnName; dataGridCustomColumn1.MappingName = vehicle.Columns[1].ColumnName; dataGridCustomColumn1.NullText = "-Probably Ford-"; dataGridCustomColumn1.Width = dataGrid1.Width * 40 / 100; // 40% of grid size dataGridCustomColumn1.Alignment = HorizontalAlignment.Right; dataGridCustomColumn1.AlternatingBackColor = alternatingColor; dataGridTableStyle1.GridColumnStyles.Add(dataGridCustomColumn1); // Mileage column DataGridCustomUpDownColumn dataGridCustomColumn2 = new DataGridCustomUpDownColumn(); dataGridCustomColumn2.Owner = this.dataGrid1; dataGridCustomColumn2.HeaderText = vehicle.Columns[2].ColumnName; dataGridCustomColumn2.MappingName = vehicle.Columns[2].ColumnName; dataGridCustomColumn2.NullText = "-Unknown-"; dataGridCustomColumn2.Width = dataGrid1.Width * 20 / 100; // 20% of grid size dataGridCustomColumn2.Alignment = HorizontalAlignment.Left; dataGridCustomColumn2.AlternatingBackColor = alternatingColor; dataGridTableStyle1.GridColumnStyles.Add(dataGridCustomColumn2); // Availability column DataGridCustomCheckBoxColumn dataGridCustomColumn3 = new DataGridCustomCheckBoxColumn(); dataGridCustomColumn3.Owner = this.dataGrid1; dataGridCustomColumn3.HeaderText = vehicle.Columns[3].ColumnName; dataGridCustomColumn3.MappingName = vehicle.Columns[3].ColumnName; dataGridCustomColumn3.NullText = "-Unknown-"; dataGridCustomColumn3.Width = dataGrid1.Width * 10 / 100; // 10% of grid size dataGridCustomColumn3.Alignment = HorizontalAlignment.Left; dataGridCustomColumn3.AlternatingBackColor = alternatingColor; dataGridTableStyle1.GridColumnStyles.Add(dataGridCustomColumn3); // Fuel Level column DataGridCustomComboBoxColumn dataGridCustomColumn4 = new DataGridCustomComboBoxColumn(); dataGridCustomColumn4.Owner = this.dataGrid1; dataGridCustomColumn4.HeaderText = vehicle.Columns[4].ColumnName; dataGridCustomColumn4.MappingName = vehicle.Columns[4].ColumnName; dataGridCustomColumn4.NullText = "-Unknown-"; dataGridCustomColumn4.Width = dataGrid1.Width * 30 / 100; // 30% of grid size dataGridCustomColumn4.Alignment = HorizontalAlignment.Left; dataGridCustomColumn4.AlternatingBackColor = alternatingColor; dataGridTableStyle1.GridColumnStyles.Add(dataGridCustomColumn4); // Last Used column DataGridCustomDateTimePickerColumn dataGridCustomColumn5 = new DataGridCustomDateTimePickerColumn(); dataGridCustomColumn5.Owner = this.dataGrid1; dataGridCustomColumn5.HeaderText = vehicle.Columns[5].ColumnName; dataGridCustomColumn5.MappingName = vehicle.Columns[5].ColumnName; dataGridCustomColumn5.NullText = "-Unknown-"; dataGridCustomColumn5.Width = dataGrid1.Width * 30 / 100; // 30% of grid size dataGridCustomColumn5.Alignment = HorizontalAlignment.Left; dataGridCustomColumn5.AlternatingBackColor = alternatingColor; dataGridTableStyle1.GridColumnStyles.Add(dataGridCustomColumn5); // Grid, mapping dataGridTableStyle1.MappingName = vehicle.TableName; // Setup table mapping name dataGrid1.DataSource = vehicle; // Setup grid's data source ComboBox cb = (ComboBox)dataGridCustomColumn4.HostedControl; DataTable fuel = dataSource.Tables[0]; // Set up data source cb.DataSource = fuel; // For combo box column cb.DisplayMember = fuel.Columns[0].ColumnName; cb.ValueMember = fuel.Columns[0].ColumnName; dataGrid1.CurrentRowIndex = 50; // Move to the middle of the table }
HostedControl is exposed as the base Control class.ComboBox cb = (ComboBox)dataGridCustomColumn4.HostedControl;
<ANDROID_SDK_HOME>\platform-tools>adb devices
List of devices attached
4df798d76f98cf6d unauthorizedadb kill-server
adb start-serveradb devices
<ANDROID_SDK_HOME>\platform-tools>adb devices
List of devices attached
4df798d76f98cf6d deviceBaseFont bf = BaseFont.CreateFont(ARIALUNI_TFF, BaseFont.IDENTITY_H, BaseFont.EMBEDDED);
Font f = new Font(bf, 12);For Adding text Dim oldFile As String = "D:\PdfGenerator_VB\nf.pdf"
Dim newFile As String = "D:\PdfGenerator_VB\newnf.pdf"
' open the reader
Dim reader As New PdfReader(oldFile)
Dim size As Rectangle = reader.GetPageSizeWithRotation(1)
Dim document As New Document(size)
' open the writer
Dim fs As New FileStream(newFile, FileMode.Create, FileAccess.Write)
Dim writer As PdfWriter = PdfWriter.GetInstance(document, fs)
document.Open()
' the pdf content
Dim cb As PdfContentByte = writer.DirectContent
' select the font properties
Dim bf As BaseFont = BaseFont.CreateFont("C:\Windows\Fonts\Arial.ttf", BaseFont.IDENTITY_H, BaseFont.EMBEDDED)
cb.SetColorFill(BaseColor.DARK_GRAY)
cb.SetFontAndSize(bf, 8)
Dim f As New Font(bf, 8)
Dim ct As New ColumnText(writer.DirectContent)
ct.RunDirection = PdfWriter.RUN_DIRECTION_RTL
ct.SetSimpleColumn(50, 50, 480, 270, 24, Element.ALIGN_RIGHT)
Dim chunk = New Chunk("الأربعاء", f)
ct.AddElement(chunk)
ct.Go()
cb.BeginText()
text = "28"
' put the alignment and coordinates here
cb.ShowTextAligned(2, text, 405, 260, 0)
cb.EndText()
cb.BeginText()
text = "01"
' put the alignment and coordinates here
cb.ShowTextAligned(2, text, 390, 260, 0)
cb.EndText()
cb.BeginText()
text = "2015"
' put the alignment and coordinates here
cb.ShowTextAligned(2, text, 370, 260, 0)
cb.EndText()
' create the new page and add it to the pdf
Dim page As PdfImportedPage = writer.GetImportedPage(reader, 1)
cb.AddTemplate(page, 0, 0)
' close the streams and voilá the file should be changed :)
document.Close()
fs.Close()
writer.Close()
reader.Close()
For Fields using
Dim pdfTemplate As String = "D:\PdfGenerator_VB\nf.pdf"
' title the form
Me.Text += " - " + PdfTemplate
' create a new PDF reader based on the PDF template document
Dim pdfReader As PdfReader = New PdfReader(pdfTemplate)
' create and populate a string builder with each of the
' field names available in the subject PDF
Dim sb As New StringBuilder()
Dim de As New DictionaryEntry
For Each kvp As KeyValuePair(Of String, AcroFields.Item) In pdfReader.AcroFields.Fields
sb.Append(kvp.Key.ToString() + Environment.NewLine)
Next
' Write the string builder's content to the form's textbox
textBox1.Text = sb.ToString()
textBox1.SelectionStart = 0
Dim pdfTemplate As String = "D:\PdfGenerator_VB\nf.pdf"
Dim newFile As String = "D:\PdfGenerator_VB\Final_nf.pdf"
Dim pdfReader As New PdfReader(pdfTemplate)
Dim pdfStamper As New PdfStamper(pdfReader, New FileStream( _
newFile, FileMode.Create))
Dim pdfFormFields As AcroFields = pdfStamper.AcroFields
' set form pdfFormFields
' The first worksheet and W-4 form
pdfFormFields.SetField("untitled1", "1")
pdfFormFields.SetField("untitled2", "2")
pdfFormFields.SetField("f1_03(0)", "1")
' report by reading values from completed PDF
Dim sTmp As String = "W-4 Completed for " + pdfFormFields.GetField("f1_09(0)") + " " + _
pdfFormFields.GetField("f1_10(0)")
MessageBox.Show(sTmp, "Finished")
' flatten the form to remove editting options, set it to false
' to leave the form open to subsequent manual edits
pdfStamper.FormFlattening = True
' close the pdf
pdfStamper.Close()
http://www.dotnettips.info/Post/582/%D9%81%D8%A7%D8%B1%D8%B3%D9%89-%D9%86%D9%88%DB%8C%D8%B3%D9%89-%D9%88-itextsharpHow to Create a PDF with Editable Fields
PDFescape
http://smallbusiness.chron.com/create-pdf-editable-fields-55640.html