paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-26 07:30:44 +01:00
Code Issues Packages Projects Releases Wiki Activity

gtk2: apply TListView.BorderStyle on widget creation (fixes part of bug #0013182)

Browse Source 
git-svn-id: trunk@18753 -
This commit is contained in:
paul 2009-02-19 02:24:38 +00:00
parent 4c55ecc090
commit 8bbf2ec14f
3 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/gtk2/gtk2int.pas
View File

@ -11,7 +11,7 @@
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *

2
lcl/interfaces/gtk2/gtk2wscomctrls.pp
View File

@ -35,7 +35,7 @@ uses
// widgetset
WSComCtrls, WSLCLClasses, WSControls, WSProc,
// GtkWidgetset
GtkWSControls, GtkDef, GtkProc,
GtkWSControls, GtkDef, GtkGlobals, GtkProc,
// Gtk2Widgetset
Gtk2WSControls, Gtk2Int;

3
lcl/interfaces/gtk2/gtk2wscustomlistview.inc
View File

@ -1000,7 +1000,6 @@ var
ScrollWidget: PGtkScrolledWindow;
PtrType: GType;
begin
Result := TGtkWSBaseScrollingWinControl.CreateHandle(AWinControl, AParams);
if Result = 0 then Exit;
@ -1009,6 +1008,8 @@ begin
gtk_widget_unset_flags(ScrollWidget^.hscrollbar, GTK_CAN_FOCUS);
gtk_widget_unset_flags(ScrollWidget^.vscrollbar, GTK_CAN_FOCUS);
gtk_scrolled_window_set_policy(ScrollWidget, GTK_POLICY_AUTOMATIC, GTK_POLICY_AUTOMATIC);
gtk_scrolled_window_set_shadow_type(ScrollWidget,
BorderStyleShadowMap[TCustomListView(AWinControl).BorderStyle]);
gtk_widget_show(PGtkWidget(ScrollWidget));