paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-10 15:39:14 +01:00
Code Issues Packages Projects Releases Wiki Activity

Improves wince debug info

Browse Source 
git-svn-id: trunk@25508 -
This commit is contained in:
sekelsenmat 2010-05-19 08:44:47 +00:00
parent 415884606c
commit fda3173bd3
9 changed files with 18 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2287,7 +2287,7 @@ begin
if (PLMsg^.Result <> 0) then
begin
{$ifdef MSG_DEBUG}
writeln(MessageStackDepth, ' *ignore next character');
DebugLn(MessageStackDepth, ' *ignore next character');
{$endif}
IgnoreNextCharWindow := Window;
end else begin
@ -2295,7 +2295,7 @@ begin
// assume WM_CHAR is always preceded by WM_KEYDOWN
{$ifdef MSG_DEBUG}
if IgnoreNextCharWindow <> 0 then
writeln(MessageStackDepth, ' *stop ignoring next character');
DebugLn(MessageStackDepth, ' *stop ignoring next character');
{$endif}
IgnoreNextCharWindow := 0;
end;
@ -2353,7 +2353,7 @@ var
PLMsg: PLMessage;
begin
{$ifdef VerboseWinCE}
WriteLn('WindowProc: Msg = ' + IntToStr(Msg));
DebugLn('WindowProc: Msg = ' + IntToStr(Msg));
{$endif}
Result := 0;

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

@ -121,12 +121,12 @@ var
// Flags : integer;
begin
{$ifdef VerboseWinCE}
WriteLn('TWinCEWidgetSet.AppInit');
DebugLn('TWinCEWidgetSet.AppInit');
{$endif}
if not WinRegister then
begin
WriteLn('TWinCEWidgetSet.AppInit failed.');
DebugLn('TWinCEWidgetSet.AppInit failed.');
Exit;
end;

4
lcl/interfaces/wince/winceproc.pp
View File

@ -418,7 +418,7 @@ Begin
Case IsConsole Of
True:
Begin
WriteLn(rsWin32Warning, Message);
DebugLn(rsWin32Warning, Message);
End;
False:
Begin
@ -431,7 +431,7 @@ Begin
Case IsConsole Of
True:
Begin
WriteLn(rsWin32Error, Message);
DebugLn(rsWin32Error, Message);
End;
False:
Begin

1
lcl/interfaces/wince/wincewinapi.inc
View File

@ -2501,6 +2501,7 @@ end;
function TWinCEWidgetSet.RectVisible(dc : hdc; const ARect: TRect) : Boolean;
begin
Result := Boolean(Windows.RectVisible(DC, LPRECT(@ARect)^));
// Result := True;
{$ifdef DEBUG_WINDOW_ORG}
DbgAppendToFile(ExtractFilePath(ParamStr(0)) + '1.log',
Format(':> [TWinCEWidgetSet.RectVisible] Result=%d',

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

@ -281,7 +281,7 @@ var
Params: TCreateWindowExParams;
begin
{$ifdef VerboseWinCE}
writeln(' TWinCEWSWinControl.CreateHandle ');
DebugLn(' TWinCEWSWinControl.CreateHandle ');
{$endif}
// general initialization of Params
PrepareCreateWindow(AWinControl, AParams, Params);

2
lcl/interfaces/wince/wincewsdialogs.pp
View File

@ -152,7 +152,7 @@ begin
LCLDialog := ALCLDialog;
{$ifdef VerboseWinCE}
WriteLn(':>TWinCEFileDialogForm.Create Width=', Width,
DebugLn(':>TWinCEFileDialogForm.Create Width=', Width,
' Height=', Height);
{$endif}

4
lcl/interfaces/wince/wincewsextctrls.pp
View File

@ -299,8 +299,10 @@ begin
with Params do
begin
pClassName := @ClsName;
// Flags := Flags and not WS_VISIBLE;
SubClassWndProc := nil;
// Params.Flags := WS_CHILD or WS_CLIPSIBLINGS or WS_CLIPCHILDREN;
// Flags := Flags and not WS_VISIBLE;
// Params.FlagsEx := WS_EX_CONTROLPARENT;
end;
// create window
FinishCreateWindow(AWinControl, Params, false);

2
lcl/interfaces/wince/wincewsforms.pp
View File

@ -265,7 +265,7 @@ var
Bounds: TRect;
begin
{$ifdef VerboseWinCE}
WriteLn('TWinCEWSCustomForm.CreateHandle');
DebugLn('TWinCEWSCustomForm.CreateHandle');
{$endif}
// general initialization of Params
PrepareCreateWindow(AWinControl, AParams, Params);

8
lcl/interfaces/wince/wincewsstdctrls.pp
View File

@ -1185,7 +1185,7 @@ var
Params: TCreateWindowExParams;
begin
{$ifdef VerboseWinCE}
WriteLn('TWinCEWSButton.CreateHandle');
DebugLn('TWinCEWSButton.CreateHandle');
{$endif}
// general initialization of Params
@ -1205,7 +1205,7 @@ begin
Result := Params.Window;
{$ifdef VerboseWinCE}
WriteLn('End Create Button. Handle = ' + IntToStr(Result) +
DebugLn('End Create Button. Handle = ' + IntToStr(Result) +
' Left ' + IntToStr(AWinControl.Left) +
' Top ' + IntToStr(AWinControl.Top) +
' Width ' + IntToStr(AWinControl.Width) +
@ -1222,7 +1222,7 @@ var
Params: TCreateWindowExParams;
begin
{$ifdef VerboseWinCE}
WriteLn('TWinCEWSCustomCheckBox.CreateHandle');
DebugLn('TWinCEWSCustomCheckBox.CreateHandle');
{$endif}
// general initialization of Params
PrepareCreateWindow(AWinControl, AParams, Params);
@ -1317,7 +1317,7 @@ var
Params: TCreateWindowExParams;
begin
{$ifdef VerboseWinCE}
WriteLn('TWinCEWSRadioButton.CreateHandle');
DebugLn('TWinCEWSRadioButton.CreateHandle');
{$endif}
// general initialization of Params