Index: lcl/interfaces/gtk2/gtk2lclintf.inc
===================================================================
--- lcl/interfaces/gtk2/gtk2lclintf.inc	(revision 59294)
+++ lcl/interfaces/gtk2/gtk2lclintf.inc	(working copy)
@@ -768,6 +768,9 @@
   Updates the constraints object (e.g. TSizeConstraints) with interface specific
   bounds.
  ------------------------------------------------------------------------------}
+
+
+
 function TGtk2WidgetSet.GetControlConstraints(Constraints: TObject): boolean;
 var
   SizeConstraints: TSizeConstraints absolute Constraints;
@@ -826,6 +829,10 @@
       if TCustomTrackBar(SizeConstraints.Control).Orientation=trHorizontal then
       begin
         Widget:=GetStyleWidget(lgsHScale);
+        if ((SizeConstraints.Control as TCustomTrackBar).TickStyle = tsNone) then begin
+           gtk_scale_set_draw_value(GTK_SCALE(Widget), false);
+           gtk_widget_size_request(Widget,@Widget^.requisition);
+        end;
         MinHeight:=Widget^.requisition.height;
       end else begin
         Widget:=GetStyleWidget(lgsVScale);

--- lcl/include/trackbar.inc
+++ lcl/include/trackbar.inc
@@ -70,6 +70,7 @@
   TabStop := True;
   with GetControlClassDefaultSize do
     SetInitialBounds(0, 0, CX, CY);
+  AutoSize := True;
 end;
 
 {------------------------------------------------------------------------------
@@ -125,6 +126,7 @@
     begin
       OldWidth:=Width;
       OldHeight:=Height;
+      Constraints.UpdateInterfaceConstraints;
       SetBounds(Left,Top,OldHeight,OldWidth);
       if HandleAllocated then
         TWSTrackBarClass(WidgetSetClass).SetOrientation(Self, FOrientation);
@@ -237,6 +239,10 @@
   begin
     FTickStyle := Value;
     ApplyChanges;
+    Constraints.UpdateInterfaceConstraints;
+    DoAutoSize;
+    if HandleAllocated then
+      TWSTrackBarClass(WidgetSetClass).SetTickStyle(Self, FTickStyle);
   end;
 end;
 
--- lcl/interfaces/gtk2/gtk2lclintf.inc
+++ lcl/interfaces/gtk2/gtk2lclintf.inc
@@ -826,9 +826,15 @@
       if TCustomTrackBar(SizeConstraints.Control).Orientation=trHorizontal then
       begin
         Widget:=GetStyleWidget(lgsHScale);
+        gtk_scale_set_draw_value(PGtkScale(Widget),
+                                 TCustomTrackBar(SizeConstraints.Control).TickStyle <> tsNone);
+        gtk_widget_size_request(Widget, @Widget^.Requisition);
         MinHeight:=Widget^.requisition.height;
       end else begin
         Widget:=GetStyleWidget(lgsVScale);
+        gtk_scale_set_draw_value(PGtkScale(Widget),
+                                 TCustomTrackBar(SizeConstraints.Control).TickStyle <> tsNone);
+        gtk_widget_size_request(Widget, @Widget^.Requisition);
         MinWidth:=Widget^.requisition.width;
       end;
       //DebugLn(['TGtk2WidgetSet.GetControlConstraints ',DbgSName(SizeConstraints.Control),' ',MinWidth,',',MinHeight]);
--- lcl/interfaces/gtk2/gtk2wscomctrls.pp
+++ lcl/interfaces/gtk2/gtk2wscomctrls.pp
@@ -264,6 +264,9 @@
     class function  GetPosition(const ATrackBar: TCustomTrackBar): integer; override;
     class procedure SetPosition(const ATrackBar: TCustomTrackBar; const NewPosition: integer); override;
     class procedure SetOrientation(const ATrackBar: TCustomTrackBar; const {%H-}AOrientation: TTrackBarOrientation); override;
+    class procedure GetPreferredSize(const {%H-}AWinControl: TWinControl;
+                        var {%H-}PreferredWidth, PreferredHeight: integer;
+                        {%H-}WithThemeSpace: Boolean); override;
   end;
 
   { TGtk2WSCustomTreeView }
@@ -443,6 +446,29 @@
   end;
 end;
 
+class procedure TGtk2WSTrackBar.GetPreferredSize(
+  const AWinControl: TWinControl; var PreferredWidth, PreferredHeight: integer;
+  WithThemeSpace: Boolean);
+var
+  TrackBarWidget: PGtkWidget;
+  Requisition: TGtkRequisition;
+begin
+  if TCustomTrackBar(AWinControl).Orientation = trHorizontal then
+    TrackBarWidget := GetStyleWidget(lgsHScale)
+  else
+    TrackBarWidget := GetStyleWidget(lgsVScale);
+  // set size to default
+  gtk_scale_set_draw_value(PGtkScale(TrackBarWidget),
+                           TCustomTrackBar(AWinControl).TickStyle <> tsNone);
+  gtk_widget_set_size_request(TrackBarWidget, -1, -1);
+  // ask default size
+  gtk_widget_size_request(TrackBarWidget, @Requisition);
+  if TCustomTrackBar(AWinControl).Orientation = trHorizontal then
+    PreferredHeight := Requisition.height
+  else
+    PreferredWidth := Requisition.width;
+end;
+
 { TGtk2WSProgressBar }
 
 class procedure TGtk2WSProgressBar.UpdateProgressBarText(const AProgressBar: TCustomProgressBar);
--- lcl/widgetset/wscomctrls.pp
+++ lcl/widgetset/wscomctrls.pp
@@ -230,6 +230,7 @@
     class procedure SetOrientation(const ATrackBar: TCustomTrackBar; const AOrientation: TTrackBarOrientation); virtual;
     class procedure SetPosition(const ATrackBar: TCustomTrackBar; const NewPosition: integer); virtual;
     class procedure SetTick(const ATrackBar: TCustomTrackBar; const ATick: integer); virtual;
+    class procedure SetTickStyle(const ATrackBar: TCustomTrackBar; const ATickStyle: TTickStyle); virtual;
   end;
   TWSTrackBarClass = class of TWSTrackBar;
 
@@ -781,6 +782,11 @@
 begin
 end;
 
+class procedure TWSTrackBar.SetTickStyle(const ATrackBar: TCustomTrackBar; const ATickStyle: TTickStyle);
+begin
+  RecreateWnd(ATrackBar);
+end;
+
 { WidgetSetRegistration }
 
 procedure RegisterStatusBar;
--- lcl/comctrls.pp
+++ lcl/comctrls.pp
@@ -2715,6 +2715,7 @@
     constructor Create(AOwner: TComponent); override;
     procedure SetTick(Value: Integer);
   published
+    property AutoSize default true;
     property Frequency: Integer read FFrequency write SetFrequency default 1;
     property LineSize: Integer read FLineSize write SetLineSize default 1;
     property Max: Integer read FMax write SetMax default 10;