TTrackbar keine Striche, Bug?

Tobi482 · Beiträge: 135

Hi Leute,

bin gerade auf folgendes Problem gestoßen

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

uses
     ComCtrls;
var
     trackbar       : TTrackBar;

procedure TForm1.FormCreate(Sender: TObject);
begin
     trackbar            := TTrackBar.Create(Self);
     trackbar.Parent     := Self;
     trackbar.Min        := 0;
     trackbar.Max        := 60000;
     trackbar.Frequency  := 6000;
     trackbar.PageSize   := 6000;
end;

Der Code erzeugt ein Trackbar welches 10 bzw. 11 Striche haben sollte.
Hat er aber nicht!^^

Verstehe ich da was falsch an den Attributen?

Mit freundlichen größen
Tobi

Lannes · Verfasst: Di 29.09.09 15:21

Hallo,

erweiter mal den Code

markieren

Delphi-Quelltext

1:	TrackBar.TickStyle := tsAuto;

_________________
MfG Lannes
(Nichts ist nicht Nichts) and ('' <> nil ) and (Pointer('') = nil ) and (@('') <> nil )

Tobi482 · Beiträge: 135

auch dieser Coder zeigt keine Striche

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

uses
     ComCtrls;
var
     trackbar       : TTrackBar;

procedure TForm1.FormCreate(Sender: TObject);
begin
     trackbar            := TTrackBar.Create(Self);
     trackbar.Parent     := Self;
     trackbar.Min        := 0;
     trackbar.Max        := 60000;
     trackbar.Frequency  := 6000;
     trackbar.PageSize   := 6000;
     trackbar.TickStyle  := tsAuto;
end;

Mit freundlichen Grüßen
Tobi

Gausi · Verfasst: Mi 30.09.09 11:39

Hm, das würde ich fast einen Delphi-Bug nennen. :gruebel:

Wenn man die Trackbar zur Entwurfszeit entsprechend erstellt, werden die 10 Striche angezeigt, dynamisch nicht. Auch in der IDE werden die Striche nicht angezeigt, sondern erst zur Laufzeit.

Ist es denn notwendig, dass die Trackbar erst im Create erzeugt wird, oder kannst du die auch über die IDE auf die Form packen?

_________________
We are, we were and will not be.

espen · Verfasst: Mi 30.09.09 12:00

Hallo,

ich würde nicht sagen, dass dies ein Bug ist:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

  ...
  trackbar.Max        := 60000;     
  trackbar.Frequency  := 6000;     
  trackbar.PageSize   := 6000;
  ...

Meines Erachtens sind diese Werte einfach zu gross.
(Probiere es z.B. mal mit 600; 60; 60)

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme