• Viernes 8 de Noviembre de 2024, 07:02

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Temas - Deiv

Páginas: [1] 2
1
CSS / SASS / LESS / DIV Fijo IE6 con Cualquier Resolucion Pantalla
« en: Lunes 3 de Agosto de 2009, 21:51 »
De tantas sugerencias que existen en la Web sobre cómo colocar un DIV fijo para IE6, este me pareció el mejor:
Código: Text
  1. <HEAD>
  2. <STYLE type=text/css>
  3. #elemento_fijo {
  4.     POSITION: fixed; TOP: 96%;   /*POSITION: fixed; TOP: 555px;*/
  5.     border:1px solid #000;  background:#cff;
  6. }
  7. * HTML #elemento_fijo {
  8.     POSITION: absolute; ; TOP: expression(document.compatMode=="CSS1Compat"? document.documentElement.scrollTop+580+"px" : body.scrollTop+580+"px")
  9. }
  10. </STYLE>
  11. </HEAD>
  12.  
  13. <BODY>
  14. <DIV id=contenido>
  15. <P>Texto texto texto texto texto texto texto texto texto texto texto texto texto texto texto</P>
  16. <P>Texto texto texto texto texto texto texto texto texto texto texto texto texto texto texto</P> /*COLOCAR MUCHO TEXTO*/
  17. <P>Texto texto texto texto texto texto texto texto texto texto texto texto texto texto texto</P>
  18. </DIV>
  19. <DIV id=elemento_fijo>Fijo
  20. </DIV>
  21. </BODY>
  22.  
Este <style> funciona muy bien para IE6, el único "problemita" radica aquí:
document.documentElement.scrollTop+580+"px" : body.scrollTop+580+"px"
La posición 580px es solo una Idea. Para una Resolución: 1024x768 el DIV se ve muy bien.
El DIV se va a fijar en un Top de 580px (posición fija) pero cuando se ve en otro tipo de RESOLUCIÓN de Pantalla, el DIV siempre se va a ver en esa posición, y no en la parte inferior como Yo deseo.

1.- Lo que necesito es cambiar el código no con "px", sino que con "%" así como lo hice para IE7 (POSITION: fixed; TOP: 96%;)
Y realmente no sé cómo hacerlo, porque no conozco muy bien las otras instrucciones que pudieren tener el document.documentElement.scrollTop y el body.scrollTop para este efecto, pensaba que quizá existe una instrucción como "+ ScreenHeight" por ejemplo.

2.- El otro problema es que cuando se desactiva los: Botones Standard, Barra de Direcciones, Barra de Estado, es otro problema ya que no se FIJA como debe ser en la parte Inferior el DIV, sino que se descoloca, pensaba quizá con una Instrucción algo así como: Screen.Cliente.Height (es un invento) por ejemplo, y esa es otra pregunta.
Recurro a vuestras experiencias sobre el Tema.
¿Alguien podría indicarme por favor cómo cambiar este script en esa línea para que mi DIV fijo siempre se vea en la parte inferior para cualquier resolución de Pantalla en IE6?

2
JavaScript / Efecto FADE en DIV contenedor al Salir de la Página
« en: Lunes 3 de Agosto de 2009, 21:49 »
Hola de nuevo,
Al no recibir respuestas que me convencieran sobre el Tema tuve que investigar mucho más, pero esta vez me dediqué a buscar en las Páginas en inglés y encontré esta:
http://brainerror.net/
http://www.brainerror.net/scripts_js_blendtrans.php
http://brainerror.net/scripts/javascrip ... /demo.html
donde realmente existen los mejores efectos de FADE (blending) opacado para Imágenes, este me pareció el mejor Script que existe para este Efecto.
También encontré otra Página de un Foro en inglés, donde habían modificado este Script para realizar un Efecto Fade de Página (que es lo que en realidad me interesa), hay dos líneas en la parte inferior:
Código: Text
  1. //OPEN DIV code
  2. javascript:opacity('help1', 0, 100, 500)
  3. //CLOSE DIV code
  4. //javascript:opacity('help1', 100, 0, 500)
  5.  
Que si intercambian cada una de ellas verán los efectos tanto al ingresar la Página, como al salir de la misma, trabaja muy bien ya que engloba un DIV contenedor donde se ve ese efecto.
Necesito de vuestra ayuda aquí, ya que no estoy tan interesado el Efecto Fade cuando se ingresa a la Página, sino que al SALIR desde la mía obteniendo este efecto, pero ni idea de cómo hacerlo.
¿De que manera puedo modificar este código para que el efecto Fade se vea perfectamente al cambiar a otra página?

Código: Text
  1. <Head>
  2. <title>Untitled Document</title>
  3. <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
  4.  
  5. <style type="text/css">
  6. div.opac_xmpl {
  7.     padding: 3px;
  8.     filter: alpha(opacity=0);
  9.     -moz-opacity: 0;
  10.     opacity: 0;
  11.     position: absolute;
  12.     float: right;
  13.     z-index: 1;
  14.     display: compact;
  15.     border: thin solid #3300FF;
  16. }
  17.  
  18.  
  19. .hidden {
  20.     visibility: hidden;
  21.     display: none;
  22. }/* CSS Document */
  23. </style>
  24. </head>
  25.  
 

