Morfik Wiki - Recent changes [en]

Format

Tech.Writer3 — Thu, 02 Sep 2010 13:19:41 GMT

← Older revision		Revision as of 13:19, 2 September 2010
Line 518:		Line 518:
	<source lang="pascal_browser">		<source lang="pascal_browser">
	TextLabel3.Caption := FormatDateTime('m/d/yy',Now);		TextLabel3.Caption := FormatDateTime('m/d/yy',Now);
-	Displays: 8/26/10	+	//Displays: 8/26/10
	TextLabel3.Caption := FormatDateTime('yyyy-mm-dd TT HH:MM:ss',Now);		TextLabel3.Caption := FormatDateTime('yyyy-mm-dd TT HH:MM:ss',Now);
	//Displays: 2010-08-26 PM 15:58:21		//Displays: 2010-08-26 PM 15:58:21
Line 529:		Line 529:
	<source lang="vb_browser">		<source lang="vb_browser">
	TextLabel1.Caption = FormatDateTime("m/d/yy", Now())		TextLabel1.Caption = FormatDateTime("m/d/yy", Now())
-	Displays: 8/26/10	+	/Displays: 8/26/10/
	TextLabel1.Caption = FormatDateTime("yyyy-mm-dd TT HH:MM:ss", Now())		TextLabel1.Caption = FormatDateTime("yyyy-mm-dd TT HH:MM:ss", Now())
	/Displays: 2010-08-26 PM 15:58:21/		/Displays: 2010-08-26 PM 15:58:21/
Line 541:		Line 541:
	<source lang="csharp_browser">		<source lang="csharp_browser">
	TextLabel1.Caption = FormatDateTime("m/d/yy", Now());		TextLabel1.Caption = FormatDateTime("m/d/yy", Now());
-	Displays: 8/26/10	+	//Displays: 8/26/10
	TextLabel1.Caption = FormatDateTime("yyyy-mm-dd TT HH:MM:ss", Now());		TextLabel1.Caption = FormatDateTime("yyyy-mm-dd TT HH:MM:ss", Now());
	//Displays: 2010-08-26 PM 15:58:21		//Displays: 2010-08-26 PM 15:58:21
Line 553:		Line 553:
	<source lang="pascal_server">		<source lang="pascal_server">
	TextLabel3.Caption := FormatDateTime('m/d/yy',Now);		TextLabel3.Caption := FormatDateTime('m/d/yy',Now);
-	Displays: 8/26/10	+	//Displays: 8/26/10
	TextLabel3.Caption := FormatDateTime('yyyy-mm-dd TT HH:MM:ss',Now);		TextLabel3.Caption := FormatDateTime('yyyy-mm-dd TT HH:MM:ss',Now);
	//Displays: 2010-08-26 PM 15:58:21		//Displays: 2010-08-26 PM 15:58:21
Line 564:		Line 564:
	<source lang="vb_server">		<source lang="vb_server">
	TextLabel1.Caption = FormatDateTime("m/d/yy", Now())		TextLabel1.Caption = FormatDateTime("m/d/yy", Now())
-	Displays: 8/26/10	+	/Displays: 8/26/10/
	TextLabel1.Caption = FormatDateTime("yyyy-mm-dd TT HH:MM:ss", Now())		TextLabel1.Caption = FormatDateTime("yyyy-mm-dd TT HH:MM:ss", Now())
	/Displays: 2010-08-26 PM 15:58:21/		/Displays: 2010-08-26 PM 15:58:21/
Line 576:		Line 576:
	<source lang="csharp_server">		<source lang="csharp_server">
	TextLabel1.Caption = FormatDateTime("m/d/yy", Now());		TextLabel1.Caption = FormatDateTime("m/d/yy", Now());
-	Displays: 8/26/10	+	//Displays: 8/26/10
	TextLabel1.Caption = FormatDateTime("yyyy-mm-dd TT HH:MM:ss", Now());		TextLabel1.Caption = FormatDateTime("yyyy-mm-dd TT HH:MM:ss", Now());
	//Displays: 2010-08-26 PM 15:58:21		//Displays: 2010-08-26 PM 15:58:21

Repeater

Tech.Writer3 — Thu, 02 Sep 2010 12:33:42 GMT

← Older revision		Revision as of 12:33, 2 September 2010
Line 107:		Line 107:

	This feature is a departure from how Morfik's visual development worked previously to version 3.x. All database aware features of Morfik 2.x are preserved but this control considerably pushes the boundary of how much data can be displayed within a single Form. This helps drive down the number of forms in a project.		This feature is a departure from how Morfik's visual development worked previously to version 3.x. All database aware features of Morfik 2.x are preserved but this control considerably pushes the boundary of how much data can be displayed within a single Form. This helps drive down the number of forms in a project.
		+
		+	'''Note''': Allowed only one level of nesting - a repeater inside a form.


	==Related Topics==		==Related Topics==
	*[[Controls]]		*[[Controls]]

