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

SimpleOSRBrowser now shows tooltips

Browse Source
This commit is contained in:
Salvador Díaz Fau
2018-02-01 18:57:54 +01:00
parent fad77c99ea
commit fed1c04a3f
2 changed files with 9 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
demos/SimpleOSRBrowser/uSimpleOSRBrowser.dfm
View File

@ -120,6 +120,7 @@ object Form1: TForm1
OnMouseLeave = Panel1MouseLeave OnMouseLeave = Panel1MouseLeave
end end
object chrmosr: TChromium object chrmosr: TChromium
OnTooltip = chrmosrTooltip
OnAfterCreated = chrmosrAfterCreated OnAfterCreated = chrmosrAfterCreated
OnGetViewRect = chrmosrGetViewRect OnGetViewRect = chrmosrGetViewRect
OnGetScreenPoint = chrmosrGetScreenPoint OnGetScreenPoint = chrmosrGetScreenPoint

8
demos/SimpleOSRBrowser/uSimpleOSRBrowser.pas
View File

@ -93,6 +93,7 @@ type
procedure chrmosrPopupShow(Sender: TObject; const browser: ICefBrowser; show: Boolean); procedure chrmosrPopupShow(Sender: TObject; const browser: ICefBrowser; show: Boolean);
procedure chrmosrPopupSize(Sender: TObject; const browser: ICefBrowser; const rect: PCefRect); procedure chrmosrPopupSize(Sender: TObject; const browser: ICefBrowser; const rect: PCefRect);
procedure chrmosrAfterCreated(Sender: TObject; const browser: ICefBrowser); procedure chrmosrAfterCreated(Sender: TObject; const browser: ICefBrowser);
procedure chrmosrTooltip(Sender: TObject; const browser: ICefBrowser; var text: ustring; out Result: Boolean);
procedure SnapshotBtnClick(Sender: TObject); procedure SnapshotBtnClick(Sender: TObject);
procedure Timer1Timer(Sender: TObject); procedure Timer1Timer(Sender: TObject);
@ -498,6 +499,13 @@ begin
end; end;
end; end;
procedure TForm1.chrmosrTooltip(Sender: TObject; const browser: ICefBrowser; var text: ustring; out Result: Boolean);
begin
Panel1.hint := text;
Panel1.ShowHint := (length(text) > 0);
Result := True;
end;
procedure TForm1.ComboBox1Enter(Sender: TObject); procedure TForm1.ComboBox1Enter(Sender: TObject);
begin begin
chrmosr.SendFocusEvent(False); chrmosr.SendFocusEvent(False);