42 lines
1.0 KiB
ObjectPascal
42 lines
1.0 KiB
ObjectPascal
unit U_KeyBoard;
|
|
|
|
interface
|
|
|
|
uses
|
|
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
|
|
Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, cxGraphics, cxControls,
|
|
cxLookAndFeels, cxLookAndFeelPainters,
|
|
dxLayoutContainer, cxClasses, Vcl.Buttons, dxLayoutControl, cxGeometry,
|
|
dxFramedControl, dxPanel;
|
|
|
|
type
|
|
TFrameKeyBoard = class(TFrame)
|
|
dxPanel1: TdxPanel;
|
|
SpeedButton1: TSpeedButton;
|
|
SpeedButton4: TSpeedButton;
|
|
SpeedButton7: TSpeedButton;
|
|
SpeedButton2: TSpeedButton;
|
|
SpeedButton5: TSpeedButton;
|
|
SpeedButton8: TSpeedButton;
|
|
SpeedButton3: TSpeedButton;
|
|
SpeedButton6: TSpeedButton;
|
|
SpeedButton9: TSpeedButton;
|
|
SpeedButton_back: TSpeedButton;
|
|
SpeedButton0: TSpeedButton;
|
|
SpeedButton_dot: TSpeedButton;
|
|
SpeedButton_yc: TSpeedButton;
|
|
SpeedButton_zdykey2: TSpeedButton;
|
|
SpeedButton_zdykey1: TSpeedButton;
|
|
SpeedButton10: TSpeedButton;
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
end.
|