<body>
Código: Text
  1. <SCRIPT LANGUAGE="Javascript">
  2. function opacity(id, opacStart, opacEnd, millisec) {
  3.     //speed for each frame
  4.     var speed = Math.round(millisec / 100);
  5.     var timer = 0;
  6.  
  7.     //determine the direction for the blending, if start and end are the same nothing happens
  8.     if(opacStart > opacEnd) {
  9.         for(i = opacStart; i >= opacEnd; i--) {
  10.             setTimeout("changeOpac(" + i + ",'" + id + "')",(timer * speed));
  11.             timer++;
  12.         }
  13.     } else if(opacStart < opacEnd) {
  14.         for(i = opacStart; i <= opacEnd; i++)
  15.             {
  16.             setTimeout("changeOpac(" + i + ",'" + id + "')",(timer * speed));
  17.             timer++;
  18.         }
  19.     }
  20. }
  21.  
  22. //change the opacity for different browsers
  23. function changeOpac(opacity, id) {
  24.     var object = document.getElementById(id).style;
  25.     object.opacity = (opacity / 100);
  26.     object.MozOpacity = (opacity / 100);
  27.     object.KhtmlOpacity = (opacity / 100);
  28.     object.filter = "alpha(opacity=" + opacity + ")";
  29. }
  30.  
  31. function shiftOpacity(id, millisec) {
  32.     //if an element is invisible, make it visible, else make it ivisible
  33.     if(document.getElementById(id).style.opacity == 100) {
  34.         opacity(id, 100, 0, millisec);
  35.     } else {
  36.         opacity(id, 0, 100, millisec);
  37.     }
  38. }
  39. //OPEN DIV code
  40. javascript:opacity('help1', 0, 100, 500)
  41.  
  42. //CLOSE DIV code
  43. //javascript:opacity('help1', 100, 0, 500)
  44. </SCRIPT>
  45.  
Código: Text
  1. <div id="help1" class="opac_xmpl" style="width:675px; height:200px;"> awhole bunch of text
  2.     <div> <IMG height=109 alt="" src="fade00.jpg" width=109 border=0></div>
  3. </div>
  4.  
</body>
¿De que manera puedo modificar este código para que el efecto Fade se vea perfectamente al cambiar (SALIR) a otra página?
Ni idea de cómo hacerlo.

3
CSS / SASS / LESS / Mis DIVs descolocados
« en: Miércoles 14 de Enero de 2009, 15:57 »
Hola Amigos!
Nuevamente por acá y con preguntas que quizá Uds. ya tropezaron y pasaron los mismos para que hoy puedan orientarme, por favor.
Estoy empezando con el diseño de Capas y maqueteado con CSS, ya que necesito transformar mi Web hecha en Tablas a DIVs.
Como voy novato en esto de los bloques, no se extrañen si ven algunos ids o class en el CSS que empiezan con "#" u otros con "." (es otra duda que tengo, no se cuando utilizar uno y otro).
Disculpen el envío del código largo que adjunto, pero no hay otra forma de que se me entienda, mis preguntas están al finalizar el código:

CSS:
Código: Text
  1. body{
  2.     font-family:Arial, Helvetica, sans-serif;
  3.     background: #E0D5B7 url(images/page_bg4.jpg) 0 0 repeat-x; 
  4. }
  5.  
  6. #detalles{
  7. float:left;
  8. width:95%;
  9. height:740px;
  10. }
  11.  
  12. .detallesizquierda{
  13. clear : both; /*Sin esto se descoloca en IE*/
  14. color: #5d5d5d;
  15. float:left;
  16. width:80%;       
  17. }
  18.  
  19. .noticias{
  20. width:97%;
  21. height: auto;   
  22. }
  23.  
  24. .titulo{
  25.     background: #1bf;
  26.     font-size: 12px;
  27.     height: 40px;   
  28. }
  29.  
  30. #personales{
  31. width:auto;
  32. height: 140px;
  33. }
  34.  
  35. .imagen{
  36. background: #fff;
  37. float:left;
  38. width:92px; 
  39. height: 99px;        
  40. }
  41.  
  42. .textonoticia{
  43. background: #fff234;
  44. float:right;
  45. width:auto;
  46. color:#000000;
  47. height:auto;
  48. }
  49.  
  50. .detallesderecha{
  51. background: #1ff234;
  52. float:right;
  53. width:170px;         
  54. }
  55.  

HTML:
Código: Text
  1. <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
  2. <html xmlns="http://www.w3.org/1999/xhtml">
  3. <head>
  4. <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
  5. <title>Sitio - Prueba</title>
  6. <link href="style.css" rel="stylesheet" type="text/css" />
  7. </head>
  8. <body>
  9. <div id="detalles">
  10.     <div class="detallesizquierda">  
  11.       <div class="noticias">
  12.             <div class="titulo">
  13.                 <h1>Titulo</h1>
  14.             </div>  <!--titulo end -->
  15.             <div id="personales">
  16.                 <div class="imagen">
  17.                     <img src="0.gif" alt="Pic 0" >        
  18.                  </div> <!--imagen end -->
  19.                  <div class="textonoticia">  <!--noticia start -->
  20.                 <p>"Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Ut enim ad minim veniam, quis nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo consequat. "Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Ut enim ad
  21. minim veniam, quis nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo consequat.</p>
  22.                 </div> <!--textonoticia end -->  
  23.             </div> <!--personales end -->
  24.       </div> <!--noticias end -->  
  25.     </div>  <!--detallesizquierda end -->
  26.    
  27.     <div class="detallesizquierda">  
  28.       <div class="noticias">
  29.             <div class="titulo">
  30.                 <h1>Titulo</h1>
  31.             </div>  <!--titulo end -->
  32.             <div id="personales">
  33.                 <div class="imagen">
  34.                     <img src="0.gif" alt="Pic 0" >        
  35.                  </div> <!--imagen end -->
  36.                  <div class="textonoticia">  <!--noticia start -->
  37.                 <p>"Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Ut enim ad minim veniam, quis nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo consequat. "Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Ut enim ad
  38. minim veniam, quis nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo consequat.</p>
  39.                 </div> <!--textonoticia end -->  
  40.             </div> <!--personales end -->
  41.       </div> <!--noticias end -->  
  42.     </div>  <!--detallesizquierda end -->
  43.  
  44.     <div class="detallesderecha">  
  45.       <IMG height=160 width=160 src="images/1.gif" alt="Pic 1" border=1/>
  46.       <IMG height=160 width=160 src="images/1.gif" alt="Pic 2" border=1/>
  47.       <IMG height=160 width=160 src="images/1.gif" alt="Pic 3" border=1/>  
  48.     </div>  <!--detallesderecha end -->
  49. </div> <!--detalles end -->    
  50. </body>
  51. </html>
  52.  
