Trackbar: Größe von Slider und Channel getrennt einstellen?

[Bertram]

Ich suche nach einer Möglichkeit, bei TTrackbar-Objekten die Größe von Slider und Channel unabhängig voneinander einzustellen. Wenn ich Property Thumblength benutze, wird gleichzeitig die Channel-Breite angepasst. Ich möchte aber den Slider vergrößern und den Channel schmal halten.
Danke für eine Antwort.

[Bertram]

Ich möchte meine Frage nochmal nach oben holen. Vielleicht kann ja doch jemand was dazu sagen.
Danke,
Bertram

[Reinhard Kern]

Zitat:

Zitat von Bertram

Ich möchte meine Frage nochmal nach oben holen. Vielleicht kann ja doch jemand was dazu sagen.
Danke,
Bertram

Hallo Bertram,

falls du bereit bist, auch WIN32-Code anstelle reiner VCL zu akzeptieren - das Folgende ist ein Code-Schnipsel, das eine Progressbar in die Statusbar der Form einpasst (und dabei natürlich Breite und Höhe anpasst).

Delphi-Quellcode:

procedure TProcessGauge.connect (B : TProgressBar; L : TLabel);
begin
PG := B;
PGL := L;
SB := nil;
end;

  { call this from FormShow after create and connect }
procedure TProcessGauge.IntoStatusBar (ParentSB : TStatusBar; PBPanel,LPanel : integer);
var xe,ye : integer;
    PBRect : TRect;
    PBStyle : integer;
begin
if not Assigned (PG) then exit;
if not Assigned (ParentSB) then exit;
SB := ParentSB;
SBPanel := PBPanel;
SBText := LPanel;
SB.Perform (SB_GETRECT,SBPanel,integer (@PBRect));
PG.Parent := SB;     { Progressbar in Statusbar }
PBStyle := GetWindowLong (PG.Handle,GWL_EXSTYLE);
PBStyle := PBStyle and not WS_EX_STATICEDGE;
SetWindowLong(PG.Handle,GWL_EXSTYLE,PBStyle);
with PBRect do
  begin
  xe := GetSystemMetrics (SM_CXEDGE);
  ye := GetSystemMetrics (SM_CYEDGE);
  Left := Left + xe + 1;
  Top := Top + ye + 1;
  Right := Right - xe - 1;
  Bottom := Bottom - ye - 1;
  end;
PG.BoundsRect := PBRect;
PG.Visible := false;
Application.ProcessMessages; { redraw  statusbar }
end;

Und bitte keine Belehrungen drüber dass das nicht ins Forum passt, ich wollte nur dem Fragesteller helfen und wem der Code nicht passt der darf ihn wegwerfen.

Gruss Reinhard

[Bertram]

Oh, vielen Dank, Reinhard. Ich war jetzt drei Tage unterwegs und werde es morgen ausprobieren.
Viele Grüße, Bertram