9 lines
2.0 KiB
Plaintext
9 lines
2.0 KiB
Plaintext
|
<?xml version="1.0" encoding="utf-8"?>
|
||
|
|
<TfrxReport Name="" DotMatrixReport="False" EngineOptions.MaxMemSize="10000000" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="2047" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" ReportOptions.CreateDate="38006,6684253472" ReportOptions.Description.Text="Demonstrates how to use OnPreviewClick event." ReportOptions.LastChange="38344,718786412" ScriptLanguage="PascalScript" ScriptText.Text="procedure Memo2OnPreviewClick(Sender: TfrxView; Button: TMouseButton; Shift: Integer; var Modified: Boolean); var s: String; begin s := TfrxMemoView(Sender).Text; SetLength(s, Length(s) - 2); // cut off #13#10 TfrxMemoView(Sender).Text := InputBox('Edit', 'Edit Memo2 text:', s); Modified := True; end; procedure Memo1OnPreviewClick(Sender: TfrxView; Button: TMouseButton; Shift: Integer; var Modified: Boolean); begin ShowMessage('Memo1 contents:' + #13#10 + TfrxMemoView(Sender).Text); end; begin end." PropData="044C65667403880003546F7003B0000844617461736574730100095661726961626C65730100055374796C650100">
|
||
|
|
<TfrxReportPage Name="Page1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
|
||
|
|
<TfrxMemoView Name="Memo1" Cursor="-21" Left="37,7953" Top="37,7953" Width="94,48825" Height="37,7953" OnPreviewClick="Memo1OnPreviewClick" Frame.Typ="15" HAlign="haCenter" Memo.Text="Memo1" VAlign="vaCenter"/>
|
||
|
|
<TfrxMemoView Name="Memo2" Cursor="-4" Left="181,41744" Top="102,04731" Width="113,3859" Height="37,7953" OnPreviewClick="Memo2OnPreviewClick" Frame.Typ="15" HAlign="haCenter" Memo.Text="Memo2" VAlign="vaCenter"/>
|
||
|
|
<TfrxMemoView Name="Memo3" Left="226,7718" Top="7,55906" Width="188,9765" Height="18,89765" HAlign="haCenter" Memo.Text="Click these two memos"/>
|
||
|
|
</TfrxReportPage>
|
||
|
|
</TfrxReport>
|