﻿<?xml version="1.0" encoding="utf-8" standalone="yes"?>
<StiSerializer version="1.02" type="Net" application="StiReport">
  <Dictionary Ref="1" type="Dictionary" isKey="true">
    <BusinessObjects isList="true" count="0" />
    <Databases isList="true" count="0" />
    <DataSources isList="true" count="0" />
    <Relations isList="true" count="0" />
    <Report isRef="0" />
    <Variables isList="true" count="0" />
  </Dictionary>
  <EngineVersion>EngineV2</EngineVersion>
  <GlobalizationStrings isList="true" count="0" />
  <MetaTags isList="true" count="0" />
  <Pages isList="true" count="1">
    <Page1 Ref="2" type="Page" isKey="true">
      <Border>None;Black;2;Solid;False;4;Black</Border>
      <Brush>Transparent</Brush>
      <Components isList="true" count="1">
        <Text1 Ref="3" type="Text" isKey="true">
          <Border>All;[105:105:105];1;Solid;False;4;[105:105:105]</Border>
          <Brush>[253:234:218]</Brush>
          <ClientRectangle>2.2,1.8,3,1.4</ClientRectangle>
          <Conditions isList="true" count="0" />
          <Font>Arial,9</Font>
          <HorAlignment>Center</HorAlignment>
          <Margins>0,0,0,0</Margins>
          <Name>Text1</Name>
          <Page isRef="2" />
          <Parent isRef="2" />
          <Text>{MyFunc("test")}</Text>
          <TextBrush>Black</TextBrush>
          <Type>Expression</Type>
          <VertAlignment>Center</VertAlignment>
        </Text1>
      </Components>
      <Conditions isList="true" count="0" />
      <Guid>3cdf5c9e38084b6ba0433e55dac85def</Guid>
      <Margins>1,1,1,1</Margins>
      <Name>Page1</Name>
      <PageHeight>29.7</PageHeight>
      <PageWidth>21</PageWidth>
      <Report isRef="0" />
      <Watermark Ref="4" type="Stimulsoft.Report.Components.StiWatermark" isKey="true">
        <Font>Arial,100</Font>
        <TextBrush>[50:0:0:0]</TextBrush>
      </Watermark>
    </Page1>
  </Pages>
  <PreviewSettings>268435455</PreviewSettings>
  <PrinterSettings Ref="5" type="Stimulsoft.Report.Print.StiPrinterSettings" isKey="true" />
  <ReferencedAssemblies isList="true" count="8">
    <value>System.Dll</value>
    <value>System.Drawing.Dll</value>
    <value>System.Windows.Forms.Dll</value>
    <value>System.Data.Dll</value>
    <value>System.Xml.Dll</value>
    <value>Stimulsoft.Controls.Dll</value>
    <value>Stimulsoft.Base.Dll</value>
    <value>Stimulsoft.Report.Dll</value>
  </ReferencedAssemblies>
  <ReportAlias>Report</ReportAlias>
  <ReportChanged>9/21/2016 11:55:37 AM</ReportChanged>
  <ReportCreated>9/21/2016 11:49:44 AM</ReportCreated>
  <ReportFile />
  <ReportGuid>8c44a78759c2490f86f1058819f8a8f9</ReportGuid>
  <ReportName>Report</ReportName>
  <ReportUnit>Centimeters</ReportUnit>
  <ReportVersion>2016.1.0</ReportVersion>
  <Script>Imports System
Imports System.Drawing
Imports System.Windows.Forms
Imports System.Data
Imports Stimulsoft.Controls
Imports Stimulsoft.Base.Drawing
Imports Stimulsoft.Report
Imports Stimulsoft.Report.Dialogs
Imports Stimulsoft.Report.Components

Namespace Reports
	
		
	Public Class MyFunction
		Private Const Category As String = "MyFuncCategory"

		Public Shared Function MyFunc(value As String) As String
			Return value.ToUpper()
		End Function

		Public Shared Sub RegisterFunctions()
			Dim ParamNames = New String(0) {}
			Dim ParamTypes = New Type(0) {}
			Dim ParamDescriptions = New String(0) {}

			ParamNames(0) = "value"
			ParamDescriptions(0) = "Descriptions"
			ParamTypes(0) = GetType(String)

			Stimulsoft.Report.Dictionary.StiFunctions.AddFunction(Category, "MyFunc", "MyFunc", "Description", GetType(MyFunction), GetType(String),
				"Return Description", ParamTypes, ParamNames, ParamDescriptions)
		End Sub
	End Class

    Public Class Report
        Inherits Stimulsoft.Report.StiReport

        Public Sub New()
            MyBase.New
			Me.InitializeComponent
			MyFunction.RegisterFunctions
        End Sub

        #Region "StiReport Designer generated code - do not modify"
        #End Region 'StiReport Designer generated code - do not modify
    End Class
End Namespace
</Script>
  <ScriptLanguage>VB</ScriptLanguage>
  <Styles isList="true" count="0" />
</StiSerializer>