Последние записи
- Взаимодействие через командную строку
- Перенести программу из Delphi в Lazarus
- Определить текущую ОС
- Автоматическая смена языка (раскладки клавиатуры)
- Сравнение языков на массивах. Часть 2
- wprintf как напечатать кириллицу
- Взаимодействие через командную строку
- Сравнение языков на массивах. Часть 1
- Сравнение языков по скорости
- Чтение огромных xml-файлов
Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk
Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw
23rd
Ноя
Работа с графическим планшетом wacom stu-300 средствами Делфи
Posted by obzor under Delphi
Есть у кого пример работы с планшетом типо wacom stu-300 в delphi XE7?
Решил проблему… примерно так
var
InputReport: Array[0..255] of Byte;
BytesRead: DWORD;
x_old, y_old, x_new, y_new: integer;
begin
_IsFirstPoint := True;
x_old := 0; y_old := 0;
Repeat
if Capabilities.InputReportByteLength > 0 then begin
FillChar(InputReport, SizeOf(InputReport), #0);
// Считываем данные с планшета
if ReadFile(HidHandle, InputReport,
Capabilities.InputReportByteLength, BytesRead, nil) then
begin
_ExistsSign := True;
x_new := (InputReport[3]*1000 + (1000*InputReport[4] div 256)) div 62 + 50;
y_new := (InputReport[5]*1000 + (1000*InputReport[6] div 256)) div 62;
if InputReport[1] > 128 then
begin
if _IsFirstPoint then
begin
x_old := (InputReport[3]*1000 + (1000*InputReport[4] div 256)) div 62 + 50;
y_old := (InputReport[5]*1000 + (1000*InputReport[6] div 256)) div 62;
_IsFirstPoint := False;
end;
form1.imgSign.Canvas.MoveTo(x_old, y_old);
form1.imgSign.Canvas.LineTo(x_new, y_new);
end;
x_old := x_new; y_old := y_new;
end;
end;
Until Terminated;
end;
Похожие статьи
Купить рекламу на сайте за 1000 руб
пишите сюда - alarforum@yandex.ru
Да и по любым другим вопросам пишите на почту
пеллетные котлы
Пеллетный котел Emtas
Наши форумы по программированию:
- Форум Web программирование (веб)
- Delphi форумы
- Форумы C (Си)
- Форум .NET Frameworks (точка нет фреймворки)
- Форум Java (джава)
- Форум низкоуровневое программирование
- Форум VBA (вба)
- Форум OpenGL
- Форум DirectX
- Форум CAD проектирование
- Форум по операционным системам
- Форум Software (Софт)
- Форум Hardware (Компьютерное железо)