No ambiente metro, existe a possibilidade de não mostrar a barra de scroll horizontal na parte de baixo da window ?
In the metro environment, there is the possibility of not showing the horizontal scroll bar at the bottom of the window? (google translator)
Ambiente Metro.
- SAOliveira
- Posts: 17
- Joined: Sat Nov 05, 2011 8:56 am
Ambiente Metro.
SAOliveira
Lins/SP - Brasil
Lins/SP - Brasil
- Antonio Linares
- Site Admin
- Posts: 37481
- Joined: Thu Oct 06, 2005 5:47 pm
- Location: Spain
- Contact:
Re: Ambiente Metro.
In the Class TMetroPanel (used from FWH samples/touch.prg) we simulate an horizontal scrollbar.
Where do you need to use it ? Just a standalone horizontal scrollbar ?
Where do you need to use it ? Just a standalone horizontal scrollbar ?
- SAOliveira
- Posts: 17
- Joined: Sat Nov 05, 2011 8:56 am
Re: Ambiente Metro.
Antonio,
Grateful for your answer.
What I really want to do is not show the horizontal scroll bar in the main window.
.
Grateful for your answer.
What I really want to do is not show the horizontal scroll bar in the main window.
.
SAOliveira
Lins/SP - Brasil
Lins/SP - Brasil
- SAOliveira
- Posts: 17
- Joined: Sat Nov 05, 2011 8:56 am
Re: Ambiente Metro.
SAOliveira
MetroPnel, por defecto, pone el Scroll Horizontal si el número de botones ocupa más espacio que el ancho de pantalla
MetroPnel, by default, puts the Horizontal Scroll if the number of buttons occupies more space than the screen width
Usando el ejemplo de ..\Samples\metrptst.prg
Using the example .. \ Samples \ metrptst.prg
Yo lo he conseguido modificando la clase MetroPnel de la siguiente forma:
I've gotten modifying MetroPnel class as follows:
Crear una nueva DATA
Create a new DATA
In the Paint METHOD, modify
and the METHOD Arrange, modify
Instructions for use ( Using the example .. \ Samples \ metrptst.prg )
MetroPnel, por defecto, pone el Scroll Horizontal si el número de botones ocupa más espacio que el ancho de pantalla
MetroPnel, by default, puts the Horizontal Scroll if the number of buttons occupies more space than the screen width
Usando el ejemplo de ..\Samples\metrptst.prg
Using the example .. \ Samples \ metrptst.prg
Yo lo he conseguido modificando la clase MetroPnel de la siguiente forma:
I've gotten modifying MetroPnel class as follows:
Crear una nueva DATA
Create a new DATA
Code: Select all
DATA lMHScroll INIT .T.
Code: Select all
METHOD Paint() CLASS TMetroPanel
local aInfo
local oRect := ::GetCliRect()
local hScrollBrush, hThumbBrush
local nBarTotal
aInfo := ::DispBegin()
FillRect( ::hDC, oRect:aRect, ::oBrush:hBrush )
::Say( ( ::nBtnSize - ::oFont:nHeight ) / 2, ::nMetroTop, ::cTitle,,, ::oFont, .t., .t. )
if !::lMHScroll // Aqui
::nScrollRange := 0
endif
if ::nScrollRange > 0
hScrollBrush := CreateSolidBrush( ::nClrScroll )
hThumbBrush := CreateSolidBrush( ::nClrThumb )
::nThumbWidth := Int( ::nThumbSize * ( oRect:nWidth - 120 ) )
nBarTotal := oRect:nWidth - 120 - ::nThumbWidth
::nThumbPos := Int( Abs( ::nOffSet / ::nScrollRange ) * nBarTotal ) + 60
oRect:nTop := oRect:nBottom - SCRLB_HEIGHT
oRect:nHeight := SCRLB_HEIGHT
::nScrollBarTop := oRect:nTop
::nScrollRatio := ( ::nScrollRange / nBarTotal )
FillRect( ::hDC, oRect:aRect, hScrollBrush )
FillRect( ::hDC, { oRect:nTop, oRect:nLeft + ::nThumbPos, oRect:nBottom, ;
oRect:nLeft + ::nThumbPos + ::nThumbWidth }, hThumbBrush )
DeleteObject( hScrollBrush )
DeleteObject( hThumbBrush )
MoveTo( ::hDC, oRect:nLeft + 32, oRect:nTop + 4 )
LineTo( ::hDC, oRect:nLeft + 24, oRect:nTop + 10, ::hPen )
LineTo( ::hDC, oRect:nLeft + 32, oRect:nTop + 16, ::hPen )
MoveTo( ::hDC, oRect:nRight - 32, oRect:nTop + 4 )
LineTo( ::hDC, oRect:nRight - 24, oRect:nTop + 10, ::hPen )
LineTo( ::hDC, oRect:nRight - 32, oRect:nTop + 16, ::hPen )
else
if ::lMHScroll // Aqui
::nScrollBarTop := oRect:nBottom + 2
endif
endif
.../...
Code: Select all
.../...
next nGroup
::nMetroWidth := nGrpRight - ::nOffSet
if ::lMHScroll // Aqui
::nScrollRange := Max(( ::nMetroWidth - ScreenWidth() ), ::nScrollRange )
::nScrollRange := Max( 0, ::nScrollRange )
endif
::nThumbSize := 1 - ( ::nScrollRange / ::nMetroWidth )
::lArranged := .t.
return Self
Code: Select all
function Main( cParam )
local oWnd, oBar, oMetro, oBrush
local cTitle := "Start"
SET DATE ITALIAN
SET CENTURY ON
DEFINE WINDOW oWnd TITLE cTitle STYLE nOr( WS_POPUP, WS_MAXIMIZE );
COLOR CLR_WHITE, CLR_GREEN
oMetro := MakeMetroPanel( oWnd )
oMetro:lMHScroll := .F. // Aqui
.../....
C. Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
Si alguien te dice que algo no se puede hacer, recuerda que esta hablando de sus limitaciones, no de las tuyas.
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
Si alguien te dice que algo no se puede hacer, recuerda que esta hablando de sus limitaciones, no de las tuyas.
- SAOliveira
- Posts: 17
- Joined: Sat Nov 05, 2011 8:56 am
- Antonio Linares
- Site Admin
- Posts: 37481
- Joined: Thu Oct 06, 2005 5:47 pm
- Location: Spain
- Contact:
Re: Ambiente Metro.
Cristobal,
many thanks for your help as usual
many thanks for your help as usual