• Miércoles 1 de Mayo de 2024, 14:28

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]
26
Delphi / Tutor De Installshield
« en: Viernes 7 de Julio de 2006, 01:04 »
Hola,

¿Alguien conoce alguna página donde obtener un Tutor de InstallShield?
Básicamente cual es el proceso de trabajo de este programa para empaquetar mi aplicación creada en Delphi?

¿De que archivos me valgo? ¿Directorios? ¿imágenes, íconos?, etc.
o InstallShield lo detecta automáticamente?
Gracias

27
Delphi / Crecimiento Del Ejecutable Con Archivos Res
« en: Viernes 7 de Julio de 2006, 00:53 »
Mi duda es la siguiente, ¿Cuan bueno o No beneficioso es engordar una aplicación (ejecutable) de Delphi?, Todos sabemos, que por evitar ser pirateados algunos íconos, Imágenes, o Sonidos lo trabajamos con arcvhivos RES verdad?.

¿Cuan beneficioso sería introducir en un RES 200 íconos 32x32?
¿Cuan beneficioso sería introducir en un RES 200 imágenes BMP 64x64?
Y como adimento digamos unas 5 imágenes BMP grandes (800x600) para fondos y otros.

TOTAL = 405,

Tal vez no me quedaría otra que tenerlos en un directorio y evitar engordar el Ejecutable, pero con la probabilidad que más adelante lo descarguen éstas imágenes e íconos que me costó construirlos.

Si hablé de una cantidad de 200, es por la sencilla razón de crear una Tabla Periódica Química y para otros trabajos jalándolos y mostrar después de un posterior cálculo en mi aplicación.
Me sugerieron guardar en dll, pero acaso no existen programas que recuperan íconos de una dll? (pues estaríamos en lamisma situación) y si no fuera así como realizo este proceso?
¿Afecta en algo engordar el ejecutable, se vuelve lento, no pasa nada?
¿Cual sería el mejor planteamiento?

Gracias espero vuestras sugerencias

28
Delphi / Propiedad Transparency:= True En Bitmaps E Iconos
« en: Martes 13 de Junio de 2006, 19:44 »
Me parece que son dos cosas diferentes. Haber,

1.- BitMap. ¿Como se entiende colocar diferentes colores de transparencia? (adjunto un BitMap) verán que el fondo del mismo predomina un celeste tenue, Si coloco la transparencia en true a una TIMage que lo va a cargar, o por código: BitMap.Transparent:=true;  No veo esa transparencia. Y a pesar que se puede elegir colores, como BitMap.TransparentColor:= clSkyBlue; TAMPOCO! ¿Que no entiendo? ¿que hago mal? ¿de que color debe ser el fondo para ser transparente?

2.- Iconos. Lo propio no obedece la propiedad transparencia si el Icono no es "hueco" (es decir de fondo nada) Yo construyo mis iconos con Freehand o Corel Draw, los exporto a formato a BMP (cuando los abro con el Visor de Windows noto que el fondo se quedó de color blanco) luego lo convierto con un Conversor de BMP a ICO, posteriormente utilizo MicroAngelo o IconCool para borrar ese fondo blanco (o aveces con ese Conversor dándole la opción de transparency=white) este proceso me es muy largo para lograr en Delphi que funcione la propiedad Transparent=true en el ícono. ¿Existe alguna otra forma?

29
Delphi / Mostrar Parte De Un Bmp
« en: Lunes 5 de Junio de 2006, 00:42 »
Hola!

Acabo de darme cuenta que en Delphi se puede manejar trozos de un BMP (Números graficados por así decirlo=0123456789 dibujados en un solo BMP [con una determinada altura y ancho]) y que estos se puedan mostrar en un TPanel o TPaintBox, solo cierta parte. Vi esto en una Aplicación como ejemplo pero ejecutable ¿Como se realiza este proceso?

1.- Me explico: por así decirlo necesito mostrar solo el "4" y el "9" adyacentemente de la "Cadena BMP" = '0123456789' (gráficado) ¿como lo hago?

2.- De mostrarlo, ¿como simular un parpadeo (blinkado) con un trozo de BMP, el "4" (parpadeando) por así decirlo y el "9" nada que ver?

3.- ¿Donde es más adecuado (óptimo) mostrar este trozo de BMP? ¿En un TPanel? ¿En un TPaintBox? ¿En un TIMage? ¿En un TForm directamente? ¿Es indiferente según necesidades?

Saludos

