paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 06:19:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL-WinCE: Adds code to get some barcode scanners working with TEdit. Others still dont work.

Browse Source 
git-svn-id: trunk@40630 -
This commit is contained in:
sekelsenmat 2013-03-24 11:53:58 +00:00
parent 78ab6ea5d0
commit 146aeb1092
3 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/interfaces/wince/wincecallback.inc
View File

@ -1478,6 +1478,9 @@ begin
begin begin
Msg := CN_KEYDOWN; Msg := CN_KEYDOWN;
KeyData := LParam; KeyData := LParam;
// Work around to get readings of some barcode scanners
if (WParam = 0) and (WinCEWidgetset.BarcodeScannerWorkaround) then
WParam := VK_0;
CharCode := Word(WParam); CharCode := Word(WParam);
Result := 0; Result := 0;
//DebugLn(Format('WM_KEYDOWN KeyData= %d CharCode= %d ',[KeyData,CharCode])); //DebugLn(Format('WM_KEYDOWN KeyData= %d CharCode= %d ',[KeyData,CharCode]));

1
lcl/interfaces/wince/winceint.pp
View File

@ -215,6 +215,7 @@ type
{ Variables to be set by the user } { Variables to be set by the user }
WinCETitlePolicy: TWinCETitlePolicy; WinCETitlePolicy: TWinCETitlePolicy;
BarcodeScannerWorkaround: Boolean;
end; end;
{$I wincelistslh.inc} {$I wincelistslh.inc}

2
lcl/interfaces/wince/winceobject.inc
View File

@ -52,6 +52,8 @@ begin
GetObject(Font, SizeOf(FMetrics.lfStatusFont), @FMetrics.lfStatusFont); GetObject(Font, SizeOf(FMetrics.lfStatusFont), @FMetrics.lfStatusFont);
GetObject(Font, SizeOf(FMetrics.lfMenuFont), @FMetrics.lfMenuFont); GetObject(Font, SizeOf(FMetrics.lfMenuFont), @FMetrics.lfMenuFont);
BarcodeScannerWorkaround := True;
WinCEWidgetSet := Self; WinCEWidgetSet := Self;
end; end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------