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

MG: more wmsize messages :(

Browse Source 
git-svn-id: trunk@565 -
This commit is contained in:
lazarus 2002-01-01 18:38:36 +00:00
parent b1f7c7095a
commit 490d5b5f62
3 changed files with 23 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/controls.pp
View File

@ -543,7 +543,7 @@ TCMDialogKey = TLMKEY;
property Font : TFont read FFont write FFont; property Font : TFont read FFont write FFont;
property HostDockSite : TWincontrol read FHostDockSite write FHostDockSite; property HostDockSite : TWincontrol read FHostDockSite write FHostDockSite;
property ClientHeight : Integer read FHeight write SetHeight; property ClientHeight : Integer read FHeight write SetHeight;
property ClientWidth : Integer read FWIdth write SetWidth; property ClientWidth : Integer read FWidth write SetWidth;
property Parent : TWinControl read FParent write SetParent; property Parent : TWinControl read FParent write SetParent;
property ShowHint : Boolean read FShowHint write SetShowHint; property ShowHint : Boolean read FShowHint write SetShowHint;
property Visible: Boolean read FVisible write SetVisible; property Visible: Boolean read FVisible write SetVisible;
@ -1148,6 +1148,9 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.29 2002/01/01 18:38:36 lazarus
MG: more wmsize messages :(
Revision 1.28 2002/01/01 15:50:13 lazarus Revision 1.28 2002/01/01 15:50:13 lazarus
MG: fixed initial component aligning MG: fixed initial component aligning

5
lcl/include/control.inc
View File

@ -33,7 +33,7 @@ end;
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
procedure TControl.BeginDrag(Immediate: Boolean; Threshold: Integer); procedure TControl.BeginDrag(Immediate: Boolean; Threshold: Integer);
var var
P : TPoint; P : TPoint;
begin begin
if (DragControl = nil) or (pointer(dragcontrol) = pointer($FFFFFFFF)) then if (DragControl = nil) or (pointer(dragcontrol) = pointer($FFFFFFFF)) then
Begin Begin
@ -1349,6 +1349,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.32 2002/01/01 18:38:36 lazarus
MG: more wmsize messages :(
Revision 1.31 2002/01/01 15:50:14 lazarus Revision 1.31 2002/01/01 15:50:14 lazarus
MG: fixed initial component aligning MG: fixed initial component aligning

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

@ -828,8 +828,8 @@ var
SizeMsg: TLMSize; SizeMsg: TLMSize;
MoveMsg: TLMMove; MoveMsg: TLMMove;
Dummy: TPoint; Dummy: TPoint;
OldLeft, OldTop, OldWidth, OldHeight: integer; //OldLeft, OldTop, OldWidth, OldHeight: integer;
TopLeftChanged, WidthHeightChanged: boolean; //TopLeftChanged, WidthHeightChanged: boolean;
begin begin
EventTrace('size-allocate', data); EventTrace('size-allocate', data);
@ -840,7 +840,7 @@ begin
with Size^ do Assert(False, Format('Trace:[gtksize_allocateCB] %s --> X: %d, Y: %d, Width: %d, Height: %d', [TObject(data).ClassName, X, Y, Width, Height])); with Size^ do Assert(False, Format('Trace:[gtksize_allocateCB] %s --> X: %d, Y: %d, Width: %d, Height: %d', [TObject(data).ClassName, X, Y, Width, Height]));
if (TObject(Data) is TControl) then begin {if (TObject(Data) is TControl) then begin
OldLeft:=TControl(Data).Left; OldLeft:=TControl(Data).Left;
OldTop:=TControl(Data).Top; OldTop:=TControl(Data).Top;
OldWidth:=TControl(Data).Width; OldWidth:=TControl(Data).Width;
@ -850,7 +850,7 @@ begin
OldTop:=0; OldTop:=0;
OldWidth:=0; OldWidth:=0;
OldHeight:=0; OldHeight:=0;
end; end;}
New(PosMsg.WindowPos); New(PosMsg.WindowPos);
try try
@ -877,13 +877,13 @@ begin
cy := Size^.Height; cy := Size^.Height;
flags := 0; flags := 0;
end; end;
TopLeftChanged:=(OldLeft<>Size^.X) or (OldTop<>Size^.Y); //TopLeftChanged:=(OldLeft<>Size^.X) or (OldTop<>Size^.Y);
WidthHeightChanged:=(OldWidth<>Size^.Width) or (OldHeight<>Size^.Height); //WidthHeightChanged:=(OldWidth<>Size^.Width) or (OldHeight<>Size^.Height);
if TopLeftChanged or WidthHeightChanged then begin //if TopLeftChanged or WidthHeightChanged then begin
Assert(False, 'Trace:[gtksize_allocateCB] DeliverMessage LM_WINDOWPOSCHANGED'); Assert(False, 'Trace:[gtksize_allocateCB] DeliverMessage LM_WINDOWPOSCHANGED');
//writeln('[gtksize_allocateCB] Sending LM_WINDOWPOSCHANGED message: Target=',TObject(Data).ClassName,' Left=',Size^.X,' Top=',Size^.Y,' Width=',Size^.Width,' Height=',Size^.Height); //writeln('[gtksize_allocateCB] Sending LM_WINDOWPOSCHANGED message: Target=',TObject(Data).ClassName,' Left=',Size^.X,' Top=',Size^.Y,' Width=',Size^.Width,' Height=',Size^.Height);
Result := DeliverMessage(Data, PosMsg) = 0; Result := DeliverMessage(Data, PosMsg) = 0;
end; //end;
finally finally
Dispose(PosMsg.WindowPos); Dispose(PosMsg.WindowPos);
end; end;
@ -902,7 +902,7 @@ Writeln('***********************');
if (PosMsg.Result <> 0 ) then if (PosMsg.Result <> 0 ) then
begin begin
// message is not handled. A LM_SIZE and LM_MOVE should be sent // message is not handled. A LM_SIZE and LM_MOVE should be sent
if WidthHeightChanged then begin //if WidthHeightChanged then begin
with SizeMsg do with SizeMsg do
begin begin
Msg := LM_SIZE; Msg := LM_SIZE;
@ -913,9 +913,9 @@ Writeln('***********************');
Assert(False, 'Trace:[gtksize_allocateCB] DeliverMessage LM_SIZE'); Assert(False, 'Trace:[gtksize_allocateCB] DeliverMessage LM_SIZE');
//writeln('[gtksize_allocateCB] Sending LM_SIZE message: Target=',TObject(Data).ClassName,' Width=',SizeMsg.Width,' Height=',SizeMsg.Height); //writeln('[gtksize_allocateCB] Sending LM_SIZE message: Target=',TObject(Data).ClassName,' Width=',SizeMsg.Width,' Height=',SizeMsg.Height);
Result := (DeliverMessage(Data, SizeMsg) = 0) or Result; Result := (DeliverMessage(Data, SizeMsg) = 0) or Result;
end; //end;
if TopLeftChanged then begin //if TopLeftChanged then begin
with MoveMsg do with MoveMsg do
begin begin
Msg := LM_MOVE; Msg := LM_MOVE;
@ -926,7 +926,7 @@ Writeln('***********************');
Assert(False, 'Trace:[gtksize_allocateCB] DeliverMessage LM_MOVE'); Assert(False, 'Trace:[gtksize_allocateCB] DeliverMessage LM_MOVE');
//writeln('[gtksize_allocateCB] Sending LM_MOVE message: Target=',TObject(Data).ClassName,' XPos=',MoveMsg.XPos,' YPos=',MoveMsg.YPos); //writeln('[gtksize_allocateCB] Sending LM_MOVE message: Target=',TObject(Data).ClassName,' XPos=',MoveMsg.XPos,' YPos=',MoveMsg.YPos);
Result := (DeliverMessage(Data, MoveMsg) = 0) or Result; Result := (DeliverMessage(Data, MoveMsg) = 0) or Result;
end; //end;
end; end;
end; end;
@ -1614,6 +1614,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.59 2002/01/01 18:38:36 lazarus
MG: more wmsize messages :(
Revision 1.58 2002/01/01 15:50:16 lazarus Revision 1.58 2002/01/01 15:50:16 lazarus
MG: fixed initial component aligning MG: fixed initial component aligning