Mis preguntas:
- Si bien en IE7 se ve como Yo quiero (o sea está perfecto) pero en el DISEÑO con DreamWeaver APARECE DESOLOCADO la columna de la derecha. Quizás me digan: lo importante es el resultado de como se ve la página en Internet, bien, pero como estoy empezando con el diseño de capas (DIVs) este efecto de descolocación me hace confundir si voy a continuar diseñando colocando otros elementos dentro de la página mía. ¿Qué hacer para que no se vea descolocado en el DISEÑO?
Todo lo anterior mencionado ocurre cuando agrego otro idéntico <div class="detallesizquierda"> (copia) con todo su contenido, ya que con una sola (sin copias) me muestra muy bien las flotaciones.
- Con relación a la anterior pregunta hice correr el código en FIREFOX y con sorpresa pude observar que todos los elementos se descolocan y la columna de la derecha casi ni la veo. Mi objetivo final es COPIAR varios bloques de <div class="detallesizquierda"> con todo su contenido en la izquierda y en la parte de la derecha exista otro bloque de gráficos. ¿Cómo solucionar este código para que se vean normal en IE7 y FireFox?Saludos

4
JavaScript / Script Dependiente De Cabecera Html
« en: Jueves 10 de Enero de 2008, 23:59 »
Me ha interesado cómo obtuvieron fijar un logo inamovible en esta página:
Código: Text
  1.  
  2. &#60;!DOCTYPE HTML PUBLIC &#34;-//W3C//DTD HTML 4.01 Transitional//EN&#34; &#34;http://www.w3c.org/TR/1999/REC-html401-19991224/loose.dtd&#34;&#62;
  3. &#60;html&#62;
  4. &#60;style type=&#34;text/css&#34;&#62;
  5. #logo {
  6.  Z-INDEX: 1; LEFT: 0px; MARGIN: 0px; COLOR: white; POSITION: absolute; TOP: 0px
  7. }
  8. [id]#logo {
  9.  POSITION: fixed
  10. }
  11. &#60;/style&#62;
  12. &#60;body&#62;
  13. &#60;P id=logo&#62;&#60;A title=Home href=&#34;http://coding.derkeiler.com/&#34;&#62;&#60;IMG title=Home
  14. height=308 alt=derkeiler.com src=&#34;logo.png&#34; width=77 border=0&#62;&#60;/A&#62;&#60;/P&#62;
  15. &#60;/body&#62;
  16. &#60;/html&#62;
  17.  
PRIMERO.-
El código trabaja muy bien en IE7 pero:
1.- En IE6 no funciona ¿Por qué?
2.- En IE7 si de la cabecera le quito: "http://www.w3c.org/TR/1999/REC-html401-19991224/loose.dtd">
y solamente le dejo:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
Tampoco funciona ¿Por qué?
 
SEGUNDO.-
El Script de abajo que encontre de tantos ejemplos en la Red:
Código: Text
  1.  
  2. if (document.all) {
  3. yourLogo = &#34;Mouse Orbital - &#34;;
  4. logoFont = &#34;Arial&#34;;
  5. logoColor = &#34;FFFFFF&#34;;
  6. yourLogo = yourLogo.split('');
  7. L = yourLogo.length;
  8. TrigSplit = 360 / L;
  9. Sz = new Array()
  10. logoWidth = 60;
  11. logoHeight = -30;
  12. ypos = 0;
  13. xpos = 0;
  14. step = 0.03;
  15. currStep = 0;
  16. document.write('&#60;div id=&#34;outer&#34; style=&#34;position:absolute;top:0px;left:0px&#34;&#62;&#60;div style=&#34;position:relative&#34;&#62;');
  17. for (i = 0; i &#60; L; i++) {
  18.  document.write('&#60;div id=&#34;ie&#34; style=&#34;position:absolute;top:0px;left:0px;'
  19.  +'width:10px;height:10px;font-family:'+logoFont+';font-size:12px;'
  20.  +'color:'+logoColor+';text-align:center&#34;&#62;'+yourLogo[i]+'&#60;/div&#62;');
  21. }
  22. document.write('&#60;/div&#62;&#60;/div&#62;');
  23. function Mouse() {
  24. ypos = event.y;  
  25. xpos = event.x - 5;  
  26. }
  27. document.onmousemove=Mouse;
  28. function animateLogo() {
  29.  outer.style.pixelTop = document.body.scrollTop;  
  30.  for (i = 0; i &#60; L; i++) {  
  31.   ie[i].style.top = ypos + logoHeight * Math.sin(currStep + i * TrigSplit * Math.PI / 180);
  32.   ie[i].style.left = xpos + logoWidth * Math.cos(currStep + i * TrigSplit * Math.PI / 180);
  33.   Sz[i] = ie[i].style.pixelTop - ypos;
  34.   if (Sz[i] &#60; 5)
  35.    Sz[i] = 5;
  36.   ie[i].style.fontSize = Sz[i] / 1.7;
  37.  }
  38.  currStep -= step;
  39.  setTimeout('animateLogo()', 20);
  40. }
  41. window.onload = animateLogo;
  42. }
  43.  
Si coloco en la Cabececera:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3c.org/TR/1999/REC-html401-19991224/loose.dtd">
Este interesante efecto funciona siguiendo al Mouse pero.... cuando se hace Scroll de la Página con la rueda Central del Mouse: El EFECTO del Script NO SIGUE al Mouse ¿Por qué?
 
Sin embargo si QUITO toda la cabecera, o sea borro todo el:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3c.org/TR/1999/REC-html401-19991224/loose.dtd">
¡Funciona perfectamente!! ¿Por qué?. El efecto sigue al mouse, y con el scroll tampoco se hace problemas.
 
Entonces resumiendo:
Nuevamente ¿Cómo entender esto de las Cabeceras? ¿Cómo darse cuenta para los ejemplos que menciono: ¿Cuando utilizar uno de otro?
En la primera pregunta estoy suponiendo que el IE6 no tiene esa capacidad para mantener fijo el logo?
Pero ¿por qué al borrar como mencioné UNA PARTE de la cabecera tampoco funciona en IE7?
En la segunda pregunta mas extraño aún, si quito toda, pero toda la cabecera, funciona muy bien el Script, y ¿Por qué NO así con cabecera?. En este caso estaría supeditado a no trabajar con Stándares si deseo utilizar este Script???

5
Delphi / Crear Objetos En Tiempo De Ejecución
« en: Domingo 29 de Julio de 2007, 18:44 »
Hola,
El siguiente código:
Código: Text
  1. procedure TForm1.Button1Click(Sender: TObject);
  2. var
  3.   NuevoForm: TForm;
  4.   NuevoBoton: TButton;
  5. begin
  6.   NuevoForm := TForm.Create(nil);
  7.   NuevoForm.Parent := nil;
  8.   NuevoForm.Left := 100;
  9.   NuevoForm.Top := 100;
  10.   NuevoForm.width := 500;
  11.   NuevoForm.Height := 400;
  12.   NuevoForm.Caption:='Nuevo Formulario';
  13.   NuevoForm.Name := 'MiForm';
  14.   NuevoForm.FormStyle:= fsStayOnTop;
  15.   NuevoForm.Show;
  16.  
  17.   NuevoBoton := TButton.Create(NuevoForm);
  18.   NuevoBoton.Parent := NuevoForm;
  19.   NuevoBoton.Left := 100;
  20.   NuevoBoton.Top := 100;
  21.   NuevoBoton.Caption:='Clickme';
  22.   NuevoBoton.Name := 'MiBoton';
  23. end;
  24.  
Crea un Nuevo Formulario con un Botón dentro, todo en tiempo de ejecución.

1.- ¿Cómo DESTRUYO (Free=donde coloco?) estos objetos al cerrar la 2da ventana (NuevoForm) creada?. Lo que pasa es que cada vez que clicko el Button1 me crea muchos Forms incluido su botón. Lo que necesito es crear una sola vez, por mucho que le dé n-veces click al Button1.
2.- No recuerdo cual es la propiedad de un Form que por ejemplo AL CREAR el 2do Form:
.....2a) ¿Cómo ubico por encima del principal?, es acaso...FormStyle:= fsStayOnTop? y  
.....2b) ¿Cómo deshabilito el Form principal mientras esté activo el 2do Form hasta que lo cierre?

6
Delphi / 2 Adoquery
« en: Jueves 26 de Julio de 2007, 00:02 »
Tengo el siguiente código delphi con una Tabla relacionada:
Código: Text
  1. procedure TForm1.Button1Click(Sender: TObject);
  2. const
  3.   sqlMuchos1 = ' Select * from muchos where IdTipo = &#34;NM&#34; ';
  4.   sqlMuchos2 = ' Select * from muchos where IdTipo = &#34;M&#34; ';  
  5. var
  6.   P,S,T : string;
  7. begin
  8.   ADOQuery1.Active:= False;
  9.   ADOQuery1.Sql.text := sqlMuchos1;
  10.   ADOQuery2.Sql.text := sqlMuchos2;
  11.   ADOQuery1.Active:= True;
  12.   ADOQuery2.Active:= True;
  13.  
  14.   with ADOQuery1 do
  15.     begin
  16.        first;
  17.        while not eof do
  18.          begin
  19.              P:= FieldByName('prefijo').AsString+ FieldByName('nom').AsString+FieldByName('sufijo').AsString+'  ';
  20.              with ADOQuery2 do
  21.                 begin
  22.                    first;
  23.                    while not eof do
  24.                       begin
  25.                          S:= FieldByName('prefijo').AsString+ FieldByName('nom').AsString+FieldByName('sufijo').AsString;
  26.                          T:=P+S;
  27.                          ListBox1.Items.Add(T);
  28.                          next;
  29.                       end;
  30.                 end;
  31.              next;
  32.          end;
  33.     end;  
  34. end;
  35.  
Adjunto la BD hecha en Access, y la imagen de relación.

Me preguntaba si se puede realizar la misma operación con UN SOLO ADOQuery?
o ¿Necesariamente debo utilizar los 2 ADOQueries porque son 2 consultas diferentes? (pregunto porque son mis primeros pasos con SQL)
En todo caso ¿Cuál sería la modificación de mi código para que trabaje con un solo TADOQuery si se puede?

7
Delphi / ¿que Es Delphi 10 Lite?
« en: Viernes 13 de Julio de 2007, 00:29 »
Hola,
¿Cuanto se puede trabajar con Delphi 10 Lite? (Delphi 2006)
¿Qué herramientas le faltan a este Delphi en relación a la Pro?
¿Qué ventajas y desventajas trabajar con este Lite en relación a la versión Pro?
Saludos

8
JavaScript / Mostrar Un Contador
« en: Miércoles 4 de Julio de 2007, 14:54 »
De repente este tema ya se trató en alguna ocasión o la respuesta sea fácil de responder, pero Yo tengo mis propias dudas.
He averiguado que colocar un Contador en mi Página Web, no se hace con un Script sino que lo realiza un Servidor.
Mis preguntas:

1) Existen Servidores gratuitos para este caso verdad? ¿Cuál recomiendan aquel que tenga menos Popus y molesten tu Página?. Mostrar un CONTADOR GRÁFICO del número de personas que visitan mi Web.
2) De recomendar x-Servidor gratuito para obtener un Contador, ¿Cuál es el código Script que debo colocar y Donde en mi Página Web, para que funcione ese Contador?

Gracias y Saludos
Deiv

9
HTML / Obtener Direcciones De Imagenes Y Swf
« en: Miércoles 4 de Julio de 2007, 14:46 »
Como no tengo conexión a Internet en Casa he descargado esta Página de un Cyber, porque me ha interesado la imagen del espiral para copiarlo, pero cuando me fijo en mi flashmemory (adjunto el ejemplo) me doy cuenta que grabó todo menos esa imagen.

En cierta ocasión me dijeron EXISTEN TANTAS FORMAS de descargar esas imágenes, por ello me preguntaba:

- Según vuestras experiencias ¿Cuál es UNA de esas formas?
- ¿Cómo obtengo GENERALMENTE la dirección de una Imagen o SWF para descargarla?

