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

Added some debug code for the top,left reporting problem.

Browse Source 
Shane

git-svn-id: trunk@204 -
This commit is contained in:
lazarus 2001-02-28 13:17:34 +00:00
parent 4c029112d0
commit 8802de661f
4 changed files with 27 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
designer/objectinspector.pp
View File

@ -1364,6 +1364,7 @@ begin
FPropertyEditorHook:=nil;
FComponentList:=TComponentSelectionList.Create;
FUpdatingAvailComboBox:=false;
Name := 'ObjectInspector';
// StatusBar
StatusBar:=TStatusBar.Create(Self);

6
lcl/include/customform.inc
View File

@ -205,6 +205,8 @@ end;
------------------------------------------------------------------------------}
procedure TCustomForm.WMSize(var Message: TLMSize);
Begin
Writeln('[TCUSTOMFORM].WMSIZE');
Writeln(Format('Size is width=%d height= %d',[Message.Width,MEssage.height]));
Assert(False, 'Trace:WMSIZE in TCustomForm');
if not (csDesigning in ComponentState) then
Case Message.SizeType of
@ -853,6 +855,10 @@ end;
{ =============================================================================
$Log$
Revision 1.13 2001/02/28 13:17:33 lazarus
Added some debug code for the top,left reporting problem.
Shane
Revision 1.12 2001/02/06 20:59:17 lazarus
Trying to get the last control of the last form focused when a dialog closes.
Still working on it.

7
lcl/include/wincontrol.inc
View File

@ -1403,6 +1403,9 @@ end;
procedure TWinControl.WMMove(var Message: TLMMove);
begin
{ Just sync the coordinates }
Writeln('[TWINCONTROL].WMMOVE');
Writeln(Format('MOVE is LEft=%d Top= %d',[Message.XPos,MEssage.YPos]));
FLeft := Message.XPos;
FTop := Message.YPos;
{ TODO : When anchors are implemented, update its rules instead }
@ -1929,6 +1932,10 @@ end;
{ =============================================================================
$Log$
Revision 1.20 2001/02/28 13:17:33 lazarus
Added some debug code for the top,left reporting problem.
Shane
Revision 1.19 2001/02/06 20:59:17 lazarus
Trying to get the last control of the last form focused when a dialog closes.
Still working on it.

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

@ -594,6 +594,15 @@ begin
finally
Dispose(PosMsg.WindowPos);
end;
Writeln('***********************');
Writeln('[gtksize_allocateCB]');
Writeln(Format('Size is stated as x=%d y=%d width=%d height=%d',[Size^.x,Size^.y,Size^.width, Size^.height]));
Writeln('if PosMsg.Result <> 0 then it sends out a LMMOVE and LMSIZE');
Writeln(Format('PosMsg.Result is %d',[PosMsg.Result]));
if (TOBject(data) is TWinControl) then
Writeln('The control name is '+TControl(data).Name);
Writeln('***********************');
if (PosMsg.Result <> 0 ) then
begin
@ -1080,6 +1089,10 @@ end;
{ =============================================================================
$Log$
Revision 1.23 2001/02/28 13:17:34 lazarus
Added some debug code for the top,left reporting problem.
Shane
Revision 1.22 2001/02/20 16:53:27 lazarus
Changes for wordcompletion and many other things from Mattias.
Shane