30
Delphi / Mover De Un Bmp Horizontalmente Sin Parpadeos
« en: Martes 24 de Enero de 2006, 16:11 »
Deseo hacer mover una imagen de izquierda a derecha o viceversa, inicialmente intenté con un TImage, luego con un TBitMap como muestro abajo al evento de un Button OnMouseMove, el primero me parpadea la imagen, el segundo no borra el BitMap.
Código: Text
  1.  
  2. type
  3.    TForm1 = class(TForm)
  4.    Button1: TButton;
  5.    Image1: TImage;
  6.    Timer1: TTimer;
  7.    procedure Button1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
  8.    procedure Timer1Timer(Sender: TObject);
  9.    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
  10. end;
  11.  
  12. var
  13.   Form1: TForm1;
  14.  
  15. implementation
  16.  
  17. {$R *.dfm}
  18.  
  19. procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
  20.   begin
  21.      Timer1.Enabled:=true;
  22.   end;
  23.  
  24. procedure TForm1.Timer1Timer(Sender: TObject);
  25.   begin
  26.      Image1.Left:=Image1.Left + 4;
  27.      if Image1.Left+Image1.width >= Form1.width then
  28.      Timer1.Enabled:=false;
  29.   end;
  30.  
  31. procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
  32.   begin
  33.      Timer1.Enabled:=false;
  34.   end;
  35.  
  36. end.
  37.  


LUEGO ME RECOMENDARON UTILIZAR UN TBitMap, PARA EVITAR EL PARPADEO Y ASÍ LO HICE, PERO AQUÍ TENGO EL PROBLEMA DE QUE CONSTANTEMENTE ME REDIBUJA, NO PUEDO HACER QUE UN RATO DIBUJE y luego se Borre (MOVERSE)
Código: Text
  1.  
  2. var
  3.   Form1: TForm1;
  4.   i:integer=0;
  5. implementation
  6.  
  7. {$R *.dfm}
  8.  
  9. procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
  10. begin
  11.    G:= TBitMap.Create;
  12.    G.LoadFromFile('E:\molecule14.bmp');
  13.    Timer1.Enabled:=true;
  14. end;
  15.  
  16. procedure TForm1.Timer1Timer(Sender: TObject);
  17. begin
  18.    Canvas.Draw(10+i,10,G);
  19.    i:=i+2;
  20. end;
  21.  
  22. procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  23.   Y: Integer);
  24. begin
  25.    Timer1.Enabled:=false;
  26.    i:=0;
  27. end;
  28.  
  29. procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
  30. begin
  31.    G.Free;
  32. end;
  33.  
  34. end.
  35.  

¿Como lo soluciono?

Saludos

31
Delphi / Fórmulas Químicas Con Delphi
« en: Domingo 15 de Enero de 2006, 22:14 »
Hola,
Una consulta, y aclaro que todo esto me está pasando por novato, ¿Como puedo colocar un texto por código en un PaintBox, donde cada letra (casi) vienen o responden a un cálculo, y además colocar con diferentes TOPs?
Bueno, lo que sucede es que por ejemplo quise emplear el uso de Labels en un principio, pero me complicaba cuando el texto a escribir era ' ' (nada) y aún así Delphi me dejaba un cierto espacio. Lo que requiero es que el texto salga UNIDO y sin espacios.

Verán por ejemplo necesito mostrar (después de un cálculo) (como ejemplo) fórmulas químicas:
K-2-S-O-4, Fe-''-Te-O-3, Na-''-Cl-O-'', Hice a propósito la separación con guiones para que se me entienda, pues en realidad no puedo mostrar en este post SUBÍNDICES de: K2SO4, FeTeO3 Y NaClO, notarán que en algunos no existe letras (Subíndices) y en otros el Símbolo es de dos letras (Na, Fe) a diferencia de Potasio=K.

Mi pregunta para el Foro no es "La Química", es ¿Como colocar en un PaintBox esos textos donde cada letra "K", "Fe", "Te", etc (cada uno) que vienen de un cierto cálculo, y además mostrar NÍTIDAMENTE los SUBÍNDICES que también vienen de otro cálculo, pero colocarlo en el PaintBox con diferente TOP y se note como subíndice?
Gracias, estaré atento a vuestras sugerencias.
Un Saludo

32
Delphi / Listbox Degradado
« en: Sábado 14 de Enero de 2006, 15:49 »
Hola,
Participo por primera vez en el Foro, espero conocer mucha gente por aca y valorar vuestra experiencia en Delphi.

No hace mucho me preguntaba como obtener un color diferente de selección en un ListBox o ComboBox independientemente de aquel que viene por defecto en Windows-Apariencia, pero creo que debería de empezar a preguntar ¿Como puedo crear un rectángulo pequeño CON UN COLOR DEGRADADO y sin borde?, ya que obteniendo esta respuesta quizá lo pueda acomodar a la investigación de modificar la selección que presentan los componentes ListBox o ComboBox y convertirlo en degradado , no se si me estoy liando, pero la finalidad es obtener un ListBox, ComboBox o un Componente Menú tipo del Programa Super Utilities 6.0 con selecciones degradadas al mover el mouse.
Alguna sugerencia?
Un saludo.

Páginas: 1 [2]