Sé que con click derecho es fácil de grabar una Imagen, pero no es así de sencillo cuando se trata de descargar Cursores Animados o SWF de dichas Webs, verdad?

10
Delphi / ¿cuál Es La Diferencias De Estos Códigos?
« en: Martes 3 de Julio de 2007, 17:19 »
Estoy intentando capturar elementos no repetidos de una forma muy distinta sin utilizar Distinct de SQL y guardarlo en un Array, el primer código de abajo me funciona bien, pero el segundo no, ¿Por qué?
Código: Text
  1. procedure TForm1.FormCreate(Sender: TObject);
  2. type
  3.   UnArray = array[0..100] of string;
  4. var
  5.   i,j,x:  integer;
  6.   A:UnArray;
  7. const
  8.   sqlElementos = ' Select * from elementos ';
  9. begin
  10.   x:=0;
  11.   ADOQuery1.Active:= False;
  12.   ADOQuery1.Sql.text:= sqlElementos;
  13.   ADOQuery1.Active:= True;
  14.   with ADOQuery1 do
  15.     begin
  16.       first;
  17.       while not eof do
  18.         if (ComboBox1.Items.IndexOf(FieldByName('Tipo').AsString)=-1)then
  19.            begin
  20.                ComboBox1.Items.Add(FieldByName('Tipo').AsString);
  21.                A[x]:=FieldByName('Tipo').AsString;
  22.                inc(x);
  23.            end;
  24.         next;
  25.     end;
  26. end;
  27.  

Código: Text
  1. procedure TForm1.FormCreate(Sender: TObject);
  2. type
  3.   UnArray = array[0..100] of string;
  4. var
  5.   i,j,x:  integer;
  6.   A:UnArray;
  7.   B:TStringList;
  8. const
  9.   sqlElementos = ' Select * from elementos ';
  10. begin
  11.   x:=0;
  12.   B:= TStringList.Create;
  13.   ADOQuery1.Active:= False;
  14.   ADOQuery1.Sql.text:= sqlElementos;
  15.   ADOQuery1.Active:= True;
  16.   with ADOQuery1 do
  17.     begin
  18.       first;
  19.       while not eof do
  20.         if (B.IndexOf(FieldByName('Tipo').AsString)=-1) then
  21.            begin
  22.               ComboBox2.Items.Add(FieldByName('Tipo').AsString);
  23.               A[x]:= FieldByName('Tipo').Value;
  24.               inc(x);
  25.               next;
  26.            end;
  27.     end;
  28. end;
  29.  
¿Por qué la línea:
Código: Text
  1. if (B.IndexOf(FieldByName('Tipo').AsString)= -1) then
  2.  
No Trabaja Igual que este otro?:
Código: Text
  1. if (ComboBox1.Items.IndexOf(FieldByName('Tipo').AsString)= -1) then
  2.  
¿Cómo corregir el segundo código para que trabaje como el primero?

11
Delphi / ¿cuál La Diferencia De Estos Códigos?
« en: Lunes 2 de Julio de 2007, 15:12 »
Estoy intentando capturar elementos no repetidos de una forma muy distinta sin utilizar Distinct y guardarlo en un Array, el primer código de abajo me funciona bien, pero el segundo no, ¿Por qué?
Código: Text
  1. procedure TForm1.FormCreate(Sender: TObject);
  2. type
  3.   UnArray = array[0..100] of string;
  4. var
  5.   i,j,x:  integer;
  6.   A:UnArray;
  7. const
  8.   sqlElementos = ' Select * from elementos ';
  9. begin
  10.   x:=0;
  11.   ADOQuery1.Active:= False;
  12.   ADOQuery1.Sql.text:= sqlElementos;
  13.   ADOQuery1.Active:= True;
  14.   with ADOQuery1 do
  15.     begin
  16.       first;
  17.       while not eof do
  18.         if (ComboBox1.Items.IndexOf(FieldByName('Tipo').AsString)=-1)then
  19.            begin
  20.                ComboBox1.Items.Add(FieldByName('Tipo').AsString);
  21.                A[x]:=FieldByName('Tipo').AsString;
  22.                inc(x);
  23.            end;
  24.         next;
  25.     end;
  26. end;
  27.  

Código: Text
  1. procedure TForm1.FormCreate(Sender: TObject);
  2. type
  3.   UnArray = array[0..100] of string;
  4. var
  5.   i,j,x:  integer;
  6.   A:UnArray;
  7.   B:TStringList;
  8. const
  9.   sqlElementos = ' Select * from elementos ';
  10. begin
  11.   x:=0;
  12.   B:= TStringList.Create;
  13.   ADOQuery1.Active:= False;
  14.   ADOQuery1.Sql.text:= sqlElementos;
  15.   ADOQuery1.Active:= True;
  16.   with ADOQuery1 do
  17.     begin
  18.       first;
  19.       while not eof do
  20.         if (B.IndexOf(FieldByName('Tipo').AsString)=-1) then
  21.            begin
  22.               ComboBox2.Items.Add(FieldByName('Tipo').AsString);
  23.               A[x]:= FieldByName('Tipo').Value;
  24.               inc(x);
  25.               next;
  26.            end;
  27.     end;
  28. end;
  29.  


¿Por qué la línea:

Código: Text
  1. if (B.IndexOf(FieldByName('Tipo').AsString)= -1) then
  2.  

NO TRABAJA IGUAL QUE:

Código: Text
  1. if (ComboBox1.Items.IndexOf(FieldByName('Tipo').AsString)= -1) then
  2.  
¿Cómo corregir el segundo código para que trabaje como el primero?

12
JavaScript / Tooltip De Walterzorn
« en: Lunes 23 de Abril de 2007, 19:31 »
Hola,
Me he puesto a diseñar un Calendario para IE6 donde al cambiar los meses me muestre los Cumpleaños de mi Familia en un ToolTip cuando acerque el Mouse a una Celda (FECHA) indicada; para lograr este efecto he descargado el ToolTip de
Walterzorn