Implementing transaction support

Tech.Writer3 — Thu, 02 Sep 2010 11:00:52 GMT

Created page with '==Introduction== Do you need explicit transaction control in some webmethods? This tip gives you an example of how a transaction can be started and comitted in a webmethod ==P…'

New page

==Introduction==

Do you need explicit transaction control in some webmethods?
This tip gives you an example of how a transaction can be started and comitted in a
webmethod

==Part 1==

Here is some code which can be used (in the server-side) of a web method to test a
transaction with rollback.

Note that this field DBTransaction.Isolation has been set to tiConsistency. This field could be
set to: (tiConcurrency,tiConsistency,tiCommitted)

'''FX Code'''
<source lang="pascal_server">
Unit MyWebMethod;

Interface

Uses SystemDatabaseIBO;

Type
MyWebMethod=Class(WebMethod)
Private
{ Private declarations }
Public
{ Public declarations }
Procedure Execute; override;
Procedure TransactionExample;
Procedure InsertValidRecord;
Procedure InsertInvalidRecord;

End; ['Published=False'];

Implementation

Procedure MyWebMethod.InsertValidRecord;
Var
SQL : String;
Command : TSQLCommand;
Begin
SQL := 'INSERT INTO "Books" ("Title","UnitsInStock") VALUES (''This is a valid record'',3)';
Command := DefaultDBConnection.CreateSQLCommand(SQL);
Try
Try
Command.Prepare;
Command.Execute;
Except
Raise;
End;
Finally
DefaultDBConnection.DestroySQLCommand(Command);
End;
End;

Procedure MyWebMethod.InsertInvalidRecord;
Var
SQL : String;
Command : TSQLCommand;
Begin
SQL := 'INSERT INTO "Books" ("Title","UnitsInStock") VALUES (''BAD!!!'',''xx'')';
Command := DefaultDBConnection.CreateSQLCommand(SQL);
Command.Prepare;
Command.Execute;
DefaultDBConnection.DestroySQLCommand(Command);
End;

Procedure MyWebMethod.Execute;
Begin
TransactionExample;
End;

Procedure MyWebMethod.TransactionExample;
Var
DBTransaction : TIB_Transaction;
Begin
DBTransaction := TIB_Transaction.Create(SoapServer.DefaultDBConnection.DBSession);
DBTransaction.IB_Connection := SoapServer.DefaultDBConnection.DBConnection;
DBTransaction.Isolation := tiConsistency;
DBTransaction.StartTransaction;
Try
// Do SQL commands here
InsertValidRecord;
InsertInvalidRecord;
// end of test SQL
DBTransaction.Commit;
Except
DBTransaction.RollBack;
Raise;
End;
End;
End.
</source>

{|class="collapsible collapsed" width="100%"
!align="left"| BX Code
|-
|
<source lang="vb_server">
/*
%MA DYNAMIC
*/
Imports SystemDatabaseIBO

Namespace MyWebMethod
Public Class MyWebMethod
Inherits WebMethod
Public Overrides Sub Execute
TransactionExample()
End Sub

Public Sub TransactionExample
Dim DBTransaction As TIB_Transaction
DBTransaction = New TIB_Transaction(SoapServer.DefaultDBConnection.DBSession)
DBTransaction.IB_Connection = SoapServer.DefaultDBConnection.DBConnection
DBTransaction.Isolation = tiConsistency
DBTransaction.StartTransaction()
Try
InsertValidRecord()
InsertInvalidRecord()
DBTransaction.Commit()
Catch
DBTransaction.Rollback()
Throw
End Try
End Sub

Public Sub InsertValidRecord
Dim SQL As String
Dim Command As TSQLCommand

SQL = "INSERT INTO ""Books"" (""Title"",""UnitsInStock"") VALUES ('This is a valid record',3)"
Command = DefaultDBConnection.CreateSQLCommand(SQL)
Try
Try
Command.Prepare()
Command.Execute()
Catch
Throw
End Try
Finally
DefaultDBConnection.DestroySQLCommand(Command)
End Try
End Sub

Public Sub InsertInvalidRecord
Dim SQL As String
Dim Command As TSQLCommand

SQL = "INSERT INTO ""Books"" (""Title"",""UnitsInStock"") VALUES ('BAD!!!','xx')"
Command = DefaultDBConnection.CreateSQLCommand(SQL)
Command.Prepare()
Command.Execute()
DefaultDBConnection.DestroySQLCommand(Command)
End Sub

End Class
:{"Published=False"}
End Namespace
</source>
|}

