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

MG: fixed scrollbars of TTreeView

Browse Source 
git-svn-id: trunk@1880 -
This commit is contained in:
lazarus 2002-08-17 23:39:32 +00:00
parent e023b9766a
commit 3a9e0899dc
1 changed files with 48 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
lcl/interfaces/gtk/gtkwinapi.inc
View File

@ -5288,6 +5288,7 @@ begin
Result := 0; Result := 0;
if (Handle <> 0) if (Handle <> 0)
then begin then begin
Adjustment := nil;
case SBStyle of case SBStyle of
SB_HORZ: SB_HORZ:
@ -5330,8 +5331,6 @@ begin
Adjustment := gtk_range_get_adjustment(PGTKRange(Handle)); Adjustment := gtk_range_get_adjustment(PGTKRange(Handle));
end; end;
else
Adjustment := nil;
end; end;
if Adjustment <> nil if Adjustment <> nil
@ -5350,31 +5349,49 @@ begin
Page_Increment := nPage; Page_Increment := nPage;
end; end;
//writeln('[TgtkObject.SetScrollInfo] Result=',Result,' Lower=',round(Lower),' Upper=',round(Upper),' Page_Size=',round(Page_Size),' Page_Increment=',round(Page_Increment),' bRedraw=',bRedraw,' Handle=',Handle); {writeln('[TgtkObject.SetScrollInfo] Result=',Result,
' Lower=',round(Lower),
' Upper=',round(Upper),
' Page_Size=',round(Page_Size),
' Page_Increment=',round(Page_Increment),
' bRedraw=',bRedraw,
' Handle=',HexStr(Cardinal(Handle),8));}
// do we have to set this allways ? // do we have to set this allways ?
if bRedraw then if bRedraw then
begin begin
{}
if (Handle <> 0) then if (Handle <> 0) then
begin begin
if gtk_type_is_a(gtk_object_type(PGTKObject(Handle)), if gtk_type_is_a(gtk_object_type(PGTKObject(Handle)),
gtk_scrolled_window_get_type) then gtk_scrolled_window_get_type)
then
begin begin
if SBStyle in [SB_BOTH, SB_HORZ] if SBStyle in [SB_BOTH, SB_HORZ]
then gtk_object_set(PGTKObject(Handle), 'hscrollbar_policy', [POLICY[bRedraw], nil]); then gtk_object_set(PGTKObject(Handle), 'hscrollbar_policy',
[POLICY[bRedraw], nil]);
if SBStyle in [SB_BOTH, SB_VERT] if SBStyle in [SB_BOTH, SB_VERT]
then gtk_object_set(PGTKObject(Handle), 'vscrollbar_policy', [POLICY[bRedraw], nil]); then gtk_object_set(PGTKObject(Handle), 'vscrollbar_policy',
[POLICY[bRedraw], nil]);
end end
else else
begin begin
if (SBSTYLE = SB_CTL) and gtk_type_is_a(gtk_object_type(PGTKObject(Handle)), gtk_widget_get_type) then if (SBSTYLE = SB_CTL)
and gtk_type_is_a(gtk_object_type(PGTKObject(Handle)),
gtk_widget_get_type)
then
gtk_widget_show(PGTKWidget(Handle)) gtk_widget_show(PGTKWidget(Handle))
else else
gtk_widget_hide(PGTKWidget(Handle)) gtk_widget_hide(PGTKWidget(Handle))
end; end;
end; end;
{} { writeln('TgtkObject.SetScrollInfo: ',
' lower=',lower,'/',nMin,
' upper=',upper,'/',nMax,
' value=',value,'/',nPos,
' step_increment=',step_increment,'/',1,
' page_increment=',page_increment,'/',nPage,
' page_size=',page_size,'/',nPage,
'');}
gtk_adjustment_changed(Adjustment); gtk_adjustment_changed(Adjustment);
end; end;
@ -6361,6 +6378,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.124 2002/09/06 19:11:48 lazarus
MG: fixed scrollbars of TTreeView
Revision 1.123 2002/09/06 16:41:31 lazarus Revision 1.123 2002/09/06 16:41:31 lazarus
MG: set SpecialOrigin MG: set SpecialOrigin