No comprendo ¿en que parte de mi Script estoy fallando?, el objetivo final es, al cambiar los meses debo mostrar un nuevo ToolTip apuntando a una Celda Cumpleañera. Para vuestra observaciones he simplificado el código con un EJEMPLO de otra manera muy semejante que describo a continuación, donde solo muestro una Tabla Simple que hace de "Meses diferentes" con 4 Celdas cual si c/mes tuviera solo 4 días.

Lo que hace mi Script "Probe.js" es, al acercar a la 2da Celda muestra un ToolTip (en reemplazo de un x-Cumpleaños), pero al clickar ">>" ó "<<" me sigue mostrando el mismo primer ToolTip (estando en "otro mes") cuando según mi Script DEBERÍA de mostrar OTRO (distinto Cumpleaños y de Otro Mes) ToolTip y en Otra Celda. Lo peor de todo esto es que cuando clicko "ACTUAL" ya no me muestra NINGÚN TOOLTIP!! Ninguno!. ¿A que se debe todo ello?.De repente me deis soluciones como que deje ese ToolTip, que cambie por otro, etc, etc. Pero al menos me gustaría entender y saber en que parte de mi código estoy fallando o ¿por qué el mismo no funciona con el ToolTip de Walterzorn? entonces ¿Cómo obtener al cambio de ">>" o de "<<" o de "Actual" un nuevo ToolTip según mi Script??

Ps.- Aquí dejo el Código, que además necesita el Script "wz_tooltip.js" de Walterzorn, pruébenlo por favor, solo así observarán donde se halla el error, como dije el objetivo final es, al cambiar los meses debo mostrar un NUEVO ToolTip (Otro Cumpleaños) apuntando a la x-Celda Cumpleañera.
Saludos

13
JavaScript / Crear Página Con Distintos Idiomas
« en: Martes 13 de Marzo de 2007, 13:45 »
Hola,
Me he puesto a pensar de Crear mi Página Web en un par de Idiomas (español e Inglés) me han dicho por ahí que esa posibilidad existe con PHP.

¿Existe alguna forma de realizar este paso con DHTML o JavaScript a través de Links? y pregunto esto ya que no me conozco nada de PHP.

Imagino que la Página cambiaría el texto del Menú, etc.
¿Podrían darme algún ejemplo pequeño por favor?

14
HTML / Cabecera Html
« en: Lunes 12 de Marzo de 2007, 18:19 »
Hola,
Trabajo con DreamWeaver y al crear un nuevo documento existe una serie de opciones TIPO DE DOCUMENTO (DTD) que presenta el programa como cabecera del mismo. Al elegir una de ellas, dependiendo, esta es la presentación:

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
<!DOCTYPE html PUBLIC "-//WAPFORUM//DTD XHTML Mobile 1.0//EN" "http://www.wapforum.org/DTD/xhtml-mobile10.dtd">
¿Qué significan cada uno de ellos? y ¿Cuando utilizar uno del otro? ¿Cómo diferenciarlos? ¿Qué pasa si quitamos esa línea de la Cabecera?
En este momento no recuerdo, pero me ha ocurrido un par de veces que algunos Scripts no me funcionan, o algunos Menues (descargados de la RED) tampoco según tengan esa línea de cabecera que les comento arriba, inclusive me pasó con el 2do ejemplo que si quito el http y lo pongo así:

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN"

influye en algunos códigos Scripts, en fin me gustaría que me orienten por favor ¿Cual la razón de esta cabecera y por qué algunos Scripts no funcionan si se los cambia o se los quita?

15
Delphi / Base Txt De Datos
« en: Viernes 12 de Enero de 2007, 15:36 »
¿Cómo encarar la siguiente mínima Base de Datos de Alumnos, datos recuperados de un archivo TXT?
Quiero evitarme dependencias de Base de Datos, SQL, etc, ya que el objetivo es recuperar y mostrar solamente Datos y notas de Alumnos desde un archivo TXT, pues los mismos no rebasan de una cantidad de 100 elementos, y estos Datos no serán modificados, ni renombrados, ni agregados, ni nada por el estilo, SON FIJOS de una Gestión pasada.
La idea es la siguiente:
ID....Apellido......Nombre....Curso....Nota1.....Nota2....Nota3
01....Álvarez.........David..........1ro........43...........55.........90
02....Oropeza.......Jorge...........4to........67..........36.........80
03....Camacho......Pedro..........2do.......33...........75.........20
04....Álvarez.........Andrés........1ro........58...........65.........40
05....Miranda.........María..........3ro........80..........22.........30
06....Pérez............Henry.........4to.........77..........59.........90
07....Campero.......Joanna.......2do........34..........96.........50
08....Ruiz...............Lucy..........1ro.........43..........60.........70
...
100.....etc., etc.

Pensaba, recuperarlo en Delphi con:
Código: Text
  1. for i:=1 to 100 do
  2. begin
  3.   ReadLn(File, Cadena);
  4.   Alumno[i].ID:= Cadena;
  5.   ReadLn(File, Cadena);
  6.   Alumno[i].Apellido:= Cadena;
  7.   ReadLn(File, Cadena);
  8.   Alumno[i].Nombre:= Cadena;
  9.   ReadLn(File, Cadena);
  10.   Alumno[i].Curso:= Cadena;
  11.   ReadLn(File, Cadena);
  12.   Alumno[i].Nota1:= StrToInt(Cadena);
  13.   ReadLn(File, Cadena);
  14.   Alumno[i].Nota2:= StrToInt(Cadena);
  15.   ReadLn(File, Cadena);
  16.   Alumno[i].Nota3:= StrToInt(Cadena);
  17. end;
  18. //Luego no sé, quizá mostrarlo con un WRITELN
  19.  
No sé si estoy encarando bien esta parte o existe otro mejor camino, pues para 100 datos no vale la pena como dije depender de una Base de Datos. ¿Que opinan al respecto?
Mis preguntas:
1- ¿Cómo mostrar en un TListBox un FILTRO de "Curso", donde solo me muestren los "ID"?, es decir por ejemplo para mostrar los ID de "1ro", el resultado en el TLIstBox debería ser:
01
04
08
2- Que si selecciono por ejemplo en el TListBox "01" en 3 TEdits que tengo en el Form me muestre de "01" sus valores= Nota1 (TEdit1), Nota2 (TEdit2), Nota3 (TEdit3)

