paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 13:19:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazReport, Implemented search in preview the report, from Aleksey Lagunov, issue #22296

Browse Source 
git-svn-id: trunk@37708 -
This commit is contained in:
jesus 2012-06-20 20:02:08 +00:00
parent 7e77802c42
commit 4df5e46efb
20 changed files with 395 additions and 195 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/lazreport/source/languages/lr_const.de.po
View File

@ -649,6 +649,10 @@ msgstr "Aktuelle Seite"
msgid "&1st page" msgid "&1st page"
msgstr "&1. Seite" msgstr "&1. Seite"
#: lr_const.sfindtextnotfound
msgid "Search text not found."
msgstr ""
#: lr_const.sfindtextoptions #: lr_const.sfindtextoptions
msgctxt "lr_const.sfindtextoptions" msgctxt "lr_const.sfindtextoptions"
msgid "Options" msgid "Options"

4
components/lazreport/source/languages/lr_const.es.po
View File

@ -637,6 +637,10 @@ msgstr "&Página Actual"
msgid "&1st page" msgid "&1st page"
msgstr "&1ra página" msgstr "&1ra página"
#: lr_const.sfindtextnotfound
msgid "Search text not found."
msgstr ""
#: lr_const.sfindtextoptions #: lr_const.sfindtextoptions
msgctxt "lr_const.sfindtextoptions" msgctxt "lr_const.sfindtextoptions"
msgid "Options" msgid "Options"

4
components/lazreport/source/languages/lr_const.fr.po
View File

@ -648,6 +648,10 @@ msgstr "&Page courante"
msgid "&1st page" msgid "&1st page"
msgstr "&1ère page" msgstr "&1ère page"
#: lr_const.sfindtextnotfound
msgid "Search text not found."
msgstr ""
#: lr_const.sfindtextoptions #: lr_const.sfindtextoptions
msgctxt "lr_const.sfindtextoptions" msgctxt "lr_const.sfindtextoptions"
msgid "Options" msgid "Options"

4
components/lazreport/source/languages/lr_const.id.po
View File

@ -639,6 +639,10 @@ msgstr ""
msgid "&1st page" msgid "&1st page"
msgstr "Halaman &1" msgstr "Halaman &1"
#: lr_const.sfindtextnotfound
msgid "Search text not found."
msgstr ""
#: lr_const.sfindtextoptions #: lr_const.sfindtextoptions
msgctxt "lr_const.sfindtextoptions" msgctxt "lr_const.sfindtextoptions"
msgid "Options" msgid "Options"

4
components/lazreport/source/languages/lr_const.it.po
View File

@ -640,6 +640,10 @@ msgstr "&Pagina corrente"
msgid "&1st page" msgid "&1st page"
msgstr "&I° pagina" msgstr "&I° pagina"
#: lr_const.sfindtextnotfound
msgid "Search text not found."
msgstr ""
#: lr_const.sfindtextoptions #: lr_const.sfindtextoptions
msgctxt "lr_const.sfindtextoptions" msgctxt "lr_const.sfindtextoptions"
msgid "Options" msgid "Options"

4
components/lazreport/source/languages/lr_const.lt.po
View File

@ -640,6 +640,10 @@ msgstr "Veikiamasis &lapas"
msgid "&1st page" msgid "&1st page"
msgstr "Nuo &1-mo lapo" msgstr "Nuo &1-mo lapo"
#: lr_const.sfindtextnotfound
msgid "Search text not found."
msgstr ""
#: lr_const.sfindtextoptions #: lr_const.sfindtextoptions
msgctxt "lr_const.sfindtextoptions" msgctxt "lr_const.sfindtextoptions"
msgid "Options" msgid "Options"

4
components/lazreport/source/languages/lr_const.pl.po
View File

@ -642,6 +642,10 @@ msgstr "Aktualna s&trona"
msgid "&1st page" msgid "&1st page"
msgstr "&Pierwsza strona" msgstr "&Pierwsza strona"
#: lr_const.sfindtextnotfound
msgid "Search text not found."
msgstr ""
#: lr_const.sfindtextoptions #: lr_const.sfindtextoptions
msgctxt "lr_const.sfindtextoptions" msgctxt "lr_const.sfindtextoptions"
msgid "Options" msgid "Options"

4
components/lazreport/source/languages/lr_const.po
View File

@ -632,6 +632,10 @@ msgstr ""
msgid "&1st page" msgid "&1st page"
msgstr "" msgstr ""
#: lr_const.sfindtextnotfound
msgid "Search text not found."
msgstr ""
#: lr_const.sfindtextoptions #: lr_const.sfindtextoptions
msgctxt "lr_const.sfindtextoptions" msgctxt "lr_const.sfindtextoptions"
msgid "Options" msgid "Options"

4
components/lazreport/source/languages/lr_const.pt.po
View File

@ -639,6 +639,10 @@ msgstr "&Página atual"
msgid "&1st page" msgid "&1st page"
msgstr "&1ª página" msgstr "&1ª página"
#: lr_const.sfindtextnotfound
msgid "Search text not found."
msgstr ""
#: lr_const.sfindtextoptions #: lr_const.sfindtextoptions
msgctxt "lr_const.sfindtextoptions" msgctxt "lr_const.sfindtextoptions"
msgid "Options" msgid "Options"

4
components/lazreport/source/languages/lr_const.pt_BR.po
View File

@ -638,6 +638,10 @@ msgstr "&Página atual"
msgid "&1st page" msgid "&1st page"
msgstr "&1ª página" msgstr "&1ª página"
#: lr_const.sfindtextnotfound
msgid "Search text not found."
msgstr ""
#: lr_const.sfindtextoptions #: lr_const.sfindtextoptions
msgctxt "lr_const.sfindtextoptions" msgctxt "lr_const.sfindtextoptions"
msgid "Options" msgid "Options"

