APORTE: FUNCTION DISPLAY 2.0

[WilliamAdami]

Amigos de lo forum , estoy colocando un aporte a lo Forum. Se trata de la function DISPLAY.PRG version 2.0 y faz o redimensionar automaticamente a la resolucion corrente de la pantalla, o seja, sus pantallas visualizarao sempre iguales em qualquer resolucion ! Y las fuentes de los controles se ajustam automaticamente, no precisando se importar com los tamanos de las fuentes !

Lo exemplo TELA.EXE foi inicialmente desenado en resolucion de 800 X 600 y lo dialog aparecera sempre igual en qualquer resolucion !!!!

Este projecto teve inicio con la function AutoResiz() de nostro hermano FIVEWIDI (muchas gracias Fivewidi por la grande idea inicial ) publicada aqui neste forum .

link para download:

http://www.fivewin.com.br/exibedicas.asp?id=1009


Para utilizar la funcion deve-se coloca-la en lo evento ON INIT:

Activate Dialog Odlg ON INIT display(odlg,nresolution)

- nResolution : numero que indica qual resolucion las pam]ntallas foram desenhadas inicialmente , y podem ter los seguintes valores:
1 = 640 X 480
2 = 800 X 600
3 = 1024 X 768
4 = 1152 X 864
5 = 1280 X 800
6 = 1280 X 1024
7 = 1600 X 1200
8 = 768 X 1024
9 = 1440 x 900
10 = 1280 x 768
11 = 1280 x 720

Controles implementados ate agora: (redimensionam correctamente !)

- Say
- Get
- Group
- Radio
- Checkbox
- ComboBox
- Xbrowse
- Listbox
- Wbrowse
- Timage
- Bitmaps
- BarButton
- Trees
- Folders
- BtnBmp
- Tbutton
- Ssay
- Dsay
- SBrowse
- DbCombo
- SayRef
- TTabs
- Tpages


Espero que les sejam muy util, asi como esta siendo para mi.

Muchas Gracias a Antonio Linares e Daniel Garcia (Gil) que bastante mi ajudaram en los processos de redimension de los controles. Y muchas, muchas gracias a FiveWidi !

Aguardo los coments de usteds sobre la funcion

Muchas Gracias

Saludos

William Adami

Pouso Alegre - MG -Brasil

[Willi Quintana]

EXCELENTE!!!!
Salu2

[Antonio Linares]

William,

gracias!

[WilliamAdami]

Yo gostaria de pedir a los colegas do Forum que ao acrescentarem otros controles en la dicta function que tambien publique en lo forum para todos.

Gracias y perdon por escrever no muy bien lo Espanhol ....

Salu2


William Adami

[FiveWiDi]

Gracias William,

Me alegro mucho de que te haya sido útil.

Un Saludo
Carlos G.

[ADBLANCO]

Gracias, Hace tiempo que necesitaba algo como esto, Mi problema es que no me trabaja??

[WilliamAdami]

AdBlanco, disculpa si no compreendo corretamente, non te estás funcionando la funcion ?


William

[AIDA]

Que bien

Esto si es algo muy bueno

Muchas gracias

Saluditos

Aida

[ADBLANCO]

Si Wiliam, Por alguna razón me da una serie de errores a la hora de compilar.
Puede ser por la versión de Xharbour y/o Fw que utilizo, total que cuando logré que compilara
no hace efecto alguno.

[ADBLANCO]

Hola Aida!

[WilliamAdami]

o que no compila, lo TELA.PRG o la DISPLAY.PRG ? Usted deves Testar solamente la DISPLAY.PRG juntamente con uno Dialog que USTED criou. Existe varias pessoas que testaram la funcion y no apresenta errors, independente de la version de FW.
Verfique los #include que no utilizar en su PRG e debes comenta-lo con //

verfique o que usted estas fazendo errado

William

[ADBLANCO]

la display no me compila me arroja

Ambiguous reference: 'STRETCHCOL_LAST'

[WilliamAdami]

ok, lo problema es con lo XBROWSE, enton su version de FWH no es compatible.

Para corrigir , en la DISPLAY.PRG debes quitar lo #Include "XBROWSE.CH"

y quitar la linea que chama a 'STRETCHCOL_LAST'

Retirando estas lineas , la DISPLAY.PRG hay que compilar y funcionar con su FWH


Please, verifique y habla-me si funciona


William

[ADBLANCO]

Por alguna extraña razón no me trabaja, Me explico, ya compila, pero no surte efecto en el sistema,
Sin embargo el ejemplo que tu mandastes si corrige la resolución de pantalla, pero en ningún sistema de los de nosotros lo hace,
Lo estoy colocando en el On Init

[WilliamAdami]

ok, verifique:

- los Dialogs del .RC debem estar desenhados com lo WorkShop en resolucion 800X600

- la chamada a la function Display() :

Activate Dialog oDlg on init display(odlg,2) // 2 = resolucion 800 X 600

- Todos los controles del dialog debem tener una Font associada ( do tipo : oControl:oFont:= SuFont )

- Verifique si no tienes modificado a la classe Dialog.prg


Agora si no te trabajas la funcion, solamente puede ser la version de su FW. Lamento.


Saludos


William