TomBuzin/EMPolar-plgEMPDeleniTrubek
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Prvni verze pred predanim (nove soubor empUtils.pas)

Browse Source
This commit is contained in:
TomBuz
2025-09-28 13:58:51 +02:00
parent 641c81f487
commit d3bfcc88d6
2 changed files with 4850 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4834
empUtils.pas Normal file
View File

File diff suppressed because it is too large Load Diff

18
frmKeyb.pas
View File

@ -11,8 +11,7 @@ type
keyb1: TTouchKeyboard; keyb1: TTouchKeyboard;
edtPopis: TEdit; edtPopis: TEdit;
procedure FormShow (Sender: TObject); procedure FormShow (Sender: TObject);
procedure edtPopisKeyDown(Sender: TObject; var Key: Word; procedure edtPopisKeyDown (Sender: TObject; var Key: Word; Shift: TShiftState);
Shift: TShiftState);
private private
public public
text: string; text: string;
@ -20,6 +19,7 @@ type
var var
formKeyb: TformKeyb; formKeyb: TformKeyb;
kbdLayout: TTouchKeyboardLayout;
implementation implementation
@ -45,6 +45,20 @@ implementation
procedure TformKeyb.FormShow (Sender: TObject); procedure TformKeyb.FormShow (Sender: TObject);
begin begin
kbdLayout:= TTouchKeyboardLayout.Create;
with TTouchKeyboardButton.Create do
begin
Text := 'A';
Caption := 'A';
SetBounds(10, 10, 50, 50);
ButtonType := TTouchKeyboardButtonType.kbChar;
kbdLayout.Buttons.Add(Self);
end;
keyb1.Keyboard:= kbdLayout;
edtPopis.Text:= ''; edtPopis.Text:= '';
edtPopis.SetFocus; edtPopis.SetFocus;
end; end;