paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-24 00:59:33 +01:00
Code Issues Packages Projects Releases Wiki Activity

Fixed compilation with -dVerboseFocus

Browse Source 
git-svn-id: trunk@5358 -
This commit is contained in:
vincents 2004-04-02 14:28:44 +00:00
parent a30ff867e8
commit 0a15ceb07b
2 changed files with 14 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lcl/interfaces/gtk/gtkcallback.inc
View File

@ -465,7 +465,7 @@ begin
CurFocusWidget:=PGtkWidget(GetFocus); CurFocusWidget:=PGtkWidget(GetFocus);
if CurFocusWidget<>nil then begin if CurFocusWidget<>nil then begin
write(' GetFocus=',HexStr(Cardinal(CurFocusWidget),8)); write(' GetFocus=',HexStr(Cardinal(CurFocusWidget),8));
LCLObject:=GetParentLCLObject(CurFocusWidget); LCLObject:=GetNearestLCLObject(CurFocusWidget);
if LCLObject<>nil then begin if LCLObject<>nil then begin
if LCLObject is TComponent then begin if LCLObject is TComponent then begin
write(' ParentLCLFocus=',TComponent(LCLObject).Name,':',LCLObject.ClassName) write(' ParentLCLFocus=',TComponent(LCLObject).Name,':',LCLObject.ClassName)
@ -795,7 +795,7 @@ begin
CurFocusWidget:=PGtkWidget(GetFocus); CurFocusWidget:=PGtkWidget(GetFocus);
if CurFocusWidget<>nil then begin if CurFocusWidget<>nil then begin
write(' GetFocus=',HexStr(Cardinal(CurFocusWidget),8)); write(' GetFocus=',HexStr(Cardinal(CurFocusWidget),8));
LCLObject:=GetParentLCLObject(CurFocusWidget); LCLObject:=GetNearestLCLObject(CurFocusWidget);
if LCLObject<>nil then begin if LCLObject<>nil then begin
if LCLObject is TComponent then begin if LCLObject is TComponent then begin
write(' ParentLCLFocus=',TComponent(LCLObject).Name,':',LCLObject.ClassName) write(' ParentLCLFocus=',TComponent(LCLObject).Name,':',LCLObject.ClassName)
@ -839,7 +839,7 @@ begin
CurFocusWidget:=PGtkWidget(GetFocus); CurFocusWidget:=PGtkWidget(GetFocus);
if CurFocusWidget<>nil then begin if CurFocusWidget<>nil then begin
write(' GetFocus=',HexStr(Cardinal(CurFocusWidget),8)); write(' GetFocus=',HexStr(Cardinal(CurFocusWidget),8));
LCLObject:=GetParentLCLObject(CurFocusWidget); LCLObject:=GetNearestLCLObject(CurFocusWidget);
if LCLObject<>nil then begin if LCLObject<>nil then begin
if LCLObject is TComponent then begin if LCLObject is TComponent then begin
write(' ParentLCLFocus=',TComponent(LCLObject).Name,':',LCLObject.ClassName) write(' ParentLCLFocus=',TComponent(LCLObject).Name,':',LCLObject.ClassName)
@ -890,7 +890,7 @@ begin
CurFocusWidget:=PGtkWidget(GetFocus); CurFocusWidget:=PGtkWidget(GetFocus);
if CurFocusWidget<>nil then begin if CurFocusWidget<>nil then begin
write(' GetFocus=',HexStr(Cardinal(CurFocusWidget),8)); write(' GetFocus=',HexStr(Cardinal(CurFocusWidget),8));
LCLObject:=GetParentLCLObject(CurFocusWidget); LCLObject:=GetNearestLCLObject(CurFocusWidget);
if LCLObject<>nil then begin if LCLObject<>nil then begin
if LCLObject is TComponent then begin if LCLObject is TComponent then begin
write(' ParentLCLFocus=',TComponent(LCLObject).Name,':',LCLObject.ClassName) write(' ParentLCLFocus=',TComponent(LCLObject).Name,':',LCLObject.ClassName)
@ -934,7 +934,7 @@ begin
CurFocusWidget:=PGtkWidget(GetFocus); CurFocusWidget:=PGtkWidget(GetFocus);
if CurFocusWidget<>nil then begin if CurFocusWidget<>nil then begin
write(' GetFocus=',HexStr(Cardinal(CurFocusWidget),8)); write(' GetFocus=',HexStr(Cardinal(CurFocusWidget),8));
LCLObject:=GetParentLCLObject(CurFocusWidget); LCLObject:=GetNearestLCLObject(CurFocusWidget);
if LCLObject<>nil then begin if LCLObject<>nil then begin
if LCLObject is TComponent then begin if LCLObject is TComponent then begin
write(' ParentLCLFocus=',TComponent(LCLObject).Name,':',LCLObject.ClassName) write(' ParentLCLFocus=',TComponent(LCLObject).Name,':',LCLObject.ClassName)
@ -3066,6 +3066,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.224 2004/04/02 14:28:44 vincents
Fixed compilation with -dVerboseFocus
Revision 1.223 2004/03/22 19:10:04 mattias Revision 1.223 2004/03/22 19:10:04 mattias
implemented icons for TPage in gtk, mask for TCustomImageList implemented icons for TPage in gtk, mask for TCustomImageList

