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 - Brasil

[WilliamAdami]

Perdon mi amigos, yo creo que publique en lugar errado ! Isto seria a lo forum XHARBOUR.

Mil disculpas

Gracias

William