APORTE: FUNCTION DISPLAY 2.0

WilliamAdami
Posts: 65
Joined: Tue Apr 14, 2009 9:26 pm
Location: Brasil

APORTE: FUNCTION DISPLAY 2.0

Post by 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
User avatar
Willi Quintana
Posts: 859
Joined: Sun Oct 09, 2005 10:41 pm
Location: Cusco - Perú
Contact:

Re: APORTE: FUNCTION DISPLAY 2.0

Post by Willi Quintana »

EXCELENTE!!!!
Salu2
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:

Re: APORTE: FUNCTION DISPLAY 2.0

Post by Antonio Linares »

William,

gracias! :-)
regards, saludos

Antonio Linares
www.fivetechsoft.com
WilliamAdami
Posts: 65
Joined: Tue Apr 14, 2009 9:26 pm
Location: Brasil

Re: APORTE: FUNCTION DISPLAY 2.0

Post by 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
Posts: 910
Joined: Mon Oct 10, 2005 2:38 pm

Re: APORTE: FUNCTION DISPLAY 2.0

Post by FiveWiDi »

Gracias William,

Me alegro mucho de que te haya sido útil.

Un Saludo
Carlos G.
Un Saludo
Carlos G.

FiveWin 19.06 + Harbour 3.2, BCC 7 Windows 10
User avatar
ADBLANCO
Posts: 299
Joined: Mon Oct 22, 2007 3:03 pm
Location: Valencia - Venezuela

Re: APORTE: FUNCTION DISPLAY 2.0

Post by ADBLANCO »

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

Angel, Valencia, Venezuela

xH .997 - FW 7.9 - BCC55 - WorkShop - MySql
WilliamAdami
Posts: 65
Joined: Tue Apr 14, 2009 9:26 pm
Location: Brasil

Re: APORTE: FUNCTION DISPLAY 2.0

Post by WilliamAdami »

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


William
User avatar
AIDA
Posts: 782
Joined: Fri Jan 12, 2007 8:35 pm

Re: APORTE: FUNCTION DISPLAY 2.0

Post by AIDA »

Que bien :D

Esto si es algo muy bueno :shock:

Muchas gracias :wink:

Saluditos

Aida
Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ
User avatar
ADBLANCO
Posts: 299
Joined: Mon Oct 22, 2007 3:03 pm
Location: Valencia - Venezuela

Re: APORTE: FUNCTION DISPLAY 2.0

Post by 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.
Saludos

Angel, Valencia, Venezuela

xH .997 - FW 7.9 - BCC55 - WorkShop - MySql
User avatar
ADBLANCO
Posts: 299
Joined: Mon Oct 22, 2007 3:03 pm
Location: Valencia - Venezuela

Re: APORTE: FUNCTION DISPLAY 2.0

Post by ADBLANCO »

Hola Aida! :oops:
Saludos

Angel, Valencia, Venezuela

xH .997 - FW 7.9 - BCC55 - WorkShop - MySql
WilliamAdami
Posts: 65
Joined: Tue Apr 14, 2009 9:26 pm
Location: Brasil

Re: APORTE: FUNCTION DISPLAY 2.0

Post by 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
User avatar
ADBLANCO
Posts: 299
Joined: Mon Oct 22, 2007 3:03 pm
Location: Valencia - Venezuela

Re: APORTE: FUNCTION DISPLAY 2.0

Post by ADBLANCO »

la display no me compila me arroja

Ambiguous reference: 'STRETCHCOL_LAST'
Saludos

Angel, Valencia, Venezuela

xH .997 - FW 7.9 - BCC55 - WorkShop - MySql
WilliamAdami
Posts: 65
Joined: Tue Apr 14, 2009 9:26 pm
Location: Brasil

Re: APORTE: FUNCTION DISPLAY 2.0

Post by 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
User avatar
ADBLANCO
Posts: 299
Joined: Mon Oct 22, 2007 3:03 pm
Location: Valencia - Venezuela

Re: APORTE: FUNCTION DISPLAY 2.0

Post by 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

:oops:
Saludos

Angel, Valencia, Venezuela

xH .997 - FW 7.9 - BCC55 - WorkShop - MySql
WilliamAdami
Posts: 65
Joined: Tue Apr 14, 2009 9:26 pm
Location: Brasil

Re: APORTE: FUNCTION DISPLAY 2.0

Post by 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
Post Reply