9
lcl/interfaces/gtk/gtkwinapi.inc
View File

@ -7760,7 +7760,7 @@ begin
writeln(''); write(' '); writeln(''); write(' ');
write(' TopLevel=',HexStr(Cardinal(TopLevel),8)); write(' TopLevel=',HexStr(Cardinal(TopLevel),8));
write(' OldFocus=',HexStr(Cardinal(Result),8)); write(' OldFocus=',HexStr(Cardinal(Result),8));
AWinControl:=TWinControl(GetParentLCLObject(PGtkWidget(Result))); AWinControl:=TWinControl(GetNearestLCLObject(PGtkWidget(Result)));
if AWinControl<>nil then if AWinControl<>nil then
write(' OldLCLParent=',AWinControl.Name,':',AWinControl.ClassName) write(' OldLCLParent=',AWinControl.Name,':',AWinControl.ClassName)
else else
@ -7774,7 +7774,7 @@ begin
then begin then begin
// TopLevel is a gtkwindow // TopLevel is a gtkwindow
{$IfDef VerboseFocus} {$IfDef VerboseFocus}
AWinControl:=TWinControl(GetParentLCLObject(PGtkWindow(TopLevel)^.focus_widget)); AWinControl:=TWinControl(GetNearestLCLObject(PGtkWindow(TopLevel)^.focus_widget));
write(' C TopLevel is a gtkwindow '); write(' C TopLevel is a gtkwindow ');
write(' focus_widget=',HexStr(Cardinal(PGtkWindow(TopLevel)^.focus_widget),8)); write(' focus_widget=',HexStr(Cardinal(PGtkWindow(TopLevel)^.focus_widget),8));
if AWinControl<>nil then if AWinControl<>nil then
@ -7858,7 +7858,7 @@ begin
write('[TGtkWidgetSet.SetFocus] END hWnd=',HexStr(Cardinal(hWnd),8)); write('[TGtkWidgetSet.SetFocus] END hWnd=',HexStr(Cardinal(hWnd),8));
NewFocusWidget:=PGtkWidget(GetFocus); NewFocusWidget:=PGtkWidget(GetFocus);
write(' NewFocus=',HexStr(Cardinal(NewFocusWidget),8)); write(' NewFocus=',HexStr(Cardinal(NewFocusWidget),8));
AWinControl:=TWinControl(GetParentLCLObject(NewFocusWidget)); AWinControl:=TWinControl(GetNearestLCLObject(NewFocusWidget));
if AWinControl<>nil then if AWinControl<>nil then
write(' NewLCLParent=',AWinControl.Name,':',AWinControl.ClassName) write(' NewLCLParent=',AWinControl.Name,':',AWinControl.ClassName)
else else
@ -8746,6 +8746,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.344 2004/04/02 14:28:44 vincents
Fixed compilation with -dVerboseFocus
Revision 1.343 2004/03/30 20:38:14 mattias Revision 1.343 2004/03/30 20:38:14 mattias
fixed interface constraints, fixed syncompletion colors fixed interface constraints, fixed syncompletion colors