mirror of
https://github.com/salvadordf/CEF4Delphi.git
synced 2024-11-16 00:05:55 +01:00
dbab922640
- Added TChromium.IndexOfBrowserID - Fixed TChromium.GetBrowserById - Added "Find text..." menu option to the MiniBrowser demo
66 lines
1.5 KiB
ObjectPascal
66 lines
1.5 KiB
ObjectPascal
unit uFindFrm;
|
|
|
|
interface
|
|
|
|
uses
|
|
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
|
|
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Buttons, Vcl.StdCtrls;
|
|
|
|
type
|
|
TFindFrm = class(TForm)
|
|
FindTextEdt: TEdit;
|
|
FindPrevBtn: TSpeedButton;
|
|
FindNextBtn: TSpeedButton;
|
|
procedure FindTextEdtChange(Sender: TObject);
|
|
procedure FormShow(Sender: TObject);
|
|
procedure FindPrevBtnClick(Sender: TObject);
|
|
procedure FindNextBtnClick(Sender: TObject);
|
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
|
private
|
|
FSearchID : integer;
|
|
FFirstNext : boolean;
|
|
end;
|
|
|
|
var
|
|
FindFrm: TFindFrm;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
uses
|
|
uMiniBrowser;
|
|
|
|
|
|
procedure TFindFrm.FindNextBtnClick(Sender: TObject);
|
|
begin
|
|
MiniBrowserFrm.Chromium1.Find(FSearchID, FindTextEdt.Text, True, False, FFirstNext);
|
|
FFirstNext := True;
|
|
end;
|
|
|
|
procedure TFindFrm.FindPrevBtnClick(Sender: TObject);
|
|
begin
|
|
MiniBrowserFrm.Chromium1.Find(FSearchID, FindTextEdt.Text, False, False, FFirstNext);
|
|
FFirstNext := True;
|
|
end;
|
|
|
|
procedure TFindFrm.FindTextEdtChange(Sender: TObject);
|
|
begin
|
|
FindPrevBtn.Enabled := (length(FindTextEdt.Text) > 0);
|
|
FindNextBtn.Enabled := FindPrevBtn.Enabled;
|
|
end;
|
|
|
|
procedure TFindFrm.FormClose(Sender: TObject; var Action: TCloseAction);
|
|
begin
|
|
MiniBrowserFrm.Chromium1.StopFinding(True);
|
|
end;
|
|
|
|
procedure TFindFrm.FormShow(Sender: TObject);
|
|
begin
|
|
FindTextEdt.Text := '';
|
|
FFirstNext := False;
|
|
inc(FSearchID);
|
|
end;
|
|
|
|
end.
|