Einzelnen Beitrag anzeigen

Christian Seehase
(Co-Admin)

Registriert seit: 29. Mai 2002
Ort: Hamburg
11.116 Beiträge
 
Delphi 11 Alexandria
 
#4
  Alt 17. Mai 2003, 00:04
Moin Trouble Maker,

wie die Namen schon sagen:
Min gibt den niedrigsten Wert an, Max den höchsten.

Bei 5 Stufen könnte man also Min = 1 und Max = 5 setzen.

Wie Du jetzt die Werte Interpretierst ist Deine Sache.
Im OnChange kannst Du ja mittels einer Case Anweisung, oder einer Tabelle die Zoomlevel zuordnen.

Delphi-Quellcode:
procedure TForm1.TrackBar1Change(Sender : TObject);
begin
  case TrackBar1.Position of
    1 : FiZoomLevel := 100;
    2 : FiZoomLevel := 90;
    //...
  end;
end;

procedure TForm1.TrackBar1Change(Sender : TObject);
begin
  FiZoomLevel := _aiZoomLevel[TrackBar1.Position];
end;
FiZoomLevel ein private Feld des Formulares ist (Typ integer), und _aiZoomLevel ein konstantes Array [1..5] of integer = (100,90, usw.
Tschüss Chris
Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel.
Der Klügere gibt solange nach bis er der Dumme ist
  Mit Zitat antworten Zitat