Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Coloboración Paypal con ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #4  
Antiguo 29-03-2007
Avatar de Lepe
[Lepe] Lepe is offline
Miembro Premium
 
Registrado: may 2003
Posts: 7.424
Poder: 31
Lepe Va por buen camino
Solo estaba dando la idea , gracias por complicarme la existencia

(En serio, tengo este código por aquí de hace tiempo, compilable en delphi 6)
Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var m:Tmonitor;
    i:Integer;
begin
  Memo1.Clear;
  for i:=0 to Screen.MonitorCount-1 do
  begin
    m := Screen.Monitors[i];
    with Memo1.Lines do
    begin
      Add('Monitor Nº: '+IntToStr(m.MonitorNum)+ ' IsPrimary : '+ BoolToStr(m.Primary,True));
      Add('Dimensiones estandard');
      Add('   Left   '+ IntToStr(m.Left));
      Add('   Top    '+ IntToStr(m.Top));
      Add('   Width  '+ IntToStr(m.width));
      Add('   Height '+ IntToStr(m.height));

      Add('BoundsRect');
        Add('   Left   '+ IntToStr(m.BoundsRect.Left));
        Add('   Top    '+ IntToStr(m.BoundsRect.Top));
        Add('   Right  '+ IntToStr(m.BoundsRect.Right));
        Add('   Bottom '+ IntToStr(m.BoundsRect.Bottom));

     Add('WorkareaRect');
        Add('   Left   '+ IntToStr(m.WorkareaRect.Left));
        Add('   Top    '+ IntToStr(m.WorkareaRect.Top));
        Add('   Right  '+ IntToStr(m.WorkareaRect.Right));
        Add('   Bottom '+ IntToStr(m.WorkareaRect.Bottom));
     Add('');
    end;
  end;
Teniendo el segundo monitor a la derecha del principal, ambos a 1024x768, obtengo estos resultados:
Código:
Monitor Nº: 0 IsPrimary : True
Dimensiones estandard
   Left   0
   Top    0
   Width  1024
   Height 768
BoundsRect
   Left   0
   Top    0
   Right  1024
   Bottom 768
WorkareaRect
   Left   0
   Top    0
   Right  1024
   Bottom 708  (mi barra de tareas tiene 60 pixels de alta, 
             la configuración estandar son 30 pixels de alta)

Monitor Nº: 1 IsPrimary : False
Dimensiones estandard
   Left   1024  (claro, está a la derecha del monitor 0)
   Top    0      (alineado horizontalmente con el monitor 0)
   Width  1024 (resolución de esa pantalla)
   Height 768   (resolución de esa pantalla)
BoundsRect
   Left   1024  (Left considerando el monitor 0)
   Top    0
   Right  2048 (Right del monitor 1, considerando el ancho del monitor 0)
   Bottom 768 
WorkareaRect
   Left   1024
   Top    0
   Right  2048
   Bottom 768 (la barra de tareas solo está en el monitor 0, en el monitor 1 no hay)
Dobles Saludos
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.
Responder Con Cita
 


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Pc conectados Jordy Varios 1 23-01-2005 11:14:06
Varios monitores seduerey API de Windows 0 25-09-2004 17:04:00
varios monitores en Windows XP Lepe Windows 5 26-04-2004 17:07:47
Manejo de 2 monitores migueldiazglz OOP 1 12-08-2003 16:15:04
Adaptación a Monitores de 15'' jfloro OOP 1 12-06-2003 10:58:45


La franja horaria es GMT +2. Ahora son las 06:32:50.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi