Scrolbar på et TImage

Kan du ikke bruge www.melander.dk \'s image comp.

hvis du bruger Tpanel+TScrollbox+Image og sætter
autosize:= true på alle 3, har du ikke brug for en scrollbar.

Indlæs dit billed i en Tbitmap, istedet for din Timage:
...

Tbitmap.loadfromfile(filename);

if (Tbitmap.width > Tpanel.width) then
width Tscrollbar do
begin
  max := Tbitmap.width-Tpanel.width;
  visible := true;
end
  else
    Tscrollbar.visible := false;

Timage.picture.bitmap.canvas.draw(0,0,Tbitmap);
...

i din TScrollbar OnChange procedure (den der styre din x position):

...

Timage.picture.bitmap.draw(-(Tscrollbar.position),0,Tbitmap);

...

Dette eksempel viser kun hvordan du arbejder med din x koordinat. Gør det samme med din Y koordinat.

håber du kan bruge det

ZeroHero

Hej Stone

Jeg har afprøvet dit forslag uden held.

Udover autosize = true, har jeg alling allclient.

Er der flere parametre som skal sættes ?

Hvis du vælger autosize=true på dit image og sætter:
  panel1.height := Image1.Height;
  panel1.width  := Image1.Width;
efter indlæsningen af dit billede, så vil dit panel have samme størrelse som dit image, og hvis din form er mindre en dette vil du automatisk få scrollbars på.
(Det kræver naturligvis at dit panel er det eneste på formen, for at det fungerer godt).

//hreiff

Stone, hreiff> jeg synes nu ikke jeg har held til at få de s.... scroll bars frem

Det funker fint, har lige prøvet, en scrollbox og et image som du sætter til AutoSize, men IKKE ClientAlign

/Martin

Ja men den må heller ikke ligge på et panel med allign all ;-((

nå men væk med det panel hvad skal man egentlig med det

Og hvad er 15/4