pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-06-12 22:07:39 +02:00
Code Issues Actions Releases Activity

Update to CEF 99.2.7

Browse Source
This commit is contained in:
salvadordf
2022-03-03 11:16:30 +01:00
parent 41490cebdb
commit 951c583ddd
10 changed files with 26 additions and 29 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
demos/Delphi_VCL/MiniBrowser/uFindFrm.pas
View File

@ -17,7 +17,6 @@ type
procedure FindNextBtnClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
FSearchID : integer;
FFirstNext : boolean;
end;
@ -34,13 +33,13 @@ uses
procedure TFindFrm.FindNextBtnClick(Sender: TObject);
begin
MiniBrowserFrm.Chromium1.Find(FSearchID, FindTextEdt.Text, True, False, FFirstNext);
MiniBrowserFrm.Chromium1.Find(FindTextEdt.Text, True, False, FFirstNext);
FFirstNext := True;
end;
procedure TFindFrm.FindPrevBtnClick(Sender: TObject);
begin
MiniBrowserFrm.Chromium1.Find(FSearchID, FindTextEdt.Text, False, False, FFirstNext);
MiniBrowserFrm.Chromium1.Find(FindTextEdt.Text, False, False, FFirstNext);
FFirstNext := True;
end;
@ -59,7 +58,6 @@ procedure TFindFrm.FormShow(Sender: TObject);
begin
FindTextEdt.Text := '';
FFirstNext := False;
inc(FSearchID);
end;
end.