FiveTech Software tech support forums

Foro:

Estoy implementando una galería fotográfica con un scroll tanto horizontal como vertical, para ello uso la clase tscrdlg de Eric Yang.

Hasta donde puedo modificar los valores de…
# define D_WIDTH 08 && 06 && 04 DIP
# define D_HEIGHT 36 && 24 && 13

¿ Qué problema se puede presentar, se agota la memoria????,
¿ la cantidad de recursos a usar es variable…?

DEFINE DIALOG oDlg FROM 000, 000 TO GetSysMetrics ( 1 ) - nXSize, GetSysMetrics ( 0 ) - nYSize PIXEL FONT oFont2 ICON oIco ; && Alto * Ancho
TITLE "Test_Scroll_Galeria de Fotografias" ;
STYLE nOr( WS_SYSMENU ,; &&
WS_CAPTION ,; &&
WS_MINIMIZEBOX ,; &&
WS_MAXIMIZEBOX ,; &&
WS_POPUP ,; &&
WS_SYSMENU ,; &&
WS_THICKFRAME ,; &&
WS_HSCROLL ,; &&
WS_VSCROLL ,; &&
WS_DLGFRAME ) &&

....
*Las fotos las estoy colocando con image y con un tamaño de 50 * 50, estan en formato jpg y pgn
@ nYn, nXn IMAGE oFotoI FILENAME sfoto SIZE nXSize, nYSize PIXEL OF oDlg UPDATE ; && Ancho * Alto
....

ACTIVATE DIALOG oDlg ; && METHOD New ( oDlg, nV1, nV2, nH1, nH2 ) CONSTRUCTOR
ON INIT ( oScrDlg := TScrDlg():New( oDlg, 001, 065, 001, 070 ),;
oDlg:SetSize ( GetSysMetrics ( 0 ) - nXSize ,;
GetSysMetrics ( 1 ) - nYSize ),;
oDlg:Center () )

¿Cómo se determina cuantas fotos caben por fila,
¿Cuántas filas se pueden generar.....
¿La clase tscrdlg en que unidades maneja la pantalla????
¿cuales son las dimensiones del dialogo
¿ al hacer click sobre la imagen, se debe ejecutar una accion, como recupero el nombre de esa imagen????

Agradezco cualquier idea al respecto..

Saludos.