Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Ocultar barra desplazamiento (https://www.clubdelphi.com/foros/showthread.php?t=62730)

MAXIUM 10-01-2009 19:29:05

Ocultar barra desplazamiento
 
Hola, estoy desarrollando una aplicación en la cual muevo una imagen más grande que la forma, así que para ello lo cargo en un ScrollBox.

La idea es poner el mouse sobre la imagen y al hacer click arrastrarla para ver el resto de ella (drag-drop creo que llama). Eso ya lo tengo solucionado, lo que me interesa saber es como evitar que se vean las barras de desplazamiento.

Lo otro y si se puede, es como "cargar" imágenes más grande sin que consuman tanta memoria, la que cargue ocupa como 1MB pero necesito una muchísima más grande, si divido la imagen grande en trozos soportables, me imagino que he de hacer una rutina que al detectar que se ha acabado la imagen cague la que corresponda. La idea es del tipo maps.google.com


roman 10-01-2009 19:33:39

El ScrollBox tiene las propiedades VertScrollBar y HorzScrollBar. En ellas puedes cambiar el atributo Visible a false.

// Saludos

MAXIUM 10-01-2009 19:35:36

Cita:

Empezado por roman (Mensaje 334114)
El ScrollBox tiene las propiedades VertScrollBar y HorzScrollBar. En ellas puedes cambiar el atributo Visible a false.

// Saludos

Gracias Roman, pero cuando hago aquello, deja de hacer lo que quiero que haga.

Código Delphi [-]
var
  Form1: TForm1;
  FPunto: TPoint;
implementation
....
....
....
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Begin
     GetCursorPos(FPunto);
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var
  NuevoPunto: TPoint;
begin
    If ssLeft in Shift then
    Begin
         GetCursorPos(NuevoPunto);
         ScrollBox1.HorzScrollBar.Position:= ScrollBox1.HorzScrollBar.Position + (FPunto.X - NuevoPunto.X);
         ScrollBox1.VertScrollBar.Position:= ScrollBox1.VertScrollBar.Position + (FPunto.Y - NuevoPunto.Y);
         FPunto:= NuevoPunto;
    End;
end;

JXJ 12-01-2009 03:52:38

MAXIUM
se me ourrio asi de pronto que si pudieras hacer un componente
que descienda del ScrollBox
y le cambies las propiedades de visible.
en lugar de eso que no se dibujen o
hacerlas qeu se vean, de 1 pixel de ancho.

MAXIUM 12-01-2009 04:20:59

Interesante vamos aver, aunque estoy falta de tiempo, lo intentare en una versión futura. Gracias.


La franja horaria es GMT +2. Ahora son las 15:23:13.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi