{"id":769,"date":"2009-11-06T00:30:14","date_gmt":"2009-11-05T23:30:14","guid":{"rendered":"http:\/\/blogs.wittwer.fr\/whiler\/?p=769"},"modified":"2023-03-12T15:07:37","modified_gmt":"2023-03-12T14:07:37","slug":"delphi-custom-clavier-visuel","status":"publish","type":"post","link":"https:\/\/blogs.wittwer.fr\/whiler\/2009\/11\/06\/delphi-custom-clavier-visuel\/","title":{"rendered":"Personnalisation d\u2019un clavier visuel dans Delphi"},"content":{"rendered":"

Delphi<\/a>W<\/em><\/sup> 2010 ajoute encore de nouveaux composants \u00e0 la VCL<\/a>W<\/em><\/sup>…<\/p>\n

Parmi ceux-ci, on trouve un clavier visuel, permettant d’\u00e9tendre les capacit\u00e9s de ses applications en ayant la possibilit\u00e9 de le proposer dans son interface, tr\u00e8s pratique sur des p\u00e9riph\u00e9riques \u00e0 \u00e9crans tactiles<\/a>W<\/em><\/sup> \"(y)\" <\/p>\n

Depuis la palette d’outils de l’environnement de conception de Delphi, dans la cat\u00e9gorie Tactile<\/em>, on trouve le composant TTouchKeyboard<\/span><\/code><\/a>. Il suffit simplement de l’ajouter dans la fiche de son choix.
\nVoici son aspect par d\u00e9faut, avec un OS<\/a>W<\/em><\/sup> en fran\u00e7ais :
\n

\"Delphi<\/a>

Delphi : Clavier tactile<\/p><\/div><\/p>\n

Le clavier tactile s’adapte automatiquement \u00e0 celui du syst\u00e8me d’exploitation : On utilise un Windows en fran\u00e7ais, on a un clavier AZERTY<\/a>W<\/em><\/sup>. On est sous un Windows anglais, on a un QWERTY<\/a>W<\/em><\/sup>.<\/p>\n

On peut personnaliser le clavier en modifiant ses propri\u00e9t\u00e9s directement depuis l’inspecteur d’objets. Mais trouvant le design par d\u00e9faut trop joli, je vais dans le code ci-dessous, montrer comment surcharger une m\u00e9thode de ce clavier pour red\u00e9finir l’apparence des diff\u00e9rentes touches.
\n
\nPour cela, j’ai besoin de Delphi 2010, actuellement t\u00e9l\u00e9chargeable<\/a> depuis le site d’Embarcadero<\/a>.
\n

\"Delphi\"<\/a><\/center><\/p>\n

\n <\/p\n\nOn cr\u00e9e une nouvelle Application Fiches VCL – Delphi<\/em>.
\nPuis on place un composant TTouchKeyboard<\/span><\/code> sur la fiche.<\/p>\n

On peut ensuite aller dans le code afin d’ajouter les types et fonctions n\u00e9cessaires.
\nJ’ai trouv\u00e9 un code sur un blog japonais<\/a> qui m’a servi de base pour l’impl\u00e9mentation et comprendre le fonctionnement.
\nLe principe est simple, on va h\u00e9riter de la classe repr\u00e9sentant une touche du clavier, afin de pouvoir surcharger sa proc\u00e9dure Paint. On peut ainsi la redessiner \u00e0 sa guise.<\/p>\n

Voici la premi\u00e8re version :<\/p>\n

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
<\/div><\/td>
unit<\/span> main;<\/span>
\n
\ninterface<\/span>
\n
\nuses<\/span>
\n  Windows,<\/span> Messages,<\/span> SysUtils,<\/span> Variants,<\/span> Classes,<\/span> Graphics,<\/span> Controls,<\/span> Forms,<\/span>
\n  Dialogs,<\/span> Keyboard,<\/span> KeyboardTypes,<\/span> Math;<\/span>
\n
\ntype<\/span>
\n  TTempTouchKeyboard =<\/span> class<\/span>(<\/span>TCustomTouchKeyboard)<\/span>;<\/span>
\n  TMyKeyboardButton  =<\/span> class<\/span>(<\/span>TCustomKeyboardButton)<\/span>
\n  public<\/span>
\n    procedure<\/span> Paint(<\/span>Canvas:<\/span> TCustomCanvas =<\/span> nil<\/span>)<\/span>;<\/span> override<\/span>;<\/span>
\n  end<\/span>;<\/span>
\ntype<\/span>
\n  TfrmMain =<\/span> class<\/span>(<\/span>TForm)<\/span>
\n  TouchKeyboard1:<\/span> TTouchKeyboard;<\/span>
\n  procedure<\/span> FormCreate(<\/span>Sender:<\/span> TObject<\/span>)<\/span>;<\/span>
\n  end<\/span>;<\/span>
\n
\nvar<\/span>
\n  frmMain:<\/span> TfrmMain;<\/span>
\n
\nimplementation<\/span>
\n
\n{$R *.dfm}<\/span>
\n
\nprocedure<\/span> TMyKeyboardButton.<\/span>Paint<\/span>(<\/span>Canvas:<\/span> TCustomCanvas)<\/span>;<\/span>
\nvar<\/span>
\n  LRect:<\/span>    TRect;<\/span>
\n  LCanvas:<\/span>  TCanvas;<\/span>
\n  LCaption:<\/span> String<\/span>;<\/span>
\nconst<\/span>
\n  \/\/TDrawState = (dsNormal, dsPressed, dsDisabled);<\/span>
\n  acKeyColors:<\/span> array<\/span>[<\/span>TDrawState]<\/span> of<\/span> TColor =<\/span> (<\/span>clWhite,<\/span> clYellow,<\/span> clGray)<\/span>;<\/span>
\n
\n  procedure<\/span> DrawOneChar(<\/span>rSize:<\/span> TRect;<\/span> cWhere:<\/span> TCanvas;<\/span> sWhat:<\/span> string<\/span>)<\/span>;<\/span>
\n  begin<\/span>
\n    rSize.<\/span>Left<\/span> :<\/span>=<\/span> rSize.<\/span>Left<\/span> +<\/span> (<\/span>(<\/span>(<\/span>rSize.<\/span>Right<\/span>-<\/span>rSize.<\/span>Left<\/span>)<\/span> -<\/span> cWhere.<\/span>TextWidth<\/span>(<\/span>sWhat)<\/span>)<\/span> div<\/span> 2<\/span>)<\/span>;<\/span>
\n    rSize.<\/span>Top<\/span> :<\/span>=<\/span> rSize.<\/span>Top<\/span> +<\/span> (<\/span>(<\/span>(<\/span>rSize.<\/span>Bottom<\/span>-<\/span>rSize.<\/span>Top<\/span>)<\/span> -<\/span> cWhere.<\/span>TextHeight<\/span>(<\/span>sWhat)<\/span>)<\/span> div<\/span> 2<\/span>)<\/span>;<\/span>
\n
\n    cWhere.<\/span>TextOut<\/span>(<\/span>rSize.<\/span>Left<\/span>,<\/span> rSize.<\/span>Top<\/span>,<\/span> sWhat)<\/span>;<\/span>
\n  end<\/span>;<\/span>
\n
\n  function<\/span> GetOverrideCaption(<\/span>Keyboard:<\/span> TCustomTouchKeyboard;<\/span> const<\/span> Key:<\/span> TVirtualKey;<\/span> var<\/span> Caption:<\/span> string<\/span>)<\/span>:<\/span> Boolean<\/span>;<\/span>
\n  begin<\/span>
\n    if<\/span> Keyboard.<\/span>CaptionOverrides<\/span>.<\/span>HasCaption<\/span>(<\/span>Key.<\/span>PublishedName<\/span>)<\/span> then<\/span>
\n    begin<\/span>
\n      Caption :<\/span>=<\/span> Keyboard.<\/span>CaptionOverrides<\/span>.<\/span>GetCaption<\/span>(<\/span>Key.<\/span>PublishedName<\/span>)<\/span>;<\/span>
\n      Exit<\/span>(<\/span>True<\/span>)<\/span>;<\/span>
\n    end<\/span>
\n    else<\/span> if<\/span> Keyboard.<\/span>CaptionOverrides<\/span>.<\/span>HasCaption<\/span>(<\/span>Key.<\/span>PublishedName<\/span>)<\/span> then<\/span>
\n    begin<\/span>
\n      Caption :<\/span>=<\/span> Keyboard.<\/span>CaptionOverrides<\/span>.<\/span>GetCaption<\/span>(<\/span>Key.<\/span>PublishedName<\/span>)<\/span>;<\/span>
\n      Exit<\/span>(<\/span>True<\/span>)<\/span>;<\/span>
\n    end<\/span>;<\/span>
\n    Result :<\/span>=<\/span> False<\/span>;<\/span>
\n  end<\/span>;<\/span>
\n
\nbegin<\/span>
\n  if<\/span> Canvas <> nil<\/span> then<\/span>
\n    LCanvas :<\/span>=<\/span> Canvas as<\/span> TCanvas
\n  else<\/span>
\n    LCanvas :<\/span>=<\/span> TTempTouchKeyboard(<\/span>Parent)<\/span>.<\/span>Canvas<\/span>;<\/span>
\n
\n  LRect :<\/span>=<\/span> ClientRect;<\/span>
\n  LCanvas.<\/span>Font<\/span>.<\/span>Name<\/span>   :<\/span>=<\/span> 'Arial'<\/span>;<\/span>
\n  LCanvas.<\/span>Pen<\/span>.<\/span>Color<\/span>   :<\/span>=<\/span> clBlack;<\/span>
\n  LCanvas.<\/span>Font<\/span>.<\/span>Color<\/span>  :<\/span>=<\/span> clBlack;<\/span>
\n  LCanvas.<\/span>Font<\/span>.<\/span>Style<\/span>  :<\/span>=<\/span> [<\/span>fsBold]<\/span>;<\/span>
\n  LCanvas.<\/span>Brush<\/span>.<\/span>Color<\/span> :<\/span>=<\/span> acKeyColors[<\/span>State]<\/span>;<\/span>
\n  LCanvas.<\/span>Rectangle<\/span>(<\/span>LRect)<\/span>;<\/span>
\n
\n  case<\/span> KeyImage of<\/span>
\n    kiOverride:<\/span>
\n    begin<\/span>
\n      if<\/span> not<\/span> GetOverrideCaption(<\/span>Parent,<\/span> Key,<\/span> LCaption)<\/span> then<\/span>
\n        LCaption :<\/span>=<\/span> Caption;<\/span>
\n      DrawOneChar(<\/span>LRect,<\/span> LCanvas,<\/span> LCaption)<\/span>;<\/span>
\n    end<\/span>;<\/span>
\n    kiText:<\/span>
\n    begin<\/span>
\n      if<\/span> (<\/span>(<\/span>Length<\/span>(<\/span>Caption)<\/span> > 0<\/span>)<\/span> and<\/span>
\n        (<\/span>(<\/span>Caption[<\/span>1<\/span>]<\/span> =<\/span> '^'<\/span>)<\/span> or<\/span> (<\/span>Caption[<\/span>1<\/span>]<\/span> =<\/span> '\u00a8'<\/span>)<\/span>)<\/span>)<\/span> then<\/span>
\n        Caption :<\/span>=<\/span> Caption[<\/span>1<\/span>]<\/span>;<\/span>
\n      DrawOneChar(<\/span>LRect,<\/span> LCanvas,<\/span> Caption)<\/span>;<\/span>
\n    end<\/span>;<\/span>
\n    kiTab:<\/span>       DrawOneChar(<\/span>LRect,<\/span> LCanvas,<\/span> 'Tabulation'<\/span>)<\/span>;<\/span>
\n    kiShift:<\/span>     DrawOneChar(<\/span>LRect,<\/span> LCanvas,<\/span> 'Majuscule'<\/span>)<\/span>;<\/span>
\n    kiEnter:<\/span>     DrawOneChar(<\/span>LRect,<\/span> LCanvas,<\/span> 'Entr\u00e9e'<\/span>)<\/span>;<\/span>
\n    kiBackspace:<\/span> DrawOneChar(<\/span>LRect,<\/span> LCanvas,<\/span> '\u2190'<\/span>)<\/span>;<\/span>
\n    kiUp:<\/span>        DrawOneChar(<\/span>LRect,<\/span> LCanvas,<\/span> '\u2191'<\/span>)<\/span>;<\/span>
\n    kiDown:<\/span>      DrawOneChar(<\/span>LRect,<\/span> LCanvas,<\/span> '\u2193'<\/span>)<\/span>;<\/span>
\n    kiLeft:<\/span>      DrawOneChar(<\/span>LRect,<\/span> LCanvas,<\/span> '\u2190'<\/span>)<\/span>;<\/span>
\n    kiRight:<\/span>     DrawOneChar(<\/span>LRect,<\/span> LCanvas,<\/span> '\u2192'<\/span>)<\/span>;<\/span>
\n    kiTallEnter:<\/span> DrawOneChar(<\/span>LRect,<\/span> LCanvas,<\/span> 'Entr\u00e9e'<\/span>)<\/span>;<\/span>
\n  end<\/span>;<\/span>
\nend<\/span>;<\/span>
\n
\nprocedure<\/span> TfrmMain.<\/span>FormCreate<\/span>(<\/span>Sender:<\/span> TObject<\/span>)<\/span>;<\/span>
\nbegin<\/span>
\n  TouchKeyboard1.<\/span>DefaultButtonClass<\/span> :<\/span>=<\/span> TMyKeyboardButton;<\/span>
\n  TTempTouchKeyboard(<\/span>TouchKeyboard1)<\/span>.<\/span>CreateKeyboard<\/span>(<\/span>)<\/span>;<\/span>
\n  TouchKeyboard1.<\/span>Redraw<\/span>;<\/span>
\nend<\/span>;<\/span>
\n
\nend<\/span>.<\/span><\/div><\/td><\/tr><\/tbody><\/table><\/div>\n

(idea) On remarquera l’utilisation de cha\u00eenes Unicode<\/a>W<\/em><\/sup>, \u2190 \u2191 \u2193 \u2190 \u2192, afin de dessiner les touches pour d\u00e9placer le curseur et le retour-arri\u00e8re. Mon fichier source a par cons\u00e9quent \u00e9t\u00e9 sauvegard\u00e9 au format Unicode.<\/p>\n

On obtient ainsi ce splendide clavier \"(lol)\"
\n

\"Apparence<\/a>

Apparence personnalis\u00e9e du clavier<\/p><\/div><\/p>\n

Sur la page suivante, nous allons reprendre ce code pour ajouter un d\u00e9grad\u00e9 sur chaque touche… \"8-)\"
\n
\nPour ajouter un d\u00e9grad\u00e9 sur mes touches, j’ai r\u00e9cup\u00e9r\u00e9 un bout de code<\/a> sur un site o\u00f9 je trouve \u00e9norm\u00e9ment de bons exemples.<\/p>\n

J’ai modifi\u00e9 mon script ainsi :<\/p>\n

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
<\/div><\/td>
unit<\/span> main;<\/span>
\n
\ninterface<\/span>
\n
\nuses<\/span>
\n  Windows,<\/span> Messages,<\/span> SysUtils,<\/span> Variants,<\/span> Classes,<\/span> Graphics,<\/span> Controls,<\/span> Forms,<\/span>
\n  Dialogs,<\/span> Keyboard,<\/span> KeyboardTypes,<\/span> Math;<\/span>
\n
\ntype<\/span>
\n  TTempTouchKeyboard =<\/span> class<\/span>(<\/span>TCustomTouchKeyboard)<\/span>;<\/span>
\n  TMyKeyboardButton  =<\/span> class<\/span>(<\/span>TCustomKeyboardButton)<\/span>
\n  public<\/span>
\n    procedure<\/span> Paint(<\/span>Canvas:<\/span> TCustomCanvas =<\/span> nil<\/span>)<\/span>;<\/span> override<\/span>;<\/span>
\n  end<\/span>;<\/span>
\ntype<\/span>
\n  TfrmMain =<\/span> class<\/span>(<\/span>TForm)<\/span>
\n  TouchKeyboard1:<\/span> TTouchKeyboard;<\/span>
\n  procedure<\/span> FormCreate(<\/span>Sender:<\/span> TObject<\/span>)<\/span>;<\/span>
\n  end<\/span>;<\/span>
\n
\nvar<\/span>
\n  frmMain:<\/span> TfrmMain;<\/span>
\n
\nimplementation<\/span>
\n
\n{$R *.dfm}<\/span>
\n
\nprocedure<\/span> GradVertical(<\/span>Canvas:<\/span>TCanvas;<\/span> Rect:<\/span>TRect;<\/span> FromColor,<\/span> ToColor:<\/span>TColor)<\/span> ;<\/span>
\nvar<\/span>
\n  Y:<\/span>        Integer<\/span>;<\/span>
\n  dr,<\/span>dg,<\/span>db:<\/span> Extended<\/span>;<\/span>
\n  C1,<\/span>C2:<\/span>    TColor;<\/span>
\n  r1,<\/span>r2,<\/span>g1,<\/span>g2,<\/span>b1,<\/span>b2:<\/span>Byte<\/span>;<\/span>
\n  R,<\/span>G,<\/span>B:<\/span>Byte<\/span>;<\/span>
\n  cnt:<\/span>Integer<\/span>;<\/span>
\nbegin<\/span>
\n  C1 :<\/span>=<\/span> FromColor;<\/span>
\n  R1 :<\/span>=<\/span> GetRValue(<\/span>C1)<\/span> ;<\/span>
\n  G1 :<\/span>=<\/span> GetGValue(<\/span>C1)<\/span> ;<\/span>
\n  B1 :<\/span>=<\/span> GetBValue(<\/span>C1)<\/span> ;<\/span>
\n
\n  C2 :<\/span>=<\/span> ToColor;<\/span>
\n  R2 :<\/span>=<\/span> GetRValue(<\/span>C2)<\/span> ;<\/span>
\n  G2 :<\/span>=<\/span> GetGValue(<\/span>C2)<\/span> ;<\/span>
\n  B2 :<\/span>=<\/span> GetBValue(<\/span>C2)<\/span> ;<\/span>
\n
\n  dr :<\/span>=<\/span> (<\/span>R2-<\/span>R1)<\/span> \/<\/span> (<\/span>Rect.<\/span>Bottom<\/span> -<\/span> Rect.<\/span>Top<\/span>)<\/span>;<\/span>
\n  dg :<\/span>=<\/span> (<\/span>G2-<\/span>G1)<\/span> \/<\/span> (<\/span>Rect.<\/span>Bottom<\/span> -<\/span> Rect.<\/span>Top<\/span>)<\/span>;<\/span>
\n  db :<\/span>=<\/span> (<\/span>B2-<\/span>B1)<\/span> \/<\/span> (<\/span>Rect.<\/span>Bottom<\/span> -<\/span> Rect.<\/span>Top<\/span>)<\/span>;<\/span>
\n
\n  cnt :<\/span>=<\/span> 0<\/span>;<\/span>
\n  for<\/span> Y :<\/span>=<\/span> Rect.<\/span>Top<\/span> to<\/span> Rect.<\/span>Bottom<\/span>-<\/span>1<\/span> do<\/span>
\n  begin<\/span>
\n    R :<\/span>=<\/span> R1 +<\/span> Ceil<\/span>(<\/span>dr*<\/span>cnt)<\/span>;<\/span>
\n    G :<\/span>=<\/span> G1 +<\/span> Ceil<\/span>(<\/span>dg*<\/span>cnt)<\/span>;<\/span>
\n    B :<\/span>=<\/span> B1 +<\/span> Ceil<\/span>(<\/span>db*<\/span>cnt)<\/span>;<\/span>
\n
\n    Canvas.<\/span>Pen<\/span>.<\/span>Color<\/span> :<\/span>=<\/span> RGB(<\/span>R,<\/span>G,<\/span>B)<\/span>;<\/span>
\n    Canvas.<\/span>MoveTo<\/span>(<\/span>Rect.<\/span>Left<\/span>,<\/span> Y)<\/span>;<\/span>
\n    Canvas.<\/span>LineTo<\/span>(<\/span>Rect.<\/span>Right<\/span>,<\/span> Y)<\/span>;<\/span>
\n    Inc<\/span>(<\/span>cnt)<\/span> ;<\/span>
\n  end<\/span>;<\/span>
\nend<\/span>;<\/span>
\n
\nprocedure<\/span> TMyKeyboardButton.<\/span>Paint<\/span>(<\/span>Canvas:<\/span> TCustomCanvas)<\/span>;<\/span>
\nvar<\/span>
\n  LRect:<\/span>    TRect;<\/span>
\n  LCanvas:<\/span>  TCanvas;<\/span>
\n  LCaption:<\/span> String<\/span>;<\/span>
\nconst<\/span>
\n  \/\/TDrawState = (dsNormal, dsPressed, dsDisabled);<\/span>
\n  acKeyColors:<\/span> array<\/span>[<\/span>TDrawState]<\/span> of<\/span> TColor =<\/span> (<\/span>clWhite,<\/span> clYellow,<\/span> clGray)<\/span>;<\/span>
\n
\n  procedure<\/span> DrawOneChar(<\/span>rSize:<\/span> TRect;<\/span> cWhere:<\/span> TCanvas;<\/span> sWhat:<\/span> string<\/span>)<\/span>;<\/span>
\n  begin<\/span>
\n    rSize.<\/span>Left<\/span> :<\/span>=<\/span> rSize.<\/span>Left<\/span> +<\/span> (<\/span>(<\/span>(<\/span>rSize.<\/span>Right<\/span>-<\/span>rSize.<\/span>Left<\/span>)<\/span> -<\/span> cWhere.<\/span>TextWidth<\/span>(<\/span>sWhat)<\/span>)<\/span> div<\/span> 2<\/span>)<\/span>;<\/span>
\n    rSize.<\/span>Top<\/span> :<\/span>=<\/span> rSize.<\/span>Top<\/span> +<\/span> (<\/span>(<\/span>(<\/span>rSize.<\/span>Bottom<\/span>-<\/span>rSize.<\/span>Top<\/span>)<\/span> -<\/span> cWhere.<\/span>TextHeight<\/span>(<\/span>sWhat)<\/span>)<\/span> div<\/span> 2<\/span>)<\/span>;<\/span>
\n
\n    cWhere.<\/span>TextOut<\/span>(<\/span>rSize.<\/span>Left<\/span>,<\/span> rSize.<\/span>Top<\/span>,<\/span> sWhat)<\/span>;<\/span>
\n  end<\/span>;<\/span>
\n
\n  function<\/span> GetOverrideCaption(<\/span>Keyboard:<\/span> TCustomTouchKeyboard;<\/span> const<\/span> Key:<\/span> TVirtualKey;<\/span> var<\/span> Caption:<\/span> string<\/span>)<\/span>:<\/span> Boolean<\/span>;<\/span>
\n  begin<\/span>
\n    if<\/span> Keyboard.<\/span>CaptionOverrides<\/span>.<\/span>HasCaption<\/span>(<\/span>Key.<\/span>PublishedName<\/span>)<\/span> then<\/span>
\n    begin<\/span>
\n      Caption :<\/span>=<\/span> Keyboard.<\/span>CaptionOverrides<\/span>.<\/span>GetCaption<\/span>(<\/span>Key.<\/span>PublishedName<\/span>)<\/span>;<\/span>
\n      Exit<\/span>(<\/span>True<\/span>)<\/span>;<\/span>
\n    end<\/span>
\n    else<\/span> if<\/span> Keyboard.<\/span>CaptionOverrides<\/span>.<\/span>HasCaption<\/span>(<\/span>Key.<\/span>PublishedName<\/span>)<\/span> then<\/span>
\n    begin<\/span>
\n      Caption :<\/span>=<\/span> Keyboard.<\/span>CaptionOverrides<\/span>.<\/span>GetCaption<\/span>(<\/span>Key.<\/span>PublishedName<\/span>)<\/span>;<\/span>
\n      Exit<\/span>(<\/span>True<\/span>)<\/span>;<\/span>
\n    end<\/span>;<\/span>
\n    Result :<\/span>=<\/span> False<\/span>;<\/span>
\n  end<\/span>;<\/span>
\n
\nbegin<\/span>
\n  if<\/span> Canvas <> nil<\/span> then<\/span>
\n    LCanvas :<\/span>=<\/span> Canvas as<\/span> TCanvas
\n  else<\/span>
\n    LCanvas :<\/span>=<\/span> TTempTouchKeyboard(<\/span>Parent)<\/span>.<\/span>Canvas<\/span>;<\/span>
\n
\n  LRect :<\/span>=<\/span> ClientRect;<\/span>
\n  LCanvas.<\/span>Font<\/span>.<\/span>Name<\/span>   :<\/span>=<\/span> 'Arial'<\/span>;<\/span>
\n  LCanvas.<\/span>Pen<\/span>.<\/span>Color<\/span>   :<\/span>=<\/span> clBlack;<\/span>
\n  LCanvas.<\/span>Font<\/span>.<\/span>Color<\/span>  :<\/span>=<\/span> clYellow;<\/span> \/\/clBlack;<\/span>
\n  LCanvas.<\/span>Font<\/span>.<\/span>Style<\/span>  :<\/span>=<\/span> [<\/span>fsBold]<\/span>;<\/span>
\n  GradVertical(<\/span>LCanvas,<\/span> LRect,<\/span> acKeyColors[<\/span>State]<\/span>,<\/span> clblack)<\/span> ;<\/span>
\n\/\/  LCanvas.Brush.Color := acKeyColors[State];<\/span>
\n\/\/  LCanvas.Rectangle(LRect);<\/span>
\n  LCanvas.<\/span>Brush<\/span>.<\/span>Style<\/span> :<\/span>=<\/span> bsClear;<\/span>
\n
\n  case<\/span> KeyImage of<\/span>
\n    kiOverride:<\/span>
\n    begin<\/span>
\n      if<\/span> not<\/span> GetOverrideCaption(<\/span>Parent,<\/span> Key,<\/span> LCaption)<\/span> then<\/span>
\n        LCaption :<\/span>=<\/span> Caption;<\/span>
\n      DrawOneChar(<\/span>LRect,<\/span> LCanvas,<\/span> LCaption)<\/span>;<\/span>
\n    end<\/span>;<\/span>
\n    kiText:<\/span>
\n    begin<\/span>
\n      if<\/span> (<\/span>(<\/span>Length<\/span>(<\/span>Caption)<\/span> > 0<\/span>)<\/span> and<\/span>
\n        (<\/span>(<\/span>Caption[<\/span>1<\/span>]<\/span> =<\/span> '^'<\/span>)<\/span> or<\/span> (<\/span>Caption[<\/span>1<\/span>]<\/span> =<\/span> '\u00a8'<\/span>)<\/span>)<\/span>)<\/span> then<\/span>
\n        Caption :<\/span>=<\/span> Caption[<\/span>1<\/span>]<\/span>;<\/span>
\n      DrawOneChar(<\/span>LRect,<\/span> LCanvas,<\/span> Caption)<\/span>;<\/span>
\n    end<\/span>;<\/span>
\n    kiTab:<\/span>       DrawOneChar(<\/span>LRect,<\/span> LCanvas,<\/span> 'Tabulation'<\/span>)<\/span>;<\/span>
\n    kiShift:<\/span>     DrawOneChar(<\/span>LRect,<\/span> LCanvas,<\/span> 'Majuscule'<\/span>)<\/span>;<\/span>
\n    kiEnter:<\/span>     DrawOneChar(<\/span>LRect,<\/span> LCanvas,<\/span> 'Entr\u00e9e'<\/span>)<\/span>;<\/span>
\n    kiBackspace:<\/span> DrawOneChar(<\/span>LRect,<\/span> LCanvas,<\/span> '\u2190'<\/span>)<\/span>;<\/span>
\n    kiUp:<\/span>        DrawOneChar(<\/span>LRect,<\/span> LCanvas,<\/span> '\u2191'<\/span>)<\/span>;<\/span>
\n    kiDown:<\/span>      DrawOneChar(<\/span>LRect,<\/span> LCanvas,<\/span> '\u2193'<\/span>)<\/span>;<\/span>
\n    kiLeft:<\/span>      DrawOneChar(<\/span>LRect,<\/span> LCanvas,<\/span> '\u2190'<\/span>)<\/span>;<\/span>
\n    kiRight:<\/span>     DrawOneChar(<\/span>LRect,<\/span> LCanvas,<\/span> '\u2192'<\/span>)<\/span>;<\/span>
\n    kiTallEnter:<\/span> DrawOneChar(<\/span>LRect,<\/span> LCanvas,<\/span> 'Entr\u00e9e'<\/span>)<\/span>;<\/span>
\n  end<\/span>;<\/span>
\nend<\/span>;<\/span>
\n
\nprocedure<\/span> TfrmMain.<\/span>FormCreate<\/span>(<\/span>Sender:<\/span> TObject<\/span>)<\/span>;<\/span>
\nbegin<\/span>
\n  TouchKeyboard1.<\/span>DefaultButtonClass<\/span> :<\/span>=<\/span> TMyKeyboardButton;<\/span>
\n  TTempTouchKeyboard(<\/span>TouchKeyboard1)<\/span>.<\/span>CreateKeyboard<\/span>(<\/span>)<\/span>;<\/span>
\n  TouchKeyboard1.<\/span>Redraw<\/span>;<\/span>
\nend<\/span>;<\/span>
\n
\nend<\/span>.<\/span><\/div><\/td><\/tr><\/tbody><\/table><\/div>\n

On a alors cette fois-ci un clavier comme cela :
\n

\"Delphi<\/a>

Delphi : Clavier tactile avec touches d\u00e9grad\u00e9es<\/p><\/div><\/p>\n

(!!) Attention, cette application n’a pas vocation \u00e0 remplacer le Clavier visuel fourni avec Windows : lorsque l’on clique sur une touche du clavier tactile, l’\u00e9v\u00e9nement reste au sein de l’application qui a le focus, donc celle qui poss\u00e8de le clavier.
\nCet exemple d\u00e9montre le changement d’aspect du clavier, mais l’application en elle-m\u00eame ne sert et ne fait rien \"(tmi)\" <\/p>\n

Vous pouvez t\u00e9l\u00e9charger les sources<\/a> de cet exemple ou l’application d\u00e9mo<\/a>. J’ai \u00e9galement ajout\u00e9 le test sur un param\u00e8tre \/qwerty<\/em> :
\nSi vous poss\u00e9dez un ordinateur avec un clavier en fran\u00e7ais, vous devriez voir un clavier AZERTY par d\u00e9faut au lancement de l’application. Si vous appelez l’application en ajoutant \/qwerty<\/em>, le clavier sera ainsi en anglais.<\/p>\n

1
2
3
4
5
6
7
8
9
<\/div><\/td>
procedure<\/span> TfrmMain.<\/span>FormCreate<\/span>(<\/span>Sender:<\/span> TObject<\/span>)<\/span>;<\/span>
\nbegin<\/span>
\n  if<\/span> (<\/span>(<\/span>ParamCount =<\/span> 1<\/span>)<\/span> and<\/span> (<\/span>ParamStr<\/span>(<\/span>1<\/span>)<\/span>=<\/span>'\/qwerty'<\/span>)<\/span>)<\/span> then<\/span>
\n    LoadKeyboardLayout(<\/span>'00000409'<\/span>,<\/span> KLF_ACTIVATE)<\/span>;<\/span> \/\/ anglais<\/span>
\n
\n  TouchKeyboard1.<\/span>DefaultButtonClass<\/span> :<\/span>=<\/span> TMyKeyboardButton;<\/span>
\n  TTempTouchKeyboard(<\/span>TouchKeyboard1)<\/span>.<\/span>CreateKeyboard<\/span>(<\/span>)<\/span>;<\/span>
\n  TouchKeyboard1.<\/span>Redraw<\/span>;<\/span>
\nend<\/span>;<\/span><\/div><\/td><\/tr><\/tbody><\/table><\/div>\n
\"Delphi<\/a>

Delphi : Clavier tactile QWERTY<\/p><\/div>\n

(idea) Je me suis content\u00e9 d’\u00e9crire du texte sur chaque touche, mais on peut tr\u00e8s bien imaginer afficher des images \u00e0 la place des touches<\/a>.
\nDe m\u00eame, le pav\u00e9 num\u00e9rique<\/a> est directement disponible en changeant une simple propri\u00e9t\u00e9 de l’objet, Layout =<\/span> 'NumPad'<\/span><\/span><\/code>.
\n

\"Delphi<\/a>

Delphi : Pav\u00e9 num\u00e9rique color\u00e9<\/p><\/div><\/p>\n


\nEt comment ne pas faire un exemple comme celui-ci : \":$\"
\n

\"Delphi<\/a>

Delphi : Pav\u00e9 num\u00e9rique avec Jpeg<\/p><\/div><\/p>\n

Vous pouvez l’ex\u00e9cuter chez vous pour voir le comportement du pav\u00e9 et du champ d’\u00e9dition en d\u00e9zippant l’archive<\/a> dans un r\u00e9pertoire.<\/p>\n","protected":false},"excerpt":{"rendered":"

Delphi 2010 ajoute encore de nouveaux composants \u00e0 la VCL\u2026 Parmi ceux-ci, on trouve un clavier visuel, permettant d\u2019\u00e9tendre les capacit\u00e9s de ses applications en ayant la possibilit\u00e9 de le proposer dans son interface, tr\u00e8s pratique sur des p\u00e9riph\u00e9riques \u00e0 \u00e9crans tactiles !
\nDepuis la palette d\u2019outils de l\u2019environnement de conception de Delphi, dans la cat\u00e9gorie Tactile, on trouve le composant TTouchKeyboard. Il suffit simplement de l\u2019ajouter dans la fiche de son choix.
\nLe clavier tactile s\u2019adapte automatiquement \u00e0 celui du syst\u00e8me d\u2019exploitation : On utilise un Windows en fran\u00e7ais, on a un clavier AZERTY. On est sous un Windows anglais, on a un QWERTY.
\nOn peut personnaliser le clavier en modifiant ses propri\u00e9t\u00e9s directement depuis l\u2019inspecteur d\u2019objets. Dans le code ci-dessous, je vais montrer comment surcharger une m\u00e9thode de ce clavier pour red\u00e9finir l\u2019apparence des diff\u00e9rentes touches\u2026<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":"","_links_to":"","_links_to_target":""},"categories":[7,6],"tags":[125,122,14,27,154,120,108],"class_list":["post-769","post","type-post","status-publish","format-standard","hentry","category-delphi","category-dev","tag-b3lly","tag-122","tag-chat","tag-coloration-syntaxique","tag-delphi","tag-localisation","tag-script"],"_links":{"self":[{"href":"https:\/\/blogs.wittwer.fr\/whiler\/wp-json\/wp\/v2\/posts\/769","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/blogs.wittwer.fr\/whiler\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/blogs.wittwer.fr\/whiler\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/blogs.wittwer.fr\/whiler\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/blogs.wittwer.fr\/whiler\/wp-json\/wp\/v2\/comments?post=769"}],"version-history":[{"count":1,"href":"https:\/\/blogs.wittwer.fr\/whiler\/wp-json\/wp\/v2\/posts\/769\/revisions"}],"predecessor-version":[{"id":6403,"href":"https:\/\/blogs.wittwer.fr\/whiler\/wp-json\/wp\/v2\/posts\/769\/revisions\/6403"}],"wp:attachment":[{"href":"https:\/\/blogs.wittwer.fr\/whiler\/wp-json\/wp\/v2\/media?parent=769"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/blogs.wittwer.fr\/whiler\/wp-json\/wp\/v2\/categories?post=769"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/blogs.wittwer.fr\/whiler\/wp-json\/wp\/v2\/tags?post=769"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}