{|class="collapsible collapsed" width="100%"
!align="left"| CX Code
|-
|
<source lang="csharp_server">
/*
$MA DYNAMIC
*/
imports SystemDatabaseIBO;

namespace MyWebMethod
{
public class MyWebMethod : WebMethod
{
public override void Execute()
{
TransactionExample();
}

public void TransactionExample()
{
TIB_Transaction DBTransaction;
DBTransaction = new TIB_Transaction(SoapServer.DefaultDBConnection.DBSession);
DBTransaction.IB_Connection = SoapServer.DefaultDBConnection.DBConnection;
DBTransaction.Isolation = tiConsistency;
DBTransaction.StartTransaction();
try
{
InsertValidRecord();
InsertInvalidRecord();
DBTransaction.Commit();
}
catch
{
DBTransaction.Rollback();
throw;
}
}

public void InsertValidRecord()
{
String SQL;
TSQLCommand Command;

SQL = "INSERT INTO \"Books\" (\"Title\",\"UnitsInStock\") VALUES (\'This is a valid record\',3)";
Command = DefaultDBConnection.CreateSQLCommand(SQL);
try
{
try
{
Command.Prepare();
Command.Execute();
}
catch
{
throw;
}
}
finally
{
DefaultDBConnection.DestroySQLCommand(Command);
}
}

public void InsertInvalidRecord()
{
String SQL;
TSQLCommand Command;

SQL = "INSERT INTO \"Books\" (\"Title\",\"UnitsInStock\") VALUES (\'BAD!!!\',\'xx\')";
Command = DefaultDBConnection.CreateSQLCommand(SQL);
Command.Prepare();
Command.Execute();
DefaultDBConnection.DestroySQLCommand(Command);
}

}
["Published=False"]
}
</source>
|}

Format

Tech.Writer3 — Thu, 02 Sep 2010 10:53:43 GMT

Custom DateTime Format Strings:

Show changes

Flash File Uploader

Tech.Writer3 — Wed, 01 Sep 2010 12:30:37 GMT

New page

The Morfik FlashUploader package contains a single widget (FlashFileUploader) that allows files to be submitted to a web site. Morfik version 3 no longer contains the FlashFileUploader component but this package adds in the FlashFileUploader widget.

{{Packageurls|
demourl=http://flashuploader.packages.morfikspace.com/|
downurl=http://morfik.com/#downloads/Packages/Flash%20File%20Uploader%20package%20for%20Morfik%203
}}

__NOTOC__
== A Quick Walkthrough==

To use the Morfik FlashUploader package simply add the package to the project by utilizing the “Used Packages” command on the project ribbon (see Figure 1 '''Used Packages Command'''), or simply drag the package file onto the application main client area. Once added [a single widget] will appear on the home ribbon when the form designer is active (see Figure 2 '''Widgets List'''). These widgets can be placed on application forms and provide immediate functionality with minimal coding.