3- Y lo más complicado (me parece) mostrar los "ID" en el TListBox con el FILTRO de "Curso" pero que obedezcan a una ORDENACIÓN de "Nombre". El resultado debería ser:
04
01
08

Disculpen si es demasiado sencillo la pregunta, o tal vez me digan mejor si es con SQL (no me concozco bien) pero me estoy haciendo un bollo con los algoritmos y funciones. Agradeceré vuestra ayuda.
Un Saludo

16
Pascal / Suprimir Vocales Repetidas De Una Cadena
« en: Viernes 12 de Enero de 2007, 15:27 »
Hola,
¿Cuál sería la Función para quitar vocales repetidas (unidas) de una cadena de manera que se convierta en una sola?
Por ejemplo:

'Arribaa en la mooontaña se divisabaa una llama que reecorría su traayectoo'

El resultado deberá ser

'Arriba en la montaña se divisaba una llama que recorría su trayecto'

En realidad las consonantes no deben afectarse, solo las vocales repetidas (seguidas).

Pregunto a manera de practicar y saber como aplicarlo para el objetivo que tengo. Ya sé que por ejemplo si se quita a "Coordinado" se vería mal como "Cordinado", pero como dije otro es el objetivo, y me bastará con vuestras orientaciones de las vocales para darme cuenta.
Un Saludo

17
Delphi / Polimorfismo Vs. Sobrecargado
« en: Sábado 25 de Noviembre de 2006, 14:25 »
Hola,
Estoy empezando mis primeros pasos con la POO y me preguntaba sobre el polimorfismo y tenía una confusión con Sobrecargado (overload). He adjuntado un archivo DOC, donde hice las reducciones correspondientes de sus hojas originales para poderlo comprimir y adjuntar en este mi post.

a.- Si pudieran aclararme por favor, en la Pag.1 la Procedure Inicializar, no es un método virtual como veo, entonces ¿como debo entender ese método en las clases hijas? ya que llevan diferentes parámetros y una implementación interesante.

b.- La procedure Dibujar, no sé si el texto está mal transcrito por el autor, pero no veo virtual ni override en las clases hijas?

c.- En el otro ejemplo, Pag.3 y Pag.5 el CONSTRUCTOR Create tiene diferentes parámetros tanto la Clase Madre como la hija, ¿esto se puede?

De repente en vuestras palabras (indicaciones) llegue a tener una mejor explicación de lo que estoy leyendo y no voy comprendiendo algunos aspectos, les agradeceré mucho. Y mi última pregunta:

d.- Cual es la forma más óptima de trabajar, utilizar Polimorfismo o Sobrecargado?

18
La taberna del BIT / Cuál El Mejor Lenguaje Para Realizar Una Pag Web?
« en: Viernes 17 de Noviembre de 2006, 14:23 »
Para los que conocen mis post, tengo ciertos conocimientos de programación en Delphi, por lo que decidí lanzar como debate este nuevo post para aprender de vuestras experiencias y consejos.

Digamos que necesito crear una página donde deseo mostrar aptitudes de uno (currículum), ofrecer servicios, ofrecer conocimientos como dictar clases de alguna materia como apoyo, etc. Eso inicialmente. Ya que en esto de crear páginas soy nuevo y por algún lado hay que empezar, verdad?

1.- ¿Que Lenguaje utilizar para realizar una Página Web? ¿Por qué?. He escuchado de muchos: HTML, Java Script, PHP, etc.?

2.- ¿Cual es el diseñador más cómodo para realizar estas Páginas? Block de Notas, NotePad, Dreamweaver, etc?

3.- ¿Que sitios sugieren, donde ofrezcan abrir una Página Web gratuitamente?

19
Delphi / Elegir El Componente Mas Adecuado
« en: Viernes 17 de Noviembre de 2006, 14:19 »
Podrían sugerir por favor, segun vuestras experiencias en que basarse lo más óptimo para trabajar con Delphi, en:

1.- TImage, TpaintBox, ImageList?
   Esto pregunto ya que en muchos de mis post, se relacionaron a los mismos; por ejemplo en cierta ocasión quise trabajar con muchos iconos en disco, pero me recomendaron crear una sola imagen bastante larga (ahorrar recursos) y manejarla con un TImageList, luego cuando llevé a un TPaintBox me fue molestoso que desaparezca lo pintado, o que el código había que llevar al evento OnPaint del TForm, y cuando probé en una TImage se requería en muchas ocasiones un DoubleBuffered. Tal vez me respondan depende de lo que uno va a hacer, pero de un modo general ¿Cuál es el mas adecuado para trabajar?

2.- Gifs, Flash, TMediaPlayer(Video)?
    Encontré muchos post en el Foro preguntando sobre como mostrar Gifs, la respuesta: descargar componentes para ellos (GifImage, etc), luego otros post sobre como mostrar animaciones Flash, la respuesta utilizar la pestaña ActiveX y el TShokwaveFlash Component y listo funciona; Yo digo (tal vez esté equivocado) ¿no sería mostrar en vez de Gifs y animaciones Flash, un Video AVI o en cualquier otro formato con el TMediaPlayer lo mismo? o ¿Cuándo dar utilidad a uno y otro?
Gracias, espero sugerencias

20
Delphi / Como Grabar Mi Aplicación Con Otro Icono
« en: Viernes 27 de Octubre de 2006, 15:54 »
Hola,
Creo que se me escapó en algún lado leí que se podia realizar eso mismo

Necesito que mi aplicación terminada quede en disco duro grabada con otro tipo de ícono diferente al habitual que coloca Delphi

21
Delphi / Inspectorbar Tms (outlookbar) Por Código
« en: Lunes 23 de Octubre de 2006, 16:15 »
¿Alguien ha utilizado el InspectorBar de TMS?

