diff --git a/components/richmemo/samples/search/mainform.lfm b/components/richmemo/samples/search/mainform.lfm new file mode 100644 index 000000000..5f855ee88 --- /dev/null +++ b/components/richmemo/samples/search/mainform.lfm @@ -0,0 +1,89 @@ +object Form1: TForm1 + Left = 362 + Height = 338 + Top = 203 + Width = 615 + Caption = 'Ready to Search!' + ClientHeight = 338 + ClientWidth = 615 + LCLVersion = '1.2.4.0' + object Button1: TButton + Left = 532 + Height = 25 + Top = 16 + Width = 75 + Anchors = [akTop, akRight] + Caption = 'Load RTF' + OnClick = Button1Click + TabOrder = 3 + end + object Button2: TButton + Left = 440 + Height = 25 + Top = 16 + Width = 75 + Anchors = [akTop, akRight] + Caption = 'Search' + OnClick = Button2Click + TabOrder = 1 + end + object Edit1: TEdit + Left = 8 + Height = 23 + Top = 18 + Width = 424 + Anchors = [akTop, akLeft, akRight] + TabOrder = 0 + Text = 'search' + end + object RichMemo1: TRichMemo + Left = 8 + Height = 240 + Top = 88 + Width = 599 + Anchors = [akTop, akLeft, akRight, akBottom] + HideSelection = False + Lines.Strings = ( + 'Please type in a word in the search field and hit "Search" to perform Search' + ) + ScrollBars = ssAutoBoth + TabOrder = 2 + end + object chkCaseSensitive: TCheckBox + Left = 9 + Height = 19 + Top = 48 + Width = 94 + Caption = 'Case Sensitive' + TabOrder = 4 + end + object chkWholeWord: TCheckBox + Left = 108 + Height = 19 + Top = 48 + Width = 86 + Caption = 'Whole Word' + TabOrder = 5 + end + object chkBackward: TCheckBox + Left = 200 + Height = 19 + Top = 48 + Width = 71 + Caption = 'Backward' + TabOrder = 6 + end + object Button3: TButton + Left = 440 + Height = 25 + Top = 45 + Width = 75 + Caption = 'Reset' + OnClick = Button3Click + TabOrder = 7 + end + object OpenDialog1: TOpenDialog + left = 368 + top = 48 + end +end diff --git a/components/richmemo/samples/search/mainform.pas b/components/richmemo/samples/search/mainform.pas new file mode 100644 index 000000000..2cd009c40 --- /dev/null +++ b/components/richmemo/samples/search/mainform.pas @@ -0,0 +1,93 @@ +unit mainform; + +{$mode objfpc}{$H+} + +interface + +uses + Windows, RichEdit, + Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, + RichMemo, RichMemoUtils, LazUTF8; + +type + + { TForm1 } + + TForm1 = class(TForm) + Button1: TButton; + Button2: TButton; + Button3: TButton; + chkCaseSensitive: TCheckBox; + chkWholeWord: TCheckBox; + chkBackward: TCheckBox; + Edit1: TEdit; + OpenDialog1: TOpenDialog; + RichMemo1: TRichMemo; + procedure Button1Click(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure Button3Click(Sender: TObject); + private + { private declarations } + public + { public declarations } + end; + +var + Form1: TForm1; + +implementation + +{$R *.lfm} + +{ TForm1 } + +procedure TForm1.Button1Click(Sender: TObject); +begin + if OpenDialog1.Execute then + LoadRTFFile( RichMemo1, OpenDialog1.FileName ); +end; + +procedure TForm1.Button2Click(Sender: TObject); +var + s : Integer; + fw: TFINDTEXT; + w: AnsiString; + l : Integer; + st: Integer; + opt: TSearchOptions; +begin + st:=RichMemo1.SelStart; + l:=RichMemo1.SelLength; + + opt:=[]; + if chkCaseSensitive.Checked then include(opt, soMatchCase); + if chkWholeWord.Checked then include(opt, soWholeWord); + if chkBackward.Checked then include(opt, soBackward); + + Caption:='Searching...'; + s:=RichMemo1.Search(Edit1.Text, RichMemo1.SelStart, length(RichMemo1.Text), opt); + if (s>=0) then begin + if (st=s) and (l=UTF8Length(Edit1.Text)) then + s:=RichMemo1.Search(Edit1.Text, RichMemo1.SelStart+1, length(RichMemo1.Text), opt); + end; + + if (s>=0) then begin + Caption:='Found!'; + RichMemo1.SelStart:=s; + RichMemo1.SetSelLengthFor(Edit1.text); + end else begin + Caption:='Not found!'; + RichMemo1.SelStart:=MaxInt; + RichMemo1.SelLength:=0; + end; +end; + +procedure TForm1.Button3Click(Sender: TObject); +begin + RichMemo1.SelStart:=0; + RichMemo1.SelLength:=0; + Caption:='Ready to Search!'; +end; + +end. + diff --git a/components/richmemo/samples/search/testsearch.lpi b/components/richmemo/samples/search/testsearch.lpi new file mode 100644 index 000000000..3d7fbc953 --- /dev/null +++ b/components/richmemo/samples/search/testsearch.lpi @@ -0,0 +1,85 @@ + + + + + + + + + + <ResourceType Value="res"/> + <UseXPManifest Value="True"/> + <Icon Value="0"/> + </General> + <i18n> + <EnableI18N LFM="False"/> + </i18n> + <VersionInfo> + <StringTable ProductVersion=""/> + </VersionInfo> + <BuildModes Count="1"> + <Item1 Name="Default" Default="True"/> + </BuildModes> + <PublishOptions> + <Version Value="2"/> + </PublishOptions> + <RunParams> + <local> + <FormatVersion Value="1"/> + </local> + </RunParams> + <RequiredPackages Count="2"> + <Item1> + <PackageName Value="richmemopackage"/> + </Item1> + <Item2> + <PackageName Value="LCL"/> + </Item2> + </RequiredPackages> + <Units Count="2"> + <Unit0> + <Filename Value="testsearch.lpr"/> + <IsPartOfProject Value="True"/> + <UnitName Value="testsearch"/> + </Unit0> + <Unit1> + <Filename Value="mainform.pas"/> + <IsPartOfProject Value="True"/> + <ComponentName Value="Form1"/> + <HasResources Value="True"/> + <ResourceBaseClass Value="Form"/> + <UnitName Value="mainform"/> + </Unit1> + </Units> + </ProjectOptions> + <CompilerOptions> + <Version Value="11"/> + <PathDelim Value="\"/> + <Target> + <Filename Value="testsearch"/> + </Target> + <SearchPaths> + <IncludeFiles Value="$(ProjOutDir)"/> + <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/> + </SearchPaths> + <Other> + <CompilerMessages> + <MsgFileName Value=""/> + </CompilerMessages> + <CompilerPath Value="$(CompPath)"/> + </Other> + </CompilerOptions> + <Debugging> + <Exceptions Count="3"> + <Item1> + <Name Value="EAbort"/> + </Item1> + <Item2> + <Name Value="ECodetoolError"/> + </Item2> + <Item3> + <Name Value="EFOpenError"/> + </Item3> + </Exceptions> + </Debugging> +</CONFIG> \ No newline at end of file diff --git a/components/richmemo/samples/search/testsearch.lpr b/components/richmemo/samples/search/testsearch.lpr new file mode 100644 index 000000000..0ecc5374e --- /dev/null +++ b/components/richmemo/samples/search/testsearch.lpr @@ -0,0 +1,20 @@ +program testsearch; + +{$mode objfpc}{$H+} + +uses + {$IFDEF UNIX}{$IFDEF UseCThreads} + cthreads, + {$ENDIF}{$ENDIF} + Interfaces, // this includes the LCL widgetset + Forms, mainform, richmemopackage; + +{$R *.res} + +begin + RequireDerivedFormResource := True; + Application.Initialize; + Application.CreateForm(TForm1, Form1); + Application.Run; +end. +