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

AJ: Started Form Scrolling

Browse Source 
Started StaticText FocusControl
    Fixed Misc Dialog Problems
    Added TApplication.Title

git-svn-id: trunk@1076 -
This commit is contained in:
lazarus 2002-02-09 01:47:47 +00:00
parent 2ed90c3bbc
commit 590ea0c43e
1 changed files with 20 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3975,12 +3975,23 @@ begin
gtk_widget_show(Box);
// Create the form client area
TempWidget := gtk_fixed_new();
TempWidget := gtk_scrolled_window_new(nil,nil);
gtk_box_pack_end(Box, TempWidget, True, True, 0);
gtk_widget_show(TempWidget);
SetFixedWidget(p, TempWidget);
SetMainWidget(p, TempWidget);
gtk_object_set_data(P,'scroll_area', TempWidget);
TempWidget2 := gtk_layout_new(nil, nil);
gtk_container_add(PGTKContainer(TempWidget), TempWidget2);
gtk_widget_show(TempWidget2);
SetFixedWidget(p, TempWidget2);
SetMainWidget(p, TempWidget2);
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_POLICY_NEVER,
GTK_POLICY_NEVER);
//drag icons
if Drag_Icon = nil then
Drag_Icon := gdk_pixmap_colormap_create_from_xpm_d (nil,
@ -6510,6 +6521,12 @@ end;
{ =============================================================================
$Log$
Revision 1.262 2002/10/23 20:47:27 lazarus
AJ: Started Form Scrolling
Started StaticText FocusControl
Fixed Misc Dialog Problems
Added TApplication.Title
Revision 1.261 2002/10/22 18:54:56 lazarus
MG: fixed menu streaming