Entwickler-Ecke

Grafische Benutzeroberflächen (VCL & FireMonkey) - TTrackbar keine Striche, Bug?


Tobi482 - Di 29.09.09 12:43
Titel: TTrackbar keine Striche, Bug?
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 - Di 29.09.09 15:21

Hallo,

erweiter mal den Code

Delphi-Quelltext
1:
TrackBar.TickStyle := tsAuto;                    


Tobi482 - Mi 30.09.09 11:07

auch dieser Coder zeigt keine Striche


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 - 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?


espen - Mi 30.09.09 12:00

Hallo,

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

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)