Właściwość scrollbar dla image lub gauge

0

W jaki sposób mogę nadać właściwość scrollbara dla komponentu image lub gauge?

0

Musiał byś stworzyć komponenty dziedziczące po wspomianych. I obsłużyć samodzielnie rysowanie kontrolki. Sam nie bardzo wiem jak to zrobić. Do tej pory dodawałem tylko Canvas do TScrollBox. I to właśnie użycie tego komponentu bym Tobie polecał. Robisz przykładowo, jak poniżej i masz paski przewijania w o wiele mniejszym niż obrazek TScrollBox. Chyba, że chodzi o coś innego. To sprecyzuj, a może ktoś jeszcze coś Ci tutaj ktoś doradzi lepszego.

//...
uses
  Jpeg;

procedure TForm1.FormCreate(Sender : TObject);
var
  Image1 : TImage;
begin
  Image1 := TImage.Create(Self);
  Image1.Picture.LoadFromFile('.\test.jpg');
  Image1.Parent := ScrollBox1;
  Image1.AutoSize := True;
end;
0

Chodzi mi o zrobienie tzw paska postępu/paska do przewijania utworu, bo jak na razie to korzystam ze scrollbara

0

Na torry.net jest z prostych i darmowych ScrollBarów dostępny jakiś TFatScrollbar. Testuje go. Ma lepszy wygląd niż domyślny TScrollBar i pozwala zmieniać kolory elementów swojego wyglądu. A i zawsze możesz spróbować pozmieniać jego kod tak aby inaczej obsłużyć jego rysowanie.

0

A czy jest jakiś komponent podobny do tego, w którym mogę wyłączyć te strzałki po bokach?

0

Nie znam, ale można spróbować przerobić kod tego. Pokombinuj.

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0