Graphics32 | BVA-System

Posts Tagged ‘Graphics32’

Gestenerkennung mit TImage32

Montag, November 19th, 2012

Gestern musste ich feststellen, das die Maus-Gestenerkennung in der Komponente TImage32 vom Graphics32-Project nicht unterstütz wird. Die notwendige Eigenschaft Touch und auch das OnGesture() Event sind dort nicht vorhanden. Auch die Gestenerkennung der übergeordneten Komponente ließ sich nicht dazu bewegen, auf Maus-Gesten im TImage32-Bereich zu reagieren. Daher habe ich mir eine eigene Komponente geschrieben, die TImage32 um die Gesten erweitert.

 delphi | 
 
 Quellcode kopieren |
?

01
unit claBVAImage32;
02
03
interface
04
05
uses
06
 System.SysUtils, System.Classes, Vcl.Controls, GR32_Image;
07
08
type
09
 TBVAImage32 = class(TImage32)
10
 private
11
 protected
12
 public
13
  constructor Create(AOwner: TComponent); override;
14
 published
15
  property Touch;
16
  property OnGesture;
17
 end;
18
19
implementation
20
21
constructor TBVAImage32.Create(AOwner: TComponent);
22
begin
23
 inherited;
24
25
 ControlStyle := ControlStyle + [csGestures];
26
end;

Prinzipiell müsste der Lösungsweg bei jeder Komponente funktionieren, bei der die Gesten nicht funktionieren, da die Implementation der Gestensteuerung bereits in TControl vorhanden ist. Im Falle von TImage32 fehlte einfach das „csGestures“ im ControlStyle.