{{Screenshot|url=http://bkey-wiki.s3.amazonaws.com/images/addon-packages/authentication-and-access-control_package/security-fig1.png|fig=Figure 1:| desc= Used Packages Command}}

{{Screenshot|url=http://bkey-wiki.s3.amazonaws.com/images/addon-packages/FU/FlashUploader.jpg|fig=Figure 2:| desc= Widgets List}}

After adding the package to your project, to use it just drop a FlashFileUploader widget onto a form to get something that looks like Figure 3 The '''FlashFileUploader Widget'''.

{{Screenshot|url=http://bkey-wiki.s3.amazonaws.com/images/addon-packages/FU/FlashUploader_1.jpg|fig=Figure 3:| desc= The FlashFileUploader Widget}}

Once on the form, a '''DataField''' can be set for the widget in the Property Inspector (see below if no data field is set). Also note that '''Max File Size''' can also be set in the Property Inspector, however to allow file sizes large than 2 megabytes, code must be added to the XApp.OnStart event, as seen below:

'''FX Code'''
<source lang="pascal_server">
Procedure XApp.XAppStart(Sender: TObject);
Begin
Catalog.PostLimits.AddLimit('uplv2', 10 * 1024 * 1024); { 10 MBs }
End;
</source>

{|class="collapsible collapsed" width="100%"
!align="left"| BX Code
|-
|
<source lang="vb_server">
Published Message Sub XAppStart(Sender As TObject)
Catalog().PostLimits.AddLimit("uplv2", 10 * 1024 * 1024) { 10 mb}
End Sub
</source>
|}

{|class="collapsible collapsed" width="100%"
!align="left"| CX Code
|-
|
<source lang="csharp_server">
published message void XAppStart(TObject Sender)
{
Catalog().PostLimits.AddLimit("uplv2", 10 * 1024 * 1024);
}
</source>
|}

If this '''PostLimit''' is not changed and a file that is too large is uploaded, it will appear to upload but will not. On the other hand, the FlashFileUploader widget will not even accept a file that is larger than the value set in the Property
Inspector.

==If a DataField is Not Specified==

If a datafield is not assigned to the widget, code must be added to the project module to handle the file upload. This should be done by implementing the '''BeforeUploadFinalize''' event as illustrated in the code below:

'''FX Code'''
<source lang="pascal_server">
Procedure TestXApp.XAppBeforeUploadFinalize(UploadData: TUploadData; Response: THTTPResponse; Var DoProceed: Boolean);
Var
gAppPath: String;
Begin
gAppPath := ExtractFileDir(Catalog.ModuleFileName) + FileSeparator;
{ Only execute the following code if the file is not assigned to a data field }
If UploadData.Param['MFK$KEY_FIELD_VALUE'] = '' Then
Begin
If Not FolderExists(gAppPath + 'Images') Then
CreateFolder(gAppPath + 'Images');
UploadData.DataStream.SaveToFile('Images\' + UploadData[cFileUploadNameParam]);
End;
End;
</source>

{|class="collapsible collapsed" width="100%"
!align="left"| BX Code
|-
|
<source lang="vb_server">
Published Message Sub XAppBeforeUploadFinalize(UploadData As TUploadData, Response As THttpResponse, ByRef DoProceed As Boolean)
Dim gAppPath As String
gAppPath = ExtractFileDir(Catalog().ModuleFileName) & FileSeparator
If UploadData.Param("MFK$KEY_FIELD_VALUE") = "" Then
If Not FolderExists(gAppPath & "Images") Then CreateFolder(gAppPath & "Images")
UploadData.DataStream.SaveToFile("Images\" & UploadData(cFileUploadNameParam))
End If
End Sub
</source>
|}

{|class="collapsible collapsed" width="100%"
!align="left"| CX Code
|-
|
<source lang="csharp_server">
published message void XAppBeforeUploadFinalize(TUploadData UploadData, THttpResponse Response, ref Boolean DoProceed)
{
String gAppPath;
gAppPath = ExtractFileDir(Catalog().ModuleFileName) + FileSeparator;
if (UploadData.Param["MFK$KEY_FIELD_VALUE"] == "")
{
if (!FolderExists(gAppPath + "Images"))
CreateFolder(gAppPath + "Images");
UploadData.DataStream.SaveToFile("Images\\" + UploadData (cFileUploadNameParam]);
}
}
</source>
|}

Since this event is fired on any file that is uploaded, even files that are assigned to a datafield, there is a check to make sure that no datafield has been set for the widget.

==Handling Events on the Browser Side==

The following events are fired on the browser side for the FlashFileUploader widget: '''OnFileQueued''', '''OnUploadSuccess''' and '''OnUploadComplete'''. All events have the same signature, as seen below:

'''FX Code'''
<source lang="pascal_server">
Procedure Queued(Sender: TObject; FileInfo : TFlashUploadFileInfo);
Procedure UploadSuccess(Sender: TObject; FileInfo : TFlashUploadFileInfo);
Procedure UploadComplete(Sender: TObject; FileInfo : TFlashUploadFileInfo);
</source>

{|class="collapsible collapsed" width="100%"
!align="left"| BX Code
|-
|
<source lang="vb_server">
Published Message Sub FileQueued(Sender As TObject, FileInfo As TFlashUploadFileInfo)
Published Message Sub FileUploadComplete(Sender As TObject, FileInfo As TFlashUploadFileInfo)
Published Message Sub FileUploadSuccess(Sender As TObject, FileInfo As TFlashUploadFileInfo)
</source>
|}

{|class="collapsible collapsed" width="100%"
!align="left"| CX Code
|-
|
<source lang="csharp_server">
published message void FileQueued(TObject Sender, TFlashUploadFileInfo FileInfo)
published message void FileUploadComplete(TObject Sender, TFlashUploadFileInfo FileInfo)
published message void FileUploadSuccess(TObject Sender, TFlashUploadFileInfo FileInfo)
</source>
|}

Each of these event handlers can be assigned at design time or can be assigned at runtime as seen below:
'''FX Code'''
<source lang="pascal_server">
Procedure Form1.WebFormReady(Var Ready: Boolean);
Begin
mfk_FlashFileUploader1.OnFileUploadSuccess := @UploadSuccess;
mfk_FlashFileUploader1.OnFileUploadComplete := @UploadComplete;
End;
</source>

{|class="collapsible collapsed" width="100%"
!align="left"| BX Code
|-
|
<source lang="vb_server">
Published Message Sub WebFormReady(ByRef Ready As Boolean)
mfk_FlashFileUploader1.OnFileUploadSuccess = Ref FileUploadSuccess
mfk_FlashFileUploader1.OnFileUploadComplete = Ref FileUploadComplete
End Sub
</source>
|}

{|class="collapsible collapsed" width="100%"
!align="left"| CX Code
|-
|
<source lang="csharp_server">
published message void WebFormReady(ref Boolean Ready)
{
mfk_FlashFileUploader1.OnFileUploadSuccess = &FileUploadSuccess;
mfk_FlashFileUploader1.OnFileUploadComplete = &FileUploadComplete;
}
</source>
|}

Note that the UploadSuccess event will fire prior to the UploadComplete event. Therefore if the UploadComplete event is detected without an UploadSuccess event, the upload was not completed successfully.
The TFlashUploadFileInfo class contains the members - id (String), index (Integer), name (String), size (Integer), "type" (String), creationdate (TDateTime), modificationdate (TDateTime) and filestatus (Integer) that can be used, for example, to determine if a file can be uploaded, as in the example below:

'''FX Code'''
<source lang="pascal_server">
Procedure Form1.mfk_FlashFileUploader1FileQueued(Sender: TObject; FileInfo: TFlashUploadFileInfo);
Begin
If Not StringsEqual('csv', FileInfo."type") Then
Begin
If Not ConfirmAction('Are you sure this is the file you want to upload?') Then
mfk_FlashFileUploader1.ClearQueue;
End;
End;
</source>

{|class="collapsible collapsed" width="100%"
!align="left"| BX Code
|-
|
<source lang="vb_server">
Published Message Sub FileQueued(Sender As TObject, FileInfo As TFlashUploadFileInfo)
If Not StringsEqual("csv", FileInfo.[type]) Then
If Not ConfirmAction("Are you sure this is the file you want to upload?") Then mfk_FlashFileUploader1.ClearQueue()
End If
End Sub
</source>
|}

{|class="collapsible collapsed" width="100%"
!align="left"| CX Code
|-
|
<source lang="csharp_server">
published message void FileQueued(TObject Sender, TFlashUploadFileInfo FileInfo)
{
if (!StringsEqual("csv", FileInfo.type))
{
if (!ConfirmAction("Are you sure this is the file you want to upload?"))
mfk_FlashFileUploader1.ClearQueue();
}
}

</source>
|}

TcPDF Report

Tech.Writer3 — Wed, 01 Sep 2010 11:52:07 GMT

New page

The Morfik tcPDFReport package contains server-side classes that allow the creation of run-time PDF documents that include Unicode characters and is based upon the open source TCPDF PHP software which can be downloaded from http://www.tecnick.com.

{{Packageurls|
demourl=http://pdfreport.packages.morfikspace.com/|
downurl=http://morfik.com/#downloads/Packages/tcPDF%20Report%20Package%20for%20Morfik%203|
}}

__NOTOC__
== A Quick Walkthrough==

To use the Morfik tcPDFReport package simply add the package to the project by utilizing the “Used Packages” command on the project ribbon (see Figure 1 '''Used Packages Command'''), or simply drag the package file onto the application main client area. Once the package has been added, a number of server-side classes supporting PDF Report document creation will be available and additional fonts supporting subset of Unicode characters, available from the Font menu item on the ribbon. These fonts should be used when designing reports containing text with international characters.

{{Screenshot|url=http://bkey-wiki.s3.amazonaws.com/images/addon-packages/authentication-and-access-control_package/security-fig1.png|fig=Figure 1:| desc= Used Packages Command}}

==Adding Unicode Character Capability to Reports==

Adding the capability to represent Unicode characters in reports is accomplished merely by importing the '''tcPDFReport''' package. Once added, Unicode characters such as those included in the report below will correctly be generated for the PDF report.

'''FX Code'''
<source lang="pascal_server">
Type
Report1 = Class(Report)
TextLabel1 : TextLabel;
Procedure DetailBeforePrint(Sender: TWebControl; Canvas: TWebCanvas; Var Print: Boolean); Message;
End;
Implementation
Procedure Report1.DetailBeforePrint(Sender: TWebControl; Canvas: TWebCanvas; Var Print: Boolean);
Begin
TextLabel1.Caption := ‘Γεια σας κόσμο!’; /// Hello world ///
End;
</source>

{|class="collapsible collapsed" width="100%"
!align="left"| BX Code
|-
|
<source lang="vb_server">
Public Class Report1
Inherits Report
Published TextLabel1 As TextLabel

Published Message Sub DetailBeforePrint(Sender As TWebControl, Canvas As TWebCanvas, ByRef Print As Boolean)
TextLabel1.Caption = ‘Γεια σας κόσμο!’; /// Hello world ///
End Sub
End Class
</source>
|}

{|class="collapsible collapsed" width="100%"
!align="left"| CX Code
|-
|
<source lang="csharp_server">
public class Report1 : Report
{
published TextLabel TextLabel1;
published message void DetailBeforePrint(TWebControl Sender, TWebCanvas Canvas, ref Boolean Print)
{
TextLabel1.Caption = ‘Γεια σας κόσμο!’; /// Hello world ///
}
}
</source>
|}

You can also simply type text with international characters for TextLabel and other controls displaying text at design-time.

NOTE: Unicode characters will be rendered correctly only if one of tcPDF-specific fonts is used, such as Free Mono, Free Sans and Free Serif.

'''Advanced usage:'''

Upon installing tcPDFReport package a pdf-rendering engine different to the default one will be registered. All existing reports will use new engine and produce same output, however you may choose default pdf-rendering engine by overriding CreatePDFCanvas method of Report class.

To increase the capabilities for report generation, just include '''mfk_tcPDFCanvas''' in the Uses clause of the Implementation section of the report. This module adds a number of useful methods and properties that can enhance reports.

==The mfk_tcPDFCanvas Module==

Adding this module to the Uses clause of a Report introduces a number of methods that can be used to enhance PDF reporting capabilities. Some of the more significant methods are discussed below:

'''FX Code'''
<source lang="pascal_server">
Function UnScaleCoordinateValue (L : Double) : Integer;
</source>

{|class="collapsible collapsed" width="100%"
!align="left"| BX Code
|-
|
<source lang="vb_server">
Public Function UnScaleCoordinateValue(L As Double) As Integer
</source>
|}

{|class="collapsible collapsed" width="100%"
!align="left"| CX Code
|-
|
<source lang="csharp_server">
public Integer UnScaleCoordinateValue(Double L)
</source>
|}

Because of the difference in coordinate systems used by the built-in Morfik PDFCanvas and the package module mfk_PDFCanvas, coordinates need to be converted from one system to the other. The UnScaleCoordinateValue function takes an mfk_PDFCanvas value and converts it to a PDFCanvas value. '''Please note that all coordinates passed to functions in the mfk_PDFCanvas members are in the original Morfik PDFCanvas measurements to allow mfk_PDFCanvas to function as a drop-in replacement for the PDFCanvas class.'''

'''FX Code'''
<source lang="pascal_server">
Function ScaleCoordinateValue(L : Integer) : Integer;
</source>

{|class="collapsible collapsed" width="100%"
!align="left"| BX Code
|-
|
<source lang="vb_server">
Public Function ScaleCoordinateValue(L As Integer) As Integer
</source>
|}

{|class="collapsible collapsed" width="100%"
!align="left"| CX Code
|-
|
<source lang="csharp_server">
public Integer ScaleCoordinateValue(Integer L)
</source>
|}

This function is the reverse of the one above, changing PDFCanvas coordinates to mfk_PDFCanvas coordinates. It is automatically called by any function in the mfk_PDFCanvas module that is passed a coordinate or size.

'''FX Code'''
<source lang="pascal_server">
Procedure SelectBrush(BColor : TColor; BStyle : TBrushStyle);
</source>

{|class="collapsible collapsed" width="100%"
!align="left"| BX Code
|-
|
<source lang="vb_server">
Public Overrides Sub SelectBrush(BColor As TCOlor, BStyle As TBrushStyle)
</source>
|}

{|class="collapsible collapsed" width="100%"
!align="left"| CX Code
|-
|
<source lang="csharp_server">
public override void SelectBrush(TCOlor BColor, TBrushStyle BStyle)
</source>
|}

Use this method to set the color and style of a fill operation when drawing objects. When fill is not desired, set BColor to clTransparent and BStyle to bsClear (see code below).

'''FX Code'''
<source lang="pascal_server">
Procedure SelectPen(PWidth : Integer; PColor : TColor; PStyle : TPenStyle);
</source>

{|class="collapsible collapsed" width="100%"
!align="left"| BX Code
|-
|
<source lang="vb_server">
Public Overrides Sub SelectPen(PWidth As Integer, PColor As TCOlor, PStyle As TPenStyle)
</source>
|}

{|class="collapsible collapsed" width="100%"
!align="left"| CX Code
|-
|
<source lang="csharp_server">
public override void SelectPen(Integer PWidth, TCOlor PColor, TPenStyle PStyle)
</source>
|}

This method is similar to the one above but sets the properties for any lines used in drawing.

'''FX Code'''
<source lang="pascal_server">
Procedure SelectFont(FName : String; FColor : TColor; FSize : Integer; FBold, FItalic, FUnderLine, FStrikeThrough : Boolean);
</source>

{|class="collapsible collapsed" width="100%"
!align="left"| BX Code
|-
|
<source lang="vb_server">
Public Overrides Sub SelectFont(FName As String, FColor As TCOlor, FSize As Integer, FBold As Boolean,
FItalic As Boolean, FUnderLine As Boolean, FStrikeThrough As Boolean)
</source>
|}

{|class="collapsible collapsed" width="100%"
!align="left"| CX Code
|-
|
<source lang="csharp_server">
public override void SelectFont(String FName, TCOlor FColor, Integer FSize, Boolean FBold, Boolean FItalic,
Boolean FUnderLine, Boolean FStrikeThrough)
</source>
|}

This method sets the font name, color, size and style for any subsequent text output to the canvas.
The code below demonstrates how to draw a non-filled green rectangle around an existing TextLabel when a report is produced. The Rectangle method parameters are for the top-left X and Y coordinates and the bottom-right X and Y coordinates.

'''FX Code'''
<source lang="pascal_server">
Procedure Report1.DetailAfterPrint(Sender: TWebControl; Canvas: TWebCanvas);
Begin
If DrawRectAroundLabel Then
Begin
With Canvas as TtcPDFCanvas Do
Begin
SelectBrush(clTransparent,bsClear);
SelectPen(UnScaleCoordinateValue(5), clGreen, psSolid);
Rectangle(UnScaleCoordinateValue(100),
UnScaleCoordinateValue(100),
UnScaleCoordinateValue(500),
UnScaleCoordinateValue(GetCoordIntInPixel(TextLabel1.Top
+ TextLabel1.absBoundingRect.Bottom
- TextLabel1.absBoundingRect.Top) + 100));
End;
End;
End;
</source>

{|class="collapsible collapsed" width="100%"
!align="left"| BX Code
|-
|
<source lang="vb_server">
Published Message Sub DetailAfterPrint(Sender As TWebControl, Canvas As TWebCanvas)
If DrawRectAroundLabel Then
With Canvas As TtcPDFCanvas
SelectBrush(clTransparent, bsClear)
SelectPen(UnScaleCoordinateValue(5), clgreen, psSolid)
Rectangle(UnScaleCoordinateValue(100),
UnScaleCoordinateValue(100),
UnScaleCoordinateValue(500),
UnScaleCoordinateValue(GetCoordIntInPixel(TextLabel2.Top
+ TextLabel2.absBoundingRect().Bottom
- TextLabel2.absBoundingRect().Top) + 100))
End With
End If
End Sub

</source>
|}

{|class="collapsible collapsed" width="100%"
!align="left"| CX Code
|-
|
<source lang="csharp_server">
published message void DetailAfterPrint(TWebControl Sender, TWebCanvas Canvas)
{
if (DrawRectAroundLabel)
{
with(Canvas as TtcPDFCanvas)
{
SelectBrush(clTransparent, bsClear);
SelectPen(UnScaleCoordinateValue(5), clgreen, psSolid);
Rectangle(UnScaleCoordinateValue(100),
UnScaleCoordinateValue(100),
UnScaleCoordinateValue(500),
UnScaleCoordinateValue(GetCoordIntInPixel(TextLabel1.Top
+ TextLabel1.absBoundingRect().Bottom
– TextLabel1.absBoundingRect().Top) + 100));
}
}
}
</source>
|}

One of the properties in the TtcPDFCanvas class found in the mfk_PDFCanvas module is PdfDocHandle of type TtcPdf. The TtcPdf class can be found in the mfk_tcPDF module, discussed below.

==The mfk_tcPDF Module==

The mfk_tcPDF module contains a significant number of additional properties and methods that can be used to create sophisticated PDF documents at runtime on the server side. The primary class is TtcPdf and some of its methods are discussed here. Using the methods of this class it is possible to include charts and graphs in a report. When methods are found in both the TtcPDFCanvas class and the TtcPdf class, you should use the ones in the TtcPdfCanvas class.
The sample code below adds a demonstration of how to draw an ellipse around the same TextLabel in the other samples, this time in red. In this case, the report is checking a parameter passed in by the initiating module (OpenReport('Report1', '"circle=' + CheckBox1.Checked.ToString + '"');). Please note that in this case, since the methods of TtcPdf are called directly, the coordinates have to be converted to the appropriate measurement; in this case that is accomplished using the GetCoordIntInPixel function. A sample of drawing a curve is also demonstrated below.

'''FX Code'''
<source lang="pascal_server">
Procedure Report1.DetailAfterPrint(Sender: TWebControl; Canvas: TWebCanvas);
Begin
If DrawRectAroundLabel Then
Begin
With Canvas as TtcPDFCanvas Do
Begin
SelectBrush(clTransparent,bsClear);
SelectPen(UnScaleCoordinateValue(5), clGreen, psSolid);
Rectangle(UnScaleCoordinateValue(100),
UnScaleCoordinateValue(100),
UnScaleCoordinateValue(500),
UnScaleCoordinateValue(GetCoordIntInPixel(TextLabel1.Top
+ TextLabel1.absBoundingRect.Bottom
- TextLabel1.absBoundingRect.Top) + 100));
End;
End;
If Uppercase(GetParameterValueByName('circle')) = 'TRUE' Then
Begin
With Canvas as TtcPDFCanvas Do
Begin
SelectBrush(clTransparent, bsClear);
SelectPen(UnScaleCoordinateValue(5), clRed, psSolid);
PdfDocHandle.Ellipse(300,
GetCoordIntInPixel(TextLabel1.Top
+ ((TextLabel1.absBoundingRect.Bottom
- TextLabel1.absBoundingRect.Top) div 2)) + 47,
GetCoordIntInPixel(TextLabel1.Width),
GetCoordIntInPixel((TextLabel1.absBoundingRect.Bottom
- TextLabel1.absBoundingRect.Top) div 2) + 50);
End;
End;
With Canvas as TtcPDFCanvas Do
PdfDocHandle.Curve(100, 300, 120, 280, 200, 340, 100, 350);
End;
</source>

{|class="collapsible collapsed" width="100%"
!align="left"| BX Code
|-
|
<source lang="vb_server">
Published Message Sub DetailAfterPrint(Sender As TWebControl, Canvas As TWebCanvas)
If DrawRectAroundLabel Then
With Canvas As TtcPDFCanvas
SelectBrush(clTransparent, bsClear)
SelectPen(UnScaleCoordinateValue(5), clgreen, psSolid)
Rectangle(UnScaleCoordinateValue(100),
UnScaleCoordinateValue(100),
UnScaleCoordinateValue(500),
UnScaleCoordinateValue(GetCoordIntInPixel(TextLabel2.Top
+ TextLabel2.absBoundingRect().Bottom
- TextLabel2.absBoundingRect().Top) + 100))
End With
End If
If UpperCase(GetParameterValueByName("circle")) = "TRUE" Then
With Canvas As TtcPDFCanvas
SelectBrush(clTransparent, bsClear)
SelectPen(UnScaleCoordinateValue(5), clRed, psSolid)
PdfDocHandle.Ellipse(300,
GetCoordIntInPixel(TextLabel2.Top
+ ((TextLabel2.absBoundingRect().Bottom
- TextLabel2.absBoundingRect().Top) \ 2)) + 47,
GetCoordIntInPixel(TextLabel2.Width),
GetCoordIntInPixel((TextLabel2.absBoundingRect().Bottom
- TextLabel2.absBoundingRect().Top) \ 2) + 50)
End With
End If
With Canvas As TtcPDFCanvas
PdfDocHandle.Curve(100, 300, 120, 280, 200, 340, 100, 350)
End With
End Sub

</source>
|}

{|class="collapsible collapsed" width="100%"
!align="left"| CX Code
|-
|
<source lang="csharp_server">
published message void DetailAfterPrint(TWebControl Sender, TWebCanvas Canvas)
{
if (DrawRectAroundLabel)
{
with(Canvas as TtcPDFCanvas)
{
SelectBrush(clTransparent, bsClear);
SelectPen(UnScaleCoordinateValue(5), clgreen, psSolid);
Rectangle(UnScaleCoordinateValue(100),
UnScaleCoordinateValue(100),
UnScaleCoordinateValue(500),
UnScaleCoordinateValue(GetCoordIntInPixel(TextLabel2.Top
+ TextLabel2.absBoundingRect().Bottom
- TextLabel2.absBoundingRect().Top) + 100));
}
}
if (UpperCase(GetParameterValueByName("circle")) == "TRUE")
{
with(Canvas as TtcPDFCanvas)
{
SelectBrush(clTransparent, bsClear);
SelectPen(UnScaleCoordinateValue(5), clRed, psSolid);
PdfDocHandle.Ellipse(300,
GetCoordIntInPixel(TextLabel2.Top
+ (((TextLabel2.absBoundingRect().Bottom
- TextLabel2.absBoundingRect().Top) / 2))) + 47,
GetCoordIntInPixel(TextLabel2.Width),
GetCoordIntInPixel(((TextLabel2.absBoundingRect().Bottom
- TextLabel2.absBoundingRect().Top) / 2)) + 50);
}
}
with(Canvas as TtcPDFCanvas)
{
PdfDocHandle.Curve(100, 300, 120, 280, 200, 340, 100, 350);
}
}
</source>
|}

==For Additional Information==

You can find documentation for the PHP classes on the web at http://www.tecnick.com/pagefiles/tcpdf/doc/com-tecnick-tcpdf/TCPDF.html. Please note that the PHP classes, methods and properties do not always match mfk_tcPDF ones.

Lightbox for Morfik 3

Tech.Writer3 — Wed, 01 Sep 2010 09:49:50 GMT

← Older revision		Revision as of 09:49, 1 September 2010
(2 intermediate revisions not shown)
Line 64:		Line 64:
	<source lang="vb_browser">		<source lang="vb_browser">
	Published Message Sub Button1Click(Event As TDOMEvent)		Published Message Sub Button1Click(Event As TDOMEvent)
-	mfk_ImageThumbnail1.show(0)	+	mfk_ImageThumbnail1.show(mfk_ImageRotator1.Current)
	End Sub		End Sub
	</source>		</source>
Line 76:		Line 76:
	published message void Button1Click(TDOMEvent Event)		published message void Button1Click(TDOMEvent Event)
	{		{
-	mfk_ImageThumbnail1.show(0);	+	mfk_ImageThumbnail1.show(mfk_ImageRotator1.Current);
	}		}
	</source>		</source>