paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 00:39:44 +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 HostDockSite : TWincontrol read FHostDockSite write FHostDockSite;
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 ShowHint : Boolean read FShowHint write SetShowHint;
property Visible: Boolean read FVisible write SetVisible;
@ -1148,6 +1148,9 @@ end.
{ =============================================================================
$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
MG: fixed initial component aligning

5
lcl/include/control.inc
View File

@ -33,7 +33,7 @@ end;
------------------------------------------------------------------------------}
procedure TControl.BeginDrag(Immediate: Boolean; Threshold: Integer);
var
P : TPoint;
P : TPoint;
begin
if (DragControl = nil) or (pointer(dragcontrol) = pointer($FFFFFFFF)) then
Begin
@ -1349,6 +1349,9 @@ end;
{ =============================================================================
$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
MG: fixed initial component aligning

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

@ -828,8 +828,8 @@ var
SizeMsg: TLMSize;
MoveMsg: TLMMove;
Dummy: TPoint;
OldLeft, OldTop, OldWidth, OldHeight: integer;
TopLeftChanged, WidthHeightChanged: boolean;
//OldLeft, OldTop, OldWidth, OldHeight: integer;
//TopLeftChanged, WidthHeightChanged: boolean;
begin
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]));
if (TObject(Data) is TControl) then begin
{if (TObject(Data) is TControl) then begin
OldLeft:=TControl(Data).Left;
OldTop:=TControl(Data).Top;
OldWidth:=TControl(Data).Width;
@ -850,7 +850,7 @@ begin
OldTop:=0;
OldWidth:=0;
OldHeight:=0;
end;
end;}
New(PosMsg.WindowPos);
try
@ -877,13 +877,13 @@ begin
cy := Size^.Height;
flags := 0;
end;
TopLeftChanged:=(OldLeft<>Size^.X) or (OldTop<>Size^.Y);
WidthHeightChanged:=(OldWidth<>Size^.Width) or (OldHeight<>Size^.Height);
if TopLeftChanged or WidthHeightChanged then begin
//TopLeftChanged:=(OldLeft<>Size^.X) or (OldTop<>Size^.Y);
//WidthHeightChanged:=(OldWidth<>Size^.Width) or (OldHeight<>Size^.Height);
//if TopLeftChanged or WidthHeightChanged then begin
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);
Result := DeliverMessage(Data, PosMsg) = 0;
end;
//end;
finally
Dispose(PosMsg.WindowPos);
end;
@ -902,7 +902,7 @@ Writeln('***********************');
if (PosMsg.Result <> 0 ) then
begin
// message is not handled. A LM_SIZE and LM_MOVE should be sent
if WidthHeightChanged then begin
//if WidthHeightChanged then begin
with SizeMsg do
begin
Msg := LM_SIZE;
@ -913,9 +913,9 @@ Writeln('***********************');
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);
Result := (DeliverMessage(Data, SizeMsg) = 0) or Result;
end;
//end;
if TopLeftChanged then begin
//if TopLeftChanged then begin
with MoveMsg do
begin
Msg := LM_MOVE;
@ -926,7 +926,7 @@ Writeln('***********************');
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);
Result := (DeliverMessage(Data, MoveMsg) = 0) or Result;
end;
//end;
end;
end;
@ -1614,6 +1614,9 @@ end;
{ =============================================================================
$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
MG: fixed initial component aligning