paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-25 11:42:46 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed aligning controls

Browse Source 
git-svn-id: trunk@2566 -
This commit is contained in:
mattias 2002-08-17 23:41:29 +00:00
parent 835bfad5d1
commit d55f9aba80
1 changed files with 18 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
lcl/interfaces/gtk/gtkproc.inc
View File

@ -3270,31 +3270,31 @@ end;
Function CreateFormContents(var FormWidget : Pointer) : Pointer; Function CreateFormContents(var FormWidget : Pointer) : Pointer;
var var
TempWidget, ScrolledWidget,
TempWidget2 : Pointer; LayoutWidget: Pointer;
begin begin
// Create the VBox. We need that to place controls outside // Create the VBox. We need that to place controls outside
// the client area (like menu and the statusbar) // the client area (like menu)
Result := gtk_vbox_new(False, 0); Result := gtk_vbox_new(False, 0);
If FormWidget = nil then If FormWidget = nil then
FormWidget := Result; FormWidget := Result;
// Create the form client area // Create the form client area
TempWidget := gtk_scrolled_window_new(nil,nil); ScrolledWidget := gtk_scrolled_window_new(nil,nil);
gtk_box_pack_end(Result, TempWidget, True, True, 0); gtk_box_pack_end(Result, ScrolledWidget, True, True, 0);
gtk_widget_show(TempWidget); gtk_widget_show(ScrolledWidget);
gtk_object_set_data(FormWidget,'scroll_area', TempWidget); gtk_object_set_data(FormWidget,'scroll_area', ScrolledWidget);
TempWidget2 := gtk_layout_new(nil, nil); LayoutWidget := gtk_layout_new(nil, nil);
gtk_container_add(TempWidget, TempWidget2); gtk_container_add(ScrolledWidget, LayoutWidget);
gtk_widget_show(TempWidget2); gtk_widget_show(LayoutWidget);
SetFixedWidget(FormWidget, TempWidget2); SetFixedWidget(FormWidget, LayoutWidget);
SetMainWidget(FormWidget, TempWidget2); SetMainWidget(FormWidget, LayoutWidget);
GTK_WIDGET_UNSET_FLAGS(PGtkScrolledWindow(TempWidget)^.hscrollbar, GTK_CAN_FOCUS); GTK_WIDGET_UNSET_FLAGS(PGtkScrolledWindow(ScrolledWidget)^.hscrollbar, GTK_CAN_FOCUS);
GTK_WIDGET_UNSET_FLAGS(PGtkScrolledWindow(TempWidget)^.vscrollbar, GTK_CAN_FOCUS); GTK_WIDGET_UNSET_FLAGS(PGtkScrolledWindow(ScrolledWidget)^.vscrollbar, GTK_CAN_FOCUS);
gtk_scrolled_window_set_policy(PGtkScrolledWindow(TempWidget), gtk_scrolled_window_set_policy(PGtkScrolledWindow(ScrolledWidget),
GTK_POLICY_NEVER, GTK_POLICY_NEVER,
GTK_POLICY_NEVER); GTK_POLICY_NEVER);
end; end;
@ -4102,6 +4102,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.179 2003/06/10 00:46:16 mattias
fixed aligning controls
Revision 1.178 2003/06/03 10:29:22 mattias Revision 1.178 2003/06/03 10:29:22 mattias
implemented updates between source marks and breakpoints implemented updates between source marks and breakpoints