paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-09 15:16:04 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: Form Editing: snapping, guidelines, modified on move/resize, creating components in csDesigning, ...

Browse Source 
git-svn-id: trunk@720 -
This commit is contained in:
lazarus 2002-02-09 01:45:47 +00:00
parent af1191cb94
commit c28e4a8a65
1 changed files with 46 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -187,6 +187,7 @@ end;
procedure TgtkObject.SetWindowSizeAndPosition(Window: PGtkWindow; procedure TgtkObject.SetWindowSizeAndPosition(Window: PGtkWindow;
AWinControl: TWinControl); AWinControl: TWinControl);
begin begin
if AWinControl is TButton then writeln('NANU? ');
gtk_window_set_default_size(Window,AWinControl.Width,AWinControl.Height); gtk_window_set_default_size(Window,AWinControl.Width,AWinControl.Height);
gtk_widget_set_usize(PGtkWidget(Window), -1,-1); gtk_widget_set_usize(PGtkWidget(Window), -1,-1);
gtk_widget_set_usize(PGtkWidget(Window),AWinControl.Width,AWinControl.Height); gtk_widget_set_usize(PGtkWidget(Window),AWinControl.Width,AWinControl.Height);
@ -3877,24 +3878,52 @@ end;
{------------------------------------------------------------------------------} {------------------------------------------------------------------------------}
procedure TgtkObject.ShowHide(Sender : TObject); procedure TgtkObject.ShowHide(Sender : TObject);
var FormIconGdiObject: PGDIObject; var FormIconGdiObject: PGDIObject;
SenderWidget: PGTKWidget; SenderWidget, ParentFixed, ParentWidget: PGTKWidget;
LCLControl: TWinControl;
begin begin
SenderWidget:=PgtkWidget(TWinControl(Sender).Handle); LCLControl:=TWinControl(Sender);
SenderWidget:=PgtkWidget(LCLControl.Handle);
//if Sender is TForm then //if Sender is TForm then
// writeln('[TgtkObject.ShowHide] START ',Sender.ClassName,' Visible=',TControl(Sender).Visible,' Window=',FormWidget^.Window<>nil); // writeln('[TgtkObject.ShowHide] START ',Sender.ClassName,' Visible=',TControl(Sender).Visible,' Window=',FormWidget^.Window<>nil);
if TControl(Sender).Visible then begin if LCLControl.Visible
if (Sender is TCustomForm) and (not gtk_widget_visible(SenderWidget)) then or ((csDesigning in LCLControl.ComponentState)
begin and not (csNoDesignVisible in LCLControl.ControlStyle)) then
{$IFDEF VerboseFormPositioning} begin
writeln('VFP [TgtkObject.ShowHide] A set bounds ', if gtk_widget_visible(SenderWidget) then
TControl(Sender).Name,':',TControl(Sender).ClassName, exit;
' Window=',SenderWidget^.Window<>nil,
' ',TControl(Sender).Left,',',TControl(Sender).Top, // before making the widget visible, set the position and size
',',TControl(Sender).Width,',',TControl(Sender).Height); if FWidgetsWithResizeRequest.Contains(SenderWidget) then begin
{$ENDIF} if (LCLControl is TCustomForm) and (LCLControl.Parent=nil) then begin
SetWindowSizeAndPosition(PgtkWindow(SenderWidget),TWinControl(Sender)); // top level control (a form without parent)
UnsetResizeRequest(PgtkWidget(Sender)); {$IFDEF VerboseFormPositioning}
writeln('VFP [TgtkObject.ShowHide] A set bounds ',
LCLControl.Name,':',LCLControl.ClassName,
' Window=',SenderWidget^.Window<>nil,
' ',TControl(Sender).Left,',',TControl(Sender).Top,
',',TControl(Sender).Width,',',TControl(Sender).Height);
{$ENDIF}
SetWindowSizeAndPosition(PgtkWindow(SenderWidget),TWinControl(Sender));
end else if (LCLControl.Parent<>nil) then begin
// resize widget
gtk_widget_set_usize(SenderWidget,LCLControl.Width,LCLControl.Height);
// move widget on the fixed widget of parent control
ParentWidget:=pgtkWidget(LCLControl.Parent.Handle);
ParentFixed := GetFixedWidget(ParentWidget);
if ParentFixed <> nil then begin
gtk_fixed_move(PGtkFixed(ParentFixed), SenderWidget,
LCLControl.Left, LCLControl.Top);
end else begin
if not (LCLControl.Parent is TNoteBook) then begin
writeln('WARNING: TgtkObject.ShowHide - no Fixed Widget found');
writeln(' Control=',LCLControl.Name,':',LCLControl.ClassName);
end;
Assert(False, 'WARNING: TgtkObject.ShowHide - no Fixed Widget found');
end;
end;
end; end;
UnsetResizeRequest(SenderWidget);
gtk_widget_show(SenderWidget); gtk_widget_show(SenderWidget);
if (Sender is TCustomForm) and (SenderWidget^.Window<>nil) then begin if (Sender is TCustomForm) and (SenderWidget^.Window<>nil) then begin
FormIconGdiObject:=PGDIObject(TCustomForm(Sender).GetIconHandle); FormIconGdiObject:=PGDIObject(TCustomForm(Sender).GetIconHandle);
@ -5309,6 +5338,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.142 2002/06/19 19:46:09 lazarus
MG: Form Editing: snapping, guidelines, modified on move/resize, creating components in csDesigning, ...
Revision 1.141 2002/06/11 13:41:10 lazarus Revision 1.141 2002/06/11 13:41:10 lazarus
MG: fixed mouse coords and fixed mouse clicked thru bug MG: fixed mouse coords and fixed mouse clicked thru bug