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

Improved zoom handling

Browse Source 
- Added TChromium.IncZoomPct procedure to increase the zoom percent value
- Added TChromium.DecZoomPct procedure to decrease the zoom percent value
- Added TChromium.ResetZoomLevel procedure to reset the zoom level value
- Added TChromium.ResetZoomPct procedure to reset the zoom percent value
- Added TChromium.ReadZoom procedure to trigger the TChromium.OnZoomPctAvailable event with the current zoom percent value.
- Added TChromium.OnZoomPctAvailable event.
- Added the new TChromium.OnZoomPctAvailable event to the MiniBrowser demo.
This commit is contained in:
Salvador Díaz Fau
2019-12-10 16:49:07 +01:00
parent 52cf914bbb
commit c99d14c8f0
13 changed files with 785 additions and 140 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
demos/Lazarus/MiniBrowser/uMiniBrowser.pas
View File

@ -135,6 +135,8 @@ type
procedure Chromium1CookiesFlushed(Sender: TObject);
procedure Chromium1DownloadImageFinished(Sender: TObject;
const imageUrl: ustring; httpStatusCode: Integer; const image: ICefImage);
procedure Chromium1ZoomPctAvailable(Sender: TObject; const aZoomPct: double
);
procedure FormShow(Sender: TObject);
procedure BackBtnClick(Sender: TObject);
procedure ForwardBtnClick(Sender: TObject);
@ -389,7 +391,7 @@ end;
procedure TMiniBrowserFrm.Resetzoom1Click(Sender: TObject);
begin
Chromium1.ResetZoomStep;
Chromium1.ResetZoomLevel;
end;
procedure TMiniBrowserFrm.Resolvehost1Click(Sender: TObject);
@ -1116,6 +1118,12 @@ begin
end;
end;
procedure TMiniBrowserFrm.Chromium1ZoomPctAvailable(Sender: TObject;
const aZoomPct: double);
begin
ShowStatusText('Zoom : ' + floattostr(aZoomPct) + '%');
end;
procedure TMiniBrowserFrm.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled := False;