Hi All,
I found the solution to my problem. :-D
Font.Name:='default'; caused strange characters to be displayed on a
Windows Mobile 6.1 device. It worked on the emulator and on other
devices but not on an out-of-the-box Trimble Juno SC because this device
actually comes with a font (one where capital A is a ship's anchor). LCL
chose this font but KOL chose "MS Sans Serif". Also when using Size=0
the font displays much bigger than "default", so LCL font control on
WinCE needs some work...
Also, I have made changes to FPC source. I added a structure and
function for Aygshell.dll in order to interface with a camera. How do I
go about getting this into the main source? The changes were made to
source\packages\winceunits\src\aygshell.pp and they are:
Inserted at line 461:
CAMERACAPTURE_STILLQUALITY= (CAMERACAPTURE_STILLQUALITY_DEFAULT=0,
CAMERACAPTURE_STILLQUALITY_LOW, CAMERACAPTURE_STILLQUALITY_NORMAL,
CAMERACAPTURE_STILLQUALITY_HIGH);
CAMERACAPTURE_VIDEOTYPE= (CAMERACAPTURE_VIDEOTYPE_ALL = $FFFF,
CAMERACAPTURE_VIDEOTYPE_STANDARD = 1,
CAMERACAPTURE_VIDEOTYPE_MESSAGING = 2);
CAMERACAPTURE_MODE= (CAMERACAPTURE_MODE_STILL = 0,
CAMERACAPTURE_MODE_VIDEOONLY, CAMERACAPTURE_MODE_VIDEOWITHAUDIO);
TSHCAMERACAPTURE = record
TSHCAMERACAPTURE = record
cbSize : DWORD;
hwndOwner : HWND;
szFile : array[0..(MAX_PATH)-1] of WCHAR;
pszInitialDir : LPCTSTR;
pszDefaultFileName : LPCTSTR;
pszTitle : LPCTSTR;
StillQuality : CAMERACAPTURE_STILLQUALITY;
VideoTypes : CAMERACAPTURE_VIDEOTYPE;
nResolutionWidth : DWORD;
nResolutionHeight : DWORD;
nVideoTimeLimit : DWORD;
Mode : CAMERACAPTURE_MODE;
end;
PSHCAMERACAPTURE=^TSHCAMERACAPTURE;
and inserted
function SHCameraCapture(var shcc: TSHCAMERACAPTURE): HRESULT; external
UserDLLAyg name 'SHCameraCapture';
just before implementation.
Regards,
Paul.
_______________________________________________
Lazarus mailing list
[email protected]
http://www.lazarus.freepascal.org/mailman/listinfo/lazarus