4
components/lazreport/source/languages/lr_const.ru.po
View File

@ -638,6 +638,10 @@ msgstr "Текущая &страница"
msgid "&1st page" msgid "&1st page"
msgstr "&1я страница" msgstr "&1я страница"
#: lr_const.sfindtextnotfound
msgid "Search text not found."
msgstr ""
#: lr_const.sfindtextoptions #: lr_const.sfindtextoptions
msgctxt "lr_const.sfindtextoptions" msgctxt "lr_const.sfindtextoptions"
msgid "Options" msgid "Options"

4
components/lazreport/source/languages/lr_const.uk.po
View File

@ -641,6 +641,10 @@ msgstr "Пото&чна сторінка"
msgid "&1st page" msgid "&1st page"
msgstr "&1-ша сторінка" msgstr "&1-ша сторінка"
#: lr_const.sfindtextnotfound
msgid "Search text not found."
msgstr ""
#: lr_const.sfindtextoptions #: lr_const.sfindtextoptions
msgctxt "lr_const.sfindtextoptions" msgctxt "lr_const.sfindtextoptions"
msgid "Options" msgid "Options"

8
components/lazreport/source/lr_class.pas
View File

@ -875,11 +875,11 @@ type
function GetPages(Index: Integer): PfrPageInfo; function GetPages(Index: Integer): PfrPageInfo;
procedure ExportData(Index: Integer); procedure ExportData(Index: Integer);
procedure PageToObjects(Index: Integer); procedure PageToObjects(Index: Integer);
procedure ObjectsToPage(Index: Integer);
public public
constructor Create(AParent: TfrReport); constructor Create(AParent: TfrReport);
destructor Destroy; override; destructor Destroy; override;
procedure Clear; procedure Clear;
procedure ObjectsToPage(Index: Integer);
procedure Draw(Index: Integer; Canvas: TCanvas; DrawRect: TRect); procedure Draw(Index: Integer; Canvas: TCanvas; DrawRect: TRect);
procedure Add(APage: TfrPage); procedure Add(APage: TfrPage);
procedure Insert(Index: Integer; APage: TfrPage); procedure Insert(Index: Integer; APage: TfrPage);
@ -7136,8 +7136,6 @@ begin
UseMargins:=Bool; UseMargins:=Bool;
Read(fColCount, 4); Read(fColCount, 4);
Read(fColGap, 4); Read(fColGap, 4);
{ if frVersion>23 then
Read(ord(PageType), SizeOf(TfrPageType));}
if frVersion>23 then //todo: - remove this if frVersion>23 then //todo: - remove this
Read(ord(APageType), SizeOf(TfrPageType)); //todo: - remove this Read(ord(APageType), SizeOf(TfrPageType)); //todo: - remove this
Read(fLayoutOrder, 4); Read(fLayoutOrder, 4);
@ -7570,11 +7568,11 @@ begin
end; end;
end end
end end
else { else
begin begin
Page.Free; Page.Free;
Page := nil; Page := nil;
end; end;}
end; end;
end; end;

1
components/lazreport/source/lr_const.pas
View File

@ -287,6 +287,7 @@ resourcestring
sFrom = 'from'; sFrom = 'from';
sDefaultPrinter = 'Default printer'; sDefaultPrinter = 'Default printer';
sExportFilterIndexError = 'Export filter index out of range'; sExportFilterIndexError = 'Export filter index out of range';
sFindTextNotFound = 'Search text not found.';
//--- PrintForm resources --------------------------------------------------- //--- PrintForm resources ---------------------------------------------------
sPrintFormPrint = 'Print'; sPrintFormPrint = 'Print';

37
components/lazreport/source/lr_edit.lfm
View File

