Saludos

Amigos de C3


He probado un modulo que hice en micomputador con una resoluciuon de 1024 x 768 y lo he corrido en otro computador que tiene una resolucion de 1044 x 900 y se daña las posiciones de los campos, botones y todo,

Mi pregunta es como Hago para que el programa se ajuste a la resolucion que tiene cada computador automaticamente?

y no se dañe el posicionamiento de los objetos presentados en pantalla.

Gracias.

_________________
Saludos.
German

Hola, German.

No acabo de entender lo que quieres decir con 'daña', supongo que te refieres a que los controles se 'descolocan'. No acabo de enteder el porque ya que supongo que utilizas posiciones absolutas. Manda un ejemplo o danos mas información, ya que con lo que cuentas no acabo de entender el problema.

_________________
Un saludo.
Jesús P. Melgar Velasco

El Ejemplo que me pidio aqui esta, segun la respuesta deduzco que es el setbounds el que esta creando el problema, pues se desubica toda la informacion y los Tedit cambian tambien de tamano y se ven las letras a medias.


Procedure Main
Anchowin:=1024
Altowin:=768

Method Create( oOwner ) Class Tmnt_con_periodos
// Comienzo de ejecucion Visual
Super:Create( oOwner )
::SetBounds( 0, 0, anchowin, altowin )
::Icon:name:="miicono"
::Caption:=Space(76)+TitAplicaci
::Brush:Color := ::C_windowP
::WindowState := wsMaximized
::OnCloseQuery := { | oSender,Salir | ::Terminar( @Salir ) }
::DefWinPpal(achdatosp,aliasp,self)
Return

*********************************************************************
Method DefWinPpal(achdatosp,aliasp,WinActual) Class Tmnt_con_periodos
**********************************************************************
numitemcolores:=9
varitemcolores:=Array(numitemcolores)
varitemcolores[1]:="Fondo Ventana Principal"
varitemcolores[2]:="Fondo Ventana Secundarias"
varitemcolores[3]:="Fondo Ventana Explorer"
varitemcolores[4]:="Fondo Campo Ver"
varitemcolores[5]:="Fondo Campo Editar"

::menuModulo(achdatosp,aliasp,winactual)
::Verlindiv(achdatosp,aliasp,winactual)
If NivelPrg=0
::BarraHora(winactual)
Endif
// Crea Explorer Objetos de Ventana principal del modulo
::ExplorerBar1 := TExplorerBar():Create(WinActual)
::ExplorerBar1:SetBounds( 848, 48, 175, 620 )
::ExplorerBar1:Brush:Color := ::C_windowE

::SpButtonHAch:= TSpeedButton():Create(::ExplorerBar1 )
::SpButtonHAch:SetBounds( 7, 20, 20, 25 )
::SpButtonHAch:Glyph:Bitmap:Name := "Ver"
::SpButtonHAch:Glyph:Bitmap:MaskColor := cl_Olive
::SpButtonHAch:Glyph:JPeg:MaskColor := cl_Olive
::SpButtonHAch:Glyph:Gif:MaskColor := cl_Olive
::SpButtonHAch:OnClick := { | oSender | ::SpButtonHAchOnClick( oSender ) }

::Combo_Ach_Rel := TComboBox():Create( ::ExplorerBar1 )
::Combo_Ach_Rel:SetBounds( 40, 20, 125, 25 )
::Combo_Ach_Rel:Font:Name := "Niagara Solid"
::Combo_Ach_Rel:Font:Size := 11

::CrearBoton(::ExplorerBar1,15,315, 150, 25,9,"Calculadora",{|oSender| winexec("Calc.exe",1)})

::CrearBoton(::ExplorerBar1,15,340, 150, 25,9,"Numero de Semana",;
{|oSender|::calendario:WeekNumbers := !::calendario:WeekNumbers})

::calendario := TMonthCalendar():Create( ::ExplorerBar1 )
::calendario:SetBounds( 3, 371, 148, 150 )
::calendario:Date := date()
::calendario:WeekNumbers := .f.
::calendario:OnChange := { | oSender| ::CalendarioOnchange() }

::CrearBoton(::ExplorerBar1,15,530, 150, 25,9,"Agenda",{|oSender| ::VerAgenda})

* Definicion de Colores

::SpeedButtonColores := TSpeedButton():Create( ::ExplorerBar1 )
::SpeedButtonColores:SetBounds( 2, 590, 25, 25 )
::SpeedButtonColores:Glyph:Bitmap:Name := "COLORES"
::SpeedButtonColores:Glyph:Bitmap:MaskColor := cl_Olive
::SpeedButtonColores:Glyph:JPeg:MaskColor := cl_Olive
::SpeedButtonColores:Glyph:Gif:MaskColor := cl_Olive
::SpeedButtonColores:OnClick := { | oSender | ::SpeedButtonColoresOnClick( oSender ) }

::labelcolores := TLabel():Create( ::ExplorerBar1 )
::labelcolores:AutoSize := .F.
::labelcolores:Brush:Color := ::C_brush_Ver
::labelcolores:SetBounds(30 , 570,115,15 )
::labelcolores:Font:Color:=cl_Black
::labelcolores:Font:Name:="arial"
::labelcolores:Font:Size:=9
::labelcolores:Transparent := .F.

::Combocolores := TComboBox():Create(::ExplorerBar1 )
::Combocolores:SetBounds( 25, 590, 140, 24 )
::Combocolores:Font:Name := "Niagara Solid"
::Combocolores:Font:Size := 9

::ColorDialogW1 := TColorDialog():Create( ::ExplorerBar1 )
::ColorDialogW1:Caption := "ColorDialogW1"
********************************************************************
::activarsay:=.T.
::Defsaydat(::achdatosp,::aliasp,WinActual)
::versay(::achdatosp,::aliasp,WinActual )

::Timersay := TTimer():Create( WinActual )
::Timersay:Interval := 100
::Timersay:OnTimer := { | oSender | Iif(NivelPrg=0,{::versay(::achdatosp,::aliasp,WinActual)},) }
Return

_________________
Saludos.
German

Gracias jesus, con esa apreciacion que me haz escrito descubri y solucione el problema ahora uso todas las posiciones de pantalla por variables de memoria y asi solucione el problema.
Existe algun comando en c3 que me indique la resolucion en pantalla en el cual se esta ejecutando el programa?

_________________
Saludos.
German

Gracias jesus, con esa apreciacion que me haz escrito descubri y solucione el problema ahora uso todas las posiciones de pantalla por variables de memoria y asi solucione el problema.
Existe algun comando en c3 que me indique la resolucion en pantalla en el cual se esta ejecutando el programa?

_________________
Saludos.
German

Hola, de nuevo, German.

Para saber la resolucion de la pantalla (tachan, tachan!!)

Screen:Width
Screen:Height

De cualquier modo, yo creo que conociendo del Width/Height del Client de la ventana donde tienes colocados los controles te seria suficiente.

_________________
Un saludo.
Jesús P. Melgar Velasco