paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-11 04:07:29 +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 if (PLMsg^.Result <> 0) then
begin begin
{$ifdef MSG_DEBUG} {$ifdef MSG_DEBUG}
writeln(MessageStackDepth, ' *ignore next character'); DebugLn(MessageStackDepth, ' *ignore next character');
{$endif} {$endif}
IgnoreNextCharWindow := Window; IgnoreNextCharWindow := Window;
end else begin end else begin
@ -2295,7 +2295,7 @@ begin
// assume WM_CHAR is always preceded by WM_KEYDOWN // assume WM_CHAR is always preceded by WM_KEYDOWN
{$ifdef MSG_DEBUG} {$ifdef MSG_DEBUG}
if IgnoreNextCharWindow <> 0 then if IgnoreNextCharWindow <> 0 then
writeln(MessageStackDepth, ' *stop ignoring next character'); DebugLn(MessageStackDepth, ' *stop ignoring next character');
{$endif} {$endif}
IgnoreNextCharWindow := 0; IgnoreNextCharWindow := 0;
end; end;
@ -2353,7 +2353,7 @@ var
PLMsg: PLMessage; PLMsg: PLMessage;
begin begin
{$ifdef VerboseWinCE} {$ifdef VerboseWinCE}
WriteLn('WindowProc: Msg = ' + IntToStr(Msg)); DebugLn('WindowProc: Msg = ' + IntToStr(Msg));
{$endif} {$endif}
Result := 0; Result := 0;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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