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

Small fix for running wince intf on desktop.

Browse Source 
git-svn-id: trunk@14127 -
This commit is contained in:
sekelsenmat 2008-02-13 21:37:33 +00:00
parent 33fff309d0
commit 50ebe6b542
2 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -548,7 +548,7 @@ begin
LPSzClassName := @ClsName;
end;
Result := Windows.RegisterClass(@WindowClass) <> 0;
Result := Windows.RegisterClassW(@WindowClass) <> 0;
end;
{------------------------------------------------------------------------------

5
lcl/interfaces/wince/wincewscontrols.pp
View File

@ -242,8 +242,9 @@ begin
if Window = 0 then
begin
Writeln('failed to create wince control, error: '+ IntToStr(GetLastError()));
raise exception.create('failed to create win32 control, error: '+IntToStr(GetLastError()));
// Writeln('failed to create wince control, error: '+ IntToStr(GetLastError()));
raise exception.create('failed to create win32 control, error: '+IntToStr(GetLastError())
+ ' control: ' + WindowTitle);
end;
end;
{ after creating a child window the following happens: