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

MG: find declaration for delphi pointer shortcut and clientrect tricks

Browse Source 
git-svn-id: trunk@695 -
This commit is contained in:
lazarus 2002-02-09 01:45:22 +00:00
parent fa7d4c0348
commit 9552e6c3d1
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lcl/interfaces/gtk/gtkobject.inc
View File

@ -1324,7 +1324,8 @@ end;
*Note: Resize a child widget on the parents fixed widget *Note: Resize a child widget on the parents fixed widget
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
procedure TgtkObject.ResizeChild(Sender : TObject;Left,Top,Width,Height : Integer); procedure TgtkObject.ResizeChild(Sender : TObject;
Left, Top, Width, Height : Integer);
{ $DEFINE VerboseResizeChild} { $DEFINE VerboseResizeChild}
var var
pFixed: PGTKFixed; pFixed: PGTKFixed;
@ -1361,7 +1362,9 @@ begin
if (DummyWidget <> nil) then begin if (DummyWidget <> nil) then begin
if (DummyWidget^.Window<>nil) then begin if (DummyWidget^.Window<>nil) then begin
gdk_window_get_size(DummyWidget^.Window, @Dummy.X, @Dummy.Y); gdk_window_get_size(DummyWidget^.Window, @Dummy.X, @Dummy.Y);
writeln(' OldFixWidSize=',Dummy.X,',',Dummy.Y); writeln(' OldFixWidSize=',Dummy.X,',',Dummy.Y,
' Allocation=',DummyWidget^.Allocation.Width,',',DummyWidget^.Allocation.Height,
' Requisiton=',DummyWidget^.Requisition.Width,',',DummyWidget^.Requisition.Height);
end else end else
writeln(' FixWid^.Window=nil'); writeln(' FixWid^.Window=nil');
end else begin end else begin
@ -2455,6 +2458,10 @@ begin
SetFixedWidget(p, TempWidget); SetFixedWidget(p, TempWidget);
SetMainWidget(p, TempWidget); SetMainWidget(p, TempWidget);
gtk_widget_show (P); gtk_widget_show (P);
{writeln('Create csGroupBox Allocation=',PGtkWidget(p)^.Allocation.Width,',',PGtkWidget(p)^.Allocation.Height,
' Requisiton=',PGtkWidget(p)^.Requisition.Width,',',PGtkWidget(p)^.Requisition.Height);
writeln('Create csGroupBox FixWidget Allocation=',TempWidget^.Allocation.Width,',',TempWidget^.Allocation.Height,
' Requisiton=',TempWidget^.Requisition.Width,',',TempWidget^.Requisition.Height);}
end; end;
csGTKTable : csGTKTable :
@ -3885,6 +3892,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.117 2002/05/01 11:57:41 lazarus
MG: find declaration for delphi pointer shortcut and clientrect tricks
Revision 1.116 2002/04/30 09:57:21 lazarus Revision 1.116 2002/04/30 09:57:21 lazarus
MG: fixed find declaration of default properties MG: fixed find declaration of default properties