pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-12-13 21:45:55 +02:00
Code Issues Actions Releases Activity

New KioskOSRBrowser demo

Browse Source
This commit is contained in:
Salvador Díaz Fau
2018-08-20 18:39:43 +02:00
parent 5243ce887e
commit 9ac1270ffd
8 changed files with 2190 additions and 45 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
demos/SimpleOSRBrowser/uSimpleOSRBrowser.pas
View File

@@ -45,10 +45,10 @@ uses
{$IFDEF DELPHI16_UP}
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
System.SyncObjs, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls,
Vcl.ExtCtrls, Vcl.AppEvnts, Vcl.Touch.Keyboard,
Vcl.ExtCtrls, Vcl.AppEvnts,
{$ELSE}
Windows, Messages, SysUtils, Variants, Classes, SyncObjs,
Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, AppEvnts, Keyboard,
Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, AppEvnts,
{$ENDIF}
uCEFChromium, uCEFTypes, uCEFInterfaces, uCEFConstants, uBufferPanel;
@@ -64,8 +64,6 @@ type
SaveDialog1: TSaveDialog;
Timer1: TTimer;
Panel1: TBufferPanel;
KeyboardBtn: TButton;
TouchKeyboard1: TTouchKeyboard;
procedure AppEventsMessage(var Msg: tagMSG; var Handled: Boolean);
@@ -105,7 +103,6 @@ type
procedure Timer1Timer(Sender: TObject);
procedure SnapshotBtnEnter(Sender: TObject);
procedure ComboBox1Enter(Sender: TObject);
procedure KeyboardBtnClick(Sender: TObject);
protected
FPopUpBitmap : TBitmap;
@@ -816,11 +813,6 @@ begin
FLastClickButton := mbLeft;
end;
procedure TForm1.KeyboardBtnClick(Sender: TObject);
begin
TouchKeyboard1.Visible := not(TouchKeyboard1.Visible);
end;
function TForm1.CancelPreviousClick(x, y : integer; var aCurrentTime : integer) : boolean;
begin
aCurrentTime := GetMessageTime;