Tengo un Form donde está un ComboBox que tiene a elección dos items: Autos y Compus, Necesito crear por código una Barra de InspectorBar, sus Panels e items todo por código, y darle eventos a los items. Al seleccionar un item del ComboBox debe crearse un Form nuevo con un InspectorBar, con sus Panels e items, como abajo indico:
Código: Text
  1. procedure TForm1.FormCreate(Sender: TObject);
  2. var
  3.    i: integer;
  4.    MiBar:TInspectorBar;
  5. const
  6.    MisPanels : array [0..2] of String = ('Automóviles','Computadoras','Otros');
  7.    MisItems : array [0..2] of String = ('HDD','CD ROM','RAMs');
  8.  
  9. begin
  10.    MiBar := TInspectorBar.Create(Self);
  11.    MiBar.Parent := Self;
  12.    MiBar.Align:= alRight;
  13.  
  14.    for i:= 0 to 2 do
  15.      begin
  16.        MiBar.Panels.Add;
  17.        MiBar.Panels[i].Caption :=MisPanels[i]
  18.      end;
  19.  
  20.    for i:= 0 to 2 do
  21.      begin
  22.        MiBar.Panels[0].CreateItems;// Aquí me lanza error!!
  23.        MiBar.Panels[0].Items[i].Caption:=MisItems[i];
  24.      end;
  25. end;
  26.  
  27. end.
  28.  
Hasta ahí avancé pero estoy fallando en la creación de Items y la forma de darle un evento a los mismos. ¿Como continuo?

22
Delphi / Aparecer Una Imagen
« en: Domingo 22 de Octubre de 2006, 00:02 »
Tengo una imagen BMP grabada en el disco de 128x128, quiero ver la forma de que esta vaya apareciendo de a poco desde un tamaño 8x8 por así decirlo hasta llegar a su tamaño normal en alguna coordenada del Form (dicho punto elegido [coordenada] debe ser el centro de la imagen para que inicie la aparición) algo así mas o menos como el efecto de Power Point (u otros programas) que tienen el efecto de transición = "Recuadro Saliente", no en si el efecto mismo sino que, la imagen vaya apareciendo cual si fuera un recuadro saliente.

¿De que me valgo de un TIMage, PaintBox?

Un Gif no quiero crear para evitarme conflictos con Delphi y usar otros componentes.

¿Como encaro esta situación?

Deiv

23
Delphi / Componente Outlookbar Efectos Seleccion
« en: Lunes 16 de Octubre de 2006, 02:35 »
Hola de nuevo,

Alguien puede decirme por favor con que Componente Barra (OutLook) está hecho en el programa de SuperUtilities (http://www.superlogix.net/)?, con TMSInspectorBar? TmxOutLook? GXOutlook? TBXNavBar? o acaso es un Componente creado por la misma Empresa?. Me preguntaba esto porque adjunto 3 imágenes, una la de este programa y otras (como ejemplo) de TMS, pues lo que mas me intereso es la forma como selecciona (SuperLogix) los íconos de esta Barra, cargado el ícono al seleccionar aparece un rectángulo 3D, y de las Barras que les mencioné (TMSInspectorBar, TmxOutLook, GXOutlook, TBXNavBar) no tienen ese tipo de selección, y si la tienen es, al ícono completo (ver: Barra TMS2.jpeg).

Por ello preguntaba, si habría alguna forma de lograr esa SELECCIÓN Rectangular 3D en los íconos de cualquiera de las Barras de OutLook que les mencioné.

Un saludo

24
Delphi / Mostrar Una Parte De La Timagelist
« en: Lunes 16 de Octubre de 2006, 02:28 »
Hola,
Tengo una imágen de 128x640 pixels (donde se encuentra dibujado una Letra cada 64 pixels en 2 filas [10 letras encima y 10 letras abajo] c/64 pixels) que lo cargo con una TImageList (cual si fuera una matriz de 10x10), el código de abajo dibujándolo en un TPaintBox :
ImageList1.Draw(PaintBox1.Canvas,0,0,0)
me muestra el elemento [0,0] (primero de la fila 1); lo que intento es mostrar en este PaintBox el elemento [1,1] es decir por ejemplo, el SEGUNDO elemento de la Segunda Fila de mi imagen. No sé como realizarlo ya que el ImageList no tiene la propiedad TOP, entonces no avanzo.... ¿Existe alguna forma de reducir por código el tamaño de una TImageList o en su defecto del TPaintBox por encima para que me muestre los elementos de la parte inferior de mi Imagen?
Código: Text
  1. var
  2.   Bitmap: TBitmap;
  3. begin
  4.   Bitmap:= TBitmap.Create;
  5.   try  
  6.     BitMap.LoadFromFile(getcurrentdir+'/Doble.bmp');
  7.     ImageList1.Width:= Bitmap.Width div 10;
  8.     ImageList1.Height:= Bitmap.Height div 2;  //Le indico mostrar la primera fila
  9.     ImageList1.Masked:= FALSE;
  10.     ImageList1.Add(Bitmap,nil);
  11.   finally
  12.     Bitmap.Free;
  13.   end;
  14. end;
  15.  

25
Delphi / Tmediaplayer No Abre Todo Avi?
« en: Lunes 10 de Julio de 2006, 16:14 »
Hola,
Inicialmente pensé que el componente del TMediaPlayer abría cualquier AVI, me parece que abre solo determinados formatos (es decir existen AVIs que se pueden grabar en diferentes formatos), pues tengo varios AVIs en el Disco (pequeños y grandes) algunos abre y otros no ¿a que se debe?.

Mi pregunta:
¿Con que PROGRAMAS realizan Uds. sus AVIs para recuperarlo con el TMediaPLayer de Delphi? en la propiedad FileName?

Algunos programas te permiten grabar un AVI en formato antiguo, comprimido, descomprimido, etc, etc.  ¿Cual es el Codec (formato) adecuado para grabar un AVI y recuperarlo con el TMediaPLayer?

¿Tiene algún límite de tamaño el AVI para que el TMediaPLayer lo pueda recuperar?

Saludos

Páginas: [1] 2