@ -32,10 +32,10 @@ inherited frEditorForm: TfrEditorForm
object Button1: TButton object Button1: TButton
AnchorSideTop.Control = Panel2 AnchorSideTop.Control = Panel2
AnchorSideRight.Control = Button2 AnchorSideRight.Control = Button2
Left = 475 Left = 479
Height = 35 Height = 35
Top = 4 Top = 4
Width = 38 Width = 37
HelpContext = 40 HelpContext = 40
Anchors = [akRight, akBottom] Anchors = [akRight, akBottom]
AutoSize = True AutoSize = True
@ -50,10 +50,10 @@ inherited frEditorForm: TfrEditorForm
AnchorSideTop.Control = Panel2 AnchorSideTop.Control = Panel2
AnchorSideRight.Control = Panel2 AnchorSideRight.Control = Panel2
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 519 Left = 522
Height = 35 Height = 35
Top = 4 Top = 4
Width = 64 Width = 61
HelpContext = 50 HelpContext = 50
Anchors = [akRight, akBottom] Anchors = [akRight, akBottom]
AutoSize = True AutoSize = True
@ -70,7 +70,7 @@ inherited frEditorForm: TfrEditorForm
Left = 6 Left = 6
Height = 35 Height = 35
Top = 4 Top = 4
Width = 73 Width = 68
HelpContext = 60 HelpContext = 60
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
AutoSize = True AutoSize = True
@ -84,10 +84,10 @@ inherited frEditorForm: TfrEditorForm
AnchorSideLeft.Control = Button3 AnchorSideLeft.Control = Button3
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel2 AnchorSideTop.Control = Panel2
Left = 85 Left = 80
Height = 35 Height = 35
Top = 4 Top = 4
Width = 71 Width = 67
HelpContext = 70 HelpContext = 70
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
AutoSize = True AutoSize = True
@ -101,10 +101,10 @@ inherited frEditorForm: TfrEditorForm
AnchorSideLeft.Control = Button6 AnchorSideLeft.Control = Button6
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel2 AnchorSideTop.Control = Panel2
Left = 242 Left = 227
Height = 35 Height = 35
Top = 4 Top = 4
Width = 66 Width = 61
HelpContext = 110 HelpContext = 110
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
AutoSize = True AutoSize = True
@ -118,10 +118,10 @@ inherited frEditorForm: TfrEditorForm
AnchorSideLeft.Control = Button4 AnchorSideLeft.Control = Button4
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel2 AnchorSideTop.Control = Panel2
Left = 162 Left = 153
Height = 35 Height = 35
Top = 4 Top = 4
Width = 74 Width = 68
HelpContext = 70 HelpContext = 70
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
AutoSize = True AutoSize = True
@ -147,7 +147,7 @@ inherited frEditorForm: TfrEditorForm
Left = 4 Left = 4
Height = 16 Height = 16
Top = 0 Top = 0
Width = 38 Width = 36
Caption = 'S&cript' Caption = 'S&cript'
ParentColor = False ParentColor = False
end end
@ -165,6 +165,7 @@ inherited frEditorForm: TfrEditorForm
ParentColor = False ParentColor = False
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
OnEnter = M1Enter
BookMarkOptions.Xoffset = 2 BookMarkOptions.Xoffset = 2
Gutter.Color = 13605511 Gutter.Color = 13605511
Gutter.Width = 55 Gutter.Width = 55
@ -715,7 +716,7 @@ inherited frEditorForm: TfrEditorForm
Left = 6 Left = 6
Height = 16 Height = 16
Top = 6 Top = 6
Width = 41 Width = 38
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = '&Memo' Caption = '&Memo'
ParentColor = False ParentColor = False
@ -754,7 +755,7 @@ inherited frEditorForm: TfrEditorForm
Left = 4 Left = 4
Height = 22 Height = 22
Top = 7 Top = 7
Width = 61 Width = 59
HelpContext = 80 HelpContext = 80
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = '&Script' Caption = '&Script'
@ -765,10 +766,10 @@ inherited frEditorForm: TfrEditorForm
AnchorSideLeft.Control = CB1 AnchorSideLeft.Control = CB1
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel3 AnchorSideTop.Control = Panel3
Left = 71 Left = 69
Height = 22 Height = 22
Top = 7 Top = 7
Width = 75 Width = 70
HelpContext = 90 HelpContext = 90
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = '&Big font' Caption = '&Big font'
@ -779,10 +780,10 @@ inherited frEditorForm: TfrEditorForm
AnchorSideLeft.Control = CB2 AnchorSideLeft.Control = CB2
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel3 AnchorSideTop.Control = Panel3
Left = 152 Left = 145
Height = 22 Height = 22
Top = 7 Top = 7
Width = 93 Width = 90
HelpContext = 100 HelpContext = 100
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = '&Word wrap' Caption = '&Word wrap'

12
components/lazreport/source/lr_edit.pas
View File

@ -65,7 +65,7 @@ type
procedure FormResize(Sender: TObject); procedure FormResize(Sender: TObject);
private private
{ Private declarations } { Private declarations }
FActiveMemo: TMemo; FActiveMemo: TWinControl;
//** procedure WMGetMinMaxInfo(var Msg: TLMGetMinMaxInfo); message LM_GETMINMAXINFO; //** procedure WMGetMinMaxInfo(var Msg: TLMGetMinMaxInfo); message LM_GETMINMAXINFO;
procedure InsertText(const S:string); procedure InsertText(const S:string);
public public
@ -194,7 +194,7 @@ end;
procedure TfrEditorForm.M1Enter(Sender: TObject); procedure TfrEditorForm.M1Enter(Sender: TObject);
begin begin
FActiveMemo := Sender as TMemo; FActiveMemo := Sender as TWinControl;
end; end;
procedure TfrEditorForm.CB1Click(Sender: TObject); procedure TfrEditorForm.CB1Click(Sender: TObject);
@ -273,7 +273,13 @@ end;
procedure TfrEditorForm.InsertText(const S: string); procedure TfrEditorForm.InsertText(const S: string);
begin begin
if S<>'' then if S<>'' then
FActiveMemo.SelText:='['+S+']'; begin
if FActiveMemo is TMemo then
TMemo(FActiveMemo).SelText:='['+S+']'
else
if FActiveMemo is TSynEdit then
TSynEdit(FActiveMemo).SelText:='['+S+']'
end;
end; end;
end. end.

191
components/lazreport/source/lr_srch.lfm
View File

