paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-21 22:22:47 +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;
var
TempWidget,
TempWidget2 : Pointer;
ScrolledWidget,
LayoutWidget: Pointer;
begin
// 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);
If FormWidget = nil then
FormWidget := Result;
// Create the form client area
TempWidget := gtk_scrolled_window_new(nil,nil);
gtk_box_pack_end(Result, TempWidget, True, True, 0);
gtk_widget_show(TempWidget);
ScrolledWidget := gtk_scrolled_window_new(nil,nil);
gtk_box_pack_end(Result, ScrolledWidget, True, True, 0);
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);
gtk_container_add(TempWidget, TempWidget2);
gtk_widget_show(TempWidget2);
SetFixedWidget(FormWidget, TempWidget2);
SetMainWidget(FormWidget, TempWidget2);
LayoutWidget := gtk_layout_new(nil, nil);
gtk_container_add(ScrolledWidget, LayoutWidget);
gtk_widget_show(LayoutWidget);
SetFixedWidget(FormWidget, LayoutWidget);
SetMainWidget(FormWidget, LayoutWidget);
GTK_WIDGET_UNSET_FLAGS(PGtkScrolledWindow(TempWidget)^.hscrollbar, GTK_CAN_FOCUS);
GTK_WIDGET_UNSET_FLAGS(PGtkScrolledWindow(TempWidget)^.vscrollbar, GTK_CAN_FOCUS);
gtk_scrolled_window_set_policy(PGtkScrolledWindow(TempWidget),
GTK_WIDGET_UNSET_FLAGS(PGtkScrolledWindow(ScrolledWidget)^.hscrollbar, GTK_CAN_FOCUS);
GTK_WIDGET_UNSET_FLAGS(PGtkScrolledWindow(ScrolledWidget)^.vscrollbar, GTK_CAN_FOCUS);
gtk_scrolled_window_set_policy(PGtkScrolledWindow(ScrolledWidget),
GTK_POLICY_NEVER,
GTK_POLICY_NEVER);
end;
@ -4102,6 +4102,9 @@ end;
{ =============================================================================
$Log$
Revision 1.179 2003/06/10 00:46:16 mattias
fixed aligning controls
Revision 1.178 2003/06/03 10:29:22 mattias
implemented updates between source marks and breakpoints