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

Update to CEF 122.1.8

Browse Source
This commit is contained in:
Salvador Díaz Fau
2024-02-24 12:01:31 +01:00
parent be7fa8cb05
commit 7093cc9a6a
950 changed files with 355356 additions and 1070 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
demos/Lazarus_Windows/MiniBrowser/uMiniBrowser.pas
View File

@ -1596,26 +1596,14 @@ end;
procedure TMiniBrowserFrm.CopyFramesIDsMsg(var aMessage : TMessage);
var
i : NativeUInt;
TempCount : NativeUInt;
TempArray : TCefFrameIdentifierArray;
TempString : string;
TempSL : TStringList;
begin
TempCount := Chromium1.FrameCount;
TempSL := TStringList.Create;
if Chromium1.GetFrameIdentifiers(TempCount, TempArray) then
begin
TempString := '';
i := 0;
if Chromium1.GetFrameIdentifiers(TStrings(TempSL)) then
clipboard.AsText := TempSL.Text;
while (i < TempCount) do
begin
TempString := TempString + inttostr(TempArray[i]) + CRLF;
inc(i);
end;
clipboard.AsText := TempString;
end;
TempSL.Free;
end;
procedure TMiniBrowserFrm.CopyFramesNamesMsg(var aMessage : TMessage);