@ -1,109 +1,132 @@
object frPreviewSearchForm: TfrPreviewSearchForm object frPreviewSearchForm: TfrPreviewSearchForm
Left = 401 Left = 635
Height = 167 Height = 190
Top = 143 Top = 405
Width = 291 Width = 383
HorzScrollBar.Page = 290 HorzScrollBar.Page = 290
VertScrollBar.Page = 166 VertScrollBar.Page = 166
ActiveControl = Edit1 ActiveControl = Edit1
BorderStyle = bsDialog
Caption = 'Find text' Caption = 'Find text'
ClientHeight = 167 ClientHeight = 190
ClientWidth = 291 ClientWidth = 383
OnActivate = FormActivate OnActivate = FormActivate
OnCreate = FormCreate OnCreate = FormCreate
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '0.9.29' LCLVersion = '1.1'
object Label1: TLabel object Label1: TLabel
Left = 4 AnchorSideLeft.Control = Owner
Height = 15 AnchorSideTop.Control = Owner
Top = 8 Left = 6
Width = 63 Height = 16
Top = 6
Width = 67
BorderSpacing.Around = 6
Caption = 'Text to &find' Caption = 'Text to &find'
FocusControl = Edit1 FocusControl = Edit1
ParentColor = False ParentColor = False
end end
object Edit1: TEdit object Edit1: TEdit
Left = 4 AnchorSideLeft.Control = Label1
Height = 20 AnchorSideTop.Control = Label1
Top = 24 AnchorSideTop.Side = asrBottom
Width = 285 AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 12
Height = 25
Top = 28
Width = 365
HelpContext = 98 HelpContext = 98
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6
TabOrder = 0 TabOrder = 0
end end
object Button1: TButton object ButtonPanel1: TButtonPanel
Left = 128 Left = 6
Height = 25 Height = 42
Top = 136 Top = 142
Width = 75 Width = 371
HelpContext = 40 OKButton.Name = 'OKButton'
Caption = 'Ok' OKButton.DefaultCaption = True
Default = True HelpButton.Name = 'HelpButton'
ModalResult = 1 HelpButton.DefaultCaption = True
CloseButton.Name = 'CloseButton'
CloseButton.DefaultCaption = True
CancelButton.Name = 'CancelButton'
CancelButton.DefaultCaption = True
TabOrder = 1 TabOrder = 1
ShowButtons = [pbOK, pbCancel, pbHelp]
end end
object Button2: TButton object Label2: TLabel
Left = 208 AnchorSideLeft.Control = Owner
Height = 25 AnchorSideLeft.Side = asrCenter
Top = 136 AnchorSideTop.Control = Owner
Width = 75 Left = 191
HelpContext = 50 Height = 1
Cancel = True Top = 0
Caption = 'Cancel' Width = 1
ModalResult = 2 ParentColor = False
end
object GroupBox2: TRadioGroup
AnchorSideLeft.Control = Label2
AnchorSideTop.Control = Edit1
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = ButtonPanel1
Left = 197
Height = 77
Top = 59
Width = 180
Anchors = [akTop, akLeft, akRight, akBottom]
AutoFill = True
BorderSpacing.Around = 6
Caption = 'Origin'
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 60
ClientWidth = 176
Items.Strings = (
'&1st page'
'Current &page'
)
TabOrder = 2 TabOrder = 2
end end
object GroupBox1: TGroupBox object GroupBox1: TCheckGroup
Left = 4 AnchorSideLeft.Control = Owner
Height = 81 AnchorSideTop.Control = Edit1
Top = 52 AnchorSideTop.Side = asrBottom
Width = 141 AnchorSideRight.Control = Label2
AnchorSideBottom.Control = ButtonPanel1
Left = 6
Height = 77
Top = 59
Width = 179
Anchors = [akTop, akLeft, akRight, akBottom]
AutoFill = True
BorderSpacing.Around = 6
Caption = 'Options' Caption = 'Options'
ClientHeight = 66 ChildSizing.LeftRightSpacing = 6
ClientWidth = 139 ChildSizing.TopBottomSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 60
ClientWidth = 175
Items.Strings = (
'&Case sensitive'
)
TabOrder = 3 TabOrder = 3
object CB1: TCheckBox Data = {
Left = 8 0100000002
Height = 22 }
Top = 20
Width = 108
HelpContext = 107
AllowGrayed = True
Caption = '&Case sensitive'
TabOrder = 0
end
end
object GroupBox2: TGroupBox
Left = 152
Height = 81
Top = 52
Width = 137
Caption = 'Origin'
ClientHeight = 66
ClientWidth = 135
TabOrder = 4
object RB1: TRadioButton
Left = 8
Height = 22
Top = 20
Width = 74
HelpContext = 116
AllowGrayed = True
Caption = '&1st page'
Checked = True
State = cbChecked
TabOrder = 0
end
object RB2: TRadioButton
Left = 8
Height = 22
Top = 40
Width = 99
HelpContext = 123
AllowGrayed = True
Caption = 'Current &page'
TabOrder = 1
TabStop = False
end
end end
end end

33
components/lazreport/source/lr_srch.pas
View File

@ -16,19 +16,19 @@ interface
uses uses
Classes, SysUtils, LResources,Forms, Controls, Graphics, Dialogs, Classes, SysUtils, LResources,Forms, Controls, Graphics, Dialogs,
StdCtrls,Buttons, LR_Const; StdCtrls,Buttons, ButtonPanel, ExtCtrls, LR_Const;
type type
{ TfrPreviewSearchForm }
TfrPreviewSearchForm = class(TForm) TfrPreviewSearchForm = class(TForm)
ButtonPanel1: TButtonPanel;
GroupBox1: TCheckGroup;
Label1: TLabel; Label1: TLabel;
Edit1: TEdit; Edit1: TEdit;
Button1: TButton; Label2: TLabel;
Button2: TButton; GroupBox2: TRadioGroup;
GroupBox1: TGroupBox;
CB1: TCheckBox;
GroupBox2: TGroupBox;
RB1: TRadioButton;
RB2: TRadioButton;
procedure FormActivate(Sender: TObject); procedure FormActivate(Sender: TObject);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
private private
@ -54,13 +54,20 @@ procedure TfrPreviewSearchForm.FormCreate(Sender: TObject);
begin begin
Caption := sFindTextCaption; Caption := sFindTextCaption;
Label1.Caption := sFindTextText; Label1.Caption := sFindTextText;
GroupBox1.Caption := sFindTextOptions; GroupBox1.Caption := sFindTextOptions;
CB1.Caption := sFindTextCase; GroupBox1.Items.Clear;
GroupBox1.Items.Add(sFindTextCase);
//CB1.Caption := sFindTextCase;
GroupBox2.Caption := sFindTextOrg; GroupBox2.Caption := sFindTextOrg;
RB1.Caption := sFindTextFirstPg; GroupBox2.Items.Clear;
RB2.Caption := sFindTextCurrentPg; GroupBox2.Items.Add(sFindTextFirstPg);
Button1.Caption := sOk; GroupBox2.Items.Add(sFindTextCurrentPg);
Button2.Caption := sCancel; //RB1.Caption := sFindTextFirstPg;
//RB2.Caption := sFindTextCurrentPg;
//Button1.Caption := sOk;
//Button2.Caption := sCancel;
end; end;
end. end.

138
components/lazreport/source/lr_view.lfm
View File

@ -2,7 +2,7 @@ object frPreviewForm: TfrPreviewForm
Left = 295 Left = 295
Height = 518 Height = 518
Top = 158 Top = 158
Width = 524 Width = 687
HorzScrollBar.Page = 411 HorzScrollBar.Page = 411
HorzScrollBar.Range = 269 HorzScrollBar.Range = 269
VertScrollBar.Page = 373 VertScrollBar.Page = 373
@ -10,7 +10,7 @@ object frPreviewForm: TfrPreviewForm
ActiveControl = PanTop ActiveControl = PanTop
Caption = 'Preview' Caption = 'Preview'
ClientHeight = 518 ClientHeight = 518
ClientWidth = 524 ClientWidth = 687
Font.Color = clBlack Font.Color = clBlack
KeyPreview = True KeyPreview = True
OnActivate = FormActivate OnActivate = FormActivate
@ -28,31 +28,31 @@ object frPreviewForm: TfrPreviewForm
Left = 0 Left = 0
Height = 28 Height = 28
Top = 0 Top = 0
Width = 524 Width = 687
Align = alTop Align = alTop
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 28 ClientHeight = 28
ClientWidth = 524 ClientWidth = 687
FullRepaint = False FullRepaint = False
TabOrder = 0 TabOrder = 0
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Height = 30 Height = 30
Top = 0 Top = 0
Width = 524 Width = 687
Align = alTop Align = alTop
BevelInner = bvSpace BevelInner = bvSpace
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 30 ClientHeight = 30
ClientWidth = 524 ClientWidth = 687
FullRepaint = False FullRepaint = False
TabOrder = 0 TabOrder = 0
object ZoomBtn: TBitBtn object ZoomBtn: TBitBtn
Tag = 200 Tag = 200
Left = 165 Left = 171
Height = 28 Height = 28
Top = 1 Top = 1
Width = 72 Width = 71
Align = alLeft Align = alLeft
AutoSize = True AutoSize = True
BorderSpacing.InnerBorder = 2 BorderSpacing.InnerBorder = 2
@ -95,7 +95,6 @@ object frPreviewForm: TfrPreviewForm
} }
GlyphShowMode = gsmAlways GlyphShowMode = gsmAlways
Margin = 3 Margin = 3
NumGlyphs = 0
OnClick = ZoomBtnClick OnClick = ZoomBtnClick
TabOrder = 4 TabOrder = 4
end end
@ -104,7 +103,7 @@ object frPreviewForm: TfrPreviewForm
Left = 1 Left = 1
Height = 28 Height = 28
Top = 1 Top = 1
Width = 30 Width = 32
Align = alLeft Align = alLeft
AutoSize = True AutoSize = True
BorderSpacing.InnerBorder = 2 BorderSpacing.InnerBorder = 2
@ -145,16 +144,15 @@ object frPreviewForm: TfrPreviewForm
93FFE4B28CFFE2AF88FFE0AC84FFDDA980FFDCA57DFFDAA37ACA 93FFE4B28CFFE2AF88FFE0AC84FFDDA980FFDCA57DFFDAA37ACA
} }
GlyphShowMode = gsmAlways GlyphShowMode = gsmAlways
NumGlyphs = 0
OnClick = LoadBtnClick OnClick = LoadBtnClick
TabOrder = 0 TabOrder = 0
end end
object SaveBtn: TBitBtn object SaveBtn: TBitBtn
Tag = 202 Tag = 202
Left = 31 Left = 33
Height = 28 Height = 28
Top = 1 Top = 1
Width = 30 Width = 32
Align = alLeft Align = alLeft
AutoSize = True AutoSize = True
BorderSpacing.InnerBorder = 2 BorderSpacing.InnerBorder = 2
@ -195,13 +193,12 @@ object frPreviewForm: TfrPreviewForm
39FFBD6E3BFFBB6D3AFFBB6B38EFBB703ECBB6693554FFFFFF00 39FFBD6E3BFFBB6D3AFFBB6B38EFBB703ECBB6693554FFFFFF00
} }
GlyphShowMode = gsmAlways GlyphShowMode = gsmAlways
NumGlyphs = 0
OnClick = SaveBtnClick OnClick = SaveBtnClick
TabOrder = 1 TabOrder = 1
end end
object PrintBtn: TBitBtn object PrintBtn: TBitBtn
Tag = 203 Tag = 203
Left = 86 Left = 90
Height = 28 Height = 28
Top = 1 Top = 1
Width = 28 Width = 28
@ -244,13 +241,12 @@ object frPreviewForm: TfrPreviewForm
4CFEC4763B94FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00 4CFEC4763B94FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
} }
GlyphShowMode = gsmAlways GlyphShowMode = gsmAlways
NumGlyphs = 0
OnClick = PrintBtnClick OnClick = PrintBtnClick
TabOrder = 2 TabOrder = 2
end end
object ExitBtn: TBitBtn object ExitBtn: TBitBtn
Tag = 205 Tag = 205
Left = 495 Left = 658
Height = 28 Height = 28
Top = 1 Top = 1
Width = 28 Width = 28
@ -293,12 +289,11 @@ object frPreviewForm: TfrPreviewForm
FF00FFFFFF00FFFFFF00FFFFFF006D9CD4896A9AD2FB6697CFEE FF00FFFFFF00FFFFFF00FFFFFF006D9CD4896A9AD2FB6697CFEE
} }
GlyphShowMode = gsmAlways GlyphShowMode = gsmAlways
NumGlyphs = 0
OnClick = ExitBtnClick OnClick = ExitBtnClick
TabOrder = 6 TabOrder = 6
end end
object frTBSeparator1: TPanel object frTBSeparator1: TPanel
Left = 61 Left = 65
Height = 28 Height = 28
Top = 1 Top = 1
Width = 25 Width = 25
@ -308,7 +303,7 @@ object frPreviewForm: TfrPreviewForm
TabOrder = 7 TabOrder = 7
end end
object frTBSeparator2: TPanel object frTBSeparator2: TPanel
Left = 114 Left = 118
Height = 28 Height = 28
Top = 1 Top = 1
Width = 25 Width = 25
@ -318,7 +313,7 @@ object frPreviewForm: TfrPreviewForm
TabOrder = 8 TabOrder = 8
end end
object frTBSeparator3: TPanel object frTBSeparator3: TPanel
Left = 263 Left = 270
Height = 28 Height = 28
Top = 1 Top = 1
Width = 25 Width = 25
@ -328,7 +323,7 @@ object frPreviewForm: TfrPreviewForm
TabOrder = 9 TabOrder = 9
end end
object PgUp: TSpeedButton object PgUp: TSpeedButton
Left = 308 Left = 315
Height = 28 Height = 28
Top = 1 Top = 1
Width = 20 Width = 20
@ -371,11 +366,10 @@ object frPreviewForm: TfrPreviewForm
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00 FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
} }
NumGlyphs = 0
OnClick = PgUpClick OnClick = PgUpClick
end end
object PgDown: TSpeedButton object PgDown: TSpeedButton
Left = 431 Left = 438
Height = 28 Height = 28
Top = 1 Top = 1
Width = 20 Width = 20
@ -418,11 +412,10 @@ object frPreviewForm: TfrPreviewForm
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00 FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
} }
NumGlyphs = 0
OnClick = PgDownClick OnClick = PgDownClick
end end
object LbPanel: TPanel object LbPanel: TPanel
Left = 328 Left = 335
Height = 28 Height = 28
Top = 1 Top = 1
Width = 103 Width = 103
@ -436,7 +429,7 @@ object frPreviewForm: TfrPreviewForm
TabOrder = 10 TabOrder = 10
end end
object BtPgFirst: TSpeedButton object BtPgFirst: TSpeedButton
Left = 288 Left = 295
Height = 28 Height = 28
Top = 1 Top = 1
Width = 20 Width = 20
@ -479,11 +472,10 @@ object frPreviewForm: TfrPreviewForm
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00 FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
} }
NumGlyphs = 0
OnClick = BtPgFirstClick OnClick = BtPgFirstClick
end end
object BtPgLast: TSpeedButton object BtPgLast: TSpeedButton
Left = 451 Left = 458
Height = 28 Height = 28
Top = 1 Top = 1
Width = 20 Width = 20
@ -526,14 +518,13 @@ object frPreviewForm: TfrPreviewForm
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00 FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
} }
NumGlyphs = 0
OnClick = BtPgLastClick OnClick = BtPgLastClick
end end
object BtZoomOut: TBitBtn object BtZoomOut: TBitBtn
Left = 139 Left = 143
Height = 28 Height = 28
Top = 1 Top = 1
Width = 26 Width = 28
Align = alLeft Align = alLeft
AutoSize = True AutoSize = True
Glyph.Data = { Glyph.Data = {
@ -576,10 +567,10 @@ object frPreviewForm: TfrPreviewForm
TabOrder = 3 TabOrder = 3
end end
object BtZoomIn: TBitBtn object BtZoomIn: TBitBtn
Left = 237 Left = 242
Height = 28 Height = 28
Top = 1 Top = 1
Width = 26 Width = 28
Align = alLeft Align = alLeft
AutoSize = True AutoSize = True
Glyph.Data = { Glyph.Data = {
@ -621,26 +612,81 @@ object frPreviewForm: TfrPreviewForm
OnClick = BtZoomInClick OnClick = BtZoomInClick
TabOrder = 5 TabOrder = 5
end end
object frTBSeparator4: TPanel
Left = 478
Height = 28
Top = 1
Width = 25
Align = alLeft
BevelOuter = bvNone
FullRepaint = False
TabOrder = 11
end
object FindBtn: TBitBtn
Left = 503
Height = 28
Top = 1
Width = 28
Align = alLeft
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF003E39
34FF393430FF332F2BFF2C2925FF272421FF201D1BFF1716141A110F0EDB0B0A
09FF070706FF040403FF000000FF000000FFFFFFFF00FFFFFF00FFFFFF004641
3BFF857A70FFC3B8AEFF7C7268FF7F756BFF36322DFF1E1C190F282522D49589
7DFFBAAEA2FF7C7268FF7F756BFF010101FFFFFFFF00FFFFFF00FFFFFF004D47
41FF83786FFFCCC3BAFF786F65FF7B7167FF2F2B28F9272421011D1B18EE9589
7DFFC2B8ADFF786F65FF7C7268FF060505FFFFFFFF00FFFFFF00FFFFFF00534C
46FC83786FFFCCC3BAFF797066FF71685FFF37332ED5FFFFFF00252220D5857A
70FFC2B8ADFF786F65FF7B7167FF0A0908FCFFFFFF00FFFFFF00FFFFFF005A52
4CC39F9286FFCCC3BAFFC0B4AAFFA6988BFF3E3934A8FFFFFF002C2925A89084
79FFC2B8ADFFC0B4AAFFA89B8EFF110F0EC3FFFFFF00FFFFFF00797066055C55
4EF9423D38FF58514AFF3D3833FF332F2BFF23201DE5171614301E1C19B51A18
16FF252220FF191715FF0F0E0DFF010101EE00000002FFFFFF009F9286059D91
85FFB1A396FF7F756BFF7C7268FF776D64FF6C635BFF2E2A26FF564F48FF8076
6CFF7C7268FF776D64FF70675EFF000000FE00000005FFFFFF00AB9D9004AFA1
94E1BAAEA2FF82776DFF82776DFFAA917BFFBAA794FFB7A48EFAB09781FF9F8D
7DFF836D5BFF716357FF95897DFF040403E000000003FFFFFF00B9ACA008877D
72489B8E82FF9D9185FF867B71FF564F48FF504A44FF80766CFF6E665DFF826C
58FFA6917DFF948474FF564F48FF0C0B0B7A07070601FFFFFF00FFFFFF00FFFF
FF00746B62FFA4978AFF95897DFF9F9286FF3E3934FFFFFFFF004C4640FF7E74
6AFF857A70FF3E3934FF453F3AA72522200C15131102FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF008E8378E2C3B8AEFF655D55FFFFFFFF007C7268FFA89B
8EFF9C8F83E4FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF009C8F83E2BCB0A4FF9D9185FFFFFFFF00AEA093FF9D91
85FF655D55DAFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
}
OnClick = FindBtnClick
TabOrder = 12
end
end end
end end
object PreviewPanel: TPanel object PreviewPanel: TPanel
Left = 0 Left = 0
Height = 490 Height = 490
Top = 28 Top = 28
Width = 524 Width = 687
Align = alClient Align = alClient
BevelInner = bvLowered BevelInner = bvLowered
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 490 ClientHeight = 490
ClientWidth = 524 ClientWidth = 687
FullRepaint = False FullRepaint = False
TabOrder = 1 TabOrder = 1
object ScrollBox1: TScrollBox object ScrollBox1: TScrollBox
Left = 1 Left = 1
Height = 469 Height = 469
Top = 1 Top = 1
Width = 503 Width = 666
HorzScrollBar.Page = 503 HorzScrollBar.Page = 666
VertScrollBar.Page = 469 VertScrollBar.Page = 469
Align = alClient Align = alClient
BorderStyle = bsNone BorderStyle = bsNone
@ -650,18 +696,18 @@ object frPreviewForm: TfrPreviewForm
Left = 1 Left = 1
Height = 19 Height = 19
Top = 470 Top = 470
Width = 522 Width = 685
Align = alBottom Align = alBottom
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 19 ClientHeight = 19
ClientWidth = 522 ClientWidth = 685
FullRepaint = False FullRepaint = False
TabOrder = 1 TabOrder = 1
object HScrollBar: TScrollBar object HScrollBar: TScrollBar
Left = 2 Left = 2
Height = 16 Height = 15
Top = 3 Top = 4
Width = 504 Width = 667
Align = alBottom Align = alBottom
BorderSpacing.Left = 2 BorderSpacing.Left = 2
BorderSpacing.Right = 16 BorderSpacing.Right = 16
@ -675,7 +721,7 @@ object frPreviewForm: TfrPreviewForm
end end
end end
object RPanel: TPanel object RPanel: TPanel
Left = 504 Left = 667
Height = 469 Height = 469
Top = 1 Top = 1
Width = 19 Width = 19
@ -686,10 +732,10 @@ object frPreviewForm: TfrPreviewForm
FullRepaint = False FullRepaint = False
TabOrder = 2 TabOrder = 2
object VScrollBar: TScrollBar object VScrollBar: TScrollBar
Left = 3 Left = 4
Height = 469 Height = 469
Top = 0 Top = 0
Width = 16 Width = 15
Align = alRight Align = alRight
Kind = sbVertical Kind = sbVertical
LargeChange = 200 LargeChange = 200

122
components/lazreport/source/lr_view.pas
View File

@ -93,11 +93,13 @@ type
{ TfrPreviewForm } { TfrPreviewForm }
TfrPreviewForm = class(TForm) TfrPreviewForm = class(TForm)
FindBtn: TBitBtn;
BtZoomOut: TBitBtn; BtZoomOut: TBitBtn;
BtZoomIn: TBitBtn; BtZoomIn: TBitBtn;
frTBSeparator1: TPanel; frTBSeparator1: TPanel;
frTBSeparator2: TPanel; frTBSeparator2: TPanel;
frTBSeparator3: TPanel; frTBSeparator3: TPanel;
frTBSeparator4: TPanel;
LbPanel: TPanel; LbPanel: TPanel;
PanTop: TPanel; PanTop: TPanel;
PgDown: TSpeedButton; PgDown: TSpeedButton;
@ -172,9 +174,13 @@ type
per: Double; per: Double;
mode: TfrScaleMode; mode: TfrScaleMode;
PaintAllowed: Boolean; PaintAllowed: Boolean;
FindStr: String;
CaseSensitive: Boolean; SearchFindStr: String;
LastFoundPage, LastFoundObject: Integer; SearchCaseSensitive: Boolean;
SearchDirecion:integer;
SearchLastFoundPage: Integer;
SearchLastFoundObject: Integer;
HF: String; HF: String;
procedure ShowPageNum; procedure ShowPageNum;
@ -184,6 +190,7 @@ type
procedure LoadFromFile(aName: String); procedure LoadFromFile(aName: String);
procedure SaveToFile(aName: String); procedure SaveToFile(aName: String);
// procedure FindInEMF(emf: TMetafile); // procedure FindInEMF(emf: TMetafile);
function FindInEMFPages:boolean;
procedure FindText; procedure FindText;
procedure SetGrayedButtons(Value: Boolean); procedure SetGrayedButtons(Value: Boolean);
procedure Connect(ADoc: Pointer); procedure Connect(ADoc: Pointer);
@ -522,6 +529,7 @@ begin
SaveBtn.Hint := sPreviewFormSave; SaveBtn.Hint := sPreviewFormSave;
PrintBtn.Hint := sPreviewFormPrint; PrintBtn.Hint := sPreviewFormPrint;
ExitBtn.Hint := sPreviewFormClose; ExitBtn.Hint := sPreviewFormClose;
FindBtn.Hint := sPreviewFormFind;
// TODO: ADD hints to new buttons // TODO: ADD hints to new buttons
end; end;
@ -1028,12 +1036,12 @@ begin
end end
else if Key = vk_F3 then else if Key = vk_F3 then
begin begin
if FindStr <> '' then if SearchFindStr <> '' then
begin begin
if LastFoundPage <> CurPage - 1 then if SearchLastFoundPage <> CurPage - 1 then
begin begin
LastFoundPage := CurPage - 1; SearchLastFoundPage := CurPage - 1;
LastFoundObject := 0; SearchLastFoundObject := 0;
end; end;
FindText; FindText;
end; end;
@ -1178,6 +1186,53 @@ begin
Connect(Doc); Connect(Doc);
end; end;
function TfrPreviewForm.FindInEMFPages: boolean;
var
P:PfrPageInfo;
V:TfrObject;
i, j, SK:integer;
Pages : TfrEMFPages;
begin
Result:=false;
if not Assigned(EMFPages) then exit;
Pages := TfrEMFPages(EMFPages);
for i:=SearchLastFoundPage to Pages.Count - 1 do
begin
P:=Pages[i];
if not Assigned(P^.Page) then
Pages.ObjectsToPage(i);
if i = SearchLastFoundPage then
SK:=SearchLastFoundObject + 1
else
SK:=0;
for j:=SK to P^.Page.Objects.Count - 1 do
begin
V:=TfrView(P^.Page.Objects[j]);
if Assigned(V) and (V is TfrMemoView) then
begin
if Pos(SearchFindStr, TfrMemoView(V).Memo.Text)>0 then
begin
CurPage:=i + 1;
SearchLastFoundPage:=i;
SearchLastFoundObject:=j;
ShowPageNum;
SetToCurPage;
Result:=true;
exit;
end;
end;
end;
end;
end;
//** //**
(* (*
function EnumEMFRecordsProc(DC: HDC; HandleTable: PHandleTable; function EnumEMFRecordsProc(DC: HDC; HandleTable: PHandleTable;
@ -1212,16 +1267,14 @@ begin
RecordNum := 0; RecordNum := 0;
EnumEnhMetafile(0, emf.Handle, @EnumEMFRecordsProc, nil, Rect(0, 0, 0, 0)); EnumEnhMetafile(0, emf.Handle, @EnumEMFRecordsProc, nil, Rect(0, 0, 0, 0));
end; end;
}
procedure TfrPreviewForm.FindText; procedure TfrPreviewForm.FindText;
(*var var
EMF: TMetafile; EMF: TMetafile;
EMFCanvas: TMetafileCanvas; EMFCanvas: TMetafileCanvas;
PageInfo: PfrPageInfo; PageInfo: PfrPageInfo;
*)
begin begin
(* PaintAllowed := False; PaintAllowed := False;
StrFound := False; StrFound := False;
while LastFoundPage < TfrEMFPages(EMFPages).Count do while LastFoundPage < TfrEMFPages(EMFPages).Count do
begin begin
@ -1256,34 +1309,51 @@ begin
Inc(LastFoundPage); Inc(LastFoundPage);
end; end;
PaintAllowed := True; PaintAllowed := True;
*) end;
}
procedure TfrPreviewForm.FindText;
begin
PaintAllowed := False;
if not FindInEMFPages then
ShowMessage(sFindTextNotFound);
PaintAllowed := True;
end; end;
procedure TfrPreviewForm.FindBtnClick(Sender: TObject); procedure TfrPreviewForm.FindBtnClick(Sender: TObject);
var var
p: TfrPreviewSearchForm; SrchForm: TfrPreviewSearchForm;
begin begin
if Doc = nil then Exit; if Doc = nil then Exit;
p := TfrPreviewSearchForm.Create(nil);
with p do SrchForm := TfrPreviewSearchForm.Create(nil);
if ShowModal = mrOk then SrchForm.Edit1.Text:=SearchFindStr;
SrchForm.GroupBox1.Checked[0]:=SearchCaseSensitive;
SrchForm.GroupBox2.ItemIndex:=SearchDirecion;
if SrchForm.ShowModal = mrOk then
begin begin
FindStr := Edit1.Text; SearchFindStr := SrchForm.Edit1.Text;
CaseSensitive := CB1.Checked; SearchCaseSensitive := SrchForm.GroupBox1.Checked[0];// CB1.Checked;
if not CaseSensitive then FindStr := AnsiUpperCase(FindStr); SearchDirecion:=SrchForm.GroupBox2.ItemIndex;
if RB1.Checked then
if not SearchCaseSensitive then
SearchFindStr := AnsiUpperCase(SearchFindStr);
if SrchForm.GroupBox2.ItemIndex = 0 {RB1.Checked} then
begin begin
LastFoundPage := 0; SearchLastFoundPage := 0;
LastFoundObject := 0; SearchLastFoundObject := 0;
end end
else if LastFoundPage <> CurPage - 1 then else
if SearchLastFoundPage <> CurPage - 1 then
begin begin
LastFoundPage := CurPage - 1; SearchLastFoundPage := CurPage - 1;
LastFoundObject := 0; SearchLastFoundObject := 0;
end; end;
Free;
FindText; FindText;
end; end;
SrchForm.Free;
end; end;
procedure TfrPreviewForm.EditBtnClick(Sender: TObject); procedure TfrPreviewForm.EditBtnClick(Sender: TObject);