AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Code-Bibliothek Library: VCL / WinForms / Controls Delphi Beim Klick auf eine TrackBar zur Klickposition springen

Beim Klick auf eine TrackBar zur Klickposition springen

Ein Thema von Matze · begonnen am 4. Feb 2008
Antwort Antwort
Benutzerbild von Matze
Matze
(Co-Admin)

Registriert seit: 7. Jul 2003
Ort: Schwabenländle
14.987 Beiträge
 
Turbo Delphi für Win32
 
#1

Beim Klick auf eine TrackBar zur Klickposition springen

  Alt 4. Feb 2008, 08:59
bitsetter zeigt in diesem Thema, wie man bei einem Klick auf eine TTrackBar direkt zur Klickposition springen kann. Standardmäßig wird der Wert nur um eine Einheit verändert, was manchmal störend sein kann, wenn man beispielsweise einen MediaPlayer programmiert.

Delphi-Quellcode:
uses
  ComCtrls;

type
  TTrackBar = class(ComCtrls.TTrackBar)
  private
    procedure WMLBUTTONDOWN(var Msg: TMessage); message WM_LBUTTONDOWN;
  end;

// ...

implementation

{$R *.dfm}

// ...

uses
  CommCtrl;

procedure TTrackBar.WMLBUTTONDOWN(var Msg: TMessage);
var
  ChannelRect, SliderRect: TRect;
  SliderWidth: Word;
  Pt: TPoint;
begin
  ZeroMemory(@SliderRect, SizeOf(SliderRect));
  SendMessage(Handle, TBM_GETTHUMBRECT, 0, DWord(@SliderRect));
  ZeroMemory(@ChannelRect, SizeOf(ChannelRect));
  SendMessage(Handle, TBM_GETCHANNELRECT, 0, DWord(@ChannelRect));
  if Orientation = trHorizontal then
  begin
    Pt:= Point(msg.LParamLo, msg.LParamHi);
    SliderWidth := (SliderRect.Right - SliderRect.Left) div 2;
    ChannelRect.Top := SliderRect.Top;
    ChannelRect.Bottom := SliderRect.Bottom;
  end else
  begin
    Pt:= Point(msg.LParamHi, msg.LParamLo);
    SliderWidth := (SliderRect.Bottom - SliderRect.Top) div 2;
    ChannelRect.Top := SliderRect.Left;
    ChannelRect.Bottom := SliderRect.Right;
  end;
  if PtInRect(SliderRect, Point(msg.LParamLo, msg.LParamHi)) then
    inherited
  else
    if Windows.PtInRect(ChannelRect, Pt) then
    begin
      inc(ChannelRect.Left, SliderWidth);
      dec(ChannelRect.Right, SliderWidth);
      self.Position := round((Pt.X - ChannelRect.Left) * self.Max /
                             (ChannelRect.Right - ChannelRect.Left));
    end;
  inherited;
end;
Suchbegriffe: TrackBar Position

[edit=fkerber]Ein "inherited" spendiert - Danke an Flips. Mfg, fkerber[/edit]
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 18:15 Uhr.
Powered by vBulletin® Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2019 